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ROM MAIRTENANCE OTAGNOSTIC PROGRAN ° PART NOe 6558778 18M MAINTENANCE DIAGNCSTIC PROGRAM. PART NOs ssssTTre s 
C PAGE 1 © PAGE ta 
~ SOFt 3743 SYSTEW TEST NOOULE : e*" 3744 SYSTES YEST woDULE 
* 
~ €RR LOE CesEcT cocE ADOR STMT SOURCE STATEMENT : ERR LOC CBSECT CODE - ADDR STMT SOURCE STATEMENT 
‘ . € 7 2e , LAST CHG 2:08 04 74 @ 21 a eae stoss asenenessesesosecesesecesessccoseesesestseeessecsens | 
j ~ 3 DECK 1 : 22 ¢ * 
4 seo oO i 23 THIS RCUVINE WRITES A CATTERN CR READS RECOROS DEPENDING @ 
Cc cooc S xsorF START 0 “ 2) 246 ON HC! THE 3703 1S SET UPs 17 CHECKS FOR ERRORS. * 
6 TREP ' 25 ¢. IT WAITS FCR 374% INTERRUPT. READ MODE OR WRITE NODE. . 
cCace 7 CRG X* GA0CO® i 2é€ 2 2 
€. 8 SSCA SAPESEDS SE 4EES SSO 94594 9449999909 900000990990 00599529085 80888EEE | © [ 2? 099 9999999999992599899 9 enSCEE SENS SSORES? SaResEESERETETsSSESeseeSORESESS 
9s * . 28 . 
; 10 * | SECTICN PREFACE Save 02 £100 29 RTNO1 OC xL1°07¢ RCUTINE 2 
€ 112 e: e€ CACE 80 - OA0E 30 oc xL1°BO® MANUAL INTERVENTION REQUERED 
o 12 msasuaestaseassnlesenaladesasesss toa Sessasnieiadisvharsiassedaul” OAOF FFEF GOA20 343 oc _z*FEFFFe Last ROUTINE 
: CACC S0F 1 OA0! 13 oc XL2°40F15 PROGRAM ID AND REVISION LEVEL | ‘ 32... 
io OAC2 40 OA02 14 oc xL2*°a08 CP END INTERRUPT FLAG : e a3 e enemas cnanatae 
‘ OAC3 O14 Oa03 15s oc XL 1°02 ¢ CURRENT ROUTINE NUMBER } 3a @ INITIAL SET UP FOR SYSTEM TEST. 
: CA08 ONCE OA0S 16 oc AL2C144) INTERRUPT HANDLER ! 35 = 
C" OAD6G OALD Oa07 17 o¢ AL ZCRTNOI) ADDRESS OF FIRSY ROUTINE | é 36 fF nore 
CACa 0000 OA09 19 cc XLZ*00008 ERROR RECORDING TABLE . 37 
OACA #05000 OAC 29 UDT: = 86OC XL2*40S0C0* 3741 ; OA11 31 41 133A 3a L1G) =~FUNBIT.LEONC FUNCTION REG 79 x*a0004 
C. : & CALE 3C 00 1214 39 uvE INTEL GexONO® CLEAR INTERRUPT FLAG 
40 
C ' & 2 SEY UF FOR I70 LOCP 
j a3e 
€ e as ; ‘ 
CA19 3¢€ S© 1319 : a6 avi CHIR Xesse START WITH OC FIELD oa 
OAIC OC OO OFS5A 1319 a7 ave BUFF 24127413 eCHAR PROPOGATE *CHAR® THROUGH BUFFER . se ees 
€ €: ; : OA23 OC 7E OFSO oFEeA sea wvC BUFF 241261127) .BUFF2¢127 
~ i OA2S OC O08 122F 1374 49 MVC SE OC 5) sACICNE INITIALIZE COUNTER (FOFOF]) 
OA2F OC 04 DEED 132F 50 PVC BUFF 24¢5(£) SEO PUT COUNT INTO BUFFER 
ee iG $3 
: i St : 
| S2 * WAIT FOR SOME 3763 ©:2GNAL SEFORE BEGINNINGe YMEN IGNORE THAT 
Cc © 53 ® FIRST INTERREUT. 
! 90A25 F2 40 08 54 BEG $10 SOTSAS e SCNTRE OISASLE inrerrurr. 
: 0438 SS HGROV EQU«® 
€ c OA38 30 42 1340 56 SKS SNES.SLIAES WAIT FOR READ OR WRITE MODE ETC. 
= OA2C 39 03 133F > ST tee SNE3—2 ext 03" 
OA@0 39 FC 1300 58 Ter SNS3+ N° 60 *SENSTBIPESECREECQISAT CR ERRCRS. 
£ c. e: 0a44 Ce 90 CASO 59 oF 1Ga ERANCH IF ONE OR MORE 1S ON. 
0AS8 CO 87 OCCF 60 8 sup GO 'O SUPERVISOR 
€ . eG cAaC CO BF OA38 61 8 +GROV 
ie . a) €2 
; OASO 3¢€ 87 CATA 63 IGA sv IGB4s one n7e SET UP FOR ®& ROUTINE TO IGNORE 
i 69 © THIS 1SV INTERRUPT. 
€ NAS4@ F323 40 91 65 so SRESE T oSCATRE KILL THES INTERRUPT. 
66 ° 
66 
€. i § 66 
{ 6? & - ee TO 
-_ i 68 & Ive Loce 
R . 69 « 
70 * ee eee nate ninteeeeeeen nie ane eee 
: 71 
€ & 71 
73 
OAS? 672 WLOOP F£QUuU « 
C e OAS? GC 7F GEDA OF SA 73 weve BUFF 14127(128) eSUFF2*127 MOVE PATTERN BUFFER TO 870 BUFF 
‘ OASC CO 87 OA7# 74 8 aw GO YO READSURITE ROUTINE , 
ae CA€1 CO 87 OC7E 75 e Ct CeurF CHANGE PATTERN IN BUFFER 
c OA6S 3D FF 1312 76. CLI UNX.ReF Fe SEE IF UNEXPECTED INTERRUPT OCCURRED 
OA6S CO B1 0095 77 BE UNE BRANCH. JF SO 
C 9 CAGED CO ©? OAS? 78 a. wLcoP ERANCH GACK FOR NEXT RECORD 
. e , 79 : ’ . . 
OA71 CO ©7 CATS 80 8 aoa FILLER . : 
2 a3 Sar ee 
e i © Bt 
a1 
é . -. ' oe _ 
Date téaucrea ISNCVT4 PROG I0 a0F-1 DATE TEAUGTS 1SNOVTe PROG ID 20F-1 
; EC NO 024765 €24e70 PAGE 1 EC NOs 6824765 2240876 
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ERR LOC CBJECT CODE ADOR STMT SOURCE STATEMENT ~ ERR toc OBJECT CODE 


. 1 


ADDR STMT SOURCE STATEMENT 











4 B83 *eeeneeseceses “= OAFF CO 87 0222 145 8 HALT 
8a * RW * . eac3 40e2 OB04 1465 HTS2 oc xL2°4082* 
i BS SHERSEKS ETS FESS EREREREERESEEEEEKESESEERESERESEEKSE SEEKS oe8os CO 87 OA3S 147 8 BEG - RETURN TO BEGINING 
C 86 * READ CR WRITE ROUTINE. * G 148 
S87 & READS OR WRITES AS DETERMINED @Y 3741 SET UP * 149 * CHECK FOR DATA TRANSFER PARITY ERROR 
st es, BB BHSES SKE TAR GESD OAR SEES SRESSEREKEKKE LERKSEKEREEKE CESSES 150 
C. 69 €3 OBOS 38.08 1330 151 NOUPOK TON SNS2—1ex* Cee DATA XFER PARITY ERROR 7 
OA7S 34 08 0870 90 RY st RWF43 cARR SET UP RETURN CBOr F2 SO 17 152 JF NOCTPE : 
CA79 F2 07 68 91 168 IC 1GC.x*Oo7* ALTERED TO IGNORE 1ST INTERRUPT 0810 F2 43 so 153 SIO RSR+EBOPE.SCTLI SENSE RESPONSE / BUS OUT PARITY ERR 
c OA7C CO G7 OCFE °2 8 GETINT WAIT FOR INTERRUPT . C 0813 CO 87 O21A isa 8 PRINT BUS OUT PARITY ERROR 
93 oB17 Ccé CBI? 155 oc XL E*C6® 
y OABO 20 43 1340 04 SKS SNE3eSLENES SNS IO TRANSFER LINES O8186 4F oBbiB 156 oc AL 10MSG7-NSG7B) 
t. OAG4 3C C7 CATA 95 16C wvi IGE41.x*O7* IGNORE 1ST INTERRUPT ONLY C: CBE 1140 OBIA 157 ec AL 2(MSGCT7) 
96 * TEST FCR ERRCR INCICATION OBIE 4031 eBic 158 Dt xe z*e0er* 
4 GQAee 2S FC 1340 97 TOF SNEBeX* lO * CEDS4B IPEFEORIEEOJICAT | oBto CO B7 6222 159 ‘B HALT 
i CAeC CO 90 0871 9e eF STATER IF NOT OFF. GO PRINT STATUS ERROR eG CB2i e088 C622 160 HTeL cc xLz*a081° A 
39 0B23 CO BF OAZE 161 8 BEG RETURN TC BEGINNING 
2 CASO 26 03 133F 100 TEF  SNS3-1.X*03° SEE IF READ OR WRITE MODE ON 162 : 
{ . o0Ag& CO 10 O8F7 101 BT NOWCDE STATUS ERROR If GOTH OFF &. 163 © CHECK STATUS ERROR 
OAGe 38 03 133F 102 TEN SNE3B-1-x"C3* SEE IF READ OR WRITE MODE ON 164 
. CASC CO 10 OCE2 103 eT TO KODE STATUS ERROR IF BOTH ON 0827 16S NOOTPE Equ ¢ 
c € 2104 : & 0827 39 Ec 1340 166 TEF SNS3oX* GOt+EDS4BIPEFEQJCAT CHECK FOR STATUS ERRORS 
104 OB2e CO $0 OB72 167 er STATER IF NOT CFFe PRINT STATUS ERROR 
Se 104 OB2F 3D FF 133€ 163 cut SNE2X*FEe LcR « FF ? 
CO € 105  &© ~~ oazz F2 a1 30 169 JE AOK | 
10S ‘ ; OB3E 3C Of CCEF 170 _ mvE WSEC ol 
105 OB2A £0 87 oC1C 171 Wi 8 WAIT WAIT 
£-, € 106 ® SET UP READ CR WRITE ACCORDING TO 3741 G SE3ZE CO a7 OnE i172 8B *+e ONE 
OAAOQ 2C 42 OAC3 107 mvt DOLIO41 oe SeRE Te cB42 cco e7 OB3A 273 e wi SECOND 
CAAS 28 01 133F 108 TEN SNSS3—fex*O1° IF READ MODE ON AND OB4E F2 43 10 174 STC RFSReSCTLE RESPONSE TO LCR ERROR 
€ Oaae 29 02 133F 109 TSF SNS3-1-x* 02+ WRITE MODE OFF. . © op4ae CO BT O21E 17S . 8 UNFACK SET UP FCUND LCR VALUE 
OQAAC F2 10 04 110 JT MOCECK THEN GO ON WITH WRETE cB4D 01 O64D 176 . oc xLiene 
OAAF 3C 41 OAC3Z 133 MVI OOST041 eSREAD OTHERWISE ASSUME READ GBaE 123€ OBSF 177 _ oc al 2(5NS2) 
€ 112 ; € -ceso 1198 cesi 178 DC Os AL. 2EMSGOD > 
112 179 
412 ORf2 CO 87 021A 180 8 PRINT 
€ OABS 1213 MODEGK ECU * © OBS6 C6 0856 181 pe uL2°CEe 
OAEZ F2 43 08 114 S10 - RE eSC TLE RESPOND TO WRITE/SREAO MODE 08s? 33 “CBS? 182 oc AL1(MSG9-#S698) 
7 OABE 32 42 133€ 115 tro LENGTHeLLCR LGAD LENGTH COUNT REGISTER (7F} OB8SE 1196 oBs9o 183 oC AL 2(SGS) 
C CAEA 21 44 OF SC 116 LIC} BUFFIO.LCAR LOAD DATA ADDRESS REGISTER +) cBsa ecee oesB 184 oc xLz2°aces* 
OAEE CO 87 ODAS 117 8 ENABLE ENABLE INTERRUPTS (MOD 15) oesc ce &7 0222 265 8 HALT &cR ERRCR 
lia OBEO 4082 OB61 186 HTeB) OC xLz*aceer 
€ Cc 119 # ee eo nen © OBE€2 CO eT OA3S £87 8 BEG RETURN TO BEGINNING 
; OAC2 F3 00 00 120 D0O0S!I0 SIO X* 00%. %—8 £10 TO READ OR WRITE , 188 
: 121 * ee em eee — 189 #** 
€ OACS 3C 02 OC6F 122 mvI WSEC 02 @ 190 #s8 RESFOND TN SUCCESSFUL SIG 
CACS C1 42 OADO 123 WAITBY TIO ISESY.TaSY - BRANCH SF BUSY 19} #4 
. OACD F2 87 OC 124 J SNCTBY 192 
e OQACO CO e7 oCciIC 125. 1SBS¥Y 8 WAIT GO WAIT FOR BUSY TO DROP C3 OBEE CO BF ODAS 193 adKk 8 ENABLE ALLOW NEXT INTERRUPT 
OAD4 CO e7 OCe3 126 a TOCESY IF TIMEOUT. HALT ERROR . OBE€A F2 43 08 194 SIC REeSCTLY RESPONSE (SIC SUCCESSFUL) 
_ | oacea co e7 oacs 127 8 waltTey or€c CO 87 0000 195. RwR 8 t—9 RETURN TO CALLER 
t, oaDC 126 SNOTSY EQU *% NOT BUSY ' © 
129 ‘ i 
J OADC CO B7 OCFE 130 8 GETINT WAIT FOR INTERRUPT © 
é 131 i 
OAEO 20 42 1340 132 SNS SNS3eSLINES SNS £70 TRANSFER LINES 
a OAE4 OC O1 133€ 1348 133 MVC SNS2€2)eSNS21 CBTAIN STATUS (SENSED PREVIOUSLY) ‘ 
c 134 : @ 
135 * CHECK FCR NO-CP : . 
re 136 
i OAEA 38 04 1330 137 TEN SNE2Q—1—k* O48 QUIT IF NO-OP BIT ON. e 
OAEFE CC 90 cBOD 138 BF NOGPOK 
OAF2 F2 43 50 129 sic RSK+RECIs SCTLiI SENSE RESPONSE/EOS 
é OAFS CO B87 0214 140 e PRINT NO-OP'D sto 9 
CAFS CE OAFO 141 _ o¢ xLitce® 
OAFA 28 OAFA 142 oc AL 1(MSG6—-NSGEB) 
CAFE 10F1 OAFC 143 cc AL 2€MSG6) : S © 
CAFE e082 OAFE 148 oc xXLz*a0e2* : : 
L - © 
DaTE 1€aUG74 SSNCV7S PROG iD S0F=i DATE 1E€AUG7T4S ISNCV74 . PROG ID a0F-3 
«EC NO. Gz4e7ES e24e70 i PAGE 2 EC NO. e7a7es 626870 PAGE = 


C 


@ 


a Ee <4, 3 e es | : : ne | | | : | | - . _ | : . i a | - 
eeeaeeeeneaoenaeasdeeeeeeaeeoeeaoedee0eee eee eee 8 @ 








® 


i 
| 
+ 
! 


i 
i 


{ 


Sess eek, 


oe 


IBM MAINTENANCE DIAGNCSTIC PROGRAM PART NOe 5858778 
PAGE 3 


C IBM MAINTENANCE DIAGNCSTIC PROGRAM . PART NOeo ssse7re 


PAGE 3a 


40F 1 3741 SYSTEM TEST MODULE _ £0F1 3741 SYSTEM TEST MODULE 


C. 


i ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 

t 197 ERRERREESERERESERET SSS EOE DERE EAEREEEEEEEEEEREREE SS €. OFEF CO @7? OA3S 264 B BEC RETURN TO BEGINNING 

196 * SUBPCUTINES * 265 
199 * * OBF3 CO 87 0000 266 STATRR B 2 RETURA 

€ 200 AERRBEEEAD DEERE ERED DORE SEEEREE EKETEEERAEE ESET ESS & 267 
201 267 
201 267 

re € 202 #4449988880 267 


203 * STATER 


268 #£2480484948 
204 £HREEETESEESEAD ESSE SSE EEEE 


© 9 








269 * NOMODE * 
’ Cc oB71 205 STATER EQU * 270 FHHEKEKEESETSRSES O4SEEDSESEEE 
; 0B71 34 CE OBFE 206 st STATRR+36 ARR SET UP RETURN OBF? 271 NOMODE ECU * 
. 207 2 OBF7 34 Ce OC1IB 272 st NC WCOR43. ARR SET UP RETURN 
i: € 208 * FOR ENO CF JCB. RESPONSE IS GIVEN. THEN CONTROL FS RETURNED TO €: 273 
209 * ROUTINE WHICH WAITS FOR A SIGNAL FROM 3741. CBFE CO e@7 O21E 274 8 UNFACK UNPACX SNS INTO PRINTOUT 
0875 278 08 1340 210 TEN SNE3.EOJ IF ITS EQS GNLY CBFF 02 OBFF 275 oc xL2e2¢ 
€ CB7S 329 FT 1340 211 TEF SNES. X FF f-EOS THEN RESPOND C: ocoo 1340 oco1 276 oc AL ZCSNS3) 
OB7D F2 90 C7 212 JF STaTi OTHERWISEse GO ON WITH ERROR cco2 1245 ocos 277 oc AL 2(MSG13) 
: cBeo F2 43 06 213 $10 RESCTL1 RESPOND TO EOJ 278 
é cBe2 cc 87 OAz3®e 214 8 + GROY GO BACK AND WAIT FOR READINESS * occa CO 8&7 O21A 279 8 PRINT NC READ CR WRITE MODE> 
7 215 occe cé ocos 280 oc xLI°C6® 
; o887 216 STAT1 EGU * ecogs 33 ocog 281 oc AL 1(€45613-"SG138) 
€ € cBe7 F3 43 08 217 SIC -REeSCTLI RESPOND €: —ocoa 1245 ocoB 282 oc AL Z(MSG13) 
OBB8A CO 8&7 OBBE 218 8 +4 ococ 4cec ocoD 283 Dc xL2*a08C* 
. CRBE CO 8&7 O2iE 219 6 | UNPACK OCOE CO 87 0222 284 8 HALT 8C NO READ OR WRITE MODE ON. 
€: €. CBS2 02 OBS2 220 oc mLie2¢ eS oci2 40ec oci3s 285 HTaCc oc xL2*408C* 
OBO: 1240 0894 221 oc ALZ(SKE3) oc14 CO e&7 CAZES 286 8 BEG RETURN TO BEGINNING ‘ eae st 
cess OESA ces6é 222 oc AL E(STATME) 287 
&: € CBS? CC e@7 C21A 223 8 PRINT e oc1ie cc e&7 0000 288 NCMOOR & 2 RETURN 
OeSE C2 OB9B 224 oc xL*c2e 289 SFEKSESSEES 
ceasc 22 os9sc 225 cc wL.1°3S° 290 * WAIT 2 
€: € CHOC OESA OB9E 226 pc AL2USTATMS) @ 291 SETKEESEEF4EEEEESEEERES D998 SBRSEDKSERES BEETS 
OB9F 4083 OBAO 227 DC xXL2°a082¢ STATUS ERROR 292 * SUBROUTINE WAITS 1 MILLI SEC PER CALLe - AFTER EACH SEC IT 
228 293 * DECREMENTS SECOND COUNT. . 
€e € 229 © @ 294 * “SAMPLE LIAKAGE -- 
230 * SHIFT OFF BITE AND PLT IN MESSAGE DESCRIBING THAT BIT AND PRINT 295 * 
231 * 296 *# MVI WSEC?S BEFOPE LOOP. SET UP # OF SECONDS 
e € 232 « o 297 * Loop 6B WAIT <-—- LINKAGE TO TIMEQUT ROUTINE 
OBAL C2 O1 OF71 233 LA STAB. XR : 7 298 * 8 TY «OUT <——- WATT RETURNS MERE FOR TIMOUT 
; OBAS OC O21 1332 1340 234 uve WORK (2).SNS3 PUT SNS3 INTO WORK AREA 299 * 8 tooPp <-———- WAIT RETURNS HERE NOMALLY 
© € OBAE OF OO 1322 1222 235 SPLOOP ALC WORK(.19 .WCRK @ 300 * , 
oee81 co a0 OBBC 236 ect SEPT IF THAT BIT IS ON. GO PRINT 3OL 828894948 S 4444 84BEKEREEERESSESSEEERESSE SHE SE a 
CBBE D2 O1 14 237 LA SLENC oXR1 DeXR1 302 
& €. obese co 87 OBAEG 238 8 sPLOce CONTINUZ UNTIL BIT FOUND Se ocic 303 WAIT EOU * 
cBsc 239 SETPT ECU * eccic 34 08 OC6B 304 . St WATTRE#3.ARR SET UP RETURN 
: . OBEC 34 61 OBEE 240 st F@ eXR1 POINT TO LINE WHICH DESCRIGES BIT oc20 CO e&7 OCCF 3205 8 SUF GO T3 SUPERVISOR 
@ €. 2a1 © 0C24 3D 00 OCé6F 306 cur WSEC.0 NEW COUNT VALUE ? 
CBCO 38 O04 1340 242 TEN SNSE32AT SEE IF THIS WAS ATTENTIO REG‘D cc28e F2 @1 12 307 JE OL CSEC 
O©BC4 F2 90 1A 243 JF NOTAT IF NOT CONTINUE NORMALLY OC2E OC C1 OC71 OCEF 308 MvC WSECA(2) .WSEC put NEW SEC COUNT INTO WORK 
& € OBC? 30 42 OAC2 244 cul OOSTO+1 eSWRITE WERE WE WRITING WHEN ATT REQ*D FOUND G O0C31 OF O01 OC6F OCéF 309 SLC WSEC( 2) .WSEC <ERO THE MAIN SEC COUNT. _ 
cBCB F2 CL 13 24s JNE NOTAT IF NOT. CONTINUE NORMALLY 0c27 OC 01 OC6O 0C73 310 MVC WCNT(2).81000 SET UP TO 00 1000 TIMES 
‘ OFCE CO 87 O21A 246 8 PRINT PRINT ATT REQ*D,. BUT IGNORE MAYBE oc2c oc FF OC3D OCc30 32123 GLOSEC CLC *¢C 256) o% WAIT 2 MILUT 
& € OoBD2 81 oBD2 247 oc xLi*ere IGNORE IF 10€1 ON 3741 SCREEN €: 0c43 0C 38 0C43 0C4&3 312 cuc *(€0).% : 
OBD2 £8 OBD3 248 oc AL 1(0MSC14-NSG14B) 0C49 OF O28 OC6D OC7S 313 stc wWCAT( 23280001 CO 1000 TIMES 
OB04 1240 oB0S 249 oc AL 20MSG14) OC4F F2 Of 10 314 JINZ WAITEN THROUGH LOOP 
q € OBDE CO B7 O21A 250 B ~ PRINT MSG CONTINUED CG Ocf2 OC O61 OC6E 0C73 315 MVC WCNT(2)281000 SET UP TO DO ANOTHER 1000 MILLY SEC 
OBDA e€ OBDA 251 oc xL1*e6* ocse OF O1 OC71 OC7E 316 sic WSECA(2).W0001 CECREMENT NUMBER OF SEC TO WAIT 
‘ . osce Set oe0e 252 oc AL 10 MSG 15-MSG1SB) OCSE CO 81 OC68 317 82 WAITR IF IT TYMEO OUT. RETURN DIRECTLY 
€ €. ceBoc 12F8 oB0D 253 cc AL 2(0MSG615) G eCcCé2 OF O1 OCEB OC7T7 318 WAITRN ALC WAITREIC] 1, WO0004 RETURN TO CALLER +4 
\ ‘ CeDE Fe 87 O8 254 J HL TAT océ6és CoO 87 0000 219 WAITR 8 t-—¢ 
: OBE! 255 NOTAT EQU *# 320 
c €& 256 @ i ccec oc00 OC6D 321 WNT OC xL2*9000" 
i OFE1 CO BT? O21A 257 8 PRINT OC6E 0000 OC6F 322 WSEC oc *xLZ°O0C00* 
; OBES 8&6 oees 258 oc miteee ec7c ocoo OCc712 323 WSECA OC xL2*0000° 
€. €. OBEE 14 CBE6 259 oc ALI(CSLEN) @ oc72 o2£&8e 0C73 224 wi000 oC ILz*r1000° 
OBET 0000 OBES 260 P® oc AL 2€%-#) oc74 0001 oc7S 225 woool1 oc meere 
. 261 Coc 7E 0004 oc77 326 wooo0s OC tweeter 
: x €. €BES CO 87 0222 262 MLTAT 8 HALT ERROR DURING WAIT FOR R/W MCOE & 227 
: OBEC 4083 OBEE 263 HT83 oc xL2°@082° 327 
be 76 @ - 
DATE LEAUGTA ISNCV74 PROG 10 a0F-1 DATE LTEAUGTS ISACVT4E PROG ID 40F-1 
EC NOW B207EF e@24e70 PAGE 3 e. NOe &287€E5S 824870 PAGE 3a 
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40F 1 2741 SYSTEM TEST MCOULE 40F 1 2741 SYSTEM TEST MODULE 


\ ; 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © an LCC OCEJECT CODE ADDR STMT SOURCE STATEMENT 
C 328 +9eeneeeess S$ 387 * TOMODE * 
329 * CHEBUF * 3QBR CHRAABERSESSHERESSERATS OHKEVERSESE 
330 * * 389 * COME HERE IF BOTH READ * 
c Cc 331 EHREKEERESEEEES OER EERSSEEREREE RE e@ 390 * AND WRITE MODES CNe * 
- 332 * CHANGE SUFFER FCR WRITE * SO CHERESEEEES 9996 9ST ERED SE ORREREES 
333 * OR READ. * 392 
C € 334 * PATTERK SEQUENCE. £E AA FF 01 00 5S AA FF 01 00 SS ceo & OCE2 CO 7 O21A 393 TOMODE 8 PRINT BOTH MODES ON 
33S REREREEEREESRES FHEREEESEBEERES ES OCEE CE OCE6 394 oc ML 1° CE? 
P 336 OCce? 28 OCE7? 295 oc AL 1(MSG8-"SG8B) 
& CC78 34 CB OCB2 337 CHGBUF ST Cr CBUR43. ARR FOR RETURN oS OCES 1168 OCE9 396 oc AL 2¢mMSG®8) 
oc7c 30 O28 13195 338 cur CHAR. K*O1* IF CHAR WAS JUST Ol1+« FORCE 00 CCEA 4@4C8E OCEB 397 oc RLE**408E" 
/ 0Cc80 F2 01 07 239 JNE CHE! 398 
cce2 3c 00 13195 340 MVE = CHARS K*008 G Ocec co 87 0222 309 e HALT 
oc87 F2 87 0D ; 341 J NORAP . DON*tT INCREMENT OCFO 4086 OCF1 400 HT8éE pc XL E°a08E* 
os OCB8A 342 CHG! EQu * OCcF2 CO 8&7 OA3S 401 8 BEG GO BACK TO BEGINNING 
€ OC BA CE 00 1219 1310 343 ALC CHAR( 1). ENCVAL @ 402 
0c90 F2 20 04 344 JNOL NORAP 402 
: 0c93 3¢ 01 1319 345 MVI CHAR.X*01° AFTER FF FORCE TO 01 402 
t. O0C97 346 NORAP ECU *® e 602 
OC9?7. OC 00 OFSA 1219 347 MVC =- BUFF 241271) eCHAR 403 FkeREREERES 
0C9D OC 7E OFSS OFSA 348 MVC - BUFF. 2412€(127) eBUFF24127 PROPOGATE : 404 * GETINT * 
: CCAS 06 04 132F 132A 3a9 AZ SEGC 5S) e-KUMONE INCREMENT EBCDIC RECORD COUNTER =] AOS ERREEEES SS $OEEEFKEHETSYORSERSES 
OCAS OC 04 OEE2 132F 350 MVC BUFF247(£) SEQ AND PUT IT INTO BUFFER fe 806 * WALT FCR AN INTERRUFT * 
2 352 a07 * * 
0 «. OCAF CO 87 0000 352 CHGBUR B a—8 RETURN TO CALLER S ACR RHKRAEHEHEGEERE O4EKEESSE4SERTASE 
353 409 as ; Lo ites aes 
353 OCFE 34 08 0094 410 GETINT ST GE TR4+3.ARR FOR RETURN 
e € 353 €E seca 3c 07 ocer 411 MVE 9 -WSECo? WAIT 2 SEC FOR INTERRUPT 
353 412 
354 seees2R8804 413 * CHECK IF USING INTERRUPTS OR JUST THE PENOING BITo ; 
& é 355 * TOOBSY * €& CCFE 30 40 OA00 aia CLE X*S00%sK*60! ARE WE RELOCATED ? 
JSG ARHKKSKSES SEES SHRSKES SE THERKSEO EE epo2 F2 &i O7 415 JE HNGPENG TF NOYs WAET FOR PENDING GNLY i 
357 * 3741 EUSY TOO LONG * ODos 3D CS o200 416 CLI SMCD.CtE® ARE WE MODEL 15¢ 
& € 358 * * @ oD0s F2 8&1 23 417 "JE HNGINT IF NOTe WAIT FOR PENDING ONLY 
3S5Q HHVHSSSSESESSERSSECES SES EEKKESERS 418 : 
360 418 
é € OCB? 34 0@ GCCE 361 ToOoBSsSY ST TOCBSR43 CARR FOR RETURN @ 419 * WAIT FOR INTERRUFT FENDING 
eceB c2 cceB 363 oc xLitcee 0010 OC 01 1348 133E£ 421 MVC «= SNS21€2)0SNS2 PUT SNS 2 INTO SNS2I FOR USE LATER 
é€ € OCBC 27 OcBC 364 pe AL 10MSG10-mMSG108) 6 422 ¢ AS IF SNSED 6Y INTERRUPT ROUTINE 
ecBD 11¢€2 OCcBE 365 oc AL Z(MSG10) 0D16 38 20 1330 423 TAN SNE2—40x"2C* IS INTERRUPT PENDING BIT CN ? 
OCBF 40eE ecco 366 oc XLZ*4C8E° CD1A F2 10 OC 424 " st INTOC 
€ €  oces co 87 0222 367 8 HALT BUSY T50 LONG €: ope co a7 ocic 42s 8 walt WAIT UNTIL IT DOES 
OCcEe 4cee OCC6 368 HTSE OC XL2°408E° 0021 CO 8&7 OD4A 426 .8 NOIERR 
Z occ7 CO B87 OAS 269 6 BEG RETUT.N TO BEGINNING cD2& cc 87 ODOC 427 8 ANGFEANS . 
ce € Occe co 87 0C00C 370 TOOESR 6 +4 RETURN oS 0D29 F2 40 01 a28 INTOC SIO SRESET.SCNTRE RESET IT WHEN IT CONES 
he op2c F2 e7 13 629 i) PERD | 
430 
€& & 371 @ 4320 
37t 431 * WAIT FOR INTERRUPT 
: 372 BHSSHBSOSSSS OD2F 3D FF 131A 432 HNGINT CLI INTFLGeX*FFE INTERRUPT RECEIEVED VET 7? 
¢ € 273 * SUP * @ ~=s 00 332 F2 81 oc 433 JE PEND 
37 O ERLHREEKDS 089499495989 49ESES9 SE 0036 CO 87 0CIC 434 8 WAIT WAIT TIL IT DOES 
375 * BRANCHES TO SUPERVISOR IF IN SYSTEM TEST MODE. ODZA CO 8&7 OD4A 435 8 NOTERR TIMEOUT i 
e ¢© 376 * OTHERWISE FETURAS TO CALLER G@  ov2€ co 87 oper 436 B HNGINT LOOP BACK | 
BVT KHKASEKSES OHHEGD SHES OES EESESRSEKE SES 437 
378 a37 \ 
& €: occe 34 ce OcCEi 379 sUP st SUFR4¢3 ARR FOR RETURN ae O0D42 3C OO 121A 438 PEND MvI INTFLGex* 008 CLEAR INT FLAG i 
occ3 30 ¢0 CACO 380 CLI = K*®OA00* X*40* SEE IF WE ARE RELOCATED. 0D46 CO 87 0091 439 8 GETR GO RETURN TO CALLER ; 
“oy oCcO7? F2 e@1 04 381 JE SUPR IF NOT. GO RIGHT BACKe 440 { 
© & OCCA CO &7 OACA 382 8 ENTRY GO TO SUPERVISOR 6 440 ne: 
seo 441 * INTERRUPT OR INTERRUPT PENDING NOT FOUNDe 
: OCDE ct e7 COCO 384 SUPR 8 *-4 RETURN 462 * FIRST SEE IF DEVICE IS ON LINE 
6 & =e> S$ a3 
385 a43 i 
7 : 38S CD4a 30 43 1340 444 NOIERR SNS SNS3eSLINES FIRST CHECK IF ON-LINE 
€ © 385 @ ODGE 38 04 133F 44s TEN SNE3—1 oe X* 04° IF ON-LINES 
386 Setenseeese ODS2 F2 10 OA 406 JT ONLN THEN GO ON | 
Le € e ~ 
DATE LEAUGTSA aSnov7s ; PROG ID &0F-i CATE 1 €AUGT4 LSNCVTS PROG ID &£0F-1- 
 €C NG. 8247E5 e24870 P&GE 4 EC NOc 8247EF 824270 Pace aa | 
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.. 18M MAINTENANCE DIAGNCSTIC PROGRAM 
& 


~ SOFS 3741 SYSTEM TEST MOOULE 


ERR LOC OBJECT CODE ADDR STMT 

t cOS£ CO 87 0222 447 

CO£s «cao ODSA 448 

: OCSE CO 87 OA25 aao 

C- aso 

aso 

4 OOSF 451 

€ 452 

ODS5F 3D 40 oace 453 

; OD€2 F2 81 OA a5a 

‘ CDEE 3D CS 0200 ass 

ODEA F2 01 03 456 

ODED F2 87 0D “57 

€ 4s8s 

a58 

- 4s9 

cE 0D70 CO 87 021A 460 

co74 cE 0074 461 

. oo7s 28 oO?5 362 

t od7Ee OFFD 0077 «463 

CO7E aces OD79 464 

# OO7A 2 &7 OA 465 

c 466 

CO7D CO e7 023A 467 

0081 CE 0081 «468 

f. ope2 oF op82 469 

ope? 104¢ opea 470 

es opes aces 0086 471 

q 4a72 

coe? CO e? 0222 473 

epee aces 00sec 474 

€ cbec cc eF 0a3s a7s 

0bS1 Ce E7 COCO a76 

ins a77 

‘ 478 

478 

: a79 

c aso 

481 

P ae2. 

e 483 

686 

c 0095 ae 
% 

COSE CO @7 021A 487 

. coe? cé 0099 «6488 

C cosa 2e OD9A 489 

_OD9E 11EA opesc 490 

7 OD9D 4087 OD9E a98 

€ ac2 

ODSF CO BF 0222 493 

2 00a3 4087 OCAS 494 

c COAE CO #7 OAZSE 495 

a96 

<< 496 

t. 296 

£96 

: a96 

C 897 

ags 

: 999 

C 500 

501 

- 502 

é 593 

504 

Z 505 

c cOas 34 ce opcs 506 

ODAC 30 40 CACO 507 

patr 1EAUGT4 1SNCV74 
EC NO. 824a7€8 2824270 


SOURCE STATEMENT 


PART NOe 
PAGE 


Ee’ 


i 
i 
i 
¥ 
i 
t 


© 
© 
© 


ssse77e 10M MAINTENANCE DIAGNOSTIC PROGRAK 
s 


40F 1 3783 SV¥STEW TEST SODULE 


‘> 


ERR LOC GPJECT CODE ADOR STHT 


8 HALT € = cpe1 F2 @1 cf 508 

HT8O) 830 OC xLZ*40808 NOY ON-LINE oDB4 30 CS O200 59S 

8 BEG RETURN TS BEGINNING ovee F2 01 47 510 

€> ss ovee 3c FF 2312 S11 

OCEF F3 40 02 $12 

ONLN EQU ¢ ooc2 co e&7 Ocoee 513 

® CHECK IF USIAG INTERRUPTS OR JUST THE PENDING BITe G Sia 

CLI X* £00% ox* 08 ARE WE RELOCATED ? 515 

JE NOFNO IF NOT. PENDING BIT MISSED. 516 

CLI = SMCEC*E® ARE WE MODEL 15- © 517 

JNE NOFKD IF NOTe PENDING 81T MISSED. £18 

3 NOINT IF SO. ACTUAL INTERRUPT MISSED 519 

© opce s20 

ODCE 30 42 13428 S21 

CDCA 3@ 20 13467 522 

NGPND e@ PRINT INT PEND SIT NOT ON C OOCE CC 90 OADE 523 

oc XLi°c6e C0D2 3c FF 1312 524 

be AL10MSG1-"S618) ODODE 3C OO 2311 525 

pc 8 AL ZMS@1) €} —opea 2 81 08 S26 

oc xL2*4084° ODCD 3c FF 1322 £27 

J NOTHT ADE BC FF 1314 528 

€3  s ov€s «co 87 oar2 S29 

NCINT 8 PRINT EXPECTED INTERRUPT DID NOT OCCUR ODES F2 40 6S 530 

oc XL 2°CE® | ODEC CO #87 0A16 531 

oc AL 10MSG2-NEG28) ‘ 532 

oc AL2(MSG2} : 532 

oc xL2*a0B8ae S32 

© $32 

NOIHT B HALT INTERRUPT DID NOT OCCUR 532 

HT84 DC XLZ*4aceae 533 

8 BEC RETURN TO BEGINNING g ¢ 538 

GETR 8B +-$ RETURN TO CALLER 535 

S36 

2 537 

539 

RSESSSEAEARSEG : 539 

* UNE 2 eG CDFO 38 CB 0£12 S40 

HHLESEREGCSOODES S998 -:099 999408999 ODF*a CO 87 O21€ = 54i 

* UNEXPECTED INTERRUPT * COFE 40 OoDpFS S42 

* * Z3 COPFS OEDA OOFA S543 

REVWAAEVANA’LIS HSK $4539 $43SH 393949 ODFEe OBFF SOFC Saa6 

COFE CO £7 022A 545 

UNE Ecu « a CEO1 Al O£01 546 

e PRINT UNEXP INTERRUPT. 547 

oc XLI°C6s CEC2 CO 27 021€ 548 

oc AL1(MSC1 1-mS61183 G CECE 40 OF0S £49 

oc AL2¢MSG121) CEC? OELA cf0B S50 

ec XL 2*a0e78 CECS oefF OE0A 551 

| €5 oree ce a7 o23a 552 

HNE 8 HALT UNEXPECTED INTERRUPT. CEOF AE OfCF 553 

HTe?F OC xL2*a0e7* 0€30 CO 8&7 0900 554 

8 ®EG 555 

555 

555 

© sss 

S55 

S56 

SVASCVTHSLTAS AEH SESISHS4 4S 4BSH @ 557 

* INTERRPUT- ENAGLING ROUTINE : 5s8 
‘.Y 

RRBNO SD $294 $O094S34FS99S 999998 © gag 

561 

® INTERREUT FLAGS 562 

* EXCFLG ‘ (3 0€14 38 08 £37 563 

* INTFLG OE38 CO e7 C21E 56a 

* CEIC 40 CFIC 565 

ENABLE ST? ENSELR43.ARR FOR RETURN eG: OE1C OF1A OEIE 566 

CLE = =X*aG0* 2x" 40" ARE WE RELOCATED 7? : OEIF OfFF OE20 567 

PROG ID 40F-1 DATE 1EAUGT4 1SNOV74 
PAGE 5 EC NO5 828765 824e70 





© 0 0) 


PARY NOo ssse77e 
PAGE Sa 


SOURCE STATEMENT 
JE ENABLR IF NOTe DON*T ENABLE 
cur SMCO eC PEP ARE #2E MCDEL 15e¢ 
JNE ENABLA IF NOTe DON*®T ENABLE 
VI EXFFLGex*FFS SHOW INTEPRUPT 1S EXPECTED 
sito SE NAG » SCE. TRL ENAGLE INTERRPUTS 
ENABLR B 2-4 RETURN TO CALLER 
SIMSCSKS 39429 FS 09949099868 998 
* INTERRPUT HANCLING ROUTINE 
= 
ARBRSSSSLS 2G 4994 40469944998 
tH €ou 2 
SxS SN£27 sESTAT 
TON SNE2ZI-26xX%*202 1S OUT INT PEND BIT CN ? 
BF NG TME If NOTs LEAVE. 
“Al EXPFLGeX*FFE DIO WE EXPECT THIS INTERRUPT ? 
RVI EXFFLG. x*00" RESET EXPECT FLAG 
JE “+7 
wvi UNXs X*FFP SHOW UNEXPECTED INTERRUPT 
wVa INTFLG oX*FFS SHOW INTERRUPT DIDO CCCUR 
3 RESTOR . 
sic SD ISAL+SRESETSSCNTRL RESET INTERRUPT AND PISABLE 
e NXTINT GO TO SUPERVISOR IN CASE STILL IN INT 
$2268949824 602 
2 DUMPI * 3 
* * 
SLREOEETI4RS6EEEEES$4999KSSEDRDEREOEEODSBES 
* DUMPS CONTENTS CF EUFFER 3 * 
*: * 
SHERSKAE FSD ORS $998 SOS 299959989999 42099RSESD 
DuMPi ST DUKP‘+‘ R43. ARR FOR RETURN 
n UNFACK UNPACK FIRST HALF CF 12°68 BYTE REC 
cc ILuteas 
oc At 2C8UFF 1463) 
pc XLZ°8FF® OCP BUFFER - 
8 PRIAT 
oc xXLS*are FROM OWN SUFFER 
8 UNFACK UNPACK SECOND HALF OF 128 BYTE REC 
oc Te se6ae . 
‘ce AL ZC BUFF14%273 
oc XLZ2°*SFF* CCP SUFFER 
B PRINT 
oc XL O° Aaé® FROM GUN BUFFER 
DUMPIR B e—2 RETURN VO CALLER 
992902802902998 
2 DUMP? e 
= 2 
SHEOTSESAAS 2 OOS 9989 FS O93 04S $O09THROSTODSSSERE 
* DUMPS CONTENTS OF BUFFER 2 s 
2 2 
PSESTED EST 69 S400 4 948STOS EEE GSSOEESTESDOBSOORE 
DUMP2 ST OUSP2Re2. ARR FOR RETURN 
8 UNPACK UNPACK FIRST HALF OF 128 GYTE REC 
oc IL2*ea* 
oc AL 2( 8UFT 2443} 
Dc XL2"SFFe OCP SUFFER 
PROG 50 8O0F-1 
PaGE Sa 





fala Mite tee mei OE a me on erent tyne heed tT 


¢ 
. © 
TEM MAINTENANCE DIAGNOSTIC PROGRAM | PART NO.  SSS877E TEM MAINTENANCE DIAGKCSTIC PROGRAM PART NOw ©5558776 
a PAGE « © , PAGE GA 
40F1 2741 SYSTEM TEST MODULE at 3741 SYSTEM TEST MODULE 
; oF 
ERR LCC CEJECT CODE ADDR STMT SOURCE STATEMENT ERR LCC CEJECT COTE ADDR STMT SOURCE STATEMENT 
OFZ1 CO OF O21A $68 8 PRINT © S79 SEREKTES SS FOSS SHY EES OESDSEOHESSSSSEEDSSEHSSESSESODY 
CE25 al 0€25 S69 oc 8k ataae FROM OWN BUFFER S80 * * 
7 S70 sai * MESSAGES * 
é oEze CO E7 O21E s71  .—s«#B UNFACK UNPACK SECOND HALF OF 128 BYTE REC 86} 582 + * 
; OEZA 40 OE2A 572 pest 1°6a8 ; se3 ¢ * 
CE 2B OF SA 9E2C 573 DC 0 AL. 2CEUFF 241273 see * * 
€ OE20 O8FF OE2E S74 oc XLZ°*SFrFe © OcP BUFFER GB ; 565 KKEREERESHEEEKESEE EEHEEEECESSSSESESERSERESSEOSEOS 
OE2F CO 87 O21A S75 8 PRINT O28 CO6OFES0E3D9CIOS OFSA S86 STATMG OC CLIS*I-O TRANSFER LINES -SENSE 3- = XXXX® 
-  0F32 AE 0E33 576 pe 8 XLar aes FROM OWN GUFFER _ c£4e E2cEcSps4op3csc5 =«_—i“(tiéSBE 
( o£ 34 co 87 C000 577 OUMP2R B + RETURN TO CALLER C: ob 48 CEEzacEoE2cE0SE2 586 
0E50 CS4CF 36040604087 S86 
: CESE ETETE? $86 
C G 587 
S87 
: C&SB S88 BUFFL ECU *® 
€ cEse OEDA 539 pss CL128 READ BUFFER, 
O—DB 590 BUFFr E2U © 
; | | o&oe OFSA 591. ps cL 320 READ BUFFFe 
e. € or eB 40 oFSB $9? pc c$ AS # 
| 593 
a oFSC OES OFSD £94 BUFFI® DC = AL2CBUFFI? LEFT END OF READ FIELO 
c «< 6 595 : | : 
595 | : 
$95 
oo CC. OFSE CIEZESCIC2CEDACE OF 71 596 STAB GC — CLZO*ATTACHMENT RST ° 
OFEG DSES4CO9EZE24040 596 
. CFEE 20404040 596 | : 
£ € Ci «oF 72 CeDscaaovecesocs OFES $97 DC  CLZO*END CF DATA SET . 
CF78 CLE3C1S40E2CSE340 S97 
‘ OFE2 #408040 S97 
ez € Ci oFee F2F7FAFIA0CZESE2 CFOS 598 OC —s- CL. 209.3741 BUS IN PRTIY ERR® 
OF BE 40C9D5400709E3E6 598 
OFSE 49CSPS09 soe 
Ce Ci oF 94 CSDSCAGODECESODS OFAD $99 - DC  CLZO*END OF RECORD . « 
OF #2 CEC3D60SC4408080 599 
: , OF AA €0404040 599 
ec € Ci oFAE cSDScasonEcEaOnl OFCI 600 pc 80 «CL29°END CF JOB ° 
OF BE DEC 2404080404040 600 
ae ae OFEE 40405040 600 
e € C sof C2. F3FTFAFISCCIESES OFDS 601 DC «CL. 203741 ATTENTION REOD ° 
OFCA CEDEESCSDEDS4 009 601 : - 
oFO2 CSD8C440 601 
fe  € ©} 602 
oFOS 603 MSGIG ECU ¢e-1 
e OF DE GOCODSETCSDODSES OFFD 60% MSGI DC CL40*-FKTERRUPT PENDING- BIT DIO NCT COME ON ° 
Ge € Co sooFDE D7EZe0n7CEDSC4CO 604 
OFEG 0SC76040C2C9E240 604 : 
| OFEE C4C9C440D5DEE340 604 
Ye  & €3 OF FE C20EDaCSacDEDEAC 606 
OFFD 605 MSG28 EQU 41 
OFFE CSDSESCSDSD9ESD7 1028 606 DC ss CLG *FINTERRUPT LEVEL 5 DED NOT OCCUR AFTER 7° 
e Cj. 1oce Esaco3csescso3e0 606 
100E FS40CACOCAAODSLS 606 
; 101E EZ4OCECSCSE4D94O 606 
c €} -101€ -C1C6E3CSOSA0F7 606 
, 1025 SO0E2CSC3DECSCSE2 104C 607 MSG2 Of CLA&O* SECONDS. ° 
1020 424040404C0804040 607 
e € € 103 4040904040804080 607 
103D 8080664040404040 607 
$ Ste! 104E 404046404 C4C8040 607 . 
ce oe +) | 104C 608 MSG3B EO0U 1 
1040 4C404C4040 1051 60° MSG3A DC} cLE® * 
se 1OE2 SODADECECESODECS 1079 610 MSG3 DC CL40* MODE ONLY EXPECTED ONe e 
Cf €} 08a c3zeeaocse7o7csc3 610 
10€2 EZCSC440DEDS4B40 610 
. _ - 20EA 4040804040408040 610 
C Ci 1072 40a0804040808080 610 


1079 613 MSG4B ECU s-i 


c 
y 


CATE LEAUGTS ISNCVTa 


: PROG 10 40F-1 
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18M MAINTENANCE DIAGNCSTIC PROGRAM . PART NOw 5558778 
PAGE 7 * 


PAGE TA 
; _ SOF! 3741 SYSTEM TEST MODULE 40F1 2741 SYSTEM TEST MODULE 


oy 


Yi 


on 





EFR LCC CEJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
J 
{ LO7A DSCECICSSOD4DEC4 10A1 612 msG& DC CL40*REAC MODE FOUND ONe ® Cc 1245 634 MSG14B ECU a~1 . 
1082 CES0CED6E4D5C449 612 124€ CIESESCSDSESCSDE 126C 635 pc CL2ZQ*ATTERTICN REGUIRED ~ 1 3741 DOISPLAYS*® 
: 1CBA DEDE4B404C408040 612 : 124E DESOCSCSDEESC9DS 635 : 
: £ 1062 4040404040404040 612 ‘ 128E CECS4A (ECS C4040C9 635 
| 10SA $0404C4040404040 612 : 12SE C640F3F7F 4F 140C4 635 
10aA1 613 ~scse ECU *-1 7 1266 CSE2D7D3C 1ESE2 635 
¢ 1OA2 EEDSCSESCESODADE 10C9 614 mscs OC CL4O*WRITE MCDE FOURD ONe : € 126D 4060F1FOCSFIEDSC 1294 636 oc CLa0® -10E1- ERROR» THEN THIS IS WOT A 374% ° 
1OAA CACESCCEDEESDSCS 614 1275 CSD9D9DEDS6BACES 636 
i 10E2 S0DEDE4SB4C404040 614 : 127D CECSCS40E3CB8CSE2 636 
| 3 10EA 4040464040804040 614 € 1205 ACCSE240DSDEE340 636 
10C2 404040404 0804040 614 1280 CI40F2F7F4F14040 636 
: 10c9 615 ™SG6éB ECU ¥F-1 1265 CECICSDZES4D9CE4SB 12A0 637 MSGI4 oc CL12* FAILURE © e 
c 10CA EZCSCESODSDEGOLE 10F1 616 MSG6 oc CL40's1G NO-OP. : €: 1290 40404040 637 
10D2 0742404040404040 616 1200 638 ™SG15B EQU #1 
; 1OCA 4040404C4C404040 616 : 1ZA1 EZD7CIC3CS4CCIES 12C7 639 oc CL29°SPACE AVAILABLE IN 3741 WAS USED UPo e 
& 10EZ 4040464040404040 616 €: 12409 C1C9D2C1C2D3CE40 639 
1OEA 4€4040808C6408040 616 1281 CEDE40F3F7F4F140 639 
10F1 617 “SG7B EQU *-1 12BS EECIE240E 4E2CSC4 639 
. IOF2 C4CIE3C1I40E3DSC1 1116 618 oc CRh3IS*DATA TRANSFER REGISTER PARITY ERROR. s € 12C1 40£40748404040 639 
10FA DSE2CECSDS4CDSCE 618 12C8 OSCSE2ZCSESS0E2E8 12EF 640 oc CLe0*RESET SYSTEM/3 HALT. RESTART BP&le 9 
| 1102 C7CSEZESCEDSACDT 618 ; 12co EZESCEDASIF 340CE 640 
£ C 110A CILCSCIESELSOCSES 618 €: 1208 C1D3E36B4009CS5E2 640 
1112 D¢eDENSeB4sescead 618 12E0 ESCIDGEI4CF SF TFA 640 
‘ z 1116 S4040DSD6E3CS5SE6040 1140 619 “SG7 oc cLao* NGTE- 3741 RECORDS MUST BE 128 BYTES. * 12E8 F148404040408040 640 
& 4121 F3FIE4F140D9CSC3 619 G3 I2FO 4040404040804040 12F% 641 MSGIS oc cii2° * 
1126 DCECSC4EZAODSESE2 619 12Fe 40404080 641 = 
1131 ESAOCLCSSOF IF 2FE 619 12FC aopscscic4s 1300 642 CREAD OC cLie* react 
& € 1139 40C2E8ESC SE 24840 619 €& «1301 _ Eevsceescs 1305 643 CWRITE CC CLE*WRITE* 
2140 620 “SGeB EGU e—1 644 a aaREOEEEESEES $4944E008 8499 984S S92 9SSTESTSSOSESS 
1141 C2TEEScesoD9ecsci 11268 621 “Scs oc CL40*BOTH READ AND WRITE MODE WERE GNe e 645 * * 
€ € 1249 C440CIDSCAA0EEDS = =—- 621 : Se 646 * * 
1151 C9EZCS400606C4C5 621 647 * oces * 
219 S0EECEDSCESODGDS 621 €a8 * * 
& € 1161 6£4040404C404040 621 : @ 649 * * 
: 1168 622 ™SGS9B EGU a4 650 © * : 
11E6S CICSOSCTESCesOCS 118 623 oc CL39*LENGTt COUNT REGISTER ERROR. EXPECTED ° 6S1 Ate eeReEDEEEESE 0485098085 2948 SES SSESSSSERSS ESOS SS ‘ 
€ € 1171 DEESDSEZ4 ODSCECT 623 e 652 
1176 CSEZE3SCSDS40CSC9 623 130€ 0000 ~1307 653 5 pc XLZ*0000* * CONTAINS SWITCHES AS SENSED 
1181 DSDEDS4B40CSETO7 622: 1308 00 1308 654 Si oc xL2*00° * 
€: €: 1189 CEC3EICSC44040 623 o 130¢$ 00 1309 655 S2 _oc xL1*008 * KEEP TOGETHER AND LENGTH 6 
1190 CECEEBSOCEDGESDS 1198 624 MSG9 oc CL1I2"*FFe FOUND XXx® 130A 00 130A 656 $2 oc xL1°00* * ei 
1168 C&a0ETET 624 1308 00 1308 657 S4 oc xL1°00° * 
€. € 1298 625 mSGi0s EQU *-1 @ 130C 0001 130D 658 ONE oc xL2°0001° 
1190C F2F7FSF1S0C2ZE4E2 11C2 626 MSG1O oc CL29°3743 BUSY TOO LONG. s 130E€ 0002 130F 659 TwO . OC xLz*0002° 
LAS EBLOEZDEDESODSDE 626 1310 55 1310 660 INCVAL OC 1L1°8s* BUMPS *CHAR® 
Gj ¢ 11LAC 05C 7424040804080 626 S} 1311 00 1311 661 EXPFLG DC xL1°00* 
1184 4€64040804C404C4C 626 1312 00 1312 662 UNX pc xL12°00° 
118C 40404040404040 626 1313 0000 1314 663 PSRSAV OC XLz*0000° 
& €: 21¢c2 627 uSG118 EQU #1 é 131 COCO 1316 664 PIARSV OC xL2°0000° 
11C2 EACECSETOTCSCZES 11EA 628 MSGI1 oc CLAO* UNEXPECTED INTERRUPT « . 1317 009s 1318 665 UNE@® OC AL. 2CUNE) ADDRESS OF FORCED HALT DUE TO UNEXP Int 
' ; ; 11CE CEC440CODEE3CEDOD 628 1319 00 1319 666 CHAR OC ALI (#—@) 
} ¢ C 11D2 CCOE4D7E348404040 628 © 131a cc 131A €67 INTFLG DC AL1¢¢—8) 
LICE 4040404040404040 628 131€ 00 1318 666 RECCTR CC AL 1(9—#) 
- 11E3 404046C4040404040 628 131C FCFO 1310 669 CTBUF OC XL 2°FOFO? 
€ € 11EA 629 MSG12B ECU = #1 © 131 Foro 131F 670 20 pc 80s *L 2° OF O* 
12E€e €0C5D05C44 co6C640 2212 630 mSG1i2 oc CiLs4o*-EKC CF JOB- LINE NOT UP s 1320 FOF1 2321 671 21 oc MLZ*FOFIe 
x 1IF3 D1H6C26040D3C9CS 630 1322 FoF2 1323 672 Z2 Nc XL2°*FOF2¢ 
’ € € LIFE CESOCSDGE240E 407 630 e@ 1324 0000 1325 673 CTR oc mL e*o000* 
| 1202 40404 04040404040 630 132€ FCF OFOFOFI 132A 674. NUMONE OC XL S* FOFOFOFOF1* 
: 1208 40404€64040804040 630 1328 000000°000 132F 675 SEQ pc xLE*00CCOCO000* 
* ¢ 1212 631 mSG13B8 ECU] =F-1 G 1330 00 1330 676 QWORK OC xL1°00° 
12123 0SC5C1C44004D6C4 1239 632 oc CL3S*REAC WODE AND WRITE MODE BOTH OFF. e 1321 0000 1332 677 WORK pc xLZ*OF 
: 121@ CACC DSC440EEDP 632 2223 0000 1334 676 oc xLz°0° 
€ € 1222 CSE2CESOOADECSCE 632 & 133¢ OO7F 1336 679 LENGTH DOC ML 2° OOTF® 255-4 (EGe 255-128 = 127 = X* TFS) 
122€ 40C2D6E3CeSOD6CE 632 1337 occo 1338 680 x0c00 OC mL 2*°0000° 
1233 C€*e24080804080 632 1335 2000 233A 681 FUNBIT DC ML Z*a000° EB-1 BIT 0 *6 USEC PULSES * 
q €. 122A EPDSXE 240F 34060460 1245 633 “SG13 oc _ CLIZ®*SNS 3 — KXXXS ¢e 1328 oc0co 133C 682 SNS1 oc x 2°0000* 
3202 EVTETETE7 633 133C 2000 133 683 SNS2 OC xLZ*°0000° 
1 . 
re CC @ 7 
BATE =—«- BEAUGT4 ISNCVTS PROG ID sor-t DATE 1EAUG74 LSNEV74 PROG 10 a0F-1 
EC NG. B247ES e2ae70 PAGE 2 oe NOo e287€5 e24670 PAGE TA 
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1OM WAINTENANCE OLAGNCSTIC PRCGRAM PARTY NOe ssss877e 


_ Yee MAINTENANCE OIAGNOSTIC PROGRAM | PART NOs §5S58778 
PAGE 8 


wy PAGE @a 


a&OF1 3741 SYSTEM TEST MODULE 4CFi 2741 SYSTEM TEST MODULE 





€. 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
€ 133F 0000 1340 684 SNS3 oc L2*000C* & 752 EEEKRHEEREEDESEDDEDS 098998 SESSSERESSSDE SESE TS 
1341 00CO 1342 685 SNS& OC xL7 "00008 0003 753 H1 ecu x*c2* 
: 1342 0c00 1344 686 SNSS  O0C xLZ*o000* 0071 754 HZ equ xKe71e 
€ 1345 0000 1346 687 SENS OC XLZ*00008 6 003c 755 HF e€ou  xe3c¢ 
1347 coco 1348 688 SNS2I OC X¥L2*0000* 007C 756 HE eou x*7C* 
689 ce sedhased the SEkEREESEEESRERSEESERS SEAT SS LERESERESEE SESS ESESES SS SSS SS 0068 757 HL EOU xeEeéae 
bm Ue 690 * + © oo6F 758 HO equ x*eF? 
€91 * ECLATES * 0076 759 H2 equ xe7é* 
692 * * 00S7 760 H3 equ x*s7e 
c €& 603 * * © 0018 761 Ha ecu x*16° 
694 * * 0050 762 H5 Fou 8 xeeoe 
695 CREAEERREAEEEEESERRDESEEEREREEEAEREEEEREESS SEES SRERSSE SERS S ISS SEES SESS S oo7D 763 H6 EOU x°*7O0° 
= iC 696 e 0007 764 47 Eou = x*C7*. 
697 KEREREEEEEE DRESSES EHERESEESORERETAE OO7F 765 HB Eou x*7F* 
698 * STANDARD OCP ECUATES * OOSF 766 HS equ x°sFe 
€. €. 699 REFEREED S 2O48EEDS EES 99 HEFSEEETESSS é@ 002F 767 HA EQU xK*ZF* 
0222 700 HALT EGU xX*zZ22° 0079 768 HE Equ x*79* 
; M216 701 LINK EQU x*Z1€* o06c 769 HC equ x*éCc* 
4 & O21A 702 PRINT EGU K®21A* e@ 0073 770 HD eou x*73* 
0212 703 TEST EQU x*zZt2* 0004 771 HUP ecu x*oat 
O21E 704 UNPACK EQU) X*Z1E° 0040 772 HON equ x*ao? 
€ € 0020 705 PYAR EGU xX*20° PROGRAM INSTRUCTION ADORESS REGISTER . e TIZ ERAPREERESE SESS 99SEESS FESRES 
0200 706 s#0D EQU X*200° LOCATION OF CPU MODEL LETTER. i 774 * 
0001 707 XRI Ecu 01 775 * EQUATES FOR 2741 
e € oo02 70s xR2 EGU 02 .@ 776 * 
0008 709 ARR EOQU xecer i 7T7 REESE ERE SE KEESEESEESESESENEBES we Z a 
0004 710 FSR €ou x* Oat : 778 
e € ooco 714 taRt EQU xXFCOF i @ 779 ¢ THO 
0086 712 1aRS EQU xX*ERS 780 
0020 713 P1IAR ECU x*20° 0040 761 TNR equ x*4aor TIO NOT READY OR ERROR 
€ @ 0226 714 PACK EQU = xX*22E* @ 0042 782 TeSY ECU x*"42* TIO FCR BUSY i 
022A 715 LOAD EQU x*22A° : 783 
o0se 716 B1T0 ECU x*e0" 784 * L10. 
e € 0040 «717 BIT EGU x*a0e @ 735 
0020 #718 BIT2 EGU xX*z0" 041 786 LFUNC EQU xXx*41° LIO FUNCTION REGISTER 
0010 719 BIT3 Eau x*10° 0042 787 LLCcCR EQU x'42° LIO LENGTH COUNT REGISTER 
e € 0008 720 B1T4 EGU x*Cce® & _ 004% 788 LDAR ECU x"44t LIO DATA ADDRESS REGISTER ; 
0004 721 BITS EQU x*Gs* eo Es 0046S 789 LOTR EQU x*45* LIO DATA TRANSFER REGISTER 
0002 722 B1T6 EQu x*Cc2* ; 790 
¢ € 0001 723 BIT7 FOU x*O1" .@ 791 # S10: 
0208 724 S8YTEO ECU x*0206° 792 ; 
020A 725 SBYTE2 EGU xX O20A* SENSE SWITCH ®8YTE 2 0040 793 SCNTRL ECU x*40° SID CONTROL INTERRUPT STATUS 
€. ¢ 0208 726 SBYTE3 EGU x®Oo208* SENST. SWITCH BYTE 3 e 0041 794 SREAD EOU xe are SIO READ 
0020 727 sswoz EQuU xXx*"20° MANUAL INTERVENTION 0042 795 SWRITE EQU x*"42* SIO WRITE | 
000s 728 SSwos EQUuU- x*CAat BYPASS NON-ERROR PRINTING (DCP) 0043 796 SCTL1 ECU x*43* SIO 170 CONTROL 1 
€ € 0001 729 SsSwo7 EGU x°Ot® LOAC AND GO (DCP) e& 0044 797 SCTL2 EQU xeaae SIG 170 CONTRCL 2 
0080 730 SSwi0 EQu = x*e0* 798 | 
00460 4731 SSwil equ xXx*4c* 799 * SNS 
¢ 0020 732 SSwiz2 €ouU x*20° :@ B00 
0010 733 SS¥i3 EQU x*10° : 0041 801 SFUNR ECU xt4at? SNS FUNCTION REGISTER 
0008 734 SSW14 EQU xecee : 0042 802 SSTAT EQU xea2e SNS CCR + STATUS (STATZES2 3 
Ee € 0004 735 sswiS ECU xX* 04° : & 0043 803 SLINES EGU x*43° SNS 1/70 TRANSFER LINES 
0002 736 SSwWi6 EQU x*02° : 0044 804 SDAR EQU xXx"4a* SNS DATA ADDRESS REGISTER (DAR) 
e001 737 sswi7 ecu x*ol* : 0045: 805 SDXFR ECU x45? SNS DATA TRANSFER + DIAG (O1AG=EB2) 
e €& cose 738 sswi8 EQU x*e0° @ 806 | 
004200 «6739 S$SW19 EQU x*® aoe : 607 * R-BYTES FOR S10 0 : 
0020 740 SSWiA EQU x*20° 808 
e € 0001 741 SSw2F EQU = x*O1* @ 809 * , BIT | 
vee 0001 6810 SRESET EQU X*OI* 7 SIO I-R RESET INTERRUPT 
CAOA 743 ENTRY EGU XK®* A0A® I 0002 811 SENAB ECU xX*02* 6 SIO I-R ENABLE INTERRUPTS . } 
€ € OAOE 744 NOTME EGU x* ade * { SUPERVISOR LINKAGE @ 0004 812 SOISAB EQU x? o4* € SIO I-R DISABLE INTERRUPTS 
CA1I2 745 RESTOR ECU Keai2e { 0008 813 SNOBSY EQU x* oa8* & SIO I-R FORCE NOT BUSY 
CA16 746 NXTENT EGU xesree i 0010 814 SUPINT EGU x* 108 2 SIO I-R SET INTERRUPT REQUEST 
Ee € 747 é 815 | 
0014 748 SLEN ECU 206 ais 
749 816 * ERROR WASKS SAS—3 i 
e& & TSs0 ESKER CEKERESEHE NEE EEE TEE EES £4 EFESSEETERES ESE @ e177 
751 * EQUATE LSE FOR PROGRAM COOING * B18 ¢ 
Le € @ | 
ere Reeve TSNOVTS PROG ID 40r-i DATE LEAUGTS 1SNOV74 PROG ID aor-1: 
 €C NDe B247EF 224870 PAGE 8 EC NO- 824765 828e870 PAGE SA 
602000080600 ® : 7 
| e@e0200800800e00e8eeee8 808088 8 6 OC ®e 





SCOCCHCHESEFTES OOS OHSCC HOTEL EOS OCOCCOC ECO ®S 


fe 


sy 


arm, 


AN Be Te 


Py ON Ey 


i ey a 


a £Y 


rs 


TEN MAINTENANCE DIAGNCSTIC PROGRAR 


aor1 


€RR LCC CBJECT CODE 


Date 
€c woe. 


TEAUGTS 
R207ES 


3741 SVSTEY TEST NODULE 


ADOR 


0040 
002¢ 
eo190 
6008 
0004 


0008 
0008 
0010 
0020 
0040 
6080 
FFFF 


1SNOV74 
2242870 


sT“v 


819 
820 
821 
822 
823 
824 


826 
827 
828 
829 
830 
831 
832 
833 
834 
835 


SOURCE STATEMENT 


€0s ecu x* e408 

BIPE eau R* ZO? 

EOR €0u x*10? 

€0J ecu x* cae 

AT €ou x*cae 

* 

* 170 S€cecr 

* LINE # 

* Le2 

RSU eeu xX* OQe 3 

RE EQU x*cee a 

RSR Foy x*208 £ 

REOO EQU X*20° € 

RECS £oyu x*608 7? 

SOPE ecu x*e0? 2 
END 





PART NOo SSss6e7Te 
PAGE 9 


END CF DATA SET 

8USS IN PARITY ERROR 
END OF RECORD 

END OF 308 

3741 ATTENTION 


MEANING 
NOT USED 
SEY UP ERROR (READ VS. 
RE SPONSE 
SENSE PESPONSE 
ENO OF CATA SET 
END OF JOB 
BUS OUT PARITY ERROR 


WRITE MODE? 


PROG 1D 40F-1 
PAGE 9 
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o © 


TOM MAIATENANCE DIAGNOSTIC PROGRAM . 


PART NO. S558778 
G PAGE 9a 
en 2741 SYSYEM TEST MODULE 
CROSS-REFERENCE 
C swweot 1 LEN VALUE DEFN = REFERENCES 
ack #004 OB6E 0163 0169 
C" arr € 001 ooce 07¢9 0090 G20h 0272 030% 0337 06361 0379 04:0 0506 0540 O863 
aT € 008 0008 0823 OO£8 COST 0166 c2E2 
8€6 A 003 0835 0054 0147 O8€1 O187 0268 0286 C369 0401 0449 0875 0895 
€/B1PE c¢ oci oco2¢ of20 oe€8 0097 0166 
B1TO € 001 oo80 o71¢€ ; 
BIT ¢ 001 ODac 0717 
€"eit2 ¢ ee: 0020 o7138 
BITS ¢ 063 C010 07:19 
B17@ € 0¢1 ooce 0720 
Cceivs ¢ 001 000 o721 
BITE € 001 C002 0722 
BIT? ¢ COL o0¢2 0723 
(i scre c 001 o0e0 of28 183 
BUFF1 A CCl OFSE 0586 6073" 0583 0550 o£98 
_BUFF38 A 002 OFSD CSS@ 0116 
I BUFF2 A 001 OFDE 0590 0047# 9048 048% GOS0* C073 03478 0348 03489 03508 0566 0573 
CHAR A 001 1319 0666 0046¢ 0047 0338 03808 03029 03458 0347 
_CREPUF & OVS OC7E 0227 0078 
€: ChGEUR a 008 OCAF 0352 03378 
CkG2 A COi CCBA 0242 @8§©0339 
CREAD £005 1300 9¢€42 
__CTBUF A 002 133D o66s . . . 
ct A @02 132€ O€73 
_CWRITE A 00S 1308 o0€@2 
€.ocsto as 003 cac2 0120 01078 01138 o28e 
DUMP1 A 004 core on£a0 
DUMPIR & 006 GE10 Offa 05408 
€ioune2 a cos of14 ose3 
' OUMP2R A CO4 GE3& 0577 ofe3ze 
EDS Cc 0¢1 00@0 0819 cose o0S7 o16€ 
CL ENABLE & cO*® CDAD O5c6 0117 0193 
ENAELR A 004 oDCZ2 O£12 Of08% 6508 O810 
ERTRY € 001 OA0A 0743 o282 
Cites  ¢ 001 osce osz2 OCfB 0097 9166 0210 o711 
€OR € OCi 0010 oca2r oc0f8 of97 
_€xXPFLG A 001 13:1 0661 Of11* 0524 os252 
C Funeit A 002 133A C681 0938 : 
“GETINT A 004 OCF6 0410 00S2 130 : 
_GETR & 004 0091 0876 00102 0439 
HA € 001 Go3F o7E7 
MALT € 001 0222 0700 0145 0159 O18€ O2e2 0284 S367 0399 Cher G4e73 0493 
He € 0C1 vo7s o7ee 
& we € COL oCo6C OES 
HD € 001 0073 o77¢ 
_ ON € C01 CCeD o772 
“tHE € 001 COTE oO7s4 
HF € 002 cose 0785 
HGROY A OC1 0aBB OCS ocel 9218 
HL € 00% 0068 0757 
HLTAT A CoS OBEO o2E2 2256 
‘HNGINT &2 004 OD2F 0622 0417 0836 
-HNGEND A 004 oD00e€ 0420 e415 0827 
HNT A 008 COSF 9452 
MTBC A 002 6C13 02e8 
C\H1ee 4 002 ~occe 0368 
HTS8O =A 002 «OSA cae 
-HT82 = & YO2_-—-:0B22.s0160 
SyHT82 A 002 SBCe 9246 
M783 & 002 OGBEE 0263 
H1™8& a coz opeBe care 
€imves a co2 ocri oaco 
H¥87 & 002 ODAa Case 
Ntee 2 002 OfE1 0186 
Gsnup =e 001 «0008 «0771 
Hz € 002 0071 O754 
DATE 1 €auG74 1SNCV74 PROG ID a0r-1 
EC NO. 824765 823870 Pace 9A 


G 
© 


: 4 
i 
a 
s 





ral 
. 8M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 558772 TSM MAINTENANCE DIAGNOSTIC PROGRAK | PART NOW SS5S877e 
t. PAGE 10 ; PAGE 10a 
~ SOF 1 32741 SYSTEW TEST MODULE e**" 3741 E£YSTEW TEST MODULE 
€ A 
, CRCSS-REF ERENCE CRCSS~REFE RENCE 
* SYMBOL T LEN VALUE DEFR REFERENCES € svmeor T LER VALUE DEFN REFERENCES 
He C 001 OO6F O7£8 NOPND f# CCA COTC O*€C O44 Oat 
C Wy c C01 0003 O752 Eo wcrap £001 0C97 0346 034% 0344 
H2 C COL COTE O75S NOTAT A OO! OBE1 6255 0242 0245 
_ 43 € 002 OOS? O7E0 _NCTME C€ COL OACE 0746 of23 
fa c oct oCcIB O7é1 EC. nUMCNE A 005 1328 0674 0049 0349 
HS C 00t CcOoSD C7€2 NXTINT C 001 OAIE 0746 of31 
a He c 001 O07D oO7€2 _GLOSEC A 006 OCC7D O311 0207 
OM? C 001 O0C7 O7ES < ONE & C02 1300 cess 
HS C 001 OO7F o7EE ONLN & CO1 GDSF oO4af1 0246 
HS COOL OOSF 0766 Fa A002 OBFf O2€0 ocaoe 
“ YARD € OO% CoCce oO711 (pack Coot o22€ o718 
TARS € COL COBA 0712 PENC A004 OD4a2 6428 0429 0432 
_ GA A 004 OasSC 0063 ocs9 . FPIAR € 001 ¢020 o7oSs 
' 168 A 003 CA7S 0CS1 00€3® OCO5e €" PTARSV A CO2 1316 GEE 
1¢éc A 004 OAB& 0095 0091  PRENT C001 O25A 0702 0180 S1f4 0169 0223 0245 C250 v257 0279 0362 6393 0460 0467 
1H A COl ODCE 0520 0016 0487 0345 O557 ¢csEB O875 
INCVAL A OO 1210 0660 0343 fF esr C COt O004 cCTIC 
INTFLG A 0O1 $318 0667 0029% 0432 04384 OS2e8 PSRSAV A 002 1314 OGE2 
INTOC A COB CD25 o42e 0426 PITAR € OOF 020 0713 
ISBSY A 00& OADO 0125 0123 (WORK A D012 1330 0676 
LCAR € O01 0064 oO788 O1L6e RE € CO1 OO0Of C-30 C129 0166 O212 C217 
LOTR € 00 C04E o7aS ,RECCTR A OOL 1318 O6€6 
LENET 8 002 133€ 0679 118 Cp Reo ¢ 001 0020 o82¢ 
LFURC ¢€ CO1 0041 O78E o038e REGS © 001 0680 o8&32 5139 
_ LINK COOL O21€ CrEL = RESTOR COOL OA12 O745 052¢ 
i LLCR ¢ OOL 0042 0o787 O115e : €_; PSR € GCL 0010 0871 0129 OLf35 GIT4 
LOAD C O01 022A OF715 RSU € CCl 0004 2829 
MCDEOK £ 001 OAB2 Of13 Orzo RITNCI A OOS AOD 0025 Ooi? 
i MSGE A 040 OFFD 0604 0462 0463 ; € ew & 604 OA7S 0053 0075 
MSGIB A COL OFDE af¢C2 O4€2 PUR A cC& oO86D 0195 cosot 
MSG1O0 A 039 1102 0626 O2&4 O3€S s A 002 14307 Oo€f2 
i MSGIOE 4 001 21198 0625 0364 >SBYTEO €C 001 0208 0724 
MSGI11 A080 1fFA 0€28 04289 9690 SBYTE2 C COOL O20A o72¢ 
MSGi1E A OO1 112 0627 0489 . SEVTE2 C 001. 0208 o72é 
MSG12 £040 1212 0€30 €isenyRe ¢ 001 0040 0793 00S4 C065 0428 CSI2 O£30 
MSGI2B A COL 11ER 0€25 . SCTL1 © 061 C043 O7¢66 0115 6139 6153 O174 0194 0213 0217 
| wSG13 A 012 1245 0633 0277 O28: o282 . SCTLZ C€ 001 C044 O797 
{ MSG13B A 001 1212 0631 0281 (SCAR COOL 0Ca4 ocBO4 
MSGI4 A012 1240 0€27 0248 0249 SOISAB € 001 0004 06812 Ocf4 6530 
WEGI4B A OOL 1248 Of24 0248 . SDOXFR ¢ COOL O45 O8205 
{ MSG1S A O12 12FB cCEé41 0282 9253 Cisenas c oct oco02 0811 osi2 
MSGISB A 001 1280 0€28 0282 SENS A 002 1346 06€7 , 
MSG2 A 0&0 104C 0607 0469 0470 SEQ 4 905 132F 0675 0049% COSC 6349% 0350 
: MSG2B A COL OFFD oE&CES 04e9 Co setet # cot ossc 023s 0236 
MSGS A 040 1079 0610 SFUAR € 00% 0042 O8601 
_ MSG3A A 00S 1081 O€¢9 SLEN C€ O61 0024 0746 0237 0259 
“ “SG3B A COL 104C 608 E> suines C COL CO42 0802 COEE O0S4 01322 0844 
MSG4 6 040 10A1 CeL2 swcO 42 C «O01 «60260 = «0706 0426 0455 OS509 
MSG4E A001 1076S 6611 4, SNOBSY C OCL CODE cet3 
MSGS A040 10C9 0614 &  SNOTBY A 001 OADC ©O:28 C126 
MSGSB 6 OO1 10A1 O€:%3 SNSl A 002 133C o682 
MSG6 A O80 10F1 0€16 0142 0143 ', SNS2 & COZ i133€ Oo&&3 0133% O137 0151 C168 0177 C4208 0424 0423 
MSG6E A 001 10C9 0615 0142 €2sxset a 002 1348 o6ee8 C133 O421% OS2I* O522 
MSG7 A 040 1140 0619 0156 0157 SNS3 A OCO2 1340 0686 OOS6% 0057 0058 00592% COS7 0100 6102 C:CB OLOS O232% 0166 0210 
MSG7E A COL 10F1 0617 0156 C2it O22: 0234 0242 O276 0844e Cases 
‘ MSG@ A C40 1168 O€21 0355 0356 Cisnsa 46 002 1302 o6es 
MSGEB A COOL 114C 6620 0395 SNS& A OOZ 1344 CéeE 
MSGS £012 1198 06246 0178 6162 o1823 SPLCOP & 006 OPAE 0235 0226 
MSG9S A OOL 1168 0€22 o1e2 &sSREAD € CO1 004! O754 Ot 
NCDTPE A COl 0827 O1€5 o1s2 SRESET C 00% C001 O10 COGS 0428 0530 
NCTERR A 004 OD6A 04446 0%26 0435 . SSTAT COOL 0082 OFCe2 0420 0521 
NCIHT & 004 Opa? 0473 0465 :Sswo2 € 00% 0020 0727 
NCINT A 004 OD7D 0O4€7 0457 Sswoe ¢€ COL COCEe OF28 
NCWCDE &£ OOf CBF? O271 O203 Sswoy Cc 001 O001 oO729 
NCMCDR A C04 OCLe 02e8 o272 Co sswia c cor 0020 o740 
NCOPCK 4 008 ceoS 0181 0126 SSW10 € OOf G08C 730 
be: é z 
DATE LEAUGTA ISNCV74 PROG ID 20F=4 DATE LEAUGTS LSNEV7S PROG IO S0F—1 
€ EC NOe BZ47€S #2ae70 PAGE 190 EC NDe 824765 824870 : PAGE toa 
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IBM MAINTENANCE DIAGNCSTIC PROGRAM 


TCKOTX E4 2°1<5E4 BOH* CABD4—E2HA GOL HCT7"D1IDe® A< JayvOD| jeLloTsp1. 


7OYKOS EO 212 SEA E33%460F 10020 


om 


PART NO. 5558778 ITEM MAIKTENANCE DIAGKCSTIC PROGRAM PART NOw 5558778 
PAGE a1 €&: PAGE LIA 
40F1 2741 SYSTEM TEST MOOULE e. 3741 SYSTEM TEST MODULE 
¢ Ee 
° CRCSS-REFERENCE OBJECT CARD LISTING 
SYMEOL T LEN VALUE OEFN REFERENCES € . oe 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CFARACTERS D E H INDICATE NUMERIC SHIFT. 
SSwi1 ¢ 0C1 0040 0731 ie 
. sswiz c col coze 0722 €- cu 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 45 THROUGH 64 CL 65 THROUGH 60 CL 81 THROUGH 9€ 
SS$wi3 © 001 ©0010 0732 
 $Swia C 00! C008 0734 
‘ sswis <¢ oo1 0004 O735§ €"< o eee e e e e ee e e e oeecceeevece eoe eeeecesn 
- $$n16 C€ OO? 0002 0726 GBK GED PN SS S8777 EC 824870 40F - 3741 SYS T EST MOD B8408842B 40040 0 40F10000 
_ $gwi? oc oci o0cl 0737 
‘ sswi8 C¢ 00! ©0080 O72e & oe eo eo « ee ee 8 e - ° 
scwie ¢C 001 0040 0729 TeOV?EVE E7FB-4 DAE F @8S1EN< 3] LFTIADIU<C © EDIU<A-*RCSYCAAC 2702Y< BEXHECSHAO QE *%E=S8US0F 10003 
Ssw2F ¢ 001 ©0001 0741 
» STAB & 020 OF71 OS5SE 0233 i) ° e ° oe . i oo _ 
STATER A 001 0871 0205 0098 0167 Te-Z3A S-C2™3E & CELL +E<L13x5D4C U ZEOH#<2@BGBI- 8/02:84 ACGR+6-* EOH® BODHIOSEI< | 6068)10e0F10002 
STATMG A 025 OFSA O0SEE 0222 0226 
STATRR A O04 oBF2 0266 02064 = e @ " ° « woo ° 
STATi A COL CHET? C216 0212 Te-C(BXP 4018]. LOXBACRP /OZPOH® H)LEHB7CZAOT 703 EXC<LECOGBXYO"A( OL BOYIB REJD (8EMA7TE<40F 10002 
sup A 004 OCCF 037¢ C0EO0 0305 
( SUPINT C 001 COI0 0814 2 . ° ee us . ° - ae 
SUPRA C08) «OCDE «—O3e4 0379* 0361 JoOC*B7C9 1<"0A = 2°3-CD3" 0D 2SIDH HO2ADZES /<"Bs DIDDHO™(CBCEBD3SG 14 *) BOeTASREID (BEMAl+4&4CF10008 
_ SWRITE € 001 0042 0765 0107 0246 
f $4 A OOL 1308 O€84 € — «s ° bce e. 95 
S2 A OCOL 1305 O€f5 ToOs_OF*#(D2< CO BCF°AE~sEDY4<GHE <G<BGCe] s/CeT0OH*® <*TACDS < S<=ED4— BAAK* BOcHKM/GIU NC-YC13#460F 10008 
_ $3 £001 130A 0656 
€ sa A oC1 1308 0687 & . be oe s 2 BS owes : vc de oer 
Tes¥ ¢ COL 0042 C7e2 0123 TEEXTOL sB0CM<KB GG /eFHACIEHe /0H SEHe /O0YE+ -LI-H EE" C(CUKEG /eFLIE EHG JOHSEHG 80 3F-BC91HSOF 1000€ 
> * ce, 
_ TEST € 001 06212 0703 
€ € Nr € COL 0040 0781 € . ° ° e wae eo = 
TCMCCE A 004 OCE2 96352 0103 Te LM/CYE43 0LE<B EB7O*"1<=aYCO] 0 <SDEGCAS /O_FOt* «47(CD<BG /8AD38 JWEBG — _H2D)FIM +6-Q83D840F 10007 
TCGOESR A 004 OCCR 0370 o361% 
€ ycoesy a cos oce3 03€1 0126 @ . 2 . ee 2 n 7 is 
Two A002 130F O€£¢ T<O>HFRGZDR_ S<B G SI S<BGSTP /06 Za&a<HOH* CEHB"Q BEAL +59LEJHEA"( CB<BGETT3E0 112< -~EA DM3x40F 10008 
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. IBM MAIRTENANCE DIAGNOSTIC PROGRAM . PART NO. $558421 
( & PAGE 1 PAGE aa 
c 4011 3741 FUNCTION TEST WITHOUT THE WRAP CCNNECTOR ee" 374) FUNCTION TEST WITHOUT THE WRAP CCNNECTOR 
ERR LOC OfJE:T CODE ADDR STMT SOURCE STATEMENT ERR LCC OBJECT CODE ADOR STMT SOURCE STATEMENT 
é ¢ 20 Last cHc:08 01 74 | @ Se eeccesees 
3 DECK 4 55 * RTNO! ® 
4 sea 6 { 56 * RTNO! ee  paceaceasseccaccaesessncesncsecccesececessessececceecceusess. 
e C oouc S 13741 START 0 @ s7 * s. 
6 TREP ; | 58 * ROUTINE C1 TEST 3741 FOR NOT READY. *: 
3000 7 ORG x*aooe S9 * 2. 
& € 8 EARAEREDS DR SOE E9OESS 499699 9EEEEEDESSEEESSE HES RATESEETESSERESES FCSEESS SS | e@ 60 SERREEEEEEEOEED 0044099 SE8 FOEEE EE EEEESS SOERESRE DED S SESE SSSESSSOSSESSSS SS | 
9 * 3741 FUNCTION TEST WITHOUT CIAGNOSTIC CONNECTOR «| OAS1 01 OAS! 61 RTNOL OC xL1°0O1° ROUTINE NUMBER i 
10 ERECRES ORS EERG D9 94 8EHESEEEEEEEREEEERSEEREREREERE EER EEBS ERE SEBEKERERES ESS | OAf2 OC 0a52 62 oc xL2°00°* NO MANUAL INTERVENTION REQUIRED : 
& S 11% SECTION PREFACE *| @ OAS3 OAGE OAS& 863 oc AL 2CRTNO2) ROUTINE 02 ADORESS ' 
12 HEOERODEDES $008 0844048 EEE TEEREEEREEEEREERAERERERESES FE RECKERERLESSERE SE 64 . 
wiiG @OLt OA01 13 oc xL2*eo011° PROGRAM IO AND REVISION LEVEL | OASS CO G7 O21A 65 B PRINT PRINT NOT REAOV TEST MEADINGe e 
C € one: ae OAc2 14 pc sXL1°008 SECTION FLAGS |@ = oase as OAS9 «66 pc sik aaease f 
OAUS OF CAO3s 15 DC xLifoO1*e CURRENT ROUTINE NUMBER OASA 18 CASA 67 oc T1i¢2ae 5 
CAC4& 0000 Caos = =_:16 oc XL2°0000* RESERVED OASBE 1CDD oasc 68 oc AL 2(TOROY) ' 
c € CAOE OAOD OAO7T 17 oc AL 2(BEGIN) FIRST ROUTINE ADDRESS '@ ~~ ows aoa OASE 69 oc XLE*@OA1* : : 
OACce FFFF Oa09 18 oc XL °FFEFS RESERVED ; 70 : 
CACA 405000 OA0c 19 oc XL2°20S000° SECTION PREFACE UNIT DEF. TABLE OASF CO &? 1750 71 8 QUES TEST FOR SSW 206 : 
¢ G 20 : @  oe3 Fo 3c 3c 72 HPL =—_- X* 3C 8 XP BCP HALT -FF- IF ONe i 
21 SOO89805 28 EOSEDEED DDD HOE9ESESEEEEEES BEES SEEEEE SEEEEREERSEEESERRESEERE SS 73 { 
22 * IN TRODUCT ICN TELL OPERATOR TO DO SYSTEM RESET *, OAEE C1 40 G216 74 Tic LIAK. X*40? BRANCH TO OCP IF NOT READY. i 
}? @ 23 ERRHEEEEE OD HOSS EEEEEEEDEKERSEEESEEEREREERESEEEREREESERES ESS BSERERREREES | @ 78 . : 
CACD 01 0A0D 24 BEGIN 0C xL1°O1* DUMMY ROUTINE PREFIX. OAEA CO &7 1787 76 8 TICERD BRANCH TO RDY ERROR IF NOT ONc f 
: OACE 00 OACE = 25 oc xL1*00° 77 i ‘ 
GC @ ono asi 0a10 =. 26 fC AL 2CRTNOI? @ 78 t 
27 79 seseee088 fen corre 
eke CALL 28 BEGINN ECU * i 80 * RING2 © t 
& é 00211 CO 87 O214A 29 8 PRINT PRINT BEGINNING INSTRUCTIONS © 81 £49086945845488 04060098 04S $948848 084 F8SS EES SESEESES SESESSESSESS ESOS OSESS | 
OA1E 41 OA1S 30 oc MLifaie | 82 * of 
OA16 77 OA16 «311 pc AL 1(NSG1—™SG618) 83 * ROUTINE 02 TEST 3741 FOR NOT BUSYe *; 
@ @ i oai7 1003 OaiB = 32 oc |= AL 2 CSCI) © a4 + ef 
QA1S 40E0 OALA 33 oc XL2*40E0* © es seca neesecusassceesscssencsesesssassessesseececesssses eeeseseseossesess | 
OAl® CO 87 O2IA 34 B PRINT | OAGE 02 OAGE 86 RTNOZ OC xLieo2¢ ROUTINE NUMBER i 
6 e@ OAIF O€ OAIF 86635 oc xL1°06° @ OA6F 00 OA6F 87 oc mLieo00r . NO MANUAL INTERVENTION REQUIRED 
OA20 SO OA2Z0 8936 oc AL 1(4SG2-SG28) cA7?C 9a68 OAT! aa oc AL 2ERTNOS? ROUTINE 63 ADDRESS fe 
O0A22 1483 Oa22 «637 oc AL. 2(SG2) 89 ; 
|} eS} 38 S OA72 CO 87 O21A 90 8 PRINT PRINT BUSY TEST HEADING. t 
OA23 3C 40 IFAA 39 MVE =—- PRT4#10x*a08 BUILD *CLEARING® BYTE. OA7TE 4 ~OavmTE 91 oc 1°45" 
OA2T OC SA 1F&9 IF4A 40 mvc PRI(915 -PRT+3 CLEAR PRINT AREA. OAT? 17 OAT? 92 oc wmaeose t 
& & OAZD C2 O01 OAS! al LA RTAOLeXRI RESTORE RTNOL ADDRESS. | é La7eB 1CCS 0a79o) 93 _ oc Al 2¢ Tossv} r 
OA21 34 Of OAO? a2 sv FRINSXR1 OA7A 40A2 OA7B 94 oc XL2°@0A2" } 
OA3E 30 EO OASC 43 CLI HPLXXeX*EC® CURRENT HALT A -EO- ? | 93 ; 
@ © CASS F2 @1 C7 a4 Je ALTER JUMP IF SO. \ © CA7C CO 87 1750 96 8 GUES TEST FOR SSW 10. 5 
Oa3sC 3C EO OAC as MMVI =—- HPL Xe X*PEO? SET UP FOR A -E0Q- HALT. ©ABO FO 32C 3C 97 HPL 9-8 BCe XP 3Ce HALT ~FF- IF ONe i 
CA40 F2 BT C4 a6 J se? : 98 t 
@ } Oaa3 3C £1 OASC 47 ALTER MVE HPEXXeX*ER® SEY UP FOR A -E1- HALT. © OAE3 Ci 42 178F 99 TIO TIGERG.xX*az* BRANCH OUT OF ERROR IF BUSY. 
as 200 : 
OAa? CC BF 0222 a9 8 ALT PROGRAM HALT -E0- GR -E1-- Oae7? CO B87 0216 101 8 LIAK RETURN TO OCP. i 
€ © OASe 40€1 CAecC) = SO ~*HPLXX «=O—C MLE*QOE1° & 102 ‘ 
51 103 ‘ 
OA&D CO 87 OAL $2 8 BEGINN REPEAT MESSAGE IF NO SYSTEM RESET. | 106 seseeees0 
e € | S 105 * RTNOS * t 
| 106 sacgaeseees tees sees sesseeeceseneeesesceascessssesseeessecaseseseseetes | 
107 2 *; 
® 6S | @ 108 * ROUTINE 03 SENSE THE STATUS-LENGTH COUNT REGISTERS. ei 
109 2 e! 
} 110 seeeeeassnnennssesnese sensseseensecesecssesseseeseseeseeesenee esse esses; 
@ & @ CASB 03 OABB 111 RTNOZS OC xL1°03* ROUTINE NUMBER 
i OABC 00 OasC 112 oc XL 2°00" NO MANUAL INTERVENTICN REQUIRED. ; 
; CAeD CAFC OABE 113 oc AL 2(RTNOO) ROUTINE 0% ADORESS. i 
e ©@ & 114 f 
CASF 38 60 0208 115 TEN SBYTEO-SS¥O0O0 TEST FOR LOOP ON SECTION SUITCH. f 
Oa93 CO 10 O21€ 116 ey LIAK SKIP THIS ROUTINE IF ON. i 
6 @ & 117 4 
OAS? OC 09 1EFe 1666 118 KVC = PRT- 81010) eSNTFE BUILD U> TEST HEADING FOR PRINTING? i 
OASO OC 20 1F19 1AC4 119 HVC = PRT- £6033} eSTLCR- { 
6 @ | & OAA3 3C 4B 1F1A 120 MVE = PRT~67.xK°488 k 
CAA? CO 87 021A 121 8 PRINT GO PRINT TEST HEADING. ' 
i 
Le @ @ ; 
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IBM MATRTENANCE DIAGNCSTIC PROGRAM PART NO. 5558421" 16M MAINTENANCE DIAGNOSTIC PROGRAM | PART NO. 8888421 
ce & PAGE 2 © PAGE 2a 
ee 2011 3741 FUNCTION TEST WITHOUT THE WRAP CCNNEC TOR °" 3741 FUNCTION TEST WITHOUT THE WRAP CCNNECTOR 
x. x 

ERR LCC CEJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC CEJECT COCE ADDR STMT SOURCE STATEMENT 
S OAAE %€ OAAB 122 oc XL 1°46° e cB2F CO &7 1706 190 8 MAES POINT TO MAP CHARTe 

cCAAc Se oaac 123 oc rLatore 0643 8781 0644 191 oc xLz¢e7e1® “PAGE 678. ENTRY le 
OAAC 1F 49 OAAE 124 oc AL2CPRT? 192 
c € OAAF 403 oaso 125 oc XL ZeAOaz® @  =ceas ce 87 0222 193 5 HALT ERROR HALT —04—e 
CAB1 OC SA 1F 4S IFSA 126 MVC =—- PRTC 91 DoPRTFI CLEAR PRINT AREAe 0849 4004 OBeA 194 oc xL2*a00ae 
127 0648 CO e7 0216 195 8 LIRK RETURN TO OCP. 
€ €  vae7 31 41 18¢ce 128 LIC HOCODxz41° ZERO FUNCTION REG ,@ 196 
OABE C1 42 178F 129 TIO ORCPD»X*42* BRANCH IF 3741 WENT 8USYe 197 
Ce OAEF 21 48 18CE 130 LIO HOCOO.x*45* ZERO DATA TRANS REG © 198 seeeesess 
¢. * OACZ 30 43 OB3E 131 SNS  TRL»exX*43° SENSE TO RESET 6USEC DELAY CIRCUIT. | 199 * RTNOS * 
OAC? C1 42 176F 132 T1C ORCED ox*42* BRANCH IF 3741 WENT BUSY ‘ 200 * ren canseneenasegeeeeesesesenaanseseseeeet see sene sees Sees SeSSeS SSeS SS 
oace 21 44 18€€ 123 LIC HOFSS.x*44° PRESET DATA ADDRESS REG~ i 201 * . 
os € 134 ' @ 202 * ROUTINE CE SENSE THE DIAGNOSTIC BYTEs * 
CACF CO e7 17ED 135 8 Ques TEST FOR SSW 106 203 * * 
OAC3 FO 3C SC 136 HPL xe ace ,xe3ace HALT -FF- IF ONe 208 * seeeaaaseceaseseaesee nee esnne seeeeseaseset C88 SS SESSS SESS E SSS TSSS SSS SSS 
¢ © 137 @ = oe4r os OB4F 205 RTNOS OC xLitose ROUTINE NUMBER 
@ACE 30 42 OAEE 138 SKS LCRex*a2° SENSE STATUS-LENGTH COUNT FOR -—8000- oBeo oc oBse 206 oc XL1*00° NO MANUAL INTERVENTION REQUIREDe 
ee OACA OD 01 OAEE OAES 139 CLC = LCRC 2) oLCR-2 SENSED DATA AS EXPECTED? e 0851 OFA oes2 207 pc AL 2CRTNOS) ROUTINE 06 AODRESS~ | 
S CAEC CO 81 021€ 140 BE = LEAK RETURN TO OCP IF OKe 208 
141 oss2 36 80 O2ce 209 TEN SBYTEO.SSWwO0O TEST FOR LOOP ON SECTION SWITCHe é 
¢ @ $32 # ROUTINE C3 ERRNN MESSAGE & e 0887 Co 10 0216 210 BT LIAK SKIP THIS ROUTINE IF ONe 
143 211 ; 
OAES CO 87 126E 144 8 SNSERR GO PRINT SENSE ERROR. OBSB OC 09 IGFE 1E6E 212 MVC |= PRT-81€10) sSNTHE BUILO UP TEST HEADING FOR PRINTING? 
OAEe 8000 CAE 145 oc 83—s x. 2° 8000" —E XPECTED.~ C861 OC OF 1F07 1BCA 213 MVC —- PRT--66 (15) eDIAG 
© G = caea coco CAEB 146 LCR DC  xL2*°000C* ACTUAL « @ = ove? 3c 468 1F Ce 214 MVI | -PRT-65ex°46" : 
GaEC 02 OAEC 147 oc mL 1°02° “ERROR ID. OBEB CO BT O21A 215 8 PRINT GO PRINT TEST HEADING. 
- CAEC CO 67 1709 148 e Macs PCINT TC MAP CHART. oper 46 OB6F 216 oc MLica6® 
@ @ oars ever OAF2 149 oc 8 aL BT AES “PAGE 874. ENTRY 1 / @ cv ss OB70 217 eS ; 
150 : OB71 1F49 op72 218 pc 0 AL BC PRT? : 
OAF2 CO 87 0222 151 8 HALT ERROR HALT -03-0 CB73 40AS OB74 219 cc 8 RL BS A0AE* ; 
@ @  oar7 ao0s oars 152 pc 30 &LE*4002° . @ ss ca7S oc SA 1F 4S IF 4A 220 MVC = - PRTC912 PRT+1 CLEAR PRINT AREA i 
CAFS CO 87 O21€ 153 8 LEAK RETURN TO OCP. 221 , : 
154 oe7e co 8&7 175D 222 e Ques TEST FOR SSW 106 t 
e © 185 @ corr Fo 3c 3¢ 223 - HPL «—- KUBO KOSC! HALT -FF- IF ONe i 
156 seeseeees 3 226 f 
157 # RTNOS ope2 30 45 0897 225 SNS  OUGeKeaee SENSE DIAGNOSIC BYTE FOR 00. i 
e @ 188 peeageetsheshGeesses SCs Seeet FESSSERSSSE EST EEEEEES ES SESTEESS SESE SES SS € CBeE OD CO CBSE OBS4 226 CL.c¢} = DUG 1 (1) PCUG-S SENSED DATA AS EXPECTED ? i 
159 * _% ceec CO 81 0216 227 BE LIRK RETURN TO DCP IF OKe ; 
160. * ROUTINE C4 “SENSE THE 1/70 TRANSFER LINES. 2 228 i 
e © 161 * «+ & 229 ROUTINE 05 ERROR MESSAGE * : 
162 CeEeeeteehestsseheesee 08 REtSESEERESEESEESESSESESESEES SESESESS SESE SSE SS 230 , : 
CAFC 04 OAFD 163 RTNOS OC xLE*04s ROUTINE NUMBER cBso CO e7 1388 231 8 SNSERR GO PRINT SENSE ERROR. i 
@ © CAFE 00 OAFE 164 cc XL 28008 NO MANUAL INTERVENTION REQUIREDe & oBs4 0000 oB9S 232 oc 72.29 0000° ~EXPECTEDe a 
CAFE O84F 0Bv0 165 oc AL2CRTROS } ROUTINE 0S ADDRESS. cBSsé 0000 0897 233 DUG oC xL2°0000°. “ACTUAL « : 
166 ; cpse of oe9e 234 DC xL1°0S* “ERROR 1De 
@ ©@__ oso cc o9 1eFe 1666 167 MVC PRT-610.16 )eSNTHE BUILD UP TEST HEADING FOR PRINTING: | @ cess co 87 1705 235 8 wares POINT TO MAP CHART. t 
OBC? OC 11 2FOA 1A0E 168 MVC - PRT-63022) LOTRE | opse 8e@11 CBSE 236 pc xi z°8821° “PAGE 881. ENTRY to ‘ 
cBoD 3C 48 1FCe 169 MMVI - PRT-62-X°4B° 237 
GS CG cer: co e7 o21a 170 B PRINT GO PRINT TEST HEADING. | @ __scesr co e7 0222 238 8 HALT ERROR HALT -08-< 
OBIE 4€ e815 171 oc ML B°46° OBAS 4008 OBAs 239 oc x.2°4005°* 
oB1€ SE oB16 172 oe Irre92° OBAS CO 87 O21€ 200 8 LIAK RETURN TO DCP. 
€ @ 3 e#17 1F49 0618 173 oc 0 AL QC PRT? ; © 241 : 
OB19 40404 OB1A 174 oc xLZ*@0A0® 242 
CB1e OC SA 1F49 1FeA 178 MVC «—- PRTC GED ePRTSI CLEAR PRINT AREAs 243 eeeeesers : 
e¢ @ 176 | © 244 * RTNOE * § 
oes co &7 1750 177 8 Ques TEST FOR SSW 106e. 265 * RING ®  eaneceeessanesecesosssaeseceseeseetensssese sees seeesseeeeees | 
e 6 oB2¢ FO 3c 3C 176 HPL K*EC ee KOBCE HALT —FF- IF ONe © 246 & : ae :. 
179 (247 * ROUTINE C6 CHECK EB CYCLES FCR P 
ceze 20 43 0830 180 SWS  TRLexease SENSE 1/0 TRANSFER LINES FOR 0060. 208 * DATA TRANSMISSION. . 
CB2C OD 02 OB3D 083e 181 CLC = TRLC 2D e TRL-2 SENSED DATA AS EXPECTED ? 209 * 
G @ OB22 CoO e1 O216 182 BE LIEPK RETURN TO DCP IF OKe @ 250° * punccceecesereeseseeesssesesseseeensseserssesestesese sss sees eeeeseee ee 
183 CBAD 06 OBAS 251 RTNOG OC MLi°06* ROUTINE NUMBER : 
184 ¢ ROUTINE 02 ERFOR MESSAGE * oBaa 0O OBAA 252 Dc x 19008 NO MANUAL INTERVENTION REQUIRED : 
e @ 185. @ = cpae 0037 oBac 253 pc 0 AL ZC RTNOT) ROUTINE 07 ADDRESS % 
0836 CO 87 1388 186 8 SNSERR GO PRINT SENSE ERROR. 254 b 
; 
©B2A 0000 e836 187 oc ML 2*0000° EXPECTED. OBAD CO 87 O21A 255 8 PRINT PRINT EB CYCLE TEST HEADING. i 
G @ _ — cezc occo 083d 188 TRL oc xi z*0000° “ACTUAL @ over 45 oBB1 256 oc xLisase f 
OB3E 04 opse 189 oc xL1°04° “ERROR ID. i ose2 24 o6s2 257 oc 1L1°36° 
d t 
L.é€ @ @ t 
care 1EAUGTS ISNOVTe PROG ID aoi-1 DATE 16AUGT4 1SNCVT4 PROG 10 aoi-1; 
NO. 824765 e2ee70 PAGE» 2 gp EC NOe e247et e24e70 PAGE. sa 
ee ie @ 
| | { 
e 6 


ae ea 


’ 





Be rs gre : S 3 = > i 3b : 2 “ee eTrre -- - . 
? . 7 é 
F ‘ . t s 
; 


c 
. C - 
ION MAINTENANCE DIAGNCSTIC PROECRAM PART NO. 5558421 — TEM MAERTENANCE DIAGNOSTIC PROGRAM PART NO. 5558821 
PAGE Ss 4S PAGE 3a 
4011 2741 FUNCTION TEST WITHOUT THE WRAP CCNNEC TCR ~ #021 374% FUNCTION TEST WITHOUT THE WRAP CCKNECTOFR 
€ 
ERR LCC CesFCT COCE AODR STMT SOURCE STATEMENT ERR LCC CEJECT CODE ADDR STMT SOURCE STATEMENT 
off? 1ee8 9BB4 258 oc AL 2cTscyc) e Ocee 3c F2 188e 326 EB2ZERR wvI ALEEX-~15.C°2¢ SET UP FOR EB 2 ERROR. 
CBEE S0A6 OBB6 259 oc xLZ*aoaee OCBA OC 17 1FO6. 18S7 327 ¥VC  =—- PR T- 67 24) oALEBX 
260 Des ocsc co ®&7 oDt9e 328 6 BIGEB PRINT ERROR MEADING. 
CBE? Ci 42 176F 261 TIO) ORCPO.x*4aZe JUMP OUT IF 3742 1S BUSY. ‘a 229 
262 0c94a OC 16 1F0S 167F 330 EBERR MVC PRI-620(22).-ALES SET UP FOR ALL EB FAILURE. 
OBEE CoO &7 175D 263 8 Ques TEST FOR SSW 10. . OCGA CO e7 CO19 331 8 BICER PRINT ERROR HEADING. 
OBEF FO 3C 3c 266 HPL = KP SC * xe sce HALT -FF- IF ONe €- =32 
265 cCSE 3c F1 1BE7 333 NCODL MVE EBLE~2.Ce48 SET UP FOR BOTH EB*Ss. M = le 
CBC2 21 41 18F2 266 LIQ} | OHFFSS.x°41° LOAD FUNCTION REGe WITH —FFS5SS~e a cocr2 F2 87 08 336 2 FINGER GO PRINT ERROR. 
0R8CE 71 92 18F2 267 LIQ HFFSS.x*a2e LOAD LENGTH COUNT REG WITH -S5-. i ocas 32C F2 1867 235 NCCO2 MVE €EB12—-1.C82¢ SET UP FUR BOTH EB*Se N = 2e 
CBCA 31 44 128F2 268 LIC HFFEEoxta ae LOAD DATA AORS REG WITH —FFSS-. ocas F2 87 14 336 J FINES GC PRINT ERRCP. 
OBCE 21 &© 18F2 269 LIC HFFSS.x*"45* LOAD DATA TRANS REG WITH —SS—-« ; OCAC 2C F4& 1967 337 NCOD4 MMVI €812-1,.C%4a* SET UP FOR SOTK EB*Se N = fe 
270 C4 CCEO OC 21 1F10 1868 338 FINEB MVC = PRT-57(38).EB12 
0BD2 30 41 190F 271 SNS LS-€sX*618 SENSE FUNCTION REGISTER. OCeE CO 87 COIS 339 8 RICEB- GO PRINT ERROR HEADINGe 
OBCE 20 42 1911 272 SKE —s- LS-4,, KX 42° SENSE STATUS AND LCRe oe 340 
CECA 4O 44 1913 273 SNE - LS-2ex*aae SENSE CATA ADRS REGISTER. i. oces 3c F1 1845 241 NCODD! MVI EBx—-1.6C*1° SEY UP FOR N CODE 1 ERROR. 
CBCE 20 45 1915 274 SNS LS»x?aS* SENSE OYAG AND DATA TRANS REGe OCBE 3@ 40 191D 342 TSN EGFLAG.X*40* 
275 = accz2 Co 10 OCCcE 343 BY #412 
OBE2 C2 01 1915 276 ta LSexR1 “ INITIALIZE SENSE STORAGE ADDRESS. i OCC6 3C F2 182€E 3494 MVI = EBI-24.CE°% 28 * E82 CYCLE}. 
| CREE 326 01 OBFS 277 s7 CKEVYT43-XPR1 occa ce e7 ocD2 345 e *+e 
ORBEA 32€ 00 191¢ 278 wvE EBFLAG.x*00* CLEAR EB FLAG. | = OCCE 3C F1 2182€ 346 MMVI EB 3-26.-C* 18 * EBL CYCLE. 
OSEE 3c 01 OBFEe 279 MVE STEN41.X°01" INITIALIZE FLAG BIT POINTER. ie oco2 F2 e7 3€ 347 J EBxX GO PRINT ERROR. . 
260 ccOS 3c F2 1845 348 NCODD2 MVI = EB X—1+C*2Z* SET UP FOR N CODE 2 ERROR. 
OBF2 3r CO oCCO 28% CKBYT cL B— 94X00? TEST CURRENT SENSE SYTE. 2 OCCS 38 26 1910 3489 TON EBFLAG.X*10° 
CBF CO 01 OBFE 262 GNE #428 BRANCH IF BYTE NOT ZERGe. £ ocDD ce 10 OCES 350 Rt $412 - 
CBFA 3A CO 1910 263 STBN SEN  EEFLAGsex*00* TURN ON FLAG BIT IF ZERDe OCE1 3C F2 182E 351 ave EPx-24.C*2° * €82 CYCLE. 
BFE OF 00 OBFE oBeFS 284 ALC STENt1 (1) .STENG SHIFT BIT POINTER. _ OCEE CO 87 OCED 352 8 *+2 
ccC4 OF O1 ORFS 1800 286 SLC CKEYT4#2(2)eN001 DECREMENT SENSE ADDRESS« C_ CCES 32C Fl 182 353 VY = EBxX-28,C71° * £81 CYCLE. 
OCCA 29 FF OBFR 286 TEF STENt1 &X*FF® POINTER GONE TO ZERG ? OCED F2 87 23 254 3 EBX¥ GO PRINT ERROR. 
OCOE Co 90 CeF2 2e7 BF CKEYT CONTINUE TC LGOP IF NCT SO. ais OCFO 2¢ F4& 1845 755 NCUDDS MVE EBX—-1-C°4* SET UP FOR N CODE 4 ERROR. 
288 i CCF4 28 04 1910 356 THN EEFLAG.X*08* 
289 * ANALYZE THE EB FLAG BYTE. eCcFe CO 10 OD04 35? BT #412 
290 OCFC 3c F2 162E 35a MVE 8=6EExX~28,.C82° * E82 CYCLEe 
0ci2 3D F32 1910 291 CLI EBFLAG.xXtF2* C opeo Co e7 obo0s 359 ie +E 
Ocié CO 61 oc94 292 BE EBERR BRANCH IF BOTH EBI AND E62 FAILED. : OD0a 3c FL 1B2E 360 VY 8 EBxX-28,C71" * EB1 CYCLE. 
ccia 30 €2 191 293 cur EBFLAG.XtESe oooe F2 e7 ca 361 J EBRX GO PRINT ERPOR. 
CCIE CO 81 CC7E 294 BE EPIERR BRANCH If EB1 FAILED. € 362 
OC22 3D a2 1910 295 CLY EBFLAGsx*aze CDOE 3C FS 1645 ~ 3623 MNCODDS wvE = EBx—-1.0°S* SET UP FOR N CODE 5 ERFOR. 
CCZé CO et OCeE 296 GE EG2EPR BRANCH IF E82 FAILED. “s LOOF 3C F1 182E 364 “vi EBx-28,Ct1° * EBL CYCLE. 
297 1 OD13 CC 1C 1FOB 1846 265 EBXX MVC PRI-€2(2¢63.EBX 
ccz4 3C co 1910 298 Cit EBFLAG.x*COP 366 
CC2ZE CO €1 OCOE 299 ee NCCO1 BRANCH IF BOTH EB*S OF N=] FAILED. ne 0019 CO 87 O21A 367 BIGES 8B PRINT PRINT €B CYCLE ERROR HEADING. 
0C22 320 30 1910 300 CLI EBFLAG.x*30° t. opie ce eDid 368 oc xL1i*c2e 
OC2E CO €1 OCAS 301 BE NccD2 * 2 * cDIeE 18 OD1E 369 “ec Trit2ae 
CC2A 2D oc 15610 302 CLL = EBFLAGex*0C* ‘ ODIF 1829 0b20 270 oc AL ZC BIGGER) 
OC2E_ CO 81 OCAC 303 BE NCCD4 * a * € OD?71 4006 oD22 371 oc XLZ*400€* 
304 0023 CO 87 18A7 372 8 EPENT2 PRINT SPECIAL ERROR 1D. 
oc42 32€ 60 1910 305 TAN EBFLAG.X* 408 7 op27 CO 8&7 1709 373 8 MARS POINT TG MAP CHARTS. 
OC4E CO 10 OCBA 306 eT NCCOCOI BRANCH IF EB1 OF N=t FAILED. { : COz6 ee£1 OD2c 374 ec xLZ*88S2* —-PAGE 885. ENTRY 1. 
CC4A 3e €0 1910 307 TSN E®BFLAGex*e0° , oper co a7 G222 378 8 HALT ERROR HALT —06-6 
OCSE CO 10 OCEA 308 eT NCCODS * 2 1 * . 0D31 4006 0032 376 oc XL *a0CE® 
ecf2 3E€ 10 1910 309 TEN EBFLAG.K*10° (. CU22 CO 87 O21€ 377 e LIK RETURN TO DCP. 
OCE6 CO 10 OCDSs 210 eT nccoo2 2 4 2 * 378 
OCEA BE 20 191D 311 TEN EBFLAG.X*20° 379 
OCSE CC 10 OCDE 312 eT  NccoD2 * 2 2 * © 380 +#t80R889 
eCE2 2e 04 191D 313 THN ESFLAG.x*C4* 281 * RTNO? * 
oceeé CO 10 CCFO 324 eT NCCCD4 > i 4 . JOD POKFTVEKASE SERGE 2 HTS OH FO OSSEERES SH ESRSEESERE BSR OEKSSKDEAEG SKE SETKER ES SERAEE OD 
CCEA 3B CB 1910 215 TBN EFLAG.xK* 08" C> 3e3 * > ‘ 
OCEE CO 10 OCFO 316 eT NCCDD4 * 2 a * 384 * ROLTINE C7 LIC & SAS FUNCTION PEG WITH AASSe~ * ‘ 
cc?2 38 ¢1 1910 317 - YEN EGFLAG.Xx*01° 3es ¢ 2 - 
oc7é CO 10 OD0e 218 BY NCCOOS * 2 s * 5 JOE SARKSEKKKKASAH NSS OIE HHSSEAS ER SSERKEKSEFCSESSRASVSESTESEKESESKSESLSKCASESEEKESHSETE GS 
319 0037 07 0037 367 RITNO7 OC ML1°O7* ROUTINE NUMBER 
CCVA CO &7 O21€ 320 e LIaK RETURN TO OCP. mS OD2e 00 op3s 368 oc xL1*00¢ NC MANUAL INTERVENTION REQUIRED 
, 323 Gs OD39 O0EF OD3A 389 oc AL2CRTNCE? ROUTINE 08 ADDRESS 
322 # RCUTINE 06 ERROR MESSAGES * 290 
323.—Ct« : CD2@ OC Of 1919 18£0 3901 MVC =—s- PATRN( 22 e FAASS STORE TEST PATTERN: me: 
OC7E 3c FI 1888 328 EBIERR MYVI ALEBX-15.C°18 SEY UP FOR EB 1 ERROR. ts 9041 CO &7 1800 392 8 ccce PRINT TEST HEADING. ~ 
ece2 CC €7 OCeA 325 8 *+2 cD4s Fi 0D4S 293 oc a eo 
: Pa 
DATE TEAUGTS YSNCV74 PROG ID 401-1 DATE 1€AUGTS ISKCVT4 ‘ PROG ID “401-1 
EC AO. 82476E. €24€70 PAGE 3 | EC NO e240768 824870 ‘ PAGE 3A 
€. 
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en 
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TEM MAINTENANCE DIAGNOSTIC PROGRAM 


40t1 3741 FUNCTICN TEST WLTHOUT 


ERR LOC OBVECT CODE aooR STMT 


394 

op4aé ce e&7 1750 395 
oD4A FO 3C 3C 396 
397 

CCac 2b 42 1916 396 
OopS1 30 41 1917 399 
400 

cose CC e7 14&€ 401 
ocss 07 e0s9 402 
COSA Fi oCcsSA 402 
ODSse CO e? O216 80a 
405 

ODeF Ce eF 1760S 406 
ODE? SEe9i oDpsa 407 
CDEE CO BF C222 408 
ODES 4007 ODGA 409 
ODEE CO 87 0216 410 
aii 

a12 

e338 

asa 

415s 

616 

417 

a18 

aio 

COGF 08 ODGF 420 
oo7e 00 COTO 421% 
CO71 ODAT e072 422 
423 

OD72 O€ O01 41919 16E2 424 
oo7e cfr B7 1800 425 
CO’D F1 Co7D 426 
427 

OO7E CO e7F 1750 428 
oDe2 FO 3¢ 3¢ 429 
430 

COEE Bl 41 19156 431 
ODBS 30 41 1617 432 
433 

coec CoO e7 1468 4346 
0091 O08 oo91 435 
cOGS2 Fi 0092 436 
epe2 Cc er O2t€ e37 
436 

COS? CO e&7 1709 a39 
cose eegt oosc 440 
cOSo CO e&7 0222 O61 
coal 42008 COA2 442 
ODA? CO e7F 0216 a4? 
ALE 

a6S 

aa6 

447 

as 

aag 

450 

asi 

452 

00a? O09 ODAY 453 
opae 00 OCASB 454 
oDas ODES ODAA 455 
456 

CDAB CC O8 1915 1eEE as7 
obe1 co 67 1800 : 658 
cDBE F2 opss§ 459 
460 

OoDeE CO e7 1750 aéi 

OATE AEAUGTS 1SNCV74 
EC NGe €E247€5 824E70 


THE WRAP CCAWECTOR 


SOURCE STATEMENT 


PART NOe 5556421 
PAGE a 


TEST FOR SSW 106 
HALT -FF- IF ONs 


LOAD FUNCTION REG WITH -AASS~o 
SENSE FUNCTION REG FOR ~AASS<—e 


GO COMPARE RESULT BITH EXPECTED. 
“ERROR ID. 

-N CHDOE. 

RETURN TO OCP EF OKe 


POINT TO MAP CHART 
~PAGE 869. ENTRY fo 
ERROR HALY -OT—e 


RETURN TC OCPe 


$OOEEEE ED EE OES S BOOS EEESTECE BESEEEEESEEEEEEEE SHEE SES EREERESSESES TEES ELSES 


EYO & SNS FUNCTION REG #ITH SSAA. 2: 


o 


BEPRECENES t9OS6EEETEET OEE HELE ERE $EREKE CEREERES SEPERESBERSE REESE SSSR ERNE S 


ERKERSEE EEE SERED CORT EERE SESEREESE ORE ES FHES ERODES ESCSSES ESLER SSS SSE SEEDS 


ROUTINE NUMBER 
NO MANUAL INTERVENTION REGUIRED 
ROUTINE OS ADDRESS 


STORE TEST PATTERNeG 
PRINT TEST HEADING. 


TEST FOR SSW 106¢ 
HALT -FF- IF ONe 


LOAD FUNCTION REG WITH -SSAA-e 
SENSE FUNCTION REG FGR ~SSAA~e 


GO COMPARE RESULT WITH EXPECTED. 
“ERROR ID. 

=~ CODF. 

RETURN TO OCP IF OR 


POINT TO MAP CHART. 
-PAGE 889. ENTRY le 
ERROR HALT —O06-e¢ 


RETURN TO OCP. 


LIC & SNS LENGTH COUNT REG ITH SS. e 


KEE OEOEEESOFETE8ETEREEFSE EES STE EREEEE ESE REEEEESES FEE EEE EESESESE SEES ES 


e QUES 
HPL Re2Ct,K2Ce 
ure PATENeK*41? 
SNS LUSCK EAL 
8 LICSNS 
oc XL 1I°O?® 
oc curese 
e Lax 
8 wars 
oc MLZ*BBSt* 
8 HALT 
oc xLZ*a007° 
8 LIK 
eeceseees 
* RYNOS & 
s 
® ROUTINE Ce 
& 
RTNOS OC xLi°o68¢ 
oc MLIFOCF 
oc AL ECRTNOS) 
mvc PATRN(2) eRESAA 
8 coce 
oc cLaitre 
8 Ques 
HPL nesce.xezce 
LIO PATRNKt4t® 
SNS ULSCKex*4l® 
8 LICSKS 
oc mioer 
oc cuaeis 
8 LIAK 
8 MAES 
oc XLZ*eeGl1? 
6 HALT 
oc xL2°2008¢ 
8 LEAK 
SE8Oteeee 
* RTNOS * 
* 
* ROLTINE CS 
* 
RTNOS OC MIOGS 
oc XLI*008 
oc AL 2CRTNOAD 
“VE 3=— PATRN( 23-0055 
8 coce 
oc crit2e 
8 Ques 


ROUTINE NUMBER ; 
NO MANUAL INTERVENTION REGUIRED 
ROUTINE OA TEST 


STORE TEST PATTERN.) 


PRINT TEST HEADING. 


TEST FOR SSW 10-2 


PROG ID 40i-1- 
PAGE 4 


A 


Nae 


© 


ctu 


0000 


970080 


Oo Oo 9 


9 0 


a 


YER MAINTENANCE DIAGNCSTEC PROGRAM 


401s 
ERR LOC 
oDpea 


obeod 
coc? 


oocs 


cocs 
oocpd 
coce 
oocFr 


oDD2 
ODOC? 
oDD9s 
opoo0 
opcr 


eDEsS 
ODES 
odes 


COE? 
ODEO 
oor t 


ooF2 
COFE 


ODF9 
fOFD 


oEC! 
OEC? 


CEDA 


of CE 
OE12 
OE 13 
OE 14 


o£18 
CE 1C 
OE1E 
0& 22 
oe24 


o& 2e 
OE 2c 
oe€2D 
OE 2E 
OE30 
CE ?2 
OE 3E 
OE38 
OEIC 
OE SE 


DATE 
EC NOe 


S741 FUNCTEICN TEST WITEOUT 


OBJECT CODE 


FO 


31 
390 


3c 
co 
os 
F2 
co 


co 


3c 


42 
a2 


oo 


er 


e7 


er 


Sg9it 


co 


8&7 


4400S 


co 


OA 
0° 


87 


OE42 


co 


= 
co 
FO 


31 
30 


oD 
F2 


cc 
OA 
F2 
co 


co 


o1 
ST 


er 


3¢ 


a2 


a2 


at 


oo 


ev 


e?7 


ev? 


esi 


co 


er 


@00A 


co 


er? 


ca e7 


c2 
2e 


1c0B8 
400C 


co 


e7 


8912 


co 


87 


coc 
CC e? O21€ 


3c 


1919 
14a? 


L9I1E 


1468 


o21€ 


1709 


0222 


ao21e 


194¢ 
1800 


1780 


3¢ 


1919 
1917 


216EE 
1€ 


1916 


14e€€ 


0216 


1709 


e222 


o21€ 


0214 


1709 


0222 


LEAUGTS 
e2a7€s 


1GEA 


s927 


oocd 
ODCcE 


opDos6 


ODDE 


CdES 
oCE4 
ODES 


OOF! 


OEF12 
OEL3 


OE10 


CE23 


OE 2c 
cE20 
OE 2F 
O€31 


OE37 


OE3SD 


ISNCV74 
a2ee70 


ADDR STMT 


462 
463 
&64 
465 
966 
a67 
468 
a69 
a70 
a7t 
ave 
473 
474 
475s 
676 
aT? 
a76s 
4aTs 
4680 
468 
@s2 
483 
a@646 
aes 
as6 
487 
se8 
489 
£390 
491 
892 
ages 
ag6 
495 
#96 
aor 
496 
ag9sg 
soo 
S01 
sd2 
$03 
504 
$05 
S06 
SO7 
$08 
509 
si0 
Sti 
st2 
$13 
f14 
sts 
S16 
S17 
$18 
$19 
$20 
sei 
S22 
S523 
$24 
S25 
$26 
527 
528 
529 


THE WRAP CCWNNECTOR 


SOURCE STATEMENT 


HPL 


Liv 
SRS 


wevt 


SSSUseets 
* RINOA * 


s 
s 
s 


BULSERLSEO SSCS PERE HEISE 


RINOA 


xezce,xeace 


PATRNAt&OS 
LSCKox*e2? 


LSECK—1 2A* 00% 


LECSNS 

xe r°os" 
cL ize2t 

CLIK 


WAFS 
ML2*6OtE® 
HALT 
RL2°8009° 
LEAK 


ROUTINE CA 


oc 
oc¢ 
oc 


eV 
& 


oc 


6 
aPL 


Lic 
SNS 


‘euc 


JE 


evi 


8 
oc 
o¢ 
B 


8 
oc 
8 
oc 
8 


& RCUTINE 


EROA 


8 
o¢ 
oc 
oc 
oc 
6 
oc 
e 
cc 
8 


Oa 


XL AtOA® 
xLLeO0? 
AL ECRTNOED 


PAYRNC2 5 ef 00AA 


COoEe 
cL eee? 


QUES 
REBWeroxe3ce 


PATPNoK*aee 
LSCK 42° 


MF FFF OS) eLSCK 


EROA 
LSCK-16k*00* 


LECSNS 
ML TSOAS 
ctiee* 
CIAK 


MAES 
KLZ*°E921° 
MALT 
RL Z°4OOAE 
ERK 


ERECR MESSAGE € 


PRINT 
xLaec2° 
1L1°435 

AL 2UL FORST) 
xi 2°4@00C*® 
MaPSs 
xXL2*6912* 
HALT 
xLz*a00c® 
LIK 


PART NOe §5S64a2t 
PAGE aa 


HALY -FF- IF ONe 


LOAD LENGTH COUNT REG WITH —S5-6 
SENSE STATUS AND LCR FOR -8055—e 


CLEAR STATUS BYTE. 


GO COMPARE RESULT WITH EXPECTED. 
“ERROR 1D. 

-N CODE e 

RETURN TO OCP IF OKe 


POINT TO MAP Ct.ARTe 
“PAGE 891i. ENTRY te 
ERROR HALT -09—-6 


RETURN TO OCP. 


EREERSREACE S196 29ED 299 48488 FFG DEES EETERESEEESES EEREEES SEERESESAERSSE SES 


2 


LIG € SNS LENGTH COUNT REG WITH Afc s 


* 


2 NEREREKSESE SESE SEESEEESEEREEESESE SHREHAEREE SESE SSD 


ROUTINE NUMBER 
NO MANUAL INTERVENTION REQUIRED 
ROUTINE OB ADORESS 


STORE TEST PATTERN. 
PRINT TEST HEADING. 
TEST FOR SSW 10.2 


HALT -FF— IF ONe 


LOAT LENGTH COUNT REG WITH ~Ak- oe 
SENSE STATUS © LCR FOR ~60AA~e 


WAS CLO PATTERN ERASEC ? 
JueP IF NOVY ERASED. 


CLEAR STATUS BYTE. 

GO COMPARE RESULT WITH EXPECTEDo 
—ERROR {De 

-N CODE. 

RETURN fO DCP IF OKe 

POINT TO MAP CHART. 

—PAGE BIL. ENTRY le 

ERROR HALT -—OA~e 


RETURN TO OCP. 


PRINT LENGTH COUNT NOY RESETe 


POENT TO MAF CHARTe 
—PAGE 891+ ENTRY 20 
ERROR HALT ~O0C~e 


RETURN TO OCP. 


PROG 10 aoi-1 
PAGE aA 


veo er, 


ans, 


on, 


om ony 


ons, 


oN NN 


ome, 


vy 


wre se 


TBM MAINTENANCE DIAGCNCSTIC PROGRAM 


4011 


3741 FUNCTION TEST WITHOUT 


ERR LCC CEJECT COLE 


ct 42 
0E43 
CE 44 


OE4E 
OE 4c 
oEfO 
cES1 
OE fe 
oe s4 


cE SE 
OESA 


OEED 
OE E1 
CE EE 
cCEEE 


CE €E 
oE72 
OE 76 
OE 7C 


oceo 
ce es 
oees 
OE EE 


ogee 
OE ec 


OEGE 
OE S2 


OES4 


oeESge 
oegS 
OE9A 


OESC 
OE A2 
OCEAE 
QE A? 
ce ae 
CEASA 


CEAC 
cEEO 


DATE 
EC NOo 


acdoR STMT 


oe8 0b42 
oo cEeas 
otec¢e oe4S 
oc 03 1C70 1C8F 

cc @7 O21A 

4aé OESO 
3e OESs1 
1ce6 oEeEs3 
40AB OoEsSS 
co e7 1759 

FO 3¢C 2¢ 

21 44 #18E2 

30 48 1617 

OC O01 18E2 1917 

Fe of 12 

3% 44 18E9 

30 44@ 1917 

Or Of 18£0 1917 

co e@1 021€ 

CO 8&7 G2I1A 

ce OE84 
so oees 
1Aaz oEs7 
co e7 1709 

asi3 oESD 
co at 0222 

4067 OES3 
co e&Y 0214 

oc c&9s 
00 CESS 
OEC7 oeESs 
oc 03 1C7O0 1C923 

co 67 O21A 

4€é OEAG 
28 OEAT 
1¢ces CE AS 
40aAc OE AB 
cc e7 1750 

FO 3C 3¢ 

LEAUGTS LSNCVT4 
824765 224870 





$31 


532 
533 
£34 
535 
£36 
£37 
538 
539 
540 
541 

£a2 
£43 
544 
545 
546 
5a7 
588 
509 
$50 
551 

ss2 
553 
554 
S555 
556 
557 
$58 
559 
560 
561 

S62 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
s75 
S76 
s7? 
578 
579 
580 
$81 
se2 
S583 
S584 
ses 
586 
587 
se8 
589 
590 
S91 
£92 
593 
594 
S595 
596 
597 
598 


THE WRAP CCNNECTCR 


SOURCE STATEMENT 


S484083R8 
* RTNOE *# 
REKEREAAS SREERSETS SOKD BER OSES DEAESEREDVSARST SHAE SVEARSEKSERHSER ASKS OLAELS SS 
* * 
* ROUTINE Ce LIO € SNS DATA ADORESS REG NITH EVEN TEST * 
* PATTERNS. -SSAA=- AND ~AASS~o to 
* oO 2 
RADESDHD GF ESNSS 44TH OD OTD ADRES ABTS S BBL FBESS SERS SLISRORSES SESOSAASSELESLE SS 
RTNOB OC xL3°08* ROUTINE NUMBER ‘ 
oc xL1°00° NO MANUAL INTERVENTIGN REQUIRED : 
ec AL 2CRTNOC D ROUTINE OC ADDRESS ; 
2 4 
avC VNGD C4) eE VEN SEY UP EVEN TEST HEADING. } 
8 PRINT PRINT TEST HEADING. j 
oc xL4246° 
oc w#119se* 
oc AL2C(LSDAR) 
oc xXLZ*40a6* 
a QUES JEST FOR SSW 106¢ 
HPL x9 3C*,x*3C# HALT -FF= IF GNe 
t10 HSEAACK*AS® LOAD DATA ADDRESS REG WITH ~SSAA-~ 
SNS LSCK eX*4a* SENSE DATA ADDRESS REGISTER : 
cic HSEAACZ) eo L SCK OATA SENSED = DATA LGADED 7? i 
JNE DARCK 
L10 HAASSe xt age LOAD OATA ADDRESS REG WITH -AASS—« 
SKS LECK ox*aae SENSE DATA ADDRESS REGISTER. 
cic HARESC2) cL SCK DATA SENSED = DATA LOADED ? 
BE LIAKk 
DARCK 8 PRINT 
oc xL4°C6? OAR NOT SENSED AS LOADED 
oc AL 10 MSG4—S54B83 
cc AL 2(MSC4) 
8 Mace #AP CALE OUT So's 
oc XL Z*8912* “PAGE 891e ENTRY 3-6 : 
8 HALT HALT DUE TO DAR CHECK ‘ 
oc XL Z*a0ET7* 
a LIAK RETURN TO OCP. 
BRHSBESRSSSD 
*# RTNOC * 
RARE TSAHHESRERNS HBF O8EDHESEESESHESEADHSESSTHSE LATTE SKRS HROSRVSERESKSAS TSS 
* a 
* RCLIINE Cc &10 & SKS DATA ADDRESS REG wiTH ODD TEST 2 
* PATTERNS.» -1000—- AND ~0001-.- * 
* 2° 
XOEKRS FESS OSES ORE EES GREE OEESS SEEKER SESETORERAESSESEFVOHERSSUEST PE SES SSSA 
RTNOC OC xL1*0Cc* ROUTINE NUMGER 
oc xL2°00° NO MANUAL INTERVENTION REQUIRED. 
oc AL ZCRTNOD) ROUTINE OD ADORESS 
ave VNCD( 4) eCOO SET UP HEADING FGR ODD PATTERNS. 
a PRINT PRINT TEST HEADING. 
oc xXL2°468 
oc 1L2°S6* 
oc AL 2(LSDAR? 
pc XL Z*A0aCe 
8 QUES TEST FOR SSW 10-2 
HPL KeBC* ex" 3Ce 


' 


tm coy “sek pho eties 


PART NOe ssseseer 
PAGE s 


HALT -FF— IF ONe 


PROG 10 40i-1 
PAGE Ss 


@ 
G 
© 


C 
n S032 


“% 


pas 


ERR OC OBSECT CODE 


C Seer ao as tay 
© eer 30 cs ten? 
ceca co 67 Cz1€ 
'@ 
e 
6 
@ 
@ 
© 
© 
6 
GS 
G 
© 
© 
© 
c 
98 
© 
3° 
© 
ie 1€AUG74 
oe” NOo 828765 
oe 





~-, 18S MAINTENANCE DIAGNOSTEC PROGRAM 


374i FUNCTICN VEST WITEOUT 


ADDR STMT 


599 
600 
601 
602 
603 
604 
605 


1SNOV74 


THE WRAP CCNNECTCR 


SOURCE STATEMENT 


tic 
S&S 


cic 
Sas 


H1C00,x*aae 
LSCK eX*4S*P 


HOCH. eo x*4ae 
LSCK eo X* 44° 


CIAK 


PART NOe $558421 
PAGE Sa 


LOAD DATA AORS REG WITH ~2000—e 
SENSE DATA ACRS REGISTER. 


LEAD DATA ADPS REG WITH —0001—e 
SENSE DATA ADRS REGISTERS 


FETURN TO OCP. 


PROG 1D 401-1 
PAGE Sa 


‘a 


i 


~ 


oy 


IG MAINTENANCE DIAGNCSTIC PROGRAM PARTY NO. §556421 


1@M MAINTENANCE DIAGNOSTIC FROGRAM 
PAGE 6 - . 


PART NOe 5556421 
PAGE GA 


oO a 


4011 37412 FUNCTION TEST WITHOUT THE WRAP CCNNECTCR 


4011 3742 FUNCTICN YEST WITHOUT THE WRAP CCAMECTCR 


o~ 


ERR LCC OEJECT COCE ADOR SYNT SOURCE STATEMENT 


ERR LCC CBJECT CODE ADOR STMT SOURCE STATEMENT 


1 607 Sen820402 G 676 eheneceet 
608 * RTNOD @ 677 ¢ RTNOF #@ 
7 609 CERES SEE AEEK CEES SERS SKESSERHEEREES ESKE TLE SEEKKSESHETELTSEKSTRSERESKESSSE RS 678 SRHRATERHRG EASES VES ET STOEREKTE SES SKK TAREE SEEKS ESKSEKE LS SEK SEHEK EESTI GSD 
4 610 * * e 679 & ® 
611 ROUTINE CD LIO €& SNS DATA TRANSFER REG WETH S5- 680 «* ROUTINE Ce ¥SSUE A STO ENABLE INTERUPTe 2 
612 * % 681 * * 
C 613 HSHESRERSTAI SSE ST OKEKELAALRERSRSEKASSEKEAAASESEESAKESESKAESESESRERVERERKSESSELIS € 682 EERKERES CE REEEE OAT ES. STES SEESETSEEEESEVE DEES SEES KSEE SH SSE SESS TSCKHETE CHE SENS 
CEC? OD OECT 614 RTNOD OC ML1°0OD* ROUTINE NUMBER OF3F OF OF3F 683 RTNOF OC we L°OFS ROUTINE NUMBER 
_ oeCce 00 OECe 615 oc xL1°00° NO MANUAL INTERVENTION REQUIRED x. CFa0 OC OF<0 G8e oc XLETO00F NO MANUAL INTERVENTION REQUIRED 
{ CECS OFO03 OECA 616 oc AL ECRTNOE ) ROUTINE OF ADDRESS c OF 41 OFC! OFe2 685 De AL Z(RTN1I0) ROUTINE 10 ADDRESS 
617 686 
OECE OC O1 1916 16E€ 618 wave PATEN( 2) .HOOSS STORE TEST PATTERN. 643 CO 87 1576 6AT7 8 STCHD PRERT TEST tiZADINGe 
7 OED1 CO &7 1800 619 8 core PRINT TEST MEAD ING. Cc OoFaT af OFa7 688 oc XLiI*are MESSAGE ID. 
CEOS FE CEOS 620 oc cisese CF 48 E2CEES40CEDSCIC2 OFEA 689 oc CLZ9*SET ENABLE INTERRUPT LATCite *® 
Z 621 is CFSO OICEAOCSDEESCEDO 689 
i OEDE CO OF 2750 €22 e QUES TEST FOR SSW 1062 ( OFSe COESD7ES40D3C1E 3 689 
OECA FO 3C 3C 623 HEL Ke2Ct xe 3ce HALT -FF- IF ON. CFEO C3CC4BAC40 689 
3 624 : OFES C1 42 178F 690 15 OCPD «Kt*a2* MAKE SURE 2741 IS NOY SUSY 
t OEODD 31 45 1916 é€25 L10 PATRNs K Pact LOAD DATA TRANS REG WITH -SS-. C OF 69 35 84 18FA 691 u INTNE TARE LOAD TAR S PEGISTEReLIN CASE OF ENT) 
OEE1 20 4€ 8917 626 SNS LSCKOX*4a5* SENSE DIAG AND OTR FOR -9055-. OF60 2B Ci 18C1 692 ser FLAG eo KEN ® RESET ERROR FLAG 
627 4 OF71 CO 87 175D €93 8 Ques TEST FOR SSW 106 
' CEES 3c 00 191€ 628 avE LSCK—ie K*008 CLEAR DEAGNOSTIC BYTE. C- CFEV?E FO 3C 3 6c4 HPL X*°2C*%,K*3C8 HAL -FF— IF ONe 
629 695 
OEES CO 87 1486 630 8 CECENE GC CCMPARE RESULT WITH EXPECTED. OF TG 31 @1 16DE 696 ure HOCBGeK*4t? SET FUNC REG TO OLTAG MODE. 
‘ CEEO 10 OEEO 631 oc XL 2108 “ERROR 4O- € CFTC F3 40 02 697 s10 K°O2°,x*aO* ISSUE ENABLE INTERRUPT. 
OEEE FE OEEE 632 pc cLitse -N CODE. OF7F 3C 45 1@FC 698 gas OTK eK*eEe SENSE DIAG BYTE FOR -10-. 
OEEF CO B7 0216 633 8 LINK RETURN TO OCP IF OK. . OFEe2 3@ 02 16C1 699 TAN FLAG eX*01° ERROR FLAG SET ? 
7 634 co CFE7 F2 10 10 700 JT CacINT JUMP IF SOs 
OEF3 CO @7 1709 635 8 MAES POINT YC MAP CHART. OFBA 3C 10 191¢ OL MVE XPCTox*108 STORE EXPECTED RESULT. 
OFF? 8931 CEFB 4636 oc xLe*soai' —-PAGE 8935 ENTRY to c OFSE CO 87 1520 702 8 cxs10 GO CHECK EXPECTED WITH RESULT. 
f CEFS CO a7? 0222 637 8 HALT ERROR HALT -i0-.- €&: OFSE 12 OoFOo2 7¢3 cc XLUg2* ERROR 1D. 
OEFC 4010 CEFE 636 pc MLZ*e0108 OFS2 CO 87 021€ T04 8 LIAK RETURN TO OCP IF OK. 
CEFF CO &7 O21€ 639 e LIK RETURN TO OCP. 708 
€ 640 Cc: OFS7 CO eF 4870S 706 a RAFS POINT TO AP CHART. 
eal oFSB 89351 OoFSC 707 oc MLZ*BOStE® “PAGE 895. ENTRY te 
: 642 aeessages CFSE CO 87? 0222 798 8 HALT ERROR “MALT -12—e¢ 
C 643 * RTNCE * € sofa acre OFA2 709 oc 8=— XL" 40228 
644 SEESHSERTIES STS $OSEEAESSS SESS TARSS ELE SKLEKEREKSESEE SKK SLES SASSSERAESEESESE SE OF AZ CO 87 O21€ 710 8 LEnK RETURN TO OCP. 
645 * 7Ei 
C 646 * RCUTINE CE LIC & SNS DATA TRANSFER REG WITH AAe * Cc: OTAT CO 87 OZIA 712 BADINT 6 PRINT PRINT INTERRUPT CHECK. 
647 *& * OF AP C2 OFaB 713 oc xLit*c2* 
648 RRVPAEKEEKHIRSOKRESESREESE SESE REKES SES SESESSEE SESE EES SE FKEKRESE SEKSES SEKESEKEEKREEEE . cFac 1¢& OF AC T1464 cc wit2ie 
Cc OF 62 OF OFO3 €49 RTNOE OC XL2*OE? ROUTINE NUMBER € OFAC 1€EE OFAE 715 oc atL2¢siec4) 
OF 04 00 OFOS 650 oc XL1700° NG MANUAL INTERVENTION REQUIRED OF AF 4018 OFBO 716 oc XLZ*@OLAat 
OF CE OF3F OF06 651 oc AL 2CRTNOF } ROUTINE OF ADDRESS OFEL CO e7 1706 717 B MAES PRINT MAP CHART REFERENCE o 
€ €82 €: OFBS 8SS2 OFB6 718 oc ML ZPAQeDeE “PAGE 895 ENTRY 20 
OQFO? OC 01 1919 18EA 653 MYC PATRNC2) eHOOAA STORE TEST PATTERNe OFe7 CO eT 0222 T1i9 8 MALT ERROR HALT ~—1LA~e 
| OF OD CO e7 1800 654 e COCE PRINT YEST HEADINGe - OFEG 401A oFBC 720 oc XLZ*S01At 
C OF11 FES OF1i 655 oc CLi*se OFBD CO B87 C216 721 B LINK RETURN YO OCP. 
656 T2P &£kKSEKERER 
OF 12 CO e7 1756 657 8 Ques TEST FOR SSW 166 723 % RTNIO * 
OF16 FO 3C 3C€ 658 HPL xe 2C¢e .x*3ce HALT ~-FF=- IF ONe €> T2464 KSERRKRFKSEAKTHLRS BSE RASS RAKSERERSERSHREERE SERN GE SKE SSSR ACHE KKH ESKAKKEKS RESETS 
659 72S * * 
: CFiS 31 45 1919 660 cic PATRN»X*t45¢ LOAD DATA TRANS REG WITH -AA-o 726 © ROLTINE 1¢ ISSUE A RESEY ENTERRUPT. * 
‘ OF IC 30 S& 1917 661 SNS LSCK ex*ase SENSE OIAG & OTR FOR -O0AA~e © 727 * * 
662 728 KARE SEEKS SES DE HESEDDSE HOSERKERATCERREESSERS FEES SRSEKE LEME CESRKEKKRERBRAES GE 
OF 21 3C 00 191€ €63 wvi LSCK—-15X*00* CLEAR DIAGNOSTIC BYTE. OFC? 140 OFC1 72° RTN10O OC ML IP LOF ROUTINE NUMBER 
664 2) OFC2 00 OoFCc2 730 oc xL 100° KO INTERVENTION SEGUTRED 
OF 25 CO a7 1488 665 8 LICSNS GO COMPARE RESULT WITH EXPECTED. OFC? 1022 CFC& 731 oc AL 2CRTNI1) ROUTENE if ADDRESS 
CF 2s 11 OF 29 666 oc MLI¢i1¢ —ERROR IDs 732 
OF ZA FE OF 2a €67 oc cLiese “-N CODE. G OFCE CO B87 157E 733 8 SICHD PRINT YEST HEADING. 
OF 2B CO 87 02:6 668 8 LERK RETURN TO CCP IF OkKe OFCS BO OFCSO 734 oc xL1i°BOF MESSAGE IDe 
669 . OFCA COCSE2CSE240C5D5 OFEG 735 oc CL2S*RESET ENABLE INTERRUPT LATCH. * 
. OF2F CO av i?DS 670 8 MAES POINT TO MAP CHARTs Cc CFD2 C1C203C540C9DSE3 738 
OF 22 8S3} OF3& 6715 oc MLE*Borz1e “PAGE 693+ ENTRY te OFCA CSCSOCOE4N7E240D2 735 
OF Z£ Ce &7 C222 672 8 HALT ERROR HALT ~—Li-e ; OFE2 CIE3C3C84e 735 
OF 39 4021 OF 3A 673 oc MLZ*@O11e C OFE7 Ci 42 178F 736 TIC ORCFEO,x*a2t MAKE SURE 3741 I5 NOT 8USYe 
OF 2B ce B87 OP1E 674 8 LEAK RETURN TO OCP. 737 
es 
DATE LEAUGTS LSNOVT4 PPOG 16 601-1 " DATE 1G6AUG74 ISNCV74 PROG 10 4Gi-i 
EO #O, 8247E5 224870 PAGE 6 _ EC NGe 824765 €24870 PAGE GA 
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PART NO. $558421 16M MAINTENANCE DIAGNOSTIC PROGRAM | ; PART NOs 5558421 
PAGE 7 PAGE 7A 
4011 374% FUNCTION TEST WITHOUT THE WRAP CCNNECTOR oa 3741 FUNCTION TEST WITHOUT THE WRAP CCANECTOR 
ERR LOC CBJECT CODE ADDR STMT SOURCE STATEMENT ERR LCC CESECT CODE ADDR STMT SOURCE STATEMENT 
é OFE& CO e7 1750 738 e QUES TEST FOR SSW 10s & 803 . 
OFEF FO 3C 3c 739 HPL K°SC*.x*3ce HALT -FF~ IF ONe 804 aeketeses 
32 740 €95 * RTNI2 
P OFF2 31 41 180E 74at 720 HCCEDX*442 SET TG DIAGNOSTIC MODE. © B06 SESRKSEKKAKSSERASSEKSTES £SSESTERST SSSTESESKELSEOSVISS STS SS ES SESEKKEKSVTT VOSS St 
CFFE6E F2 40 C2 742 sic X*O2% ox*agr ISSUE ENABLE INTERRUPT. 807 ¢ ° 
: OFF9O F2 40 04 743 sto x*CH*DX*8408 ISSUE INTERRUPT RESET. 206 * ROUTINE 12 ISSUE A WRITE COMMAND. » 
i OFFC 20 45 18FC 746 SNS DTKexX*aee SENSE DIAG SYTE FOR -06-. G 809 © * 
/ 745 BLD RSESKSEENESESESSESEASS OHS SESS SELLS VERSEKTASEST SRE SSHALCSOSLAKLASOBSVSOSYSESSSSSHLS 
; 1000 38 10 18Fe 746 TEN OTK-1.x*108 DIO ENABLE BIT GET RESET 7 108a 12 208A 811 RTNIZ OC MEReaze ROUTINE NUMBER 
y 10C4 CO SO 0216 T4a7 eF LIAK RETURN TO DCP IF YES. & 10€E 00 1088 st2 oc xL3*2008 NO MANUAL INTERVENTION 
748 1ose 1118 a9neD «813 oc AL ECRTN1IZ) ROUTINE 213 ADDRESS 
: 749 # ROUTINE 10 ERFCR WESSAGE * Bre 
‘ 750 G 106E CO a7 ~ASTE 815 8 SICHD PRINY TEST HEADING. 
10C@ CO e7 O21A 751 e PRINT PRINT RESET CHECK. 1092 B2 1092 816 oc XLi*B2* MESSAGE 1D. 
- 100C C2 100C 752 oc XLi°c2e : 10$2 ESCESESSOEEDSCSES 10AF 817 pc CL29"SET WRITE CALL LATCre? 
i 10CO 10 1000 753 oc mis2ge C IO9e C£E4CC3CiD20340F3 317 
100E 1046 100F 754 Oc ALECINTR) 10A3 CIESC3ICESESC4AC40 817 
1010 4013 1011 755 oc XL e*ao1ze IOAB 9040408640 a17 
2012 CO e&7 1709 7S6 2 MAES POINT TO MAP CHART. G 1080 C1 42 178F 818 10 ORGPD.xeaz? MAKE SURE 37¢1 IS NCT BUSY. 
101€ 8971 1017 757 oc XLZ*es71° “PAGE 897+ ENTRY 1. B19 x 
758 1088 CoO 87 175f 820 8 QUES TEST FCR SSW 10. 
1018 CO BF C222 759 e HALT ERROR HALT -13—6 > 1086 FO 3C 3¢ 621 HPL K*3C*,Ke3Ce HALY -FF- :F ONe 
101C 4033 101D 760 oC XLZ*e0228 822 
: 1O1E CO B7 0216 761 8 LIK RETURN TQ OCP. 108B 31 41 18DE a23 L110 HCCEONtAL® SET YO DIAGNOSTIC MODE. 
to 762 C 10eF F3 42 00 826 $10 X®00%.x*4z° ISSUE A WRITE CALL» : 
7é2 40C2 30 48 1eFC 625 SANS DY K eX*4ase SENSE DIAG BYTE FOR -05-. 
TF6G €OSBK4tERB 826 
ft 76S * RTNIi * C INCE Bc Of 391 827 Mvi ~PCT.sx*CE® STGRE EXPECTED RESULT. 
TEE RHEE KEASES SENS SAEKTESER ERE ESRBS SHES ATEERER ER THT EL HS VEKEEEKEREERAEDETESKED 16a Ce &7 1586 828 8 CKero GO CHECK EXPECTED wiITri RESULT. 
: 767 * * 10CE 15 10CE 629 oc ¥L21°358 ERROR 1Ce 
f 768 * RCUTINE 11 ISSUE A READ COMMAND. ; * Cj 1OCF CC e? 10E3 830 e CKRSTT GO OO RESET IF OK. 
aes : & 2 831 
=f T7O FRAKES AARELGDRE OE KSEHEEBERESAESSLE SKE SKEREREERARAKARTEERLAKEASE VPEEKAEHETAREAEES 190C3 co e7 17659 832 8B MAPS POINT To MAP CHART. 
f 1022 11 1022 771 RTNI1 OC MLAtaie ROUTINE NUMBER 1007 9031 1098 833 oc XL2°SO31° . PAGE 90236 ENTRY 1. 
1023 00 1023 Tre oc XLitcor NO MANUAL INTERVENTION REQUIRED 1009 CO &7 0222 834 8 HALT ERROR MALT -15-0 
1024 1084 1025 773 oc AL ZCRTNi2) ROUTINE 12 ADDRESS 10DD 4015 100E 6835 DC XLE*so1e? 
f 774 €> - 100F co e7 o21€ a36 8 LIAK RETURN TO OCP. 
1026 CO £7 1576 775 8 SICHD PRINT TEST HEADING. . 7 837 
: 102A 81 102A 776 oc xL1*°s81" MESSAGE 10D. 10€3 F3 “£0 o8 838 CKRSTT SIC X*CB%.xeace DO WRITE CALL KESET. 
i 102ZE E2CEEBAODSCSCICS 1047 WT pc CL29*SET READ CALL LATCH.®* i 10EE 30 &5 18FE 839 ENS TEMP. xe ase SEXSE DIAG BYTE FOR ~00-. 
1023 60C3C€102024003¢1 777 840 
102 F2C2CE484 04046040 777 10EA 30 cc 1eFo B41 CKRST CLI TEYP-1,.x"CO* OIAG BYTE RESET TO -00- ? 
1043 404040404C TT? €3 10€E F2 01 OD 842 JNE ERST JUPP IF NOT. 
1048 C1 42 17BF 7738 Tro ORCPD »x*4a2¢ MAKE SURE 3741 15 NOT BUSY. 10F1 3D 15 CAd3 B42 cur RINKS KODE? CHECKING RESET FROM RTN1IS? 
a 779 10FS CO Cl 0216 Bas BALE LIRKK RETURN TO DCP IF NOT. 
ic 104C CO 8&7 17&0 780 e GUES TEST FOR SSW 102 & e45 
1080 FO 3C 3¢ 761 HPL x8 3C*.xXe2C8 HALT -FF— IF ON. 10FS CO 8? O22A 886 B Loan BRANCH TC OCP TC TERMEMATE SECTIONe 
782 1CFO 00 10FO 647 oC XL1*00* 
‘ 1083 31 41 16D€ 783 LIC HOCBO.Keare SET TO DIAGNOSTIC MODE. : @ 848 
1057 F2 41 GO 784 Si0 X®CO*,xear? ISSUS A READ CALL. 869 * 2761 RESET ERFOR MESSAGE © es 
: 1OEA C1 42 176F 785 TIC TICERB.x* az BRANCH TF 3741 BUSY. 850 
7 10SE 30 4§ 18FC 786 SAS DYG&,x*4aes SENSE DIAG BYTE FOR -03-. S 10FE CO 87 O22A 851 ERST 8 PRINT PRINT 3741 NOT RESETTING MESSACE. 
787 1102 ¢2 1102 as2 oc xL2°C2* 
: 10€2 3c 02 19:1¢ 7ae8 wv? xXPCTeXx*C2° STORE EXPECTED RESULT. 1103 18 1103 853 oc ILa*278 
. 10€€ CO e7 1580 7es e cKeto GO CHECK EXPECTED WITH RESULT. i) 1104 1028 1105 254 pe AL ZONTRST) 
106A 14 106A 790 oc xLaergs ERROR 1D. Lice 401€ 1107 9855 oc XLZ*401€8 
10€B CO 87 1C7F 791 £ DOFST GO CHECK FOR RESET IF OK. 1108 CoO ©7 170S 856 8 MAFS POINT TO MAP CHART. 
¢ 792 'e 110¢ 8992 110D 8S? pc MLZ*eoccs -PAGE 899. ENTRY 26 
10€6F CO B87 17D9 793 8 MAPS POINT TC MAP CHART. 11L0E CQ e7F C222 85a B HALT ERROR HALT -—16-- 
1073 8991 1074 794 Oc XLZ*a9ggo18 —PAGE 899. ENTRY ie 2112 4016 i323 06.359 oC xLZ*eo1e* 
1075 CO 87 0222 795 8 HALT ERROR HALT -14-. G 2114 CO 87 0216 e260 — B LIAK RETURN TO OCP. ; 
1079 4014 107A 796 oc XL2*401a® : 
2 107E CO E7 O21€ 797 8 LIK RETURN TO DCP. - 
i 798 GS : 
107F F3 40 08 799 DORST sic X*COe.x*4aQ° DO A READ CALL RESET. 
1082 30 45 18FE 800 Shs TEWE x84S5¢ SENSE DIAG BYTE FUR -00-. 
1086 CO e7 10EA 801 8 CKRST GO CHECK OIAG BYTE FOR RESET. © 
802 
DATE 1EAUG74 2SNCVT78 PROG 10 401-1 © ate 1 €AUG74 ISNCV74 PROG ID aoi-1. 
EX A04-. 824765 824870 PAGE 7 C EC NOe 824765 £24270 PAGE 7A 
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15M MAINTENANCE OLAGNOSTIC PROGRAM 


PART NO. 5558422 YOM MAINTENANCE CEAGNOSTIC PROGRAM PART NOo S558021 
. PaGE 8 3 PAGE 6A 
4011 3741 FUNCTICN YEST WETHOUT THE WRAP CCNNECTCR _ @c1t 3741 FUNCTION TEST WITHOUT THE WRAP CCNNECTGR 
; “” 
ERR LOC CEJECT CONE ADDR STMT SOURCE STATEMENT ~ ERR LOC CEJECT CODE ADDR STMY SOURCE STATEMENT 
€ 662 tenseeees C 2199 E2CSE340C105C940 1185 924 oc CL29*SET AKD RESET NO-OP LATCHe® 
€63 * RTNIS * LLAL COCEESCEE 220DEDE 924 : 
zs CEG SHLHKROKEKEGSAEESESSEEEELKSELEEKELE RTS EKKERE SLE RELL SESHSERESE KE RAH LAK KKEKSK ES F : 123 AS9 GODED?ISOCICLESCI g24 
i 665 + * € 4181 ceapacecec S24 
£66 + RCUTEIKE 235 ISSUE A CONTROL 1 Sie - T2E6 C2 42 17BF 925 TIC = DROPD» k* 42° MAKE SURE 3741 IS NCT BUSYo 
: 867 * * 826 
€ 868 RESSSKESSSRSARKK SHS KSEKSREKRSSLERE SHEKEL OKE SE SRELESLSA TEKS EESKSS SCEFSRECEKSE HES <* ZiBaA CO EF 175D S27 8 QUES TEST FOR SSW 1064 
‘sie 12 1118 869 RTN1IZ DC XLie13e ROUTINE WUMBER , 21PE FO 3C 3¢ 928 HEL | ke 3C*,xeace HALT -FF~ IF ONe 
P i219 00 1119 870 ec XLitooe NO MANUAL INTERVENTION REQUIRED 92° 
t RISA 1184 1128 871 oc ALZCRTNI4) ROUTINE 14 ADDRESS c: 1iC1 31 42 18CE 930 LIC HOOOOex*42° REMOVE FROM DIAG MODE > 
oe oes 11¢5 F3 63 00 931 sic KSOOTeKCALE ISSUE A READ CALiec 
e TiC CO 87 1576 873 8 S1GHD PRINY YEST HEADING. 12C8 306 42 OAEB 932 SRS LCRox*a2t SENSE STATUS FOR -64-e 
1120 83 1120 874 oc KL EBS? MESSAGE [Ds C 11CC Ze 04 GAEA 933 TER LCR-1ex*Gae NO-OP BIT ON IN FIRST STATUS 7? 
1121 C4D640C2DEDSE2Z09 1130 e775 oc CLES*DO CCATROL £ START I/7Ce* 8800 FE 90 35 934 oF e:2 BRANCH IF NO-OP NCT ONe 
/ 1129 D60340F140E2E3C1 875 935 
7 121 OSES4&CCSEIDESHSO e7s ey 1103 30 42 1900 936 SNS WORK sx*4ze SENSE STATUS FOR -80-« 
1129 4040404080 275 11D? 3@ 04 190C e37 TEN WORK~-1-7504¢ NO-OP 8IT RESET 7 
VUZE C1 42 176F 876 TIO) 48=—_d DROPD. K*42¢ WAKE SURE 3741 1S NOT BUSY. : 1108 F2 10 OF 336 JT ELTA BRANCH IF NG-OP NOT RESETo 
¢ _ err . €> 221DE Ci 42 2£76F $39 TrI0 TICERG.»x*a2* BRANCH OUT IF 3741 BUSY. 
1142 CO e7 175D e7e 8 Ques TEST FOR SSW 106 940 
2 114E€ FO 3C 3¢ a79 HPL = KE SCHR ESCE HALT -FF= IF ONe 1162 F3 40 €8 941 SIO X®lB%s.x*aoe DO READ CALL RESET. 
f - g80 e% 11ES 30 45 s8FE 942 SNS YEeP.xXSase SENSE DIAG BYTE FOR -CO—e 
, 1149 31 41 18DE B84 LIG 8 HOCeOexKtart SET TO OLAGNOSTIC MODE. — 11ES CO e@7 10EA 983 E CKRST GO CHECK RESET RESULTS. 
114D F3 43 FF 882 S10 X*FF*.xeaze ISSUE CONTROL ! SEOs 948 
f 683 €} 945 # ROUTINE 1£ ERROR MESSAGES * 
1150 CO &7 O28€ eea B LERK RETURN TO OCP. 946 
: Bes TEEC CO 87 O21A 947 E13A B PRINT PRENT KO SESET ERROR. 
€ 886 €} nF cz LiF 948 ce xk RY C2e 
OCT teneeeece LiF2 12 11F2 9489 oc iLiv27e 
: BeS * RTNIG # MEFS POTC 11F& 956 pc AL Z{NORES) 
c SBD CHEESE SRERES GEESE SEKESEAS REE ELEL SHKEAGEAESERESEK ASE TREE SEKSKESE KSEE ESEEKKE KS SEK ERTS FS €} FIFE 40182 L116 9S BC KXL2o2taorest 
ego * * WiF7 Co eF 1709 952 8 MAES PCINT TC MAP CHART. 
- esi * ROUTINE 14 TSSuUE CCNTROL 2 SEGe ; * 11FH $052 L1FC 953 oc KL st*oos2? “PAGE GOS. ENTRY 2c 
€ B92 * * €) wee co e7 o222 954 a HALT ERROR HALT -15-. 
BOR CHEESE RENS EERE REE EEEOEEESSSEEEESEKEEE HES SEBESEKLAREKRERE ELSES EARERVESHKESA 120% 4018 22G2 ss5 oc KLzt*actea? 
gs 1154 14 1154 894 RTNI& 0¢C MLLe24e ROUTINE NUMBER 1203 CO e7 022k 956 ti Lose GO TERMINATE SECTIONS 
S iss oc 1155 895 oc xL 1008 NO MANUAL INTERVENTION REQUIRED 3 1207 00 1207 9357 pe xL2°00° 
12SE 1190 1257 acé oc AL 2CRTWI1S) ROUTINE 15 ADDRESS . . $58 
: eo7 2208 CO BF O21A 959 £13 B PRINT PRINT LATCH SET CHECKo 
‘. 1188 CO &7 1S7€ 898 6 SICHO PRINT TEST HEADENGe g3 120c C2 120¢ 960 oc xL2*c2* 
: 115C B84 1isc 899 oc XL 1°Bae MESSAGE ID. 120D 1S 4200 961 cc Trais2ss 
Y1SC C4DE4SOC3SDEDSESDS 1179 900 oc CLzZ9*DO CONTROL 2 START Ee? 320E 106i 120F 962 oc ALECNOSEE } 
1168 DE0340F240E 2E3Ci 900 ©} 1210 4017 . 1211 963 pbc XLZ*eou7e 
11EC CSES40C961DE4R40 900 i2iz CO eF 1709 964 8 MAES POINT TO MAP CHARTe 
: 1175 4C404C4040 900 1216 9051 1217 965 oc XL Z*90S1* “PAGE 905c¢ ENTRY le 
f YN7A CO 7 17£ED 901 8 GUES TEST FOR SSW 106 es 1218 CO 87 0222 966 8 HALT ERROR HALT -i7—e 
117E FO 32¢ 3C 902 HPL KP BC te KEBC! HALY —FF- IF ONe 121¢ 40:7 1210 967 oc KL2°2017" 
903 121€ CO 87 022A $68 8 LOAD GO TERMINATE SECTION. 
t 1181 33 41 16CE 904 LIC HOCOOex*4at? REMOVE FROM OSAGNOSTIC MODE. 3 1222 00 1222 969 oc XL 1°00 
11€8 C1 42 178F 905 TIG oOROPD.x*42° MAKE SURE 3741 IS NOT BUSY. ab 970 
11€9 F3 44 FF 906 SIC -X® FFE, xeeae ISSUE CONTROL 2 SIO6 : 971 
‘ 907 © O72 eeeneeees 
118C CO 87 O216 908 B LEAK RETURN TO DCP. 973 * RTNIG6 ® 
: 909 ‘ S74 EREEKEAERESLEEEAE HERAT SRE CEEEEERERRERAEES OERES SRK ERLE HERE KES HR KELDS DF 
€ 910 €) 975 * * 
" Sil eeseceece S76 ® RCUTINE 16 TEST ALL ENVALID N CODE COMMANDS «+ * 
x 912 © RTNIS * , O77 * COTAL IN ONLY) * 
€ SQLS SRERERSEE SKE STHREKTKERHEKSKS SETREE SSHKEKK SEEKS KF SEKSASKSE KECK EKSKEKE SSE SSS SEES VE €} 9786 HEREGSROSS ESSERE SEREEORS DES SERESERSECESE EERE TEARERRERES TERTERER FESHSRE SS 
914 *% * 2223 1€ 1223 979 RTNI6 OC MELLEL6e ROUTINE NUMBER 
15 & RCUTINE 15 ISSUE A SEO TO SET/RESET THE NO-CF LATCHe # 12246 80 1224 980 pc xL race MANUAL INTERVENTION REGUTRED 
€ 916 * * @ 1225 FFFF 1226 981 oc XLZ°FFFFE LAST ROUTINE 
QL FHTHSSKESEEEHERESEERE TROBE SHKKEKRSESKES SEK SKLEKSEKKES SHS SHEA SSA GSREKRKSS SHOES TS $82 
1190 15 1290 916 RTNIS DC MLEeESe ROUTINE NUMBER 1227 OC 03 1900 0003 983 MVC 8=—- WORK (4) 22 SAVE SOTTOM CORE OF DCP. 
{ 119% 00 2161 919 oc xL1°00° KO INTERVENTION REQUIRED © 122D OC 03 0093 1eaFE 984 MVC 8 8=—- 3.04) » ERNCE STORE SPECIAL "BRANCH BACK® CMNDe 
1192 1223 1193 920 oc AL ZCRTNIE) ROUTINE 26 ADDRESS 985 
. 921 , 1233 CO 87 O21A $86 8 PRINT PRINT TEST HEADING. 
By 1168 CO €7 157E 922 8 SICHD PRINT TEST HEADINGe > 1237 42 1237 987 oc xL184aze 
1198 8s 1198 923 oc xL2°BS* MESSAGE 1D. 1226 32 i238 see oc thiesie 
i. e ; 
DATE LEAUGTS 1SNOV74 PROG ID 401-1 DATE 1EAUGTS RSNCV74 PROG ID 40i-i 
EC NO. 8247€S 624270 PAGE 6 EC Ne eza7es €24E70 PAGE 6A 
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TOM MAINTENANCE DIAGNCETIC 


401i 


ERR 


coc 


1239 
122€ 
1230 
1241 
1242 
1243 
126€ 
1249 
124A 
1248 


124¢ 
1261 


1253 


1257 
125Ct 
12€1 
12€5 


12E€A 
te70 
1274 
1276 


1270 
1283 
i2e7 
128B 


1290 
1296 
12SA 
129€ 


12A3 
12a9 
12AT 
1281 


12€€ 
12e6c 
12¢€0 
12C4 


12¢C¢9 
12CcF 
12¢c2 
1207 


120¢ 
12€2 
12E6 
12EA 


12€F 
12F¢ 
12F9 
12FC 


1302 
1306 
130C 
1310 


DATE 


EC 


NO 


3741 FUNCTI 
CR JECT CODE 


100C 

aoBeE 

co 8&7 O21A 
02 

24 

1EQ1 

co 8&7 O2iA 
o€ 

37 

1esze 


co 87 0222 
40EE 


co 87 1230 


OF O1 0003 
3C 46 18FF 
co 87 i378 
E20SE24OFCO 


OE O61 GOO2 
30 66 18FE 
co &7 1378 
E2DSE240FE 


Of O02: COOZ 
30 47 18FE 
co 87 1378 
E2DSE240F 7 


CE OF 9002 
31 40 18CE 
co €7 1376 
D2CI0E40FO 


CE Of CO03 
31 43 18CE 
co e7 1376 
DICSDE4OFS2 


OE C1 0003 
33 4€ 18CE 
co 87 1378 
DICSDESOFE 


OE O01 0003 
31 47 #18CE 
co ®7 1378 
D3CSDESOF7 


O€ O01 0003 
ci 41 #12F6E 
co &7 1378 
EICSDESOF 1 


OE O61 0003 
Ci 44 12F9 
co &7 13786 
EICSD640F4 


OE O01 0002 
ci 45 130€ 
co 87 1378 
EZCSDESOFS 


LEAUGTS 
C24a7€S 


CN TEST 


i8CAa 


i8CA 


1eDA 


18CA 


16CA 


18CaA 


16CA 


180A 


18Ca 


i8Ca 


ADDR 


L23A 
123¢ 


1241 
31242 
1244 


12469 
124A 
1246C 


1252 


1269 


127C 


128F 


12a2 


1285 


12c8 


1208 


12E€E€ 


21301 


1314 


ISNCVT4a 
624E70 


PROGRAM 


witrout 


STmt 


98S 
996 
991 
992 
$s3 
994 
995 
$96 
297 
998 
999 
1000 
1001 
1902 
10053 
1004 
1005 
1006 
1007 
1008 
1009 
3010 
1011 
1012 
1013 
woLia 
1015 
1016 
1017 
1018 
1019 
1920 
202% 
1022 
1023 
2024 
1925 
1026 
1027 
1028 
1629 
1030 
2031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
2049 
1050 
21051 
10S2 
1053 
1054 
1055 
1056 


THE WRAP CCNNEC TOR 


SCURCE STATEMENT 


REPIT 


RTRN 


oc AL SC INVAL) 
oc AL2°*é086* 
8 PRINT 

oc xLi*de2¢ 

oc tL12°36* 

oc ALEC INVL) 
8 PRINT 

oc xXL1*06* 

oc Wiess* 

oc AL2CTVL) 

8 HALT 

oc XLE*40EE* 
8 REFIT 
TNVALID 

ALC 3CZ9 NCIS 
SxS TEWF sx*aart 
8 ERiAé 

oc CLE*SNS OF 
ALC 3027 -.N01S 
SAS TEMP e X*RE® 
5 ER14 

oc CLE*SNS EF 
ALC 3023.NC19 
SNS TEMP .x*478 
8 ERA 

oc CLE®SNS 7* 


INVALIO LOAD 170 COOES. 


ALC 
Limo 
8 
oc 


atc 
L110 
& 
oc 


ALC 
Lic 
8 
oc 


ALC 
tic 
8 
oc 


INVALIO TIO WN CCOES. 


ALC 
Tro 
8 
oc 


acc 
Tic 
8 
oc 


ALC 
T10 


oc 


BCZYeNO19 
HOCOO.xX* 408 
ERIS 
CLELIO OF 


SCZ oNO1S 
HOTOO. X43 
€R14 
CLE*LIC se 


SCZIONOIS 
HOCOOX* 46 
ERL4 
CLE*LIO 6* 


3CZIeNOIS 
HOO0O.xt47* 
ER14 

CLE TG 78 


3€29.N019 
4 OoKCATE 
ErR14 

CLEe*riI9O 1° 


3CZ)eNCIS 
$4Oex8 448 
ERLA 
CLE*TIO 4* 


3€Z) eNO19 
H+ A KPaS? 
ER14 

CLE*Tio =¢ 


SENSE I/7C CODES. 


‘e nat ae fiahee. gn - 5 ie 7 < 2, mie oh Yee 


a PP pelagic Sace-® See me 


PART NOe 


PAGE 


PRINT REST OF INSTRUCTIONS. 


OPERATOR HALT -EE~e 


REPEAT IF NO SYSTEM RESET. 


INCR RETURN ADDRESS. 
N = Oe 
BRANCH IF CMND ACCEPTED. 


IRCR RETURN ACOPESS. 
N = Ge 
BRANCH IF CMND ACCEPTED. 


INCR RETURN ADDRESS. 
N = Ve 
BRANCH TF CMNO ACCEPTED. 


INCR RETURN ADDRESS o 
N = Oo 
BRANCH IF CMND ACCEPTED. 


INCR RETURN ADDRESS e« 
N = Be 
BRANCH IF CMND ACCEPTED. 


INCR RETURN ADDRESS. 
N = 6e 
BRANCH IF CMNO ACCEPTED. 


INCR RETURN 4DORESSe 
N = Ve 
BRANCH IF CMND ACCEPTED. 


INCR RETURN ADORESSe 
N = le 
BRANCH IF CMND ACCEPTEC. 


INCR RETURN ADDRESS. 
N & Ge 
BRANCH IF CMND ACCEPTED. 


INCR RETURN ADDRESS. 
N= Se 
BRANCH IF CMND ACCEPTED. 


PROG I0 
PAGE 





EE cr RI EAH Hi 


ip 


oO 


. 164 MAINTENANCE DIAGNCSTIC PROGRAM | PART NOe. 5558821 
G PAGE OA 
eo 3743) FUNCTICN TEST WITROUT THE WRAP CONNECTOR 

“ ERR LOC OBJECT CODE ADOR STMT SCURCE STATEMENT 

: 1057 : 

131£ OF 01 9003 280A 1058 ALC = 3C ED oNDLO INCR RETURN ADORFSS « 
I31E C1 46 132F 10£9 TIO «#4 AL KORG N = 660 
C131 co e7 1378 1060 8 ER14 BRANCH IF CMND ACCEPTED. 
1323 E2CSDESOFE 1327 106i oc CLE*TIO 6° 
1062 
€* 1326 0& 01 ©0903 18¢a 1063 ALC 9-30 2D eNEIS INCR RETURN ADDRESS. 
132E C1 47 1332 1064 VIC 9444x8078 N= 7. ; 
1332 CO e7 1378 1965 8 ER14 BRANCH TF CMND ACCEPTED 
€: 1336 EsesDEaor7 133A 1066 De CLE*TIO 7° 
1067 
- 1968 * INVALID £10 N CODES. 
{2 1338 OE of 0003 18D 1969 ALC =. 30 29 oNO18 INCR RETURN ADDRESS. 
1341 F3 45 00 1070 SIO = x CO XERS? N = Se 
1344 CO 87 1378 1071 8 ER 14 BRANCH IF CMNO ACCEPTED. 
C3 1348 Ezcspeacrs 134¢ 1072 oc cLS*SIO S* , 
1073 : 
1340 OE 01 6003 18D8 1074 ALC —- 342) NOTE INCR RETURN ADDRESS~ 
€3  13€3 F3 46 00 1075 SIC KP CO" xP HEF N= 6s 
1356 €O 87 137E 1076 8 ER14 BRANCH IF CMND ACCEPTED. 
125A E2CSDEROFE 135E€ 1077 oC cLS*°SIC 6° 
€3 1078 
135F OF 01 0003 18D8 1079 ALC =- 30.2) NOLE INCR RETURN ADDRESS. 
13€= F3 47 CO 1080 SIC =X" 004. xeaTe N= 7. 
€  sy3€8 co 67 1378 1081 8 ER16 BRANCH IF CMND ACCEPTED. 
136C E2CSDE40F7 1370 1062 oC cLE*SsiO 7 
1083 
€} 1371 o¢ 03 90u3 1900 1084 PUTBAK MVC 9 3( 4) WORK RESTORE BOTTOM CORE GF OCP. 
1377 CO 87 0216 1085 8 LINK RETURN 76 OCP. 
1086 
€& 1087 ® ROUTINE 1€ FRKCR MESSAGE * 
1086 
1378 3€ ce 1806 1089 ERI6 =A NOC6 ARR 
C5 s-:27F 36 08 1386 1090 " $t 445.ARR 
1383 Oc 04 1E5¢ 0090 1091 MVC -FLWNG(E). 8—# STORE FAILING CMND [0-. 
_ 1389 0C 23 IF 1z 1£5C 1092 MVC —- FRT-55(36) eFLWNG SET UP ERRCP MESSAGE. 
€ i: 138F Oc OO ICES 1EES¢ 1053 MVC - THO-101) oFLWNG 
IPSS OC CB IFLA 1CEE ~ 1094 MVC —- PRT-470995THD 
1398 CO 87 O2iA 1095 8 PRINT PRINT ERRGR MESSAGE. 
€> 139° ce 139F 1096 ee xLisc2¢ 
1340 SB 1300 1097 pe ILieg1e 
13A1 1F49 13A2 1098 oc ALZ(PRT) 
& >  13a3 4019 13A4 1059 pc XLE*@01s¢ 
13AS OC SA 1F4G 1F4A 1100 MVC =—- PRTA91D PRT CLEAR PRINT FIELD. 
13AB CO 87 1709 1102 8 MAFS POINT TO MAP CHART. 
G3  13aF 9cs3 1380 1102 oc XLZ*9052° —PAGE 905. ENTRY 3. 
1381 Co 87 0222 1103 8 HALT ERROR HALT —19-~6 
13BS 4015 1386 1104 pc XLZ*4015¢ 

€} 1387 ce a7 1371 1105 B PUTBAK GO RETURN TO DCP. 
© 
© 
6 
© 
© 16AUG74 iSNCV74 PROG ID 401-1 
e* NO. €28765 824870 PAGE oA 
& 





Nie hele Ysa d's: Cp, SS apa lanl Danka 8 9 
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TEM MAINTENANCE CIAGNCSTIC PROGRAM 


Se 
#011 32741 FUNCTION TEST WITHOUT 
ERR LOC OBJECT CODE ADDR STMT 
a 1107 
1108 
1109 
C 1110 
ata 
. - anae 
Cc 1113 
2114 
= 1115 
f 1126 
1317 
1116 
c 13B£ 36 08 1800 2119 
1ZBF 34 CE 13CE 1120 
: 13C3 OC 01 1€3C C000 1122 
£ 13¢9 3€ Of 18D2 2122 
17C0 34 Of 13D€ 1123 
13D OC 01 163€ 0000 1126 
€ 1307 3€ 08 18D0 2125 
1302 34 O& 1364 1126 
7 13D0F OC 00 13F6 CO00 1127 
go I3EES 3€ o& 18D0 1128 
13E9 34 Oe 1487 2129 
: 1130 
€ 13ED CO €7 021A 1131 
13F1 2 13F1 2132 
13F2 OC 13F2 1133 
€ 13F2 1€72 13F4 1134 
13F5 4000 13F6 12135 
ve 1136 
C 13F7 32D 03 0A03 2137 
13F@ F2 01 OC 1138 
; 13FE OC OA 1F04 1AAE 1139 
ie 1404 OC OF 1F1E 1ABF 2140 
140A 3C 04 OAO3 2241 
ie 140E F2 01 06 2142 
€ W415 OC 12 1F12 1006 1143 
1417 30 05 OA03 1144 
2 1418 F2 v1 06 2145 
& 141E OC CE 1F06 18CA 1146 
1424 CO E7 18A7 1147 
1148 
c 1428 C2 02 1F06 1149 
142C 3D 05 CAO2 1150 
1430 F2 01 07 1251 
€ 1433 C2 03 1900 21152 
1427 F2 €7 04 1253 
343A C2 01 1FIA 2158 
€: 1255 
143E OC 0S 1F03 10¢9 1156 
‘ 2444 30 0S OA03 1157 
e 1448 F2 e1 06 1158 
1448 OC 09 1F17 1CFF 1159 
Pe 14£1 CO e7 189C 1160 
‘ 1161 
1455 OC OF 1F06 ICFE 1162 
145P 30 05 003 1163 
{ 145F F2 1 CE 1168 
14€2 OC OF IF IA 1CFE 1165 
4 1468 CO @7 18A7 3166 
i. 1167 
146C CO 87 16€! 1166 
s 1470 163E 1471 1169 
e 1472 CO 8&7 189C 2170 
147€ CO e7 1€3F 1173 
147A OC 06 LEFS 1010 - 2172 
4 1480 CO &7 18A7  4ay3 
3488 CO e@7 0000 1178 

C 

Date 1 €AUG74 1SNCV7S 
an NOe eG247€5 €20e70 
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av pov Sessa oeenenemananenememmeteenammeccmnesinmmr samme tmeaiasmaaiasa —— 


THE WRAP CCNNEC TOR 


SOURCE STATEMENT 


PART NOe 
PAGE 


5858421 
20 


SEERTASEAOSNADSESESSRKS SEE SESESESESAS KE SEA ASE SHRERKRVASH SVS SERS SHEKESTHKSEKVASSSS 


®@ SNSERR & 
SRESKSEKAAAKE 


e#ee ne ane ne 


e 

SUBROUTINE PRINTS SENSE ERROR HEADING 2 
AND OUMPS STATUS/ZERRORS OF THE REGISTERS. ® 
CALL SUBROUTINE BY - : * 
* 

8 SNSERR * 
oc 2eX*EXPECTED PATTERN® * 
oc 2eX* ACTUAL PATTERNS 2 
oc 2eX*ERROR 10° s 
* 


TRESESESNATESSH ST SEEKS KS GES EL EE EKRERES SE SVRK KIESTSS SSESLELS SEKSEVESCHSEKES SAS SS 


SNSERR A 
st 
eve 
A 
st 
M¥vC 
A 
st 
avec 
A 
ST 


8 
oc 
oc 
oc 
SNRID DC 
cur 
INE 
ave 
«vc 
cur 


avec 
cur 
INE 
avec 


LA 
cur 
JNE 
ta 
NORM LA 
avC 
cur 
JE 
avec 


mvc 
cur 
JE 
ave 
8 


8 
oc 
8 
8 
“vc 
e 
ERSN s 


NOO01,.ARR 
84S ARF 
XPT( 2) -%—2 
NOCO2eARR 
%4+S.APR 
ACTC2) 48 
NOC1. ARR 
#+S-ARR 
SNFID(1).e—*# 
NOO1.ARR 
ERSN43 ARR 


PRINT 
xLi*c2e 
Taita2e 
AL2(SNCKMS) 
xLzZ°a000° 


RTAs.xX*O3* 

#e1S : 
PRT-69(11) eSTLCR-22 
PRI-£6(1E} -STLCR-5 
RTK#.K* Oat 

BOG 

PRIKE5T12) eLOTRE 
RTNH.X*OS* 

#45 

PRIT-670153 -—DIAG 
EPENT] 


PRY-67 5. xXR2 
RTHRBeX*OS® 
NCENM 
WORK o XRE 
+7 
PRI~&7—oXR1 


PRI-70€10} -E82 
RIA. X*OE* 

#eg¢ 
PRT-S50(10) EBL 
EPENT1I 


PRI-67€15) «BITS 
RTN#eX*CE® 

eg 

PRI~47(15) BITS 
EPENT]) 


BITSNF 

AL SCACY) 

EPENT! 

CMEARE 
PRI-84(7) eERORS 
EPENT2 

t-2° 


STGRE EXPECTED PATTERNes 
STORE ACTUAL PATTERN. 


STORE ERROR 10. 


STORE RETURN ADDRESS- 


PRINT ERROR HEADING: 
ID —4C03-— GR ~£004- GR ~@005-. 


FROK 
JUMP 
LOAD 


RYNOS ERROR ? 
tf NOT. 

RTNOS ERROR MEADINGe. 
FROM 
JUMP 
LtGaD 
FROM 


RIYNO4 ERROR 7? 

IF NOT. 

RTNO& ERROR HEADING. 
RTNOS ERROR 7? 

JUMP IF NOTe 
LGAD RTNOS ERROR 
PRINT HEACINGs 


HEADINGS. 


INITEALYIZE OUTPUT 
FROM ROUTINE OS ? 
JumP IF NOT SOs 

SET UP OUNMY EB1 FIELD. 


ADDRESSES « 


SET UP NORMAL EB1 FIELD. 


ARRANGE TABLE HEADINGS. 
FROM ROUTINE 05S ? 
SKIP IF SOo 


PRINT EB BYTE LABLES. 


ARRANGE 8IT LASLES. 
FROM ROUTINE OS ? 
SKIP IF SOe 


PRINT OBIT CABLES. 
CALCULATE STATUS OF ALL ACTUAL BITS. 


GO PRINT ACTUAL STATUS- 
FIGURE ERROR BITS. 

MOVE IN ERROR LABLE>s 
PRINT ERROR BITS. 
RETURN TO ROUTINE > 


eeoaeeooc O° 


a 


PROG 1D aci-1 
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oO 
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O 
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401% 


“ERR LOC 


14€8 
148¢ 
1490 
14¢6€ 
149A 


149E€ 
t4A8 
1SA7 


14AE0 
14681 
14aB¢ 
148¢é 
14e7 
14ES 
14e€e£ 
14BF 
14¢2 
14¢8 
14CCc 
14CE 
14CE 
18D9 
18aCC¢ 
14£2 
14té 
14ES 
14EF 
14F2 
14F7 
1SFA 
1aFE 
1801 
18C? 
1S0CcC 
isai 
1517 
151C 
1621 
1S2s 
182¢ 
1€2c 
1832 
YESE 
31S3c 
1540 
1644 
1548 
154C¢ 
LEAE 
isf2 
18€e 
iSSE 
15€2 
1£€8 


186C 
1872 


DATE 
EC NOe 


3741 FUNCTION TEST wiITKOuUT 


OBJECT CODE 


3¢é 
34 
oc 
3€ 
34 


F2 
co 


oc 
co 
c2 
1é 


os 
ce 
01 
oe 
os 


o1 
o1 
87 


oo 
av 


1BEO 
“4000 


3e 
F2 
oc 
30 
Fe 
oc 
20 
F2 
oc 
3c 
Fe 
oc 
co 
30 
Fe 
3D 
F2 
oc 
oc 
co 


oc 
<0 
c2 
c2 
F2 
oc 
co 


co 
c2 
c2 
co 


Ft 

02% 

10 
F2 
01 

oF 
F4 
C2 

14 
FS 
ot 

10 
e7 
F2 
#1 
FS 
e1 

os 
09 
a7 
o€ 
OE 
ar 
O82 
01 
e7 
0s 
87 


€7 
ot 
c2 
e7 


1917 


co 
oc 
oc 
co 
oc 
co 


OF 
co 


e?7 
91 
03 
e7 
o6 
e7 


01 
e7 


28600 
1aseé 
1916 
21800 
I4AA 


29:7 
04 
0000 


18EA 
O21A 


ws3e 
cé 

tFi2 
aci1e 
o€ 

2FO? 
21918 
ce 

41Ft3 
2916 
o6 

1FO7 
TGA? 
2918 
32 

1918 
2e 

1FO3 
3F27 
1e9¢ 
tFOE 
IFLA 
18a7 
1FOoE 
IFLA 
ac 

1FO3 
1869C 
1FOE 
teary 
2FO06 
1$00 
ice 


189C 
263C 
163€ 
1e3F 
1eFs 
18A7 


14AA 


14a7z 


2€AUG74 
e2a7€s 


0on°0 


1939 


891A 


19ec 


1ABF 


1aece 


180C 


1909 
icre 


icCFEe 
tcFsS 


1crF 


1cFs 


1919 
1917 


1910 


1ace 


ADDR 


1485 
1486 
tera 
t4BA 


154D 


ISNCV7S 
e24e70 


stmt 


2176 
41177 
1178 
£179 
2180 
t181 
2182 
21a3 
3184 
4318S 
1186 
1487 
41188 
1is9 
1190 
£299 
2192 
8193 
arGa 
1195 
196 
1197 
1198 
1199 
8200 
2201 
1202 
1203 
1204 
1205 
1206 
1207 
3206 
1209 
1210 
4211 
12%2 
2213 
1214 
22135 
1216 
1217 
1218 
2219 
1220 
8221 
1222 
1223 
1224 
{225 
1226 
1227 
2228 
1229 
1230 
1231 
3232 
1233 
1234 
1235 
1236 
1237 
41238 
1239 
1240 


TEM MAIARTENANCE OTAENCSTIC PROGRAK 


THE WRAP CCNNEC TOR 


SOURCE STATEMENT 


PART NOe 
PAGE 


$$58421 
1OA 


@SVHSSETHKGS S VSS SHS STHKA SLE SELS HEE SSEEHKEKEE MK VS SVSSOSKESLSESESCS KV SS CHESS SK 


* LIOSNS *¢ 


2 
SECURES BE THE EXPECTED AND ACTUAL SNS PATTERNS * 
* ARE COMPARED FROM ROUTINES 07-0EF. * 
* * 
KCTS EAMSKASR KF RE SSSEBDVSSKSEKSSSESSSEVE SCHL HESKSE CEST EKTESESE SHE ESSEHOHSEOSEESESES 
LIOSNS A NOO?cARR 
St %+G5.ARR 
M¥C 8 NIC(2) 99-4 SAVE THE N CODE. ERROR {De 
& NCO1eARR 
st CKKLS43 ARE SAVE RETURN ADDRESS « 
CLC LSCKC 2) ePATRN EXPECTED AND ACTUAL EQUAL ? 
SNE 87 JUMP IF NOT. 
CKKLS @ a-9 RETURN TO ROUTINES 
MVC = LSID( 1) oF TD—2 STORE CURRENT ERROR 00 
8 PRINT PRINT ERROR HEADING. 
oc xLifc2e 
oc ILitze9 cubis 
oc AL ZCLSCKK) eo 
tsip oc XLZ*a00n2——— 
+ - — CiE- NYE OF Le N CODE 1 CHECK 7 
JNE m9 JUMP TF NOT. 
MVE 8 =—- PPT-550173 FNCT MOVE IN N 1 IDe 
CLE NICSX*F2* N CODE 2 CHECK 2? 
JNE 49 JUMP IF NOT. 
MVC) = PR T-66. 016) -STLER-5 MOVE IN N 2 ID. 
CLI NECexXtFe® N CODE 4 1D 2 
JNE €¢5 - JUMP IF NOT. 
MVC = PRT-£4021 3 ADR MOVE IN N 4 TDe 
CLI NECS XFS? N CODE S CHECK ? 
INE 46 JUMP IF NOT. 
AVC =—- PRT- 66017) .DIGTR-5 MOVE IN N 5S ID. 
3 EPENT2 PRINT HEADINGe 
cut NIC »x*F28 WN CODE 2 CHECK ? 
Je SPL2 JUMY IF SO. 
cut NIC eX*FS® N CODE S CHECK ? 
JE SPL2 JU¥P IF SOe 
MVE = PRTY-704102 -€B2 SEY UP BYTE LABLES. 
“VC = PRT~S0€10) »E81 . 
8 EPENTI PRINT SYTE LABLES. 
MVC 3 =- PRT- 67045) s29TS SET UP BIT LABLES. 
_WVO = - PRT-47€15) .BITS 
8 EPENT2 PRINT BIT LABLES- 
ta PRI—67 oXR2 LOAD OUTPUT ADDRESS » 
La PRT—470xR1 
J CALC 
SPL2 MVC PRT-79€10) E81 
8 EPRNTS PRINT EG1 HEADING. 
MVC = PR1-67015) BITS 
8 EPENT2 PRINT BIT HEADINGS. 
La PRI-67-XR1 STORE OUTPUT ADDRESSES. 
LA WORK oXR2 
calc B BITISNF CALCULATE BIT STATUS OF SYTESe 
oc AL ZELSCK) 
8 EPENTE PRINT BIT STATUS. 
MVC XPTC2) ePATRN STORE EXPECTED PATTERNe 
MVC ACTC2) cL SCK STORE ACTUAL PATTERN: 
e CMFARE CALCULATE ERROR BITSe 
MVC =—- PRT- 8407) sERORS MOVE ERROR LASLE INe 
8 EPENT2 _ PRINT ERROR BITS. 
ADDIT ALC CKKLS*#3(2) NO04a INCR RETURN ADDRESS YO PRANCH 
e CKKLS TO ERROR HALT IN ROUTINES 
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TEM MAIRTENANCE DIAGNOSTIC PROGRAM PART NGe 5558421 _ 16M MAIATENANCE DIAGNOSTIC PROGRAM ~ PART NO-. 5558421 
PAGE 1% €> d PAGE 1A 
4o1l 3741 FUNCTION TEST WITHOUT THE WRAP CCNNECTOR ns 6C11 37412 FUNCTION TEST WITHOUT THE WRAP CCNNEC ICR 
%.7 
ERR LOC CBJECT COLE ADDR STMT SCURCE STATEMENT ERR LOC OBJECT CCOE ADCR STMT SOURCE STATEMENT 


1242 ERKCERSEDLRSAERAERES HS ARLHECHESGASTATRE AAS SLE ELAS KEKE LSS’ SAESSESSPAKT ARATE BS 


4306 ERKECEAEHSS ERNE EEEEEEE SE ORTTEREG EAS ERAEEDEE SEBS SS GELRESLERSESSRSAEEHESESOSSE SS 


1243 ® STIGHO * * 2307 * CMPARE * * 
7 1244 S4844R86R TEST KEADINGS AND ERROR MESSAGES s 136 S3*Saa2Bau EXFECTED €81 & EB2 BYTES IN "XPT? ARE * 
f 1245 * ARE PRINTED FOR ROUTYNES OD — 236 * ©} 1309 * CCWFARED AGAINST ACTUAL EB1 € EB2 BYTES * 

1246 © : * 1310 * IN SACT*. ERROR BITS RARE IDENTIFIED BY s 
1247 REKRAEAEARREREKE SHES ELAALERHESLTRAE RATE AAA HRS KERR ERERRESAKLASETAEKEDES TSS | 1311 © A -®- IN TEE CUTPUY AREA. * 
1576 34 08 1S7F 12@8 SIOHD ST #45 0ARR GS I3i2 * 2 
iS7A OC 00 15AE 0000 1249 MVC SICC1 304-9 STORE MESSAGE MEADING iDe L3LD EVPHEDTHRE TD HBHS FOHEDORARFSRSESESAAEGERSAR IHRE AHTARERTSHSEKSHASHE REESE RSD 
1580 3€ 08 18C0C 1250 A NO2S.ARR i628 0500 163C 2314 xXPT DC XLzZ*coo0o0? EXPECTED E81 & EB2 BYTESe 
15€4 34 08 158C 1251 st #460 ARR Cc 163£ 0000 I163E 21225 act oc xXLzZ*oCco?® ACTUAL F@1 € EB2 BYTES. 
15€8 oc 1C 1F1B cCOood 1252 MVC PRT—-4E6 025 369-% STCRE ROUTINE MEADENGo 1216 
1S8E 326 08 18600 £253 A NOCY ARR 2 163F 34 08 169A L=17 CMPARE ST CMER4¢3eARR STCRE RETURN ADDRESS 
1662 34 Cé@ 1SAF 1254 ST SHOD4346 ARR STORE RETURN ADDRESS. i 16463 34 02 16D2 i3tea ST TAERR4+3.XRZ INETIALIZE OUTPUT ADDRESSES. 
1255 1647 36 O1 167A 2339 st VRERR43 exF1 
1S5SE€ OC OF LEFE 1C€21 1256 MYC PRI-75(16) oTS1C BUILD UP REST OF BEADING. 2» 1648 3C 01 16€4 1320 MVE TAZ LT eX*OR® INITIALIZE BIT POINTERS. 
1£©S6C CO €7 O2Z21A 1257 8 PRENT PRINT ROUTINE YEST HEADING. fe 164F 3C OL 1€6€ 1321 MVI TAZ+LOK*CL® 
15A0 a€ 15A0 12586 oc XL1°45¢ 16E3 3C 01 1675 1=22 MVE TALI ¥*O1* 
1EA1l 5e 15A1 1259 oc 1wis9re le t€67 3¢C 01 167C 1223 “avr THI4TeX*D2* 
15a2 1F 4S 15A3 1260 Oc AL 2CPRT) € 16£B 3C 01 1683 1324 “avI TSE242,%*61* 
15A4@ 4000 15AS 1261 S10 oc XLZ*4C006! 165F 3C O: 1680 1=25 MYE THIL*T Ke OL* 
15A6 OC SA 1F4&9 1FAA 1262 MVC PRICGLIY.<PRI+1 CLEAR PRINT ARERe i326 
18aC CO @7 CO00 1263 SHOD a s-—% RETURN TO ROUTINE cc 16€23 36 01 1¢38 1327 Tas TAR KEI-1exK*OR © EXPECTEO BIT Off IN EL? BYTE 7 
1264 1667 F2 10 OA 1228 JT Tal JUMP IF YES. 
1265 * ROUTINE S0~-12 ERROR VESSACE & ie 166A 38 61 1€3C 1329 TA2 TEN ACT-1—X*O1? ACTUAL BIT ON IN E82 BYTE 7 
. 1266 c. IGEE F2 10 SE 3330 JT TAERR GO PUT AN ~%— IN OUTPUT TF ONe 
1580 34 08 1585 1267 CKSIO Sst #455ARR 1671 ©2 87 OF 1331 J Bz CHECK E81] SYTE. 
1£848 Oc 00 1504 0006 1268 mvC SERIO( 1 ee 8-* STORE ERROR 10. 7 13352 
- 1SPA BE OL 1800 1269 A NUCL e#RR Cc 1674 38 Of 1630 1233 Tai FON ATT—1eR*O1* acTuset BIT ON IN EB2 SYTE ? 
1SBE 24 O08 1€3A 1270 st CKS4#3.ARR SYCRE RETURN ADDRESS. 1678 F2 90 S& 2334 JF TAERR GO PUT AN -*—- IN OGUTPUT IF OF Fe 
1271 . 1336 
\ isc2 OD CO 191C I18FE 1272 CLC KOCTCLIDTR-i EXPECTED AND ACTUAL EQUAL ? IE7VE SE O12 2E3C 4325 B83 TEN XPT. K7038 EXPECTEC GIT CN IN EBL BYTE 7? 
15¢C8 F2 81 6C 1273 JE cK JUMP TF SOe 167F F2 10 GA 1337 JT 761 JUMP IF “Oe 
; 1274 : 1682 Fe O1 1€3€ 1338 Tee TEN ACT< KOR S ACTUAL BIT ON IN E£B1 GYTE ? 
: 15CB CO E7 O21A 1275 B PRINT PRINT ERROR HEADINGS €. 168E€ F2 10 4E 1339 JT YBERR GO PUT AN -4#~ EN GUTPUT IF SO. 
IsScF C2 SCF 1276 oc xL1°C2° 3689 F2 e7 C? 1380 J T¢ CONTINUE ANALYSIS 
1=00 16€ 1500 1277 oc Iwit22¢ 134% 
ISCl 2£C24 1502 1278 oc AL2¢SINCKY €3 168C 28 01 1€3€ 1282 TBI TEN ACT »x*or? ACTUAL 81T ON IN EBL BYTE 7? 
1503 6003 1504 1279 SERIO oC XLZE*40052 166C Fe cO a4 ~ 1343 JF TBERR GO PUT ar -%- IN GUTPUT IF OFF. 
1280 13464 
ISCE OC EFA 1F 4S 1F 4h 1261 MVC PRTCOLI ER T+ C 16S$3 38 €0 1680 12745 TC TEN TBI4i.x7e0* RIT © BEEN TESTED ? 
ISCR OC O£ 1FO06 18a 1282 wavC PRY-C67ULE) sOTAG BOVE IN DIAG BYTE LABLEs ° 1667 ¢€O 160 cooCc 21326 CAPR BY 4 RETURN IF SOe 
1SE1 CO €7 18A7 1283 2 EPENT2 PRINT LABLE. sc 16SB OF OO LETTE 1675 1347 ALC TALTLCL Pe TALFL INCREMENT BIT POINTERS. 
ISES OC O09 1FO2 1D05 1284 MVC PRY-70(10} EB2 PRING IN EBO LABLEe a 1GAi OF GO 1668 1666 1348 ALC TAZTIC1} se TAZ! 
ISEB CO B87 189C 1285 8 EPENTI PRINT LABLE. 1647 OF OO 1664 1646 13249 ALC TAZO1{61 22 TABS 
t£EF OC CE IF CE 1CFE 1286 RYE PAT—~67 (1E VeBITS MOVE IN BIT NEADINGSs 1 I6AC OF OO 1686 168eL 8350 ALC TH141013+ T8142 
ISFE CO 87 1847 1287 8 EPENT2 PRINT HEADINGS. C. 2683 0& CO 1663 1682 1351 ALC THE+i CL). TE22 
1288 1689 OF 00 267€ 2167C 4352 ALC TB32¢101).T2341 
1SFG C2 OP 1FO0€ 12a9 LA PRY—-67 eXF2 LOAD OUTPUT ADDRESSES. oo WOEF OF OF 1602 1802 1353 Sic TAERRG 312) NOOO] CECREMENT OUTPUT ADORESSES. 
1SFC C2 01 IFA 1290 LA PRT—67 oXKi t. ZECE OF O1 160A 1802 3354 SLC TEERR+2122.ND02 
1601 CO &7 1661 1291 e BI VSNF CALCULATE STATUS OF ALL BiTSs 16CE CC &7 2E43 1355 8 TAR GG CHECK NEW BITe 
TECE 1OFC 1606 1292 oc AL Z(DTR) 7 1354 
1607 OC OE IFLA 1F18 1293 MYC PRI~4701£) PRI-46 CLEAR EBi STATUS. € 1éCF 3c EFC 0000 2357 TAERR KVE - 9, N°EC PUT ~t- IN EB2 OUTPUT. 
1600 CO @7 189C $296 8 FPEWTI PRINY B17 STATUS GF DIAG BYTE. i1¢03 CO 87 1678 13586 8 Tez CONTINUE CHECK. 
1295 = 1607 3c SC G006 1259 TRERR MMVI F—BeKROEC! PUT -—@- TN EB1 CUTPUT. 
1611 OC OO 1638 191¢ 1296 MVC XPT-102) oXPCT STORE EXPECTED PATTERN. C 16Ce CO ea? 1693 1360 3 TC CONTINUE CHECK 
1617 OC O1 143E 18FC 4297 MYC ACT(2).07R SYGRE ACTUAL PATTERN.» 3361 
161C CO ev 1€3F 1298 8 CME ARE CALCULATE ERROR BITS. L362 ®FUAOHHETANHSS ISG TS WWSO HS LRKAHHESSKVS CHAP! PAMCH SK AFS AS AARREKL SRE BAS TB 
1621 OC O€ iFFS 1010 1299 Mvc PRT-284(7} sERORS MOVE IN ERROR LABLE. 9 1363 %* BITSNF *% 2 
Y6O7 CC OF IFLA LF 1B 130c MVC PRT-S7 C153 -PRT-as 1364 thane aseas THE £G¢ & €B2 EYTES ARE CONVERTED % 
1620 CO @7 18A7 4301 B EPRAT2 PRINT ERROR BITS. 1365 & TO & PRINTABLE BINARY FORM. * 
1302 2 1366 * 
16321 OF O01 1EBA 180€E 1303 ALC CKS+3202) eNO04 TNCR RETURN ADDRESS TO RETURN LAG BARHTKSE LESS IRSAHR SA HKKL ALS HKSAPSSFLITHK VMS SAUHKVSHSHBRSEKCRES SKLVAVTFS VHRR EKSE LAS 
1637 CO 87 0000 1304 CKS 8 a % YO ERROR HALT. 160F 00 i60F 1368 EF2T DC m21°008 TEMPORARY STORAGE FOR ES? 6 EBL 
Cc 16E0 00 16EO 1369 EBIT oc KLitO08 BYTES. 
2370 
16E1 3€ 08 1806 2371 BIYSNF A NOCI.LARR 
€) 16E£ 34 c& 16EE 1372 st +5. ARR 
16E9 OC O1 16F4& OCOO 1373 BYC 941902) 8-8 
i *) - 
OATE 1EAUG7T4 1SNGV74 PRGG 10 aOi-?! DATE 1#AUG74 ISNCV7SE PROG 0 ao0i-1 
EC NOw OZa7E® 824870 PAGE £1 EC NO. 824765 224870 PAGE 1a 
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IBM MAINTENANCE DIAGNCETIC PRCGRAN 





: PART NOe 5558821 TBM MAIATEKANCE OLAGNOSTIC PROGRAM PARTY NOe 5558421 
c PAGE 120 «€? . PAGE 12a 
6012 3741 FUNCTICN TEST WITHOUT THE WRAP CCNNECTOR ar 3741 FUNCTION TEST WITHOUT THE WRAP CCNNEC TOR 
. 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT " ERR LCC CEVECT CODE ACDR STMT SQUPCE STATENENT 
: I1GEF OC 01 16E0 0000 1374 MVC EB1T(2).%<% STORE EBL & EB2 BYTES. Cc i788 CO 67 CAI} 1442 8 BEGINN TELL TO DO SYSTEM RESET. START. 
16FS 2ZE CE 18D0 1375 A NO01 6 ARR 1443 , 
16F9 34 08 1740 1376 sv¥ BIKF4+3 ARR STCRE RETURN ADDRESS. I?7BF CO &7 O21A 1864 TICERS 3 PRINT PRINT 3741 IS BUSY ERROR MESSAGE> 
16FO 3C C1 170€ 1377 mvI TNF41—eX°O1* INITIALIZE BET POINTERS. { 17¢3 C2 17C3 1485 Dc xLartcoe 
1701 3C 01 1724 1378 MVI TNEF +t eo X*O1° 17¢4 OD 87C4 1446 ec Wiese 
‘a 1705 34 02 1722 1379 st NF43-eXR2 INITIALIZE OUTPUT ADDRESSES. wii S7Cf 1CA0 17C6 14467 pc ALZ(HUSS YD 
€ 1706 34 01 1738 1380 st NEF43eXR1I i? %17C? @002 17c68 1438 pc xt Z*a0028 
1261 a7C9 CO e&7 17D¢ 1449 e @aPSs POINT TG MAP CHART. 
170C 38 00 16DF 1382 TNE TEN EBZT.x*00# THIS BIT ON IN EB2 7? : 17CE e721 I7CE 1450 oc ML Z*e722° —“PAGE 872. ENTRY te 
1711 F2 10 07 1383 JT ITSON JUMP IF SOs f° 17CF CO B7 0222 205i 8 HALT ERROR HALT —-G2-6 
1714 3C FO 1720 1364 avi NF ene x*FO? MOVE IN & Oo i702 4002 a7D% 1452 cc xLZ*°8002° 
1718 F2 87 048 1385 J NF «70S co e7 O21€ 1453 8 aIAK RETURN TO OCP. 
1718 3C F1 1720 4386 ITSON MVE NF OE  KOF DS MOVE IN A te © 1658 
171 3¢ 00 0000 1387 NF MvI ~8.X*200° PUT 170 IN OUTPUT. 1255 CHEFS OORtRES OFS OF EEESEEESESTESSESESSESEETS SHEET SERESES SEL ASEEESESE SESE TH 
1388 1456 * MAPS ®& * 
1723 38 Co 16€¢ 1389 TNFE TBA EB1IT.xK*O0G* THIS BIT ON I EBt 2 G 1457 S280utte THE MAP CHART REFERENCE 1S PRINTEDe CALE + 
1727 Fz2 10 O07 1390 st QTCN JUMP IF SD. 14568 SVEROUTINE BY — * 
: 17Za 2C FO 173€ 2391 “VI NEFF Ee XP FOS MOVE IN A Oo 1459 @) * 
it 172E Fe e7 04 12392 J NFE © 1a60 8 8 maps * 
1731 3c Fl 1736 1393 ITON “VI NEFCL exer ae MOVE IN A le 1461 © cc XLZ2°*ESGE NUMBERSENTRY NUMBER ® * 
7 173€ 3c 09 0000 13904 NFF ave @-#_,X*009 PUT £70 IN OUTPUT. 2462 % % 
eo 1295 e 14663 EROSESERES HENGE 94259SSEBAIRRERESSEKTAERERES TON SSEHETKES SKKEECE HE SER SREEES F 
173¢G 3e BO 170E 4396 TaN TNF4E KE? CHECKED SIT © 7? 1709S 38@ O08 18FE 1464 MAPS st TENE ARR STCRE THE ARR. ; 
Fr 1730 co 10 0000 41397 SYNE BT 8 RETURN IF SOs 170D 3© 0: 1eFE 1465 t TEWPeXRI LOAD ARR INTO KRie 
{ 1741 OF 0O IL70E i7OE 1398 ALC YNF4E C1) 6 TAF SL INCREMENT BEY POINTER. Cc IVE 18 02 1088 900 1466 MNZ MAFSS-11 e0C eXRI} STORE HUNDREDS OIGIT. 
1747 OF 00 1724 1724 1399 ALC TNEFSI CLD STNFF OL I7EE 18 03 1049 00 1467 MRR MAF ES—10¢07eXR1) STORE TENS OfGITe 
2 1740 OF O1 1722 18D2 1400 SLC NF 4302) eNO02 CECREMENT OUTPUT ADRS. E7EB 12 02 1C4A 02 14€8 MNZ MAESS—9et€ eXRI} STORE UNITS DIGIT. 
{ 1753 OF Of 173@ 1802 2401 suc NF F4302)-K002 & I17FO 18 02 ICE2Z 02 21469 AB MAESS—1tel CoXRE) STORE ENTRY NUMBER. 
17SS CO €7 1700 1402 8 TRE CONTINUE CHECK. £470 
. 1403 17FS CO 87 0214 1471 8 PRINT PRINT—= GO TO MAP CHAPT XXKo 
C LO0G FEREEEEEESEOEEEEESE SERS EEERES COEF $EOEEESERESERASEEBELESE TERE EERE SEEESED €3 I7FS BE I7FO 1472 ec x1L.2°566* 
: 14cS * QUES * ; P s iv7Fa 22 17FA 1473 oc TLit3ae 
21406 *#e80¢42 SUBROUTINE DETERMINES IF SS¥ 10 ES ONe * iTFB 2ce3 A7FC 1874 oc AL 2CMAPSS? 
C 1407 * « © 1475 
1408 EHERESES ESE REGEEEEEES £44EERERETESETESESESSER OSE ESET SEES ETEKERSERESETAETD 27FC CO 8&7 O02 1476 8 2t ezR19 RETURN TC ROUTINEs 
175C 34 08 1771 1409 QUES St OS43 .ARR ’ STORE RETURN ADDRESS. 1477 
t i7€1 3e €0 O20A 1410 TEN SBYTE26S7010 ss* 10 GN ? ] 1078 €8EREN 9994926 HOES OEESEE 8OETESSEEDES > OE037SHEEEEEEEHE SEES LSESERE SHEDS TE 
IVEE F2 10 OA 2an1 JT ost RETURN TO PRGM HALT IF SOc 1879 * CODE @ ® 
; 1768 OF 01 1772 1804 2412 ALC QS4302) e003 INCR RETURN TO SKIP HALT. 1480 $4288928 TEST FEADINGS ARE PRINTED FOR RTNO7-OE > % 
€ 176E CO 87 0000 1413 OS 8 s-8 RETURN TO ROUTINES S 1481 © * 
1414 LAB2 FHTOKORSNSSEFESEETHS ERHASROEEESSESESCESESESEREAHS ESSHEEGAAES SHS SES ES RE SESE E 
. a772 30 C2 0200 14215 Qst cut X®C200*% «keC2t IS THIS A MODEL *B* SYSTEM ? we 1800 34 oe 1809 £483 CODE st COC+S, ARF 
{ 177E CO O1 176E 1416 BNE os GO DO NORMAL HALT IF NOTe Gs 1804 OC 00 ICEE 0006 14664 cOD MVE THO-10 2d e$—-# STCRE N CODE [065 
277A BE OL 41771 1447 & OS43 oXR1 1808 36 Of 1800 1485 a NGO OLeARR 
IV7E 4C O1 OZ 18FO 1418 avc 20 2eXRE) oHFFFE SET UP MODEL & HALT. 18CE 34 ce 2898 1486 st CCDD4ES e ARR STORE RETURN ADDRESS> 
e. 17e2 CO 87 L76E 2419 8 as NOW GO HALT. © 1267 
£420 wer2 BC Fi 1CES 1488 cur THE-1LexX*FE* N CODE 1? 
LE2QL SREREHEESEEEED SERETSEEERCEE SHEERS ERE EE EEEEE EERE ERAERLRS EE SEERERELEERS SS 2816 CO Of 2824 1489 BNE S414 GRANCH fF NOTe 
C. 2422 * TIOCERK & * eC: 181A OC 10 1F27 198C 1490 wave PRT 34017) o0FNCT LOAD N CODE 1 MSEANTRGe 
£423 Seenesesest SUBROUTINE PRINTS TIO ERROR MESSAGES s 1820 3C 4B 1F26 1491 MVE PRI-33.K*SE* 
/ 1424 *% * 918246 BD Fe ICES 1492 cL TWril—LexX*F 2° N CODE 27 
Cc 4425 EEE EEEEORERNE SESE SEEDS OREEKEEAKEDERERER ES EE FEKE BESTEST HERE ERE REESE FRESE ED c: 1828 CO O01 1836 1493 BNE O16 BRANCH IF NOT. 
1787 CO 87 O21A £426 TIOERD 6B PRINT PRENT 3701 IS READY ERROR MESSAGE > 182C OC 14 1f 28 1ac4a 1494 wVC PRT-30(21 YsSTLCR BRING IN N CODE 2 MEANING. 
. 17eE C2 1768 1427 oc MLAfC2¢ 1622 3C 4@ 1F2¢ 1495 VI PRI-260x"4B6° 
Ee 17eC OF 178C 1428 oc Latiae Q 163€ 30 FS 1CES 1496 cL THO—1eKk*E 2? N CODE 37 
17@D CAE 2178E 2429 oc AL Z(RDY)D 182A CC 01 1e88e 14297 BNE e+14 BRANCH IF NOT. 
17e8@F 4001 1790 £430 oc XiL2*800288 1HB3E OC 11 1F28 LACE 2498 mvc PRI-33012) eFOTRE BRING IN W CODE 3 MEANINGe 
1791 OC 28 iF i? 1&SE 2431 mvc PRIT-£0(0 41) eCNCTR e&: 1@ 64 3c 4B 1°29 1499 avy PRI-32.x°aRe 
i797 CG e7 189¢ 2432 8 EPRNTI PRINT £S CONNECTOR ON ? 1ea¢e 3L FS ICES 1500 CL THO-1 XP FES N CQDE 5? 
1798 OC 24 1FiC 1&C0 1433 MVC PRT—-45 (37 3 eRMOV 184¢ cO O01 185A 2501 ®NE e416 BRANCH IF NOTe 
17A1 CO £7 18A7 2434 B EPENY2 PRINT OPERATOR TO REMOVE 17 IF SOc © 1e50 OC 15 1F 2c 2622 1502 MVC PRT-29(22} e—DIGTR BRING IN N CODE 5S MEANINGe 
17A2 CC 18 LFCF LEDS 1435 wVvC PRY-€€(0 28). EF OFF 1656 3C 4B 8F2D 1503 avi PRT-26.x"ae* 
174B CO e7 Leg 1436 B EPENTI PRINT CTHERWISE > 1504 
' 3437 a 185A CO @7 O21E 1505 B UNFACK UNPACK CURRENT TEST PATTERN 
I7AF CO @F 1709 1438 8 MAFS POINT TO MAP CHART. 16SE 02 185E 1506. pc IL2¢2° 
1782 B702 17B4 1439 oc xL2"*e702¢ “PAGE 870+ ENTRY 2 38SF 19139 1860 1507 oc AL 2CPATRN) 
17e@8 cO 87 0222 1440 8 HALT “ERROR HALT -Ol-e  *, 18€1 109€ 1862 1508 oc AL2CTSPAT—6) 
17BS 4COr 17BA 2481 oc xXLZ*4008 ° ‘ 16€3 OC 27 1F16 1DA4 1509 ave PRI-S1€4C) eTSPAT BRING REST OF MEADINGe 
DATE LEAUGTS 15NCV76 PROG 1D 801-3 © vate LEAUGTS 2TSNCV?S PROG ID 401-1 
EC KO. B247EE £24870 PAGE 12 ~ EC NOs B2a7E£ 824870 PAGE +28 
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TGM MAINTENANCE DIAGNOSTIC FRCGRAN PART NOe 5558421" TEM MATATENANCE OLAGNCSTIC PROGRAM — PART NOe $558421— 
‘PAGE 13 | : PAGE 13a 
4011 3741 FUNCTICN TEST WITHOUT THE WRAP CCNNECTOR prose 3741 FUNCTION TEST WITHOUT THE WRAP CCNNECTOR 
ERR LOC QFYECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
18€S OC C1 169¢ 16F8 1510 CLC) 3 =—s- TSPAT-2(29.C00 LCR OR OTR TEST ? C 1eF7 FOFO 1sFe 1£78 CoO ec cL 2°00° : 
186F F2 01 12 1S11 JNE GOorD JUMP IEF NOT. 18F9 18C2 18FA 1579 INTRS OC AL 2CINTS) INTERRUPT RCGTINE AODRESS. 
1872 OC Of 10A8 109€ 1512 mvc SHCRT-2€2) «-YSPAT-6 MOVE IN SPECIAL PATTERN. : ; 1580 
1878 OC OS 1F121 10AAa 1513 weve PRI-56( 6) » SHORT G 1581 #90499 4029944994 94408 
1814 : 1582 = RESE®YES AREAS * 
187E O& O3 188 OA02 1515 WMNN HONGIO RING MOVE IN ROUTINE ID MEADINGe : 1583 SOSHEAESSSERAEEDLS DD 9 S4DES OS SE 94994094994 SS OEE THTESEDS 94 429098992000 000 
. 18€4 CC @7 O2I1A 21516 GOHD 8 PRINT PRINT HEADINGS FOR RTN 05 - 0Co C: 1e8FE OCOG 18FC 1584 OTR Bbc XLz*ooo0ne STGRAGE AREA FOR DATA TRANSFER REGe 
1888 45 1888 1917 oc xL1*%45°8 18FC 0900 IS8FE 1585 Tee oc XLz*o00¢ i-2 WORD WORKING AREA. 
1889 SP 1889 15138 oc TL2°918 was I8FF COCOOCCTOOCONNADD iS0D 1566 wORK cc. 15xL1*008 WORK AREA. 
186A 1F49 1886 1519 oc AL2CPRT) > 1907 COCOCCCOOCCODO 1586 
188C 40A0 188D 1520 HDNGID OC XLZ*40A08 ISCE OOCOCOODDO00OVNDS 1915 1587 LS oc Bxi_1°*0o0# LIC/SNS STORAGE AREA. 
188E OC SA 1F49 1F46a 1521 “vc PRT(91) PRTF1 CLEAR PRINT AREA. iSté vood 1917 1588 ULSCK oc XL2*0000*% ACTUAL SENSED DATA STORAGE AREA. 
i 1864 Ci 42 17BF 1522 TIC ORCPD.xtaze BRANCH IF 3741 1S SUSY. ©) 1918 0900 1919 1589 PAIRN OC xLz*00008 CURRENT TEST PATTERN STORAGE AREA. 
18¢8 €cO 8&7 0000 1523 cooD 6 2 RETURN TO MAIN ROUTINE. 191A 00 19tA 1590 oC XL3¢0ne CURRENT ERROR 1D. 
. 1524 * 1912 00 £918 1591 NIO NC xL 2°90 CURRENT N CODE. 
‘ 1825 FEAERESRERERESE OEE ESOS 9 SHSERERESERERAEEEEE SERSE SAE HENS ORTEEEEEEREREDNE DRE 3 i91c 00 TSEC 15962 AYPCT pc XL 1°O08 EXPECTED OXAGNOSTIC BYTE. 
1526 * EPRNTX * * 1593 
: 1827 #42440222% CCP ERRCR PRINTING SUBROUTINES. * 1S94 *eenesges 
C 1528 * * © 1595 *® FLAG *® 
1529 SOREEREE DES ASE OASYS YD EEREERERES SERS SHES AE EEE SBEESD EONS ED OEEEEERETE RED 1696 SPEER IS AERERSS ORES S299 989494 RES4SG TOD 2E 899449440098 F8 EEE ERENSEEORKS 
189C 24 08 18C0- 1530 EPRNTI ST PRIT?+3,AER STORE RETURN ADDRESS. 191€ o¢ 1910 {597 EBFLAG oC xLi*ooF EB CYCLE FAILURE FLAG. * 
1@A0 3C @1 1883 1831 avi LINE. x*ere SET TO SFACE 1 LINE & 1598 + Bit # WN CCEE €8 EYTE # : 2 
18A4 F2 8&7 CB 1632 J PRAT GO PRINT. 1599 ® ° 3 2 AN ACTIVE BIT MEANS #8 
16A7 34 O& trAaCcC 1633 EPRNT2 sT ERTT4¢3 eARR STORE RETURN AODRESS. 1600 * 3 i 1 & POSSI@LE EB CYCLE *¢ 
x 18AB 3C 8&2 1883 1634 MvVI CINE.x*e2° SET TG SPACE 2 LINES. & 160: ®& 2 2 2 FAILURE « * 
i635 1602 * 3 2 1 s 
bs 18AF CO 8&7 O21A 1536 PRNT 8 PRINT PRINT THE DATA STORED IN —-PRT~,. 1663 * 4 4 2 2 
4 1882 00 1683 1537 LINE oc XL2°OO# OO CORRESPONDING SPACE OPERATION. @ 1604 * € 4 1 * 
1884 £e 1664 1838 oc ILit*oie 1605 € £ 2 * 
18BS 1F49 18B6 1539 oc ALZCPRT) 1606 # 7 £ 1 * 
18B7 OC SA 1F4S 1F4A 1640 mvc PRT (91) sPRT¢1 CLEAR PRINT AREA. © 1667 SESEESLERLSS PERSE DD 999989499808 SOSSEEEREETEEKE9EDES SE RERTORDERSEREEERES 
18€o Ce &7 0000 1541 PRTT 8 *~t : RETURN TO ROUTINE. 1608 
? 1842 : 1609 
€ 1543 FOS SESERS SEG AESE SS LESS ESSERE TRS HESEEESS 9942 9SREE ESE SENS 8448820004880 E SE © 1610 #442 46499004998¢080 
1544 * INT4 * * 1611 @ MESSAGES * 
' 1845 994444242 BRANCH HERE IF INTERRUPT IS ERRONEOUSLY 2 " 1612 FOES SEROAY LOSES HORS HED SONS SESE FSEIAEEERES Dc BTSESEECESS OEREREEDEEROSROES 
{ 1546 * CAUSED IN ROUTINE OF. * €: ISIE DOCSD4CEESCS5S40E6 194E 1613 RSIOC OC CLAS*REMOVE WRAP CONNECTOR NOTE - CPU MAY DROP POWER? 
1887 * _* S2€ CSc107S0C2BEDEDE =~ —s:1€23 
: 1548 HHAERERRRERELSS BREGS DE SSE SEEEE HE REKEESSEE4SOETETATEEET EER ERDERERER CARESS ss) 192E CEC3EBCEDSAC4GES 1613 
i 18C% OO 16C1 1549 FLAG oc XL1700° C I193€ DEE3CS406C480C207 1613 
18C2 3a O1 18C1 1550 INTS SBN FLAG eo X* 02° TURN ON ERROR FLAG. 1S93E EA*socacieesocang 1613 
; 18CE F3 @0 00 1551 S10 x*OD*.x*408 RESET THE INTERRUPY. : 194€ DEO7T4SOC7C6EEECSE9 1613 
. 16CS CC &7 1aC2 18S2 8 INTs c- 1947 465 2613 
1553 194F CSC6S0EZDE6B40E3 1978 16144 IFSC o¢ CLAS*IF SOs TURN POWER BACK CN AND RELOAD PROGRAMs* 
Z 1854 £$4492464%284%92024229 a 1957 E4D0SDS40D705E6CS 1614 
\ 1555 *# CONSTANTS e t. ISZF COSOCECICAD240C0E 1614 
1586 FOSRERREGER ESSE OSSERES SSE RSEE SERRE SERS $4SERESTEEERERSS ARATE REE E DRE EREES 1967 DES40C10SCc4ae009cs 1634 
. 18cD o000 18CE 1557 NOOO oc I1LZ¢o08° 196F D20EC1IC4aaCD7OSDE 1614 
€ 18cF ocol 2800 1858 NOOR OC te2eas €: 1977 C709C1044B8 1614 
1801 0002 16D2 1559 NOO2 oc qiLze*eoe 1G7C CE6ESNSCIEICSDECS 198c 1615 FNCT o¢ CLI7*FUNCTION REGISTER ® 
: 18D2 oOCcO3 18D4 1560 NOC3 oc te*3¢ . 19&4 4COSCSC7CS9E2E3CS £615 
i 1G€C€ 00ca 1806 1561 NOO0*e oc Irsea@e G 11SEC C9 1615 
1807 0012 1808 1562 NOI8S oc TLet1 ee 1$8C 1636 #SG1B8 ESU et 
/ 1890S 0013 180A 1563 NOI9 oc 1w2°2198 19tD DOCSD4ADGEECSAOF3 1683 1617 oc CLIS*REMGVE 3741 3/70 CABLEs ALSO REMOVE THE® 
f 1€CE co1o 18MC 1564 NO29 oc ILz*2¢9e C- 19S€ F7“4F140CS610640 . 1617 
18DO o0280 18DE 1565 Ho0e0 oc XLz*oo0e8ce 2990 C2?C1C203Cc S484 ca0 1617 
r 18DF AASS 16E0 1566 HAASS 0C xXL2°aasse . 1QAS CICZE2DESCOSCEDA 1617 
\ 18€1 SSAA 18E2 1567 HSSAA OC xML2°*SSaae c* 19.10 OCESCS40E3C ace 1617 
18E2 1000 18E4& 1568 1000 oC XLZ* 10008 19B4 40€6D9C1D740C30E 1908 16198 pe CL40* WRAF CONNECTOR: THEN PERFORM A SYSTEM ° 
18E—E OOSSE 1B8EG 15859 HOOSS OC XLZ*OOES? 19BC DECSCECIE 2060948 1618 
{ 18E7 OFSS 18E8 1570 HOFSS DC XL 2*OFES®* co 19C4 49EICECECEAOC7ICE 1618 
18ES OOAA IBEA 1571 HOOAA CC XL2°00aa9 19CC OSCEDEDSD4AROCIAC 1618 
18EE AAAA ’BEC 1572 HAAAA OC XLE*AAAA* 1904 E2ZEBE2ZEZCEDS4040 1618 
JBEC FFEF 16EE 1573 HFFFF oc XLZ*FFFE? € ISOC £040404040404040 14803 1619 MSG1 oc cL4o* ‘ 
18EF FFF 16FO 1574 HFFFB OC XL2°FEFSe TOES 4040404040404040 1619 
18Fi FFESS 18F2 1575 HFFSS odc XLZ*°FFSSO ISEC 40404C64040404040 1€19 
16F2 CCE? 18F4 1576 oc xXL2e°coeve € ISFA 4040404040404040 1619 
1SFE 1287 l8FE 1577 BRANCH oC ALZ2CRTRND 19FC 4040406404 0404040 1619 
L Cc - 
DATE 1€AUG74 ISNCV7e PROG 10 401--1 " DATE Y6AUG74 ISNCV74 PROG ID 401-1 
EC NOW @247€¢ £24870 PAGE 13 EC NO P247ES &24870 
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18V MAINTENANCE DIAENCSTIC PROGRAN PART NO. 5$58421 TOM MAINTENANCE DIAGNOSTIC PROGRARK . PART NO. 5$$6e21 
i PAGE 416 © PAGE 14a 
¢ 4011 ‘3741 FUNCTION TEST WITHOUT THE wrap CCNNEC TOR ao 3741 FUNCTICN TEST WITHOUT THE wrap CCNNECTCR 
ERR LCC OCEVECT CODE ADDR STMT ScURCE STATEMENT : i ERR LOC OBYECT cOoDE ADDR STMT SOURCE STATEMENT 
of ¥A03 1620 MSG2B ECL e-4 C 1BE! C3CSDESOCECICSD3 1C08 1640 LioRST oc CL42°LIO FAILED TO RESEY LENSTH COUNT REGISTER. * 
1A04 COCSE2CSE3a0c1DS 1A2B 1621 oc CL40"RESEY AND START. e LEEO CECasOE2DERCDSCS 2640 
Pe 1A 0C C440E 2E3C10SE 348 8621 ges 1EF1 E2CSE34003C505C7 1640 
iL 2A14 40 404¢640804a04040 2621 ce 18F9 E3C&40C 3D EF 4DSE2 1640 
AIC 40404040640404040 1621 1c01 SO009SCSC7CSEZESBCE 1640 
25 1A24 40404(404C40404¢ 1621 : 1C09 064649 1640 
‘ 1A2C 40408046040404040 1AS3 1622 msc2 oc cLaoe ® C: ICOC C4C9C1ICTIDSHEE2E3 2C21 164: si0cK oc CLZ22°OTAGNCSTIC BYTE CHECK o® 
A324 £0406040404C4a040 2622 : 2€14 CSC340C2E BEzZC 546 1642 
” -1’A3Cc 40 40404040404060 1622 7 ICic C2cecsSc3nN244H - 2641 
{ 1A44 804040404 0404040 1622 : Ga I1C22 EICSE2ZE3a0CICECS ic3t 31642 TSIO oc CLI6* TEST ABILITY Toe 
1A 4aC 4C40ACACA DR 0ACEO 1622 1c2a CICSEZEB40E3DE40 1642 
£623 ec ic32 CT0640E3D640F 3F7? ICS3 1643 mapss oc CL34°GO TO 3741 MAPS. PAGE 000 ENTRY Oe* 
€ tAS3 2624 mSGas ECU t~2 €. ICIA F4F 140DaC 1D7E2€8 1643 
1ASse CSClE3c1a0cicacse IA7E 1625 oc CL4O°CATA ADDRESS REGISTER FAILURE. ® 2€42 S0C7C1IC7CSAOFOFO 16463 
7 1asc COCSE 2E240C9C5¢C7 1625 ICaa F040CSOSE309£ E46 1643 
- 1AE4& CSEZEZCSDSe0CEC1 2628 €: 1¢82 foes 1693 
WA EC CSO3SE4D9CEaBa04aN 1625 1cS4 DIOG6CIC4E1E2eCSDS 3IC7D 31644 YNOD Oc CL42°*LOADsSENSE DATA ADDRESS REGISTER wiTHe 
1A74 4040404040404040 2625 : . ic ec E2CS4@0C4C 1€3¢140 1646 . 
C 1a7C 404C404C408080400 1AA3 1626 MSGS. oc CLace e G 1Cé4 CiC4C40ac SE 2E 2 ag 164¢@ 
tAE4a 4086406404 0404040 1626 icec OSCSCTCSEZE3BCSL9 1644 
s 1aec 4£040404080006040 1626 . 1¢74 40F ECSE3C 6404040 1644 
\. IAEA 4080464080404 080 1626 €> — 1e7¢ aoa 1644 
‘AgC 40 240404040404040 1626 ; ic 7E £0C 2C SE340D7C1E3 1C8B 1645 LsSDAR oC CL1¢* ELF PATTERNS,.*¢ 
. 81627 IceG EZC5SOSDSE 248 2645 
, £ 1AA4 E2EXCLESE AE 24a0C2 1AC4 1628 STLCR oc CL33*STATUS 8YTE-LENGTH COUNT REGISTER® 2S icec CSEscsDS 1C8F 1646 EVEN oc CL 4*EVEN®? 
1AAC EGE 2CS60D2CS5DEC?7 1626 ; icso DEC ac ean iC93 1647 oDD ce ¢€l4*oooce 
e 1AB4 EZ CESOC3DEESDSE2 31628 1¢€94 FIFTF&F 1 40CSE 2460 ICAO 1688 BUSSY oc CL2I3*3741 5s eusv.*t 
es = 1AEeC SODSCSC7CSE2ZE3CE 1628 -) ICSC CZESEDPESGR : 1648 
1ACc4a DS 1628 Cal FIFTF AF 140C9E240 ICaE 1649 RDY oc¢ CL 10*3741 Is READY. * 
3 wacs C961 Cé680E3CSC105 1A06 1629 TLOTRE oc CL1iG°E/O TRANSFER CINES® ICAO TOCSCIC4ERSG 1649 
3¢ € 1ACO E2cé€cSosaco3zcsps 1629 €: 1CAF EICSE2ZES4OCF BF 7FS 1CCS 8650 Yoesy oc CL23° TEST 27481 FOR NOT BUSY.t 
IADS C£E2 1629 Ice? FISOCEDEDS40DELE 1650 
eh Ar? C4CLIESCiI460C1C ace 1AEB 1630 DAOR oc CLZI* DATA ADDRESS REGISTER® I1CBF E34CC2E4E cf e4R8 £és0 | : 
t 1ADF OSC SE 2E24cCDSCEC7 1630 G ¥cce E2CSEZE340F FY 7F4 I1CDD 1651 Torby oc CLZQ°TVEST 3741 FoR NOT READY.* 
YAEY CSEZEBCSDS 21630 : IcCcE Fl40CE6D60Sa0DSr6E 1681 
AEC C4COCICTDENGEZES 1811 1632 OGTR Oc CL 328 *OFAGNCSTIC SYTE-DATA TRANSFER REGISTER®* scode E2400SCSC1C4E Cae 1€S51 
a IAF Sa CSC 340C2E CF 3C5E0 1631 ee icce DSSOCSDECACS40E7 AICE6 1652 THD DC CLS*N CODE xe? 
1AFC C4ClE2ZC140€3DSC1 1631 IcEE 4e 1682 
2, 1B04 CEE2CECSDS40D9CS 1633 1cCE?7 FO4CF 140F 24a 0F 340 iCFS 1652 BITS o¢ c225°9 12345 6 Te 
- IECC C7VCSEZE3CEDS 1631 . €3 ICEF FeaOFS40Fe4aCE7 2653 ; 
iB12 CSC24¢0C3E8C3D3¢5 16829 1632 SIGGEB o¢ CLéa*Ee CrcLe ANALYSIS CHECK. * icFéE €OCSC2F140C 2EBE3 iCFF 1654 E81 oc CLiIOt-EB2 fyTE—s 
a 1E1a §CCICECID2EeE SCS 1632 ICFE CS60 1654 
£ 1E22 E2460C3C8CEC 226A 1632 eG 15000 60CSC2F240C2EBER 2009 1655 Eo oc CLIO*-Ef2 BYYE—e 
1B2a SCSCCEC2ZE740C3€8 1646 1633 Eex oc CL 29o*seEex CYcLEe FAILED. N CODE xe 1008 CEED 1655 : 
1832 C203CS40cecicsyo3 1633 : IDOA Sccso9nspEnssce 1030 1€56 ERORS oc CL7*sERRORSe 
1EZA CEC44RaA00840Cc306 £1633 €: 1011 DSCECICA61 E6D9C9 1028 1657 NTRST oc CLZ7*READ/WRITE LATCH NOT RESEYT.* 
1842 CaCcE&ece7ag 1633 . 1919 E¥C§40D3C1E3C3Ce8 1687 
1847 SCSCC2D6E 3C B40C5 1868 1634 EB12 oc CL24*seeCTH EB CYCLES FAILED. wn CODE xe* 1021 S0CSO6E34009CSE2 1E€857 
L IB4F C260C3EBC303C5E2 16346 € 1929 ceesan 1657 
1e8¢7 4CCECICSDICSECaaR 1634 102c C9DSE3SCSN9DSE 407 ID48 1658 Inter oc CL 290° INTERRUPT ENABLE ROSEY CHECK.* 
1iBSF SODE40C2DECaCEaD 1634 1034 E340C5058¢C1C203¢5 1658 
1867 €74B8 1634 €: 1D3Cc 4COSCSE2CfE34aCC3 2658 
IGES SCSCC1ID3ID 24 0CEC2 {67F £635 ALEA oc CL23*°*#ALL ES CYCLES FAILED.® 1044 C8csC30248B8 2658 ; 
1873 40C3E8C3D2CSE240 1635 . 7 1D49 D£DE66006074003C}3 1561 1659 NOSEE oc CL ZE*NO—OP CATCH FAILS TO SETe® 
C 1B7S CECI CSO3CE Case 1635 a 1D§; E2C3cesaocécicep3 1659 
188C SCSCC1D20240CEC2 1697 1636 ALEBxX oc CL2e*eeare ERX CYCLES FAILED: * 1cs¢ EZ40E3 064 0E2CSE3 1689 
1@e@e E740C7ESC3C3CSE2 1636 1Dé1 4B 1689 
tL 1BSO aCCECICSD3CcSCc4an 1636 G 1DE2 C£0660060740023¢1 107C 1660 NORES oc CLZ7*NO-OF LATCH FAILS To RESET. *# 
1€¢e EICSE2E340C ac 1E2 18868 1637 tscyc oc CLI6"* TEST DATA TRANSFER DURING €@ cCvcres.+ IDGA ESC3CE 310CEC1ICSD3 1660 
; 1Pa0 CISOE3COCIOSESCE 1637 = 1072 E240E30E40D9SCEE2 1660 
. ICAE ClO0S40C4E4DSCScSs 1637 / . 3 ID7Aé CEE34B 1660 
1880 C?60cSC24acc3eec2 1637 iD7D D3IDGC 1C461F eCSD5 1D0AS £661 TSPAT oc CL40*LOAC/SENSE WITH TEST PATTERN =-xxxx~ THE® 
: IGESB C3ICSE2Z4B8 1637 idss E2CS40F6CSE3C840 166: 
é 188C C4&C9ICICTOEDEE DEZ IBCA 1638 DIAG o¢ CLIS*OLAcacsric 6YTEs c: 1iD&éo ESCEE2E3S4 OD7C1EF3 1661 
18C4 COCZA0CZEREZCS 1638 1095 EICSDSDS4060E7E7 1661 
1ece OSC9N6E1E 20SEZ40 1GEO 1639 LSCKK oc CL22*LICs/SNS COMPARE CHECK.? ~ 1D9C EVTE7TE0Q0E3CaCEaN 1661 
16023 C2CED4DTC 10SEC a0 1639 : €> IDAs SCE6CE7E7E604C 1DAA 1662 SHORT oc CLE® =-xXX— @. 
1ECE C3cecsc3p24a8 1639 1DAe ESCSE2E3aCCIC2Cc9 1D00 1663 INVAL oc CLEI*TEST ASILITY OF 3742 TO REYVECT 15 INVALID COMMANDS.* 
i is CQ 
OATE TEAUGTO TENOVTS PROG 1D 401-1 DATE 1€AUG74 1SNOVTS PROG 1D 401-1 
EC AO. Bza7Es 824€70 PAGE 14 ce. NOs 824765 @248&70 : . PAGE 14a 
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18M MAINTENANCE OLAGNCSTIC PROGRAM PARTY NOe 5558421 TEW MAIARTENANCE DLAGNCSTIC PROGRAN - PART NO. SS5ss8e21 i 
n PAGE 15; © PAGE 1SA 
é { 
4011 3742 FUNCTION TEST WITHOUT THE WRAP CONNECTOR 6012 3741 FUNCTION TEST WITKOUT THE WRAP CCNNECTCR 
4 
- €PR LOC OBJECT CODE ADDR STMT SOURCE STATEMERT ERR LOC CBJECY CODE ADOR STMT SOURCE STATEMENT 
IDES O2CSE3SES4006C640 1€63 i © 1800 1696 HCOOS EQU NOCI 
10B6 F2F7F4F140E3DE4C 21663 { I7BF 1697 DROPLY ECU TICERU 
10C3 COCEDICSCIEI4OF 2 1663 { 1ECO 2696 INTRO EQU RMCV 
IDCE FESOCSOSESC103C9 1663 ; & OAtl 1699 ENO SBEGINN 
10D2 C440C2D6D4D4C10E 1663 
1DCE Cae24as 1663 = 
c IDCE CA&CESOEZESE2E3CS 1603 1664 INVE OC CL3E°DO SYSTEM RESET AND START. 16 TIMESe* & 
1CE6 DA40C9CSE CEE 240 1664 
; IDEE C1DS5C440E2E3C109 1664 
IDFE E2EBSOF IF 640E2CS 16646 i@ 
ICFE OSCSE248 1664 
1E02 CEE7C7CSC3E340£L7 1€32 1665 pe CLA9*EXFECT PROCESS CHECK AFTER EACH SYSTEM RESET AND © 
IEOA DECEC3CSE 2E26CC3 1665 é 
1E12 CECSC3C240CI CEES 1€68 
1E 1A CS0¢80C5C1C3C840 1665 
1EZ2 EZESE2ZE2CEDA40DS 1665 GS 
1E2A CSE2CSE340C10SC4 1665 
1E22 40 1665 
7 1€32 E2E2C109E248 1E36 1666 IVE oc CLE* START. ¢ €) 
1E39 CSOSESCID2CSC4460 LESC 1667 FLUNG DC CL3IG* INVALID COMMAND WAS ACCEPTED. XXX NE 
1E 41 €20€D404C10£C 440 3667 oo 
. 1649 EEC1E2@0C1C3C2C8 1667 } 
1ES1 CVE3C5SC44B4040E7 1667 i 
'F 59 EVE7&CDS 1667 
i 1ESO EZCSDEE2CESOEICH 1666 1666 SNTHE OC CLIO*SENSE THE * @ 
1E€E CE40 1666 
. 1E67 E2CEDSEZCESOC2Ce 1E72 1669 SNCKMS DC CLI2*SENSE CHECK.* 
1EEF CSC3D248 1669 } 
1E73 SCSCOSDEESCSSCSC 1E9B 1670 CNCTR oC CL41***NOTE#* IF A BRAP CONNECTOR IS ATTACHED. * 
JETE 20CSCES0C 140E6D9 2670 
c 1Ef3 C1ID74OC3LEDEDSCE 1670 © 
1E88 C2ZE3D0€DS40CSE240 1670 
. 1E92 CIEZEBCIC2ZCeCECS 1670 
‘ 1ESE 68 1670 & 
1EGC CECSDSDEESCEROCS 1ECO 2671 RMOV DC CL27*REMCVE If AND CO SYSTEM RESETe STARTe® 
1EA4 E240C1C5C480C40E 1671 
’ EAC 4CE2ESE2E2C5D440 2671 © . 
1E86 COCEEZCSEZERSOE2 1671 
1EEC EAC1D9ES4E 16715 
e 1EC!1 CSCESOC3DEDEDECS 1609 1672 IFOFF oC CL2S*1F CCNNECTOR 1S OFF THEN: ® & 
1EC9 C2E3D60S40C9E240 1672 
1EC1 CECECcesoe2cecsos 21672 
C 1EDS 68 1672 e 
1ECA FIF7F4F1S0C9DSEZ 1EEE 1673 S10C4 oC CL21°3741 INTERRUPT CHECK.* 
1EE2 CSOSCOESD7TE380C3 1673 
1EEA CeCEC 30248 1673 © 
1EEF 1F49 1674 PPT os CLS3 PRINT FIELD. 
ao 1F 4a 40 1FSA 1675 oc xXL2°a0* CLEARING BYTE. 
c  € 1676 Gc 
I6T7 2892948026462049664030683 
. 16768 2 EQUATES 2 
{ 1679 SESSA ESE RAS OHKE OSES OREDESRSESEGSECES ESSE FTES SESASESSESSKERE $9442 SHEFEEEESEEEE €35 
C008 1680 ARR equ x*cee 
os 0222 1681 HALT ECU x*2220 
& O216 1682 LINK EQU = x*Z168 © 
O22 1683 LOAD ECU xKX*Z24K8 
/ O21A 1684 PRINT ECU xX*ELAe 
e O21E 16685 UNFACK EQU x*Z1E8° © 
0001 1686 xR1 €cu xx 018 
: 0002 1687 xR2 equ x*02° 
i 0084 1688 IARS EQU x Eee © 
OA03 1689 RIN#® ECU x*O~A03¢ 
0080 1690 Sfw3o EQU  x*Ee0e 
0080 1691 Sswoo equ xeeoe © 
0208 1692 SBYTEO ECU x*o20e° 
O20A 1693 SBYTE2 EQU x*C20A° 
OA07 1694 FRTN EGU x®CA~AO7® © 
18CE 1695 0000 ECU wNoco 
i 6 
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; TEM RARNTENMANCE DZAGNOSTIC PROGRAR ; PART NOW SSSaa2s 
{. Pace 26 PAGE 164 
- £015 3761 FUNCTION TEST WITHOUT THE WRAP CONNECTOR eff" . S378) FUNCTICH TEST EITHOUT TRE wRae COKNECTOR 
: 

CROSS—REFERENCE C2CS S~REFEENCE 
{ SYMBOL Y LEN VALUE DEFN REFERENCES €* symeot T LEK VALUE OFFA REFERENCES 
_ acer A CO2 163 1218 £4124@ £169 12348 12972 1329 1333 £336 £342 _FRCT a 017 #'98C «1618 2200 14869 
{ AaCOIT A 006 356¢ 1239 (Fri € C01 CacTr 1694 o0s28 
ALES #9023 I87F 1625 0330 : GCHO A 00S 1886 14816 21612 
» ALEBX A OZ4 1667 16€3€ O32¢e C326e oa27 HAAPA A 002 18FC £872 
. ALTER A 004 oOf43 0047 0044 C waaes & 002 1880 1566 9301 3558 oO560 
ARR Cc 00% cook 1660 1O89F 1090 11298 1120 11228 8123 21258 1126 £228 1129 82628 #8182 HALT C O01 Of22 i168: 0049 Of651 9193 O236 O37S O408 Of4ai O476 0516 O52? OSTE 687 
22LOS® 1186 1248 1250¢ 128% 1253% $254 1267 8260" 1270 E3IF 8375 ; O67T2 OFCB O719 OFSe C?7SS CABS OBSe CES&e OCS6G 1600 $163 14846 
. i372 i375* I37E 1409 166% 1483 {468 2486 1536 2833 €: 148% 
BADINT A CC& OFA? O712 o7T0c0 BONECID A O02 88D &f£20 1SiSe 
_ BEGIN A CO1 OACD 0024 0017 _ RFFFF A OOP F6EE £573 0502 
; * BEGINN A001 OAL! 0028 OUS2 4442 16566 ( WREFe a coz 18FC «1876 1418 
BIGCER A 0C& 0019 0367 0328 33% o339 RFESS A O92 t48F2 ETE “2EG O26 C260 4269 
_ BIGGER A C28 1826 1632 0270 HELXX £ 602 O84C€ 0050 ©3943 C0ast OVeTe 
{ pits AO1S CFS 1683 Q1E2 41165 1298 229 t226 1286 C : mores & 062 1882 1570 6133 
BITSNF A 004 TEFL 1371 2168 2236 L298 MOOR & OO2 BEA LE7Tt O&S2 C653 
. BRNCK A 002 18FE 1877 0584 ._ ROCfO £002 ECE 1665 O12@ O30 O602 C530 1623 t088 2083 £036 
i BINF ACO& 8735 12307 137é6e ‘- HECOL A OO2 1800 1666 0602 
BULSSY A CIB 23CA0 1668 1487 HOOSS & O02 1256E ESED C457 0618 
| CALC A 004 1548 1226 1223 #0080 & 002 iADE 1565 0696 O74 G7Ta® CeaS ces 
{. CXBYT #£ COS oOBFe o2et Oz77% O285a O287 €- #1000. & 002 i18F4 1866 os99 
CKKLS A CO& 14A7 1160 TkeaGe 1239% 1266 HS544 &£8 002 38ES 1567 0424 6553 OSES 
CKPST A004 106A 0841 0801 0943 _ TaRE € O01 oces s€88 O6Gis 
“CKRSTT A CO3 10€3 O838 0830 € reorr & O28 LEDS LEFEZ 1435 
cKS A 008 1637 1204 L270% i273 302% ¥Fsc A 045 1978 16:14 
CKSIO A 004 1580 1267 O702 oFes o82e IWR A 029 1068 1688 orsa 
CMPARE A 004 1€3F 1217 1i7t 1235 22898 Co intro A O27 t1&Ce 18¢€ 
CMPR A004 1667 1346 L2LFs TATRS A CO2 1I8FA 1579 OeSt 
CRCTR A O41 IESE 1670 1431 INTE & 0OO& 18¢2 %€80 S82 157 
< CoD A COE 1604 1484 1483 C3 rnvae 4 O06Si 2000 16€¢€2 oseg 
cooc A 004 1898 1622 1486% Tave & G36 LEOL $664 69948 
| CODE A 00S 18060 1483 0392 68225 0456 0893 CeI9 cE54 _ EQTPL A OLE LADE 16426 0166 8263 1698 
7 €00 A 0O2 tere 1578 1516 gi stow & 004 3731 1392 1360 
DADR A O21 LAER 1626 1206 TYSON A 00% 1716 13€6 2Se2 
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{ DROPD A CO4 i78F 1657 O8129 0132 OQ2EL O€S0 OF36 CYTE S8IB OB8TE O90S O8#5 1829 €> C404 0410 C437 C6443 GAF2 fC47B GEIO0 O516 Of20 cCS6t O6TFA ceOS 
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OuG AcC2 ces? 0223 O0225* 0226 o22€ O8E6 92884 ocsoae 1985 1483 
E®EFR A 006 OCS4& 0220 0292 Ee rorst & 043 :COB 1640 oS23 
EBFLAG A O98 1910 1567 O27he O283% O291 C2903 O25 C268 O300 6302 6305 O30F O30G OBIE CTOGNS & 004 1458 1182 O4C1 O834 04659 OS07 CERO 0665 
e 0223 0315 O317 O382 928g 0356 ., LCAD £001 O22A 1683 0866 COSE O9€e 
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Ee2T A OO! 16DF 1368 izee2 x O7G6 717 OF75E€ OFS3 O83% C856 O652 O74 $8302 £838 1449 
EPRNTL A 004 LB89C 12630 t1€O FITC 1217 «#2225 #1232 1285 1204 8432 14356 Ej waess &@c¢c3s& «cf? 16423 LEECH LAETe 146Ee 1aGSse §$a74 
EPRNT2 A 00% 16A7 LE23 O272 281S7 LIEGE A87B 1216 21820 1227 123F7 4263 SBT weer 84634 MEGt A OGG LAOS 1619 903: oo3f 
EPCES A OO? 1019 1656 21172 #423€ L2a6¢ MSGIGB A COL 198C £618 0031 
ERSN A COS 1488 1174 1129% £.msc2 A940 2AE2 1622 ©0326 C027 
ERST A CO& 10FE O8£1 0a42 MSG2B A OO1 ify3 16206 0036 
EROA A C04 OF2e 0820 0503 MSG4 & ©40 2AAE 1626 oS65 O566 
{  €RLs & 004 378 #1¢89 ioce 1613 10:8 1024 2029 1034 1030 £648 t0S0 £655 18060 1056 €umsces A DOOR 1822 2626 o565 
2071 1076 10e% NCOCD! &2 004 OCBA 0341 9306 0306 
EVER 4 00& CBF £646 543 _NCOTO2 A 0048 oCDS oO3e8 O230 03:12 
" €43 A 60% 1208 oses C0o34 ~NCOED4 4 004 OCFO 0355 O214 O316 
ELSA & 008 REC 0947 og38 WCOCDS A 004 OD6B 6363 o226 
. FINEB A OCE OCBO 0338 033% 0336 NCOC1L &£ O6& OCS9E 0223 0299 
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TE® MAINTENANCE DIAGNOSTIC PROGRAM 


_ #081 3741 FUNCTICN TEST WITHOUT THE WRAP CCRNEC TCR 
+ 
CROSS~REFERENCE 
SYMBOL T LEN VALUE DEEN REFERENCES 
NE 2004 #173F #1387 1379% 13648 1385 138€8 1400% 
NFF A 004 1738 1394 1380* 1393@ 1392 13938 14018 
wro A061 1638 1591 1284* 1192 12198 320% 1206 4207 1231 
NCRES A C27 107C 1660 0950 
NORE A C04 143A 1168 1151 
NCSEE A025 1061 1€59 09€2 
NTPST A C27 1028 16€587 cease 
NOOO A 0CO2 18CE 1587 1695 
NOC! 4 002 18D0 1568 0265S 2119 1228 i128 1282 414188 1253 
NOO2 A O02 1802 1556S 1122 1383 1354 1400 1403 
NOC 2 A 002 18D4 15€0 2412 
NOOS A002 18D6 15€}3 1089 1239 1302 
wOLte A O02 18De 1£€2 1069 £074 1079 
NOLO A 002 18DA 1563 2006 £013 1018 1022 1027 1032 1037 
NO2S A oc2 18DC 15€4 2250 
cco A 004 iC92 1€47 05e9 
PATEN A OO2 1919 1589 O391% 0398 04249 0431 0457" 09864 Case 
1188 1233 1507 
_ PRINT ¢ 001 OG21A 1664 0029 0034 O665 0090 0121 C170 02:15 
i 0S90 0712 O751 C851 OS87 Ce5S 09864 
: 1257 1275 1626 1444 1471 1516 1836 
PRNT A004 i8AF 1876 1£32 
PRT A O0S1 1F49 1674 0039% 0040 0040® C118% 0116% 120% 0124 
0173 OL75 O6875* 62129 0213% 02146" 0218 
t ' O2SEe 1062% 10646 1068 1100 1100% 1136% 
€ 1156¥% 1159% 1162% 11654 11722 12006 1203 
: 1219% 1221 1222 i224% 1226% 1228 12366 
; 1281 i28ie 1282% 1264% 1286*% 1289 12¢06 
¢ £432% 1433% 18355% 14608 14928 16948 14598% 
25123% 1516 1521 15217 1839 1540 154008 
PRTT a 004 1880 1641 15308 1533% 
PUTBAK A C06 i371 1068 1105 
os 4004 1766 1412 $4609% 1412" 1436 1417 1419 
GS. A OOA 1772 14135 1611 
/ QUES A COS 1780 1405 0072 GOSS 0135 0177 0222 o263 90395 
0622 0657 0693 0738 0780 ©6820 oss 
ROY ACIS 1CAE 1€4¢9 1829 : 
REPIT &£ 004 1230 cs51 1603 
RwOV A O37 +1ECO 1671 1433 1698 
RSI0C A COS 194E 1613 
1 RIN € 001 OAO2 1689 0843 2337 1248 #28244 «+1359 57 2163 
RTWOA A OOL ODES C4e8 0485 
RINOB A COL OCEF4E O£235 0460 
RTNOC A 001 OFSe oO8Ees 0541 
RINGD A£ €O1 CEC? 06814 oser 
RINGE A €CO1l OF O02 0€46 0616 
“  RYNOF 4 001 OFZF 06282 0651 
RINOl A O01 OASI 0061 0026 0041 
RINO2 A 001 CAGE OEE 0063 
. RINOZ A OOl OABB 0111 cose 
RYNC4 A OC1 OAFD 0601€2 0113 
RYNOS £ 001 OB4F oO268 0165 
RINO6 A OOL 0849 0281 0207 
RYNO7 A OCL 0037 O2e7 0253 
RTNOB A O01 ODBF 0820 0389 
{ RINCS A 001 ODAT 0483 0422 
PINIO A 001 OFCI 072g o¢ees 
RINI1 A COL 1022 O771 O?32 
' RINI2 A OO 108A 0811 O773 
RINIZ A OO1 1118 O86S oai3 
RINIA A COL 1166 Ces 0872 
RTNIS A OO1 1190 o918 08s6 
RINIG A O01 1223 ¢¢7¢9 9926 
RTRN A006 1287 1606 1ST? 
SEYTEO C 001 0208 1662 02285 0209 
SBYTE2 C 001 O20A 1663 14:0 
i : 
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1371 £375 14685 1696 

1088 1053 i058 1063 
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12435 11468 11469 171564 

1200% 12156 1216% 12168 
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JOM MAINTENBNCE OLAGNOSTIC PROGRAM ~ 


PART NO. 5598021 
5 PAGE ITA 
ao 2741 FUNCTION TEST WITHOUT THE ERAP COANECTER 
CPOSS-REFERENTE 
( swweo. 7 LEN vALUE DEFN REFERENCES 
SERID 4 002 15048 1279 1268 
€ SHOD a 004 4SAC 1262 i2s8ae 
SHORT @ 0CO€ DAA 1662 35328 3513 
_. SID A002 1585 i265 12498 
€ stock # 022 1c24 1243 1278 
S10C6 A O21 IEEE 1673 o715 
_ STOMD A 004 i57€ 1248 0687 0733 O775 0818 OF73 CAaEe Ose 
€ sncums a 012 1672 1669 1138 
SNRID 4 002 13F€ 1136 LL2re 
~~ SNSERR A C04 1388 1119 0144 0186 0231 
{- SNTFE A C16 1€6€ 168 Otta O67 G2:2 
SPL2. A 006 152€ 1224 ici2 1214 
_ SSWOO € 001 C080 1€51 0125 0209 
€ sswio c 001 0080 16¢0 1410 
STBX A COS OCBFA 0283 0279 0284 o2888 O286 
_STLCR & 032 1A4C@ 1628 CL19 2136 1140 1203 14096 
Ci vaERR A004 1L6CF 1287 13188 2330 1330 138328 
TAL A 004 1674 1332 1322% 1326 1347 134878 
TA2 A 004 166A 132¢ 32ie 1396 1388* 
Citas A004 1663 1327 1320% 1389 13492 1358 
TBERR A COS 1607 1559 1319* 1339 1343 13688 
_ Tel A 0C4 168C 1342 1325% 1337 2138 1380 13508 
Cte A004 1682 13238 1324# 1251 13818 . 
783 A004 1€76 1236 1323% 1331 1352 13829 1358 
TC A G04 1693 1348 1340 «61360 : 
Ci teme 2 002 18F€ 1585 O809# OCL39% 0841 09428 10079 10528 20378 10644 Bees 
THD A coo 1CEE 1652 1093% 1094 1486% 1486 1492 1496 1500 
_TIGERE 2 004 178F 1494 0095 O7eS CO29 1€67 
Ccvrcere #005 1787 1426 ©0076 
TNE A094 1700 3362 1277% 1396 1398 13629 1902 
TNFF = 46 004 «61723 «1389 1378% 1399 13998 
€: rossvy a 023 ices 1650 0093 
TORCY a 024 1CCD 1681 o06a 
TRE 4 002 cB3e 0168 0221% Of80# o1e1 0183 
& seve a 036 188 1637 o2sea 
TS¥IO A O16 1031 1642 1286 
_ SPAT 8 040 106 1661 1568 1809 1510 1912 
€. UNPacK ¢ 002 O218 i1€8s £505 
VROE «4 042 «#«1C70 «(1644 O£43% OSegs 
WORK £001 1900 1586 0936% 0937 0983* 1984 1152 1226 
C;xpct a cor sie 1682 O701* o7Gee Cf27% 1272 12596 
XPT A 002 i163 1314 1222% 12330 t2c¢ee 1327 1336 
XR1 € 0C1 of01 1684 0041% 0042 O276% 0277 11829 11568 12729 22289 2250¢ 3319 2380 10178 
e 1418 146S# 1466 1467 1468 1469 1476 
” XR2 € ©0: 002 1687 2149* 12219 12209 12808 t31e 8379 
C5 TOTAL STATEMENTS FLAGGED IN THES ASSEMBLY = 6 
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oD 

cost 
oo92 


oos2 
oo 
oo97 
o4 


0216 


O2%h 


LEAUGTS 


824765 


oppo 


opps 


opps 


opso 


opss 


ADDR STMT 


oDoD 
ODOE 
oD10 


oDis 
opi6 
oD1rs 
OOLA 


0084 
opas 
oDe7y 
ope: 


ODBE 
oo90 
ops2 
opes3 
0095 
OD9T 
9Dp98 


1SNCVT74 


824870 


389 
390 
391 

392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
a07 
408 
a09 
410 
it 

ai2 
ai3 
O16 
@15 
416 
ai7 
418 
arg 
420 
424 
422 
423 
424 
«2s 
426 
427 
428 
42¢ 
430 
434 

432 
433 
434 
azs 
436 
437 
438 
439 
aso 
a4t 
es2 
4643 
ane 
a45 
4e6 
aa? 
a48 
aag 
aso 
asi 

452 
a53 
asa 
455 
456 


SOURCE STATEMENT 


SETERETEE 
* RTNOS # 


PaRY NO. 5858423 
Pace 4 


RERRETREREKSEREEETEEEEAREEEEEERE EEEECESESESERTE SEKEEERERSEESESR EES EEEEKERE 


en nant 


“ROUTINE C5 


EDT SIGNAL 1S GENERATED TO TEST 176 
DISCONNECT. 


IS SET FOR 6 USEC RESET DF OISCONNECTe 


s 

x 

THE FUNCTION REGISTER # 
g 

* 

¥ 


HE EKEERESLSEEKSEGFEREETEEECSAKAREKRRERSE ERE LEERESE ESEKEEKESESESER EES SHARESES 


RTNOS OC 
oc 


oc 


8 

oc 
oc 
oc 
oc 


8 


8 
HPL 


sic 
s1o 
SNE 
SNS 
SAS 


MVE 
MvT 


cui/e 
INE 
<ic 
JNE 
ete 
SNE 


tra 
Sr0 
SKS 
SWS 


cEC 
JNE 
cLc 
JANE 


* ROUTINE 


EROSA 6 
oc 
oc 
oc 
oc 


8 

oc 
oc 
oc 
oc 
oc 
ot 
oc 


SNSSD 


SNSSE 


KL&*OS* 
xt a?oo* 
ALZ2(CRTNOG > 


PRINT 

xi 2°45" 
{Ltr 36t 
@L2CHDO0S) 
ML Z*SOAas? 


InN ITLe 


Ques 
x*3C*,K*Sce 


Kt*CS*.xtaie 
K*O2% »xXtast 
SNSSAeX*SSt 
SNESB.X*42* 
SNESCeKSaSt 


SNSEA.K*OG* 
SNSSBex*# 008 


SNSSA2} ee ENSSA-2 
EROS 
SNSS6(2) «SNSSEB-2 
EROS 
SNSSC(23-SNSSC-2 
ERCS 


HOCEZ eX*6i* 
x*cD*.xKt aor 
SNSSE.X*42* 
SNESDexX*#45* 


SNSSOL29-SNS50-2 
ERCSA 
SNESE(2) » SNSSE-2 
EROSA 


EINK 


os 


ERROR MESSAGE * 


PRINT 
xXLA*C2* 
w.48¢26* 
ALZC1007S5 
XL2*4025¢ 


ERFOR 
xXLA*OS* 
XL2*0000* 
RLE*0005* 
xL42702" 
ML29°8200° 
eLZ*D000* 
ALISFF* 


ROUTINE NUMBER 
NO MANUAL INTERVENTION REQUIRED 
ROUTINE O6 ADDRESS 


PRINT OCLSCONNECT TEST HEADINGe 


INITIALIZE THE 3741 


TEST FOR SS iG. 
HALT -FF- IF ON« 


ESSUE READ CALL WETH RESET & ENABLE 
OOD CONTROL £ TO GENERATE E0Te 

SENSE OYAGNOSTIC BYTE FOR —-O800—-e 
SENSE STATUS/LCR FOR -E1i00—. 

SENSE 1/0 TRANS LINES FOR -F902—c 


CLEAR THE DATA TRANS REGs 
CLEAR THE LENGTH COUNT REGe 


OZAGNOSTIC SYTE AS EXPECTED ? 
SRANCH IF NOTe 

STATUS BYTE AS EXPECTED 7? 

BRANCH IF NOT< 

1/0 TRANSFER LINES AS EXPECTED ? 
BRANCH IF NOT. 


SET FNCT REG YO OFAG HODE. 
OO GENERAL 3741 RESET. 
SENSE STATUS FOR -—8100-< 
SENSE DIAGNOSTIC GYTE FOR -—0000—< 


6USEC RST 


DIAGNOSTIC BYTE AS EXPECTED ? 
BRANCH IF NOT. 

STATUS @YTE AS EXPECTED 7? 
BRANCH IF MOT«< 


RETURN ¥O OCPe 


PRINT SENSE RESET CHECK. 


DUMP THESE REGISTER— 

DIAGNOSTIC BSYTE/OATA YRANS REG=s 
—E XPECTEDe 

—&LOTUAL « 

STATUS BYTE/LENGTH COUNT REGISTER: 
@~EXPECTED > 

—ACTUAL © 


PROG ID a02-5 
PAGE a 


+ mene emer ait, 


wer, 


o 0 


© 


ao2k 


ERR COC 


CD99 
oD9D 
CD 9F 
ODA2 
ODAS 


ODAS 
ODAF 
ODBS 


# 


Hage? 


opee 
OOSF 
opce 
ooci 
oDc2 


# 


Lie 


a 


oocs 
9Dcs 
eoce 


f my 
ae 


opcD 
oDD1 
eooe2 
oob4 
oDDs6 
coo? 
oDos 
ooos 
cooc 
OoDoE 
ODES 
ODE: 
aDEes 
ODE? 
CDEe 
ODED 


a © 


ODF! 
ODF2 
ODFS3 


oO Oo 9 


OoDFs 
CDFS 
ODFA 
OoDFs 
ODFO 


ODFF 


OEOS 
OEC? 


OCEOA 
SE0D 
DE10 
OE1a 
oEie 


oOo Oo © 


OEIC 


© 


DaTE 
EC NDe 


oo 


C 


ae 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


B7IAl ATTACHMENT TEST WITH ~WRAP CONNECTOR— 


OBJECT CODE ADDR SYMT 
co 87 139¢ 457 
9272 ODSE 458 
co BF 0222 as9 
aces ODA& 466 
co BT 0216 aéi 
862 
OC O01 3649 ODDF 463 
OC OL 1646 VODA 664 
ce CS: 268D tors £65 
a66 
CO 87 O21A S67 
c2 OO0BF 466 
13 o0co 469 
1830 once 470 
e022 O0C& 473 
&72 
CO @7 13€5 473 
2656 ODCA 474 
1687 epce 47s 
avé 
co ea? 1558 av? 
o3 opp: 478 
FS02 0:03 4879 
coco oD0S 480 
o2 ODDG 481 
€2900 oops 482 
ocoo ODUA 483 
os ODDB 484 
osec OpDdD 485 
0000 QOLF 486 
FF ODED 487 
co eF ¢39C 448 
3271 ODE6 489 
CO a7 o222 490 
£2028 ODEC 491 
cO Bt 0226 492 
&93 
a 494 
495 
a96 
aot 
ace 
499 
S00 
S01 
502 
06 ODF1 503 
06 ODF2 S04 
OESA ODF4 S05 
S06 
CO 87 O21A SO? 
45 ODFO9 SOs 
31 OOFA soe 
7815 opFe 5:06 
@0AE oDFE 511 
st2 
co BF &£358D 613 
st4 
co 87 13¢3 $15 
f9 3c 3c S16 
S17 
f3 41 0S 518 
F3 435 08 sis 
30 8S OE3e 520 
31 41 16B6 2% 
3¢ 06 0E38 522 
$23 
CD Of DES& OE36 §24 
2€auG74 LSNOVTS 
e2ee7ro 


B2a7E5 


SOURCE STATESENT 


8 
oc 
8 
oc 
B 
EROS we 
MYC 
eve 


ce 
oc 
oc 
oc 


oc 
oc 


5c 
oc 
oc 
oc 
ce 
ec 
oc 
oc 
oc 
oc 


SNSSB 


SNSSA 


oc 


oc 


SSEKVKRLAKHE 
®% KTNOG6 © 


MAFS 
RL2*9O272¢ 
WALI 
XLE*a029t 
LINK 


TEST—€ (2) -SHSSA 
T= ET—-20 2) «SNS5S 
TEST (2 3.SNSSC 


FRENT 
xXLa*c2* 
#L2* te? 
AL Z(EOT) 
xt7?°a028 


CKPAT 
AL2CEXPY) 
AL2CERBSOS) 


ERFOR 

XL 29035 
XL ZPFSOZE 
XLZ* 00005 
XL2°O2¢ 
XLZ*ELOO® 
XLzeooece 
ML E°OS* 
XLZ°OB00° 
xLZ*co008 
ML LFF 
MAES 
XLZ*O275¢ 
HALT 
xLZsao2ee 
LENK 


PART NOe 
PAGE 


$558423 
aa 


PDINT TO MAP CHART. 
-—PAGE 927e ENTRY 2e 
ERROR HALT ~29-¢ 


RETURN TO OCP. 
STORE OTAG BYTEZ/DATA TRANS REG. 


STORE STATUS BYTE/LENGTH COUNT 
STORE £70 TRANSFER LINESe 


REGe 


PRINT EQT CHECK. 


CHECK YO SEE fF DATA MATCHES PATTERN 
—TABLE ADDRESS OF PATTERNSs« 
“TABLE ADDRESS OF MESSAGESe 


DUMP THESE REGISTERS— 

1/70 TRANSFER LCENESs 

~E XPECTECe 

~ACTUAL « 

STATUS BYTE/LENGTH COUNT REGo 

-E XPECTFEGe 

-—ACTUAL eo 

DYAGNOTSTIC GYTE/DATA TRANS REGs 
-EXPECTEDs 

~ACTUAL « 


FCINT TO MAP CHART. 
“PAGE ©77- ENTRY ie 
ERRGR MALT —28—6 


RETURN TO OCPe 


KEKESLERRES FEREE EES EKEREHEEEEEESEEEKREKESEDAES BOCES EERES KERSESESTHEERE ETERS 


+ e 
* ROUTINE CE GENERACE EOT USEING 170 3 SELECT * 
* WITH A SEQ READ CALL * 
* t 
SREEREEHEESSSEEEESET EE OEEE SES EEE EER EEE SETEREES ERESERESE CECE SEREEEHESES HS 
RITNOG DC XLE*O6* ROUTINE NUMBER 

pe nL 2*008 NO MANUAL INTERVENTION REQUIRED 

oc AL 2€RTNO7 9 ROUTINE OF ADDRESS 

8 PRINT PRINT EOT HEADING. 

oct xLitaese 

oc mLieage 

oc AL 2{HDOS? 

oc XL2°2£0AG6* 

8 INITE INEITEALIZE THE STS 

8 QUES TEST FOR SSW 106 

HPL x*3C%8,K*°3C?* HALT -FF=- IF ONe 

SID K*CS* eK*RLE ISSUE A SIO READ CALL + 

SI90 X*O8*.K*4St ESSUE A CONTROL 1 —- £70 SELECT Se 

SNS SNS6ex* as? SENSE DIAG-DTYR FOR A ~OB800—6« 

Lic HOOCSSe Kt ar? OD 6 USEC RESET WITH FNCT REG. 

avVE SNS60X200* CLEAR DATA TRANS REGISTER. 

cic SNSEGl 2) oe SNS6—-2 DIAGNOSTIC BYTE AS EXPECTED 2? 


PROG tO 
PAGE 


802-1 
aA 


a iy othe | EO he, 3 


re 


ene noe 


* 


seep Cee ee ppapees er. 
em enEY com ewe om array 


© FOR, 


Teer 


Rey 


rm 


oF 


ras 








IGM MAINTENANCE DIAGNOSTIC PROGRAN 


4021 


ERR LOC 


OE 22 


GE 2E€ 
' OGZA 
CE2E 
OE 2c 
OE2E 


OE3C 
OE34 
cE3E 
OE 37 
OE39 
CESA 
OE SE 
o0& ad 
OF a4 
OE SE 


CE SA 
OE4e 
OE &¢ 


OESE 
OE £2 
o€S3 
CE S4 
Of SE 


GE Se 


OoESC 
0E60 


GFS3 
0E 67 
OE €B 
DE6F 
OE72 
OE 7E 


CE TA 
c&so 


cE a3 
OEe7 
OEBE 
OE SE 
OE 92 


CES6 
OESC 


OE SF 


OE A2 


cate 
EC NO. 


3741 ATTACHMENT TEST WITH -—WRAP CONNECTOR=- 


CBVJECT CODE ADOR STMT 
co 81 0216 525 
S26 
S27 
528 
CO &7 O21A 529 
c2 OE2A §30 
Oa SE2B8 S31 
2s4Ec SE€2D §32 
4024 O€2F £33 
S34 
co e7 1558 $35 
05 OE34 $36 
oeo0 9E36 $37 
6000 oE38 €38 
FF E39 339 
co e@7? 139¢ 540 
9381 OCESF S41 
co 8&7 0222 S42 
802A 0E45 543 
co 87 0216 S44 
S45 
$46 
$47 
$46 
Sao 
sS0 
$S1 
ss2 
553 
554 
o7 CESA S§55 
oo OE4B 556 
O0EDD OEa2D S57 
ssé6 
CO B87 023A 5589 
4s ; CE52 S60 
29 OES3 561 
1A82 OESS 562 
4aCa? OES? S63 
S64 
co 87 1310 565 
S66 
co 87 13¢3 S67 
FO 3¢C 3¢€ 568 
569 
32 41 #1680 s70 
31 45 1698 571 
31 45 1699 S72 
Fz 483 10 573 
360 43 OECB S78 
30 43 OEFCB S75 
S76 
OC O01 CECE OECS S77 
Fe 01 23 S78 
$79 
31 45 16a! $80 
31 45 1699 581 
F3 43 10 $82 
3¢ 43 #OEFCB 583 
30 43 OEFCB S84 
585 
OO O01 OECE OECS 586 
Fe of 12 587 
588 
F2 40 00 589 
s90 
co &7 0216 Sot 
$92 
1G6AUG74S 1SNOV74 
824765 624870 


SOURCE STATEMENT 


PART NOs 55$8423 
PAGE s 


RETURN TO OCP IF Oke 


PRINT ECT CHECK. 


DUMP DIAGNOSTIC/DATA TRANS REG. 


~EXPECTED. 
~ACTUAL 


POINT YO MAP CHART. 
“PAGE 931~e ENTRY 1s 
ERROR HALT —24-2 


RETURN TO OCP. 


SEARS ERDAS SSRKAREDEASESESERKSE SAE CRER RS FARNESE F453 E$4EEREERESDESEEEERZDED 


RESERESSELER EES SEARS SERGE ENS S EEBEKEES SESE SEEKERS ORERARECKESRERERAS ERED 


SE LIAK 

* ROUTINE O€ ERROR MESSAGE ® 
8 PRINT 
oc xLit'cae 
oc 1L2°208 
oc AL ZCEQTACT) 
oc XLE*4Q2a¢ 
8 ERECR 
oc xLaose 
uc xL2°08008 

SNS6 oc xLZ*0000* 
oc aL Ac*FFES 
8 MAFS 
oc xLZ*o3i2e 
5 HALT 
oc XLZ*402at 
8 LIRK 

Se RO4443 

* RTNOT & 

* 

* ROUTINE C7 

2 

* 

RITNO? OC xL1°O7* 
oc xLz°008 
o¢ AL 2CRTNOS} 
8 PRINT 
oc xL1°ase 
oc ILptare 
oc AL ZC HOOT) 
oc XLEZ*A0a7ze 
8 INTL 
8 QUES 
HPL x*3C*,xX*3ce 
io HO1BEs Kaze 
L110 HOOODLs xt ase 
Lic HOCOOsx*458 
sto KX*10%sX"A28 
SNS SNS77—ex#43¢ 
SNS SNS77_X*43" 
cLe SNE77(236SNS77-2 
JNE ERTA 
u1o HOCOaK*AE® 
tio HOCOO,xX*as* 
SiG X*10%,xaze 
SNS SNE77.X#a3¢% 
SNS SNS77exX*#4a38 
cic SNE77(2) «SNS77—2 
JNE ER7B 
$10 K*OD* sx*aoe 
8 CIAK 


ROUTINE NUMBER 


NO MANUAL INTERVENTION REQUIRED 
ROUTINE 08 ADDRESS 


PRINT FRL*S ie 3 RESET TEST. 


INITEALIZE THE 3791 


TEST FOR SSW 106 
HALT -FF- IF ONe 


SET FNCT REG TO LATCH TRL 1.36 
LOAD DATA TRANS REG WITH ~-01-. 
CLEAR CATA TRANS REG. 

¥SSUE CONTROL 1 START 1/06 

00 ONE DUMMY SENSE TO STALL. 
SENSE TRANS LINES FOR -F900-. 


DIO TRANS LINE 1 RESET ? 
BRANCH IF NOT. 


LOAD DATA TRANS REG WITH ~04-.4 
CLEAR DATA TRANS REG. 

ISSUE SIO CONTROL ft TO RESEY TRL Se 
DO DUMMY SENSE TO STALL. 

SENSE TRANS LINES FOR ~F900-. 


OI0 TRANS LINE 3 RESET ? 
BRANCH IF NOT. 


DO GENERAL 3741 RESET. 


RETURN TO DCP. 


PROG 10 402-1 
PAGE 5 


| 


Ooo 60 6 Oo 


f 
t 
: 


s 
170 TRANSFER LINES 2 & 3 ARE * 
CHECKED FOR RESETTING. 2 
. 


© 0 


mA AY O 


! ; 
he 


Sens 


) 


600 0 0 0 





4021 


ERR LAC 


OQEAG 
CEAA 
CEAE 
OErei 
oEBS 
OEBS 
oesc 
SE BE 
cEeeFr 
OEC®: 


oECcS 
oOEC7 
cece 
OECA 
otce 
oECo 
oco1 
SEOS 
3EO7 
vEOOD 


cEDO 
OECE 
cEOF 


OEE? 
cees 
CEES 
OEE? 
coEES 


oEEB 


O&rEF 
OEF3 


OEF6 
CEFA 
OEFO 
OFO? 
OF 04 
oFcs 
oF 08 
OF OF 


OF13 
OF 19 


OF tc 
OF 1F 
OoF23 
GF26 
OF 2a 


OF 2E 
OF 34 


OaTE 
EC NGe 





IBM MAINTENANCE OCIAGHCSTIC PROGRAM 


3741 ATTACHMENT TEST WITH -—wWRAP CONNEC TOR- 


OBJECT CODE 


3c 
38 
F2 
3c 
3A 
co 
c2 
20 


1 
03 
e7 
Fa 
01 


1AAS 
&62E 


<0 
os 


87 . 


F900 
9000 


FF 
co 


87 


e312 


co 


ev 


402E 


co 


06 
oo 


af 


OF OF 


co 
a5 
20 


87 


1ad0 
40a8 


co 


co 
=9 


31 
F3 
30 
F3 
30 
F3 
30 
30 


00 
F2 


F3 
30 
F3 
30 
30 


oo 
Fe 


TEAUGTSE 
e2a765 


87 


87 
3¢ 


ai 
43 
43 
a3 
43 
a3 
43 
43 


01 
O88 


43 
43 
43 
83 
a3 


of 
01 


1a96 
of02 
ce 

1agé 
OED] 
O214 


33S6c 
0222 


0216 


O21a 


131D 


13¢3 
3¢ 


16860 
10 
OF 8&0 
08 
oFaD 
20 
OFBO 
OF 8D 


OF6D OFSB 
30 


20 
OF 8D 
10 
OFB8D 
CFSD 


OFSD oFeB 
31 


ADOR 


OED 
OESE 
OECO 
eEce2 


OEC? 
oEeECcS 
oECS 
GECC 


CED] 


CEDs 


OED 
OECE 
OEEO 


OEES 
CEES 
OEES 
OEEA 


TSNOVTs 
8248670 


“TMT 


£93 
594 
$e5S 
596 
S97 
5986 
sss 
600 
601 
602 
6c3 
604 
60s 
606 
607 
638 
&09 
618 
612 
6i2 
€13 
614 
625 
616 
G17 
618 
619 
620 
621 
622 
623 
628 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
64% 
642 
643 
6446 
6465 
645 
647 
648 
649 
659 
651 
682 
683 
684 
6ss 
656 
657 
6358 
sss 
660 


SOURCE STATEMENT 
* ROUTINE OF ERROR MESSAGES © 
ERTA MVE ONCTS-23—x"F 1° SET UP FOR TRL 2 RESET CHECK. 

SBF MPCT.x*0128 SET FOR ENTRY 2 MAP REFERENCE> 

J 3443 
ER7B #VI)| ONE TS -t3—xeF 3° SET UP FOR TRL 3 RESET CHECK. 

SBN MPCTexKPOLe SET FOR ENTRY 3 HAP REFERENCE. 

) PRINT PRINT TRL 1/2 RESET CHECK. 

oC ML I°C2° ‘ 

oc Iw1e32¢ 7 

oC AL 2CONOTS) . 

oc XL Z*a02€¢ (SAME ID AS RTNOB) 

8 ERROR DUMP TRANS LINES. 

oc xL3*03° 

oc xL2°€900* EXPECTED. . 
SNS7TT Of xXL2°00c08 -ACTUAL« 

oc YLItEES 

) MAES POINT TO MAP CHART. 
MPO? ot ML Z*°9212¢ —-PAGE 931. ENTRY 2/36 

8 MALT ERROR HALT ~2E-. 

oc XLZ*eO2E° 

8 LIK RETURN TO DCP. 
S4+ERSERRE 
* RTNOS * 
FSETSATSL ESS HEE VERSSER ES SOS LVRS SERSESHK ASE SSERRAE HLT ES TOKE AETERERERNTSHEE VSD 
* * 
* ROUTINE Ca 1/0 TRANSFER LINES @. 6 & 7 ARE * 
* CHECKED FOR RESETTING. * 
* * 
FERERTEEGES FEDS EERE EEE FSR AEAELHGE TESS RES SELERK HES SBORKES OELITEAERAATEE ERE 
RTNOE DC xL1°08° ROUTINE NUMBER 

pe XL 3°00 NO MANUAL INTERVENTION REQUIRED 

oc ALZ2¢RTNOOD ROUTINE 09 ADDVESS 

& PRINT PRINT LATCH RESET OF TRL 4.607 

oc mL iease 

oC tLicase 

be AL 2(HDC8) 

oc XL2*e0a8¢ 

8 INXTL INITEALEZE THE 3741 

8 Ques TEST FOR SS# 106 

“HPL x*3C%,xe3Ce HALT -FF- IF ONe 

LID HO1BSexta18 SET FNCT REG TO LATCH TRL 102030 

SIO = X*10%,xXee3" ISSUE SIO CONTROL 1 TO CLEAR LOGIC. 

SNS SNS68«xX*43¢ STALL BEFORE ODING THE NEXT S10. 

SIO —-X*CAt,xXFa ye OO CONTROL 1 TO LATCH TRL 4. 

SNS  SNSE8.x*42° STALL BEFORE DOING NEXT Si060 

SIO X# 109 .x*Q38 DO STO CONTROL 1 TO RESET TRL*S. 

SNS  SNS68.xK*43° DO DUMMY SENSE TO STALL» 

SNS SNS8BeX* 43" SENSE TRANS LINES FOR -Fo00-. 

CLC = SNS88( 294 SNSBB~2 DEO TRANS LINE 4 GEY RESET 2 - 

JNE ERsE BRANCH IF NOT. f 

SIG = X20". xea428 ISSUE CONTROL 3 TO LATCH TRL Ge 

SNS  SNS86eX"S3* STALL BEFORE ODING NEXT S10. 

SIG = - XK" 20% .xtaze CO SIG CONTROL 1 TO RESET TRL*S. 

SNS SNS8B,xX*@2° 00 OUNMY SENSE YO STALL. 

SNS SNSB8Bex*43" SENSE TRANS LINES FOR -F900-. 

CLC = SN88 (2) » SNS6B-2 DID TRANS LINES GET RESET ? 

JNE ERBE BRANCH EF NOT. 


PART NGe $S$S8423 
PAGE SA 


PROG ID 
PAGE 


402-1 
Sa 








my 


Atte, 


et, 


Q 
G 


IBM MAIRKTENANCE DIAGNOSTIC PROGRAM PART NOe §5584a23 18M MAINTENANCE OLAGNOLTIC PROGRAM PARTY NOe §$556423 
c PAGE 6 © PAGE 6A 
402t 27641 ATTACHMENT TEST WITH -WRAP CONKECTOR= 8021 3781 ATTACHMENT TEST WITH -—WRAP CCNNECTOR- 
a 
ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBSECT CODE ADDR STMT SOURCE STATEMENT 
c 661 ; €: OFBC 31 45 16C1 729 Lio HOOFF «Ke45¢ ENMAD DATA TRANS REG ULTH -FF—o 
. OF 27 FRB 43 40 662 SIO Kt 80% Kt aS* O0 CONTROL 1 TO LATCH TRE To OFCO 31 45 1699 7306 LIG HODOOex*4S* CLEAR DATA TRANS REGISTER: 
OF 3A 30 43 OF BD 663 SNS SNEGG0K*43 STALL BEFORE DOING NEXT STO. oFca 30 43 1000 731 SNS SNSOAReX*8S* SENSE 1/0 TRANSFER LIMES FOR -FE0C~o 
c OF 3¢ FS 43 10 664 SIG 8108 eK a3e OG SIO CONTROL £ TO RESET TRL PSs 732 
OF 41 30 4&3 OFSD 665 SNS SNELE, xR DO DUMMY SENSE TG STALL. oFce OD 0% 1000 t06& 733 CLC «= SHE9AC2P eSNSOA—2 TRANSFER LINES AS EXPECTED 7 
| OFS 3O 43 OF BD 666 SNS  SNSB6B.K"43* SENSE TRANS LINES FOR -F900~e G OFCE F2 OL 2A 734 JNZ  ERCTA GRANCH ITF NOT. 
t 667 / & T32s 
. OF49 OG 01 OFSD OFSE 668 cic sNSseeC2).ENS8E-2 DID TRANS LINE 7 GET RESET ? OFC? F3 42 00 736 SIO KPOCT eX*RE* ISSUE READ CALL TO RESET TRL Me 
. OF4F F2 01 21 669 JNE EREF BRANCH IF NOT. 6 OFO2 30 43 1081 Y37 SKS  SNSSO,xXt4a35 SENSE TRANS LINES FOR ~FCO—« 
t 670 ‘ 3 738 
: OFS2 FB 460 OD 671 SIO KX*aDtex*aoe DO GENERAL 3742 RESET. OFOB OO OF EGEE I6CS 739 CLC SNSEOOC2} oRFCOS TRANSFER LINES &S EXPECTED ? 
OFSE CO BF 0216 672 8 LIAK RETURN TO OCP. OFDE F2 O01 JE 7&0 JNE ERO98 BRANCH IF NOT. 
c 673 ¢ var 
‘ 674 * ROUTINE O08 ERGOR MESSAGES ® OFEL F3 40 08 742 SI56  K*CH*e K*408 O0 SID RESET VO 374 
675 743 
i OF SS 3C OA OF BC 676 ERBH WVE SNEEE—te KS OAT SET UP EXPECTED TRANS LINES~ a OFES F3 42 00 746 SIC xK8OCt. KeaTE ISSUE WRIYE CALL TO RESET TRE Se 
OFSD 3€ Fa LaS6 677 avE ONCTS~13-K*FAt SET UP TRL & CHECK. OFE? 30 435 108! 745 ENS  SNSGS»x*43* SENSE TRANS LINES FOR -FE00-<« 
; OFEL 3C 14 OFS4 678 MVE |= MPOBLX*84* SET FOR MAP @ ENTRY REFERENCE. 746 
c OF6S F2 87 13 679 3 PRTe8 - 60 PRINT ERRORe & OFES OF Os 105% 16¢8 FT cLc SMSSOC2).NFEOD TRANSFER LINES 4S EXPECTEO 7 
, 680 OFF1 F2 01 3D 748 JNE EROSC GRANCH IF NOT. 
OF Ge BC FE 1096 681 ERBD MVE ONCTS<13eX°FS" SET UP TRL 6 CHECK. TE6¢ 
= OF6C 3C 35 OFD4S 682 MYT | MPCH.Ke15S* SET FOR MAP 5S ENTRY REFERENCE™ eG: OFF4 F3 40 OD 750 SIQ xX*OD4ex*4gr OO GENERAL 374E RESETs | 
OF 70 F2 87 08 683 s PRITBS PRINT CHECK MESSAGEe OFF? CO BT 0236 75i 8 LEAK RETURN TO OCP. 
68a ' 752 
as a UF73 3C F? 1A96 685 EREF MVE ONC TS<13exX*F7* SET UP TRE 7 CHECK. ‘ © 753 # ROUTINE O9 ERROR BESSAGES ® . 
, CF77 BC 16 OFS4 686 MVI = MPC6,X*1E* SET FOR AP 6 ENTRY REFERENCEs : 754 
est OFFB CO 87 C214 755 EROSA 8 PRINT PRINT INIVEALEZATION CHECK< 
f. OF7B CO B87 O21A 686 PRTES 8B PRINT PRINT TRANS LINES OfD ROV RESET. & OFFF C2 OoFFe 756 oc xm L°Cc2* 
OF 7F C2 OF7F 689 oe MLitc2¢ 1000 t2 1000 4757 ec TL3*26¢ 
: oFeo 20 OoF80 690 DC 2L1°32° tes #001 1a3e aoo2 se oc At 2COESCK? 
€ OF81 2AAZ oFB2 691 oc AL ZCONOTS? - - Se 1003 402F :004 759 oc XL2°¢402F" 
CFG3 402E OF84 692 oc KLZ°SO2E° - 760 
cFes co 87 1558 693 8 ERECR DUMP TRANSFER LINES « 1005 ¢O 37 3556 76% 8 ERROR " DUMP TRANS LINES: 
£ OF BS O23 OoFS9 698 oc KL1°O3*  #) 1009 03 2009 762 ° ge KLE*O3* 
oF BA F900 oFeB 695 oc XLZSF900* EXPECTED. 100a FeOC 1008 763 oc KL 2*F B0C* ~EXPECTED. 
ze eFrac 0000 oFeD 696 SNSB8B OC MLE*0000* “ACTUAL « 100¢ occ0°o 2000 764 SNS9A DC KL Z°O000* “ACTUALes 
t OFSE FF OFBE 697 oc XLISFFE G S00€ FF 200E 765 oc MLEPERS 
, tf BF CO B7 134C 698 e MAFS POINT TO MAP CHART. ; 100F CO 87 139C ~ 766 8 MAEcS POINT TO MAP CHART. 
, OF93 92700 OF94 699 mMPDB OC xL2°e300* —PAGE 931+e ENTRY £¢5eOR Ge #023 9333 10%4 767 oc KLZ*O331° “PAGE 933+ ENTRY te 
i OF SS CO a? 0222 700 8 HALT ERROR HALT —2E~e ae 2018 CO e7 0222 768 8 MALT ERROR HALT —2F—-< 
CFS9 402E OFSA 701 pc XL2*402E* 1019 4025 102A 769 oc 42° 402F* 
= OFSB CO 8&7 6216 702 e LIAK RETURN TO OCP. 101B CO &7 02:6 770 8 LIRK RETURN TO OCP. 
C 703 © 771 
704 101F Of OF 2056 16C9 772 E€ROOB MVC = SNESS~— 102) HFCOS SET UP FOR READ CHECK 
- 705 Sh#esaee ts 102€ 3c F& 1A96 773 MVE ONCTS—13—X"FS* 
f €. 706 @ RTNOD © Cc 1029 38 0: 1058 77a SBF MPCGsXxtOS* SET MAP ENTRY 2 REFERENCEs 
TOT RARERREEEEEEEES BOSE EESEEEE ESD EERSERSEERDESE SESEEES SES EES EE TOTESRE FEST SS £02D co S7 103F T785 ‘gs e418 
7oB * * 1032 oC Of 1050 16CE 776 EROGE BYE SNE9O—1(2)2eHFEOO SET UP FOR WREVE CHECKes 
5 €. 709 * ROUTINE C9 TEST ABILITY OF READ & WRITE CALL * Cc 1037 3¢ F3 1096 777 MVE ONCTS—13eX*F3* 
: T10 * TO RESET TRANSFER LINES 3 €& Se e. 2033 3a O1 1056 778 SBN UPCOX*0E* SET MAP ENTRY 3 REFERERCEs 
; 731 © «. 779 
i C r12 SAREROEEREEEERES C00 8EEERSERESENERES EERE ERS RESEEESSESEES SEES SESETS EE EESSF 3 103F CO 87 O2%A Te0 8 PRINT PRINT TRANS LINE X CHECK: 
CFSF 69 OFSF 713 RTNOD OC xLr*o9* ROUTINE NUMBER 1083 C2 £083 781 oc mE gec2* 
- OF AO 00 OFAO 724 oc xXL1°00* NO MANUAL INTERVENTION REQUIRED 1044 20 1048 782 oc tLEes2* 
‘ OF AL 10€3 ofa2 715 oc AL 2CRTNOA) ROUTINE OA ADDRESS 2: £045 1443 1046 783 oc AL 2CONOTS) 
716 10a7 6030 2046 78e oc ML 2° a030¢ 
OF A3 CO 87 O2EA 717 8 PRINT PRINT RESET TEST HEADING. 785 
. OF AY 45 OFA? 716 oc xL1%45° 2) 2049 ¢O 67 1555 786 8 ERROR DUMP TRANS LINES. 
OFAB 36 OFAB 739 oc IL1°S6¢ 2040 03 202d 67 oc ML2°O3* ‘ 
: OFAQ 1868 OFAA 720 bc AL 2CHDO9? 106E 0000 s04F 756 oc xLe*o000* EXPECTED. . 
t OF AB 40A9 OFAC 721 oc XLZ2*a0ag® ¢ 2050 O000 405% 789 SNSSO OC xLzZso000* ~ACTUALe : 
722 10€2 FF 10S2 790 2c XLESPre : 
OFaD CO 87 1310 723 8 INSTL INITEALEZE THE 3742 2053 €O EF 1390C 792 8 MAES POINT TO MAP CHARTS 
£ 728 €: 10S? 9332 1058 792 MPOo OC XL e#9232° “PAGE 9330 ENTRY 2/30 
cFe! CO 87 13C3 728 8 Ques TEST FOR SS 106 1059 CO 67 O222 793 6 HALT ERROR HALT ~30-6 
OFBS FO 3C 3c 726 MPL K8 3C 8 KO BC* HALT -FF- IF ONe 205D 4030 $OSE 794 oc xLZ°ao30* 
- “te? €5 ss 105F co eF 286 796 8 L KK RETURG TO OCP. 
OFBS 31 41 168F 728 tI0 HOEB2«Kta1" SET FNCT REG FOR EVEN PARETY EFCo 
L ¢ & : . . . ; 
DATE LEAUG7T4A —«- LSNOVTS PROG 10 ace~t Oate LEAUGTS LSNOVTS eR0G ID a02-1 
, FE NOo 28765 e24&70 PAGE 6 EC NO. e2e7S5 Q26870— Pace 6A 
; 


@ 


eeee eo yosoe 
eoeeeseeeeveeneeeeeeeee 888888808 © 


cere ORE I eR 





4 
aw 


om 


on 


ony ons. 


7. 


aN 


TBM MAINTENANCE DLAGNOSTIC PROGRAN 


4021 


ERR LOC OBJECT COE 


10€3 
1064 
106€ 


1067 
1068 
310 6C 
2060 
i0€F 


1071 


1075 
1079 
307C 


1080 
1084 
1085 
1086 
1088 
108A 
108F 
1090 
1964 
10S€ 


10GA 
1090 


IOA1l 


ORS 
ICAS 


1OAC 
1080 
10 84 
1087 
10BA 
106E 
icce 


1OCE 
ioce 


10CF 
10D2 
1005 
1009 
1000 


10€1 
10E€7 


10EA 
10ED 


OATE 
EC NOe 


3741 ATTACHMENT TEST WITH -—SRAP CONNEC TOR~ 


OA 
00 


1115 


co 87 


4s 
49 


1B51 
40ARA 


co 


31 
F3 
C1 


co 
c2 
10 


e7 
al 
41 
42 


é7 


1a6F 
4035 


co 


a7 


$355 


co 


67 


4035S 


co 


fF3 
ci 


co 


31 
31 
FS 
F3 
3: 
31 


~~ 


30 


oo 
F2 


F3 
F3 
32 
3% 
30 


oo 
Fe 


FS 
co 


av 


ao 
a2 


o1 
oY 


at 
43 
45 
4s 
43 


01 
1 


40 
87 


O2ia 


1310 


1699 
oo 
109A 


O21A 


139¢ 
0222 
G2ré 


0o 
icac 


2310 


13c3 
3c 


16¢c0o 
1699 
a0 

O04 

26a 
1699 
1103 


2102 
22 


co 
04 
16¢C3 
1699 
1103 


1103 
Oo? 


oD. 
0216 


I6AUGTS 
624765 


ADOR STMT 


1063 
1068 
1066 


1068 
106C 
106 
1070 


1084 
1035 
1087 
1089 
108F 


1095 


1201 


2101 


1S5NOV74 
824270 


7S? 
798 
739 
800 
801 
602 
803 
804 
8c5 
806 
807 
sos 
B09 
810 
elt 
ai2 
813 
e1a 


ais 


816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
82T 
828 
829 
e30 
a3 
832 
833 
634 
835 
836 
837 
e838 
339 
B40 
841 
842 
843 
B44 
sas 
846 
8aT 
848 
3849 
8so 
851 
8s2 
853 
854 
8S5 
S56 
e57 
es6 
8Ss 
8590 
861 
e€62 
863 
864 


SOURCE STATEMENT 





PART NOe 
PAGE 


7 


EAKERRRSLESERAEEEKAERERRERSRECKRE SEC HS SHS FEES ESKTKE HETELHKSCELLSE KEKE ESE 


TEST RESET OF 170 DISCONENCT CATCH 
WITH 170 TRANSFER LINES 3 


Se 


* 
% 
cy 
* 


KHEERSERSASLVLE BREST OF ELISE ERELBHRAKSESEALAAKS PELE AED ERE EASE ELE LEE KEE SK F 


HEREHARGD 

* RTNOA *@ 

* 

* ROUTINE CA 

* 

* 

RTNOA OC XL2°OA® 
oc xL 2*OOSs 
oc AL 2CRTNOE? 
8 PRINT 
oc XL1*85¢ 
oc IL3°73! 
oc AL 2(HOOA) 
oc XL2"*S6OAat 
8 INITL 
cre HO000.X*41* 
$10 KE OO%e X41 * 
T10 SHCBSY.x* 428 

DAMBSY 8 PRINT 
oc xLiecee 
oc mwaiciée 
oc aLl2cesy) 
aC xXxL2*4035¢ 
8 MAFS 
oc XL2*°9355* 
8 HALT 
oc ML2*&O03E° 
8 LIKK 

SHDBSY SIO X*0D%ex*aGc? 
Tic DANMBSYeX* 42° 
a INITe 
B GUES 
HEL xe3Ctex*3cCt 
Lio HOEBSe X*49% 
LIo HOCOO,x'45! 
Sic K*CO*® eX*43° 
s1a x*C&*,Xt4a3! 
Lic HOSOS «XK*#a5S?* 
LI0 HO000s+x*45! 
SNS SNSAASK*&a3t 
cic SNSAA(2}) oe SNSAA~2 
JNE EROCA 
sito KECO%axt41# 
s1o ROA Xt AZt 
cic HOO10.6xK*"45°* 
tra HOCOOeX*45# 
SNS SNSAAe X*63% 
cic SNSAAT2) « SNSAA~2 
JNE EROA 
sia KX*0D*. X8ace 
8 LIKK 


* ROUTINE OA ERROR MESSAGE * 


ROUTINE NUMBER 
NG MANUAL INTERVENTION REQUIRED 
ROUTINE O8 ADDRESS 


PRINT DISCONNECT HEADING. 


INITIALIZE THE 3742 

REMOVE 3741 FROM DIAGNOSTIC MODE. 
ISSUE A READ CALL TO CAUSE BUSY. 
BRANCH ON BUSYe 


PRINT 3741 BUSY CHECK. 


POINT TO MAP CHART. 
“PAGE 935. ENTRY Se 
ERROR HALT -35—< 


RETURN TO DCP. 


OO SIO RESET TO CLEAR THE BUSY. 
SRANCH OUT IF STIit BUSYe 
GO INITIALIZE THE 3741 


TEST FOR SSW 10. 
HALT -FF- IF GNe 


SET FNCT FOR EVEN PARITY. 

CLEAR DATA TRANS REGISTER. 
ISSUE A REAO CAtLo 

ISSUE START 170 CONTROL 1. 
LOAD DATA TRANS REG WITH -04-. 
CLEAR DATA TRANSFER REGISTER. 

SENSE TRANS LINES FOR -F800—. 


TRANS LINES 
BRANCH 


AS EXPECTED ? 
IF NOT. 


ISSUE A READ CALL. 

DO START 1/0 CONTROL Ite 

LGAD DATA TRANS REG WITH -10-.2 
CLEAR DATA TRANS REGISTER. 
SENSE TRANS LINES FOR -F8G0-e¢ 


TRANS LINES AS EXPECTED ? 
BRANCH IF NOT. 


OG GENERAL 3741 RESET. 
RETUPN TO OCP. 


PROG ID 
PAGE 


6 USEC RST 


“ 


508000 


5556423 


402-1 


? 00 6 % 


QO |] of © 0 9 


©o 0 60 9 


f 


wus 


O00 9 ©) © 





TBM MAINTENANCE DIAGNOSTIC PROGRAM 


£021 


ERR LCC 


10F 1 
10FS 
i0FE 
10F7 
10OF9 


10FB 
10FF 
1150 
1102 
1104 
1165 
1109 
1108 
110F 
4233 


111¢ 
1116 
1117 


1219 
2210 
a22E 
ILiF 
a121 


1123 


1127 
1128 


11 2€ 
1132 
1136 
1239 
4230 
1241 


was 
1146 


11 4E 
1152 
11456 
aiss 
1150 
1161 


3116S 
1368 


II6E 
1172 
117¢ 


1179 
2170 


OATE 
EC NOe 


374i ATTACHMENT TEST WITH -XRAP CONNEC TOR= 


OBJECT CODE ADDR STMT 
CO 87 021A ees 
c2 10FS 8f6 
24 10F6 e67 
1000 10F8 B65 
6031 10FA 869 

870 
co 87 1558 e771 
03 10FF 872 

Feoo 1201 873 
0000 1103 874 
FF 1104 875 
co e€7 139C ers 
9351 110A 877 
co 87 9222 878 
4031 1110 e79 
CO &7 0216 880 

881 
882 
aes 
8384 
885 
£86 
as7 
88s 
ess 
oe 1125 890 

oc 11i6 891 

2190 11318 892 
893 

CO 87 021A 894 
as 1110 895 
41 111E 896 
16F2 1:20 897 
a0aB 1122 898 

399 

co 8&7 1310 900 

901 

co 87 13¢3 902 

FO 3¢ 3c 903 
904 

31 41 16c5 905 
21 41 36C7 906 
F3 42 01 907 
31 4S 1690 908 
31 45 1€99 $09 
30 45 1168 910 

911 

OD Of 1188 1189 912 

F2 01 28 913 
914 

32 41 16C5 915 
31 41 16C7 916 
F2 41 02 917 
31 45 1698 918 
31 45 1699 919 
30 4£ 1188 920 

921 

OD 01 1188 3189 922 

F2 01 08 923 
926 

31 41 1688 925 
F3 40 0D 926 
CO e7 0216 927 

928 

929 
930 

CO 87 O21A 931 
c2 1170 932 
2 €AUG74 1SNOV74 
824765 626870 


SOURCE STATEMENT 


EROA 8 
oc 
cc 
cc 
oc 


8 
oc 
oc 
oc 
oc 
5 
be 
e 
oc 
8 


SNSA4& 


SkESESAGES 
* RTINOB + 


PRINT 
xLi°c2? 
IL1536° 
AL2(PSOIS) 
XL 2*9031¢ 


ERROR 
“17038 
AL Z*FSOC 
xLz*000C® 
XLISFFSE 
MAFS 
XL2°935i°* 
HALT 
xL2°4031* 
LINK 





PART NGe 
PAGE 


$$56423 
TA 


PRINT OFSCONNECT CHECKe 


DUMP TRANSFER CINESe 


-EXPECTEDe 
~ACTUAL e 


PCINT TO #AP CHART. 
~PAGE 935-4 ENTRY ie 
ERRGR HALT —3i-6 


RETURN TO DCP. 


SEKSEKSKERSSRKEELAKSEEREL SESE STEKAEKE KS SEAKSERKIR 'SRKELS ECE KSKRKLERKA LARK KEKE TES 


* * 
* RTUTINE oe USE 170 TRANSFER LINES 1 6&6 2 TQ * 
* CAUSE ENO OF TRANSFER CEDT). » 
+ * 
VEEL SEERA FSKSERSFSRELKAKKESREKSEKRKFRAAKATHESSLACEARFASTEKSSAERATCKCRERESRESCEKAKSE KH A 
RTNOB OC XL1I* OBS ROUTINE NUMBER 
oc MLaitoce NO MANUAL INTERVENTIGN REQUIRED 
DC ALZCRTNOC) ROUTINE OC ADDRESS. 
6 PRINT PRINT EOT MEADING. 
oc xLE*ase 
oc IL21*6S* 
oc AL 2(¢:DOBS 
NC XL2*a0aze 
8 INET INITIALIZE THE 3741 
8 QUES TEST FOR SSW 10. 
HPL x*3C*.xe3ace HALT -FF= IF ONs 
“Lis H3CH2exeare SET FNCT RES FOR 6 USEC RESET. 
Lr9 H3CBO.X*41* RELOAD THE FUNCTION REGISTER.” 
sia K°OL* oxta2ae ISSUE A WRITE CALLe 
L110 HOTO2.x*ase LOAD DATA TRANS REG WITH -O02—6 
“ito HOCOO.x?ass CLEAR OATA TRANS REGISTER. 
SNS SNSEBKt4S55 SENSE DLAGNOSTIC/DATA TRANS —C890-- 
cLe SNSEE (2). SNS6E~2 DIAGNOSTIC/DATA TRANS AS EXPECTED ? 
JNE EROS BRANCH IF NOT. : 
L110 H3ICAZeX*aLe LOAD FUNCTION REG FOR 6 USET RESET. 
t1a H3CBO,x* ar? RELQAD FUNCTION REGISTER. 
s10 K7OL¢.xears ISSUE READ CALL. 
Lic 40001,x*4s5*¢ 1CAD DATA TRANS REG WITH ~O2-6 
Lio HOCOOsX* ast CLEAR DATA TRANS REGISTERs> 
SNS SNSBB,xX*48¢ SENSE DIAG/DATA TRANS FOR -0800~.s 
cLC SNS8BC2) »SKSBB—-2 OVAGNOTSTIC/DATA TRANS AS EXPECTED 7? 
JNE EROS BRANCH IF ROT. : 
Lio HOCB2 Keats SET FUNCTION REG FOR 6 USEC RESET. 
sIo X®GD*,xK* 408 O0 GENFRAL 3741 RESET. 
8 IK RETURN TO OCP. 


* ROUTINE 08 


EROS B 
oc 


ERROR MESSAGE % 


PRINT 
xL1'c2¢ 


PRINT EQT CHECK. 


PROG 10 
PAGE 


402-1 
7A 





. 
x 
‘ 
' 
se etn eens. cr Mirena eitictratncee 
Cc 


Fat 
00 0 


18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOG. 5558423 IBM MAIKTENANCE DIAGNOSTIC PROGRAM PART NO. 5558423 
t- PAGE 8 PAGE BR 
_ 4021 3741 ATTACHMENT TEST WITH -WRAP CONNECTOR- a 3741 ATTACHMENT TEST WITH <WwRAP CONNEC TOR- 

f ‘3 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SCUPCE STATEMENT 
- f 
( 117E 13 117E 933 oc TLreaige es $602 
117F 1830 1180 934 pe AL2CEOT) . 2211 31 41 16aF 1002 LIG HOLACe xa? SET UP FUNCTION REGISTER. 
1181 8032 1182 935 oc XLZ*@O2Ze 121£ 3% 45 16¢C 2003 LIQ H#0008ext4se LOAD -—O8- IN DATA TRANS REGe 
c 936 C> 1229 31 a5 1699 1U04 LYO HOCOOeK*4S* CLEAR DATA TRANS REG. 
1183 CO 87 1558 937 8 ERROR DUMP DIAGNOSTIC/DATA TRANS REGISTER. 1210 30 43 1656 1005 SNS SNSOCeX*43° SENSE TRANS LINES -F90A—6 
: 1187 05 1187 938 Dc XL 1°05¢ 1606 
€ 118 O800 1189 939 pe xLZ*08008 ~EXPECTEDe €= 1223 3c oa 1654 1007 MVE SWEOC-2ex°0A® 
118A 0000 1188 940 SNSBB DC XLZ*0000° ~ACTUALs L22£ 20 OA 1456 1008 CLE = SNSOCex#0a8 TRANS LIKES AS EXPECTED ? 
. 118¢ FF 118C (941 oc XLLCFEe e 1229 F2 01 @D 1009 JNE  -ERCC JUMP IF NOTe 
¢ 1180 CO e7 139C 942 B MAES POINT TO MAP CHART. 2 Lote 
1191 9352 1192 963 DC XLEtg3Eze “-PAGE 935+ ENTRY 20 122¢ 31 G1 164d 1011 LID HOMBORKP AEE RELOAD FUNCTION REGISTER. 
: 1193 CO e7 C222 944 8 HALT ERROR HALT -32-« oO 1230 30 43 1656 1oiz SWS  _ SNEOC exX* 438 SENSE TRANS LINES -F900-e 
: 1197 4032 1198 965 Dc XLZeaozze 3 1013 
7 1169 CO 87 0216 945 B LIAK * 2 RETURN TO DCP. 1224 3C 05 1654 1014 MVE = SNSOC-2 ex 008 
= 947 1238 3D 00 1656 2915 CLE  SNEOCex7008 TRANS LINES AS EXPECTED ? 
C 968 seceeeees €3  123¢ F2 01 7A 1016 vNE - EROC SUMP IF NOTe 
949 * RINOC # 1017 
Pe G50 SKESKSEERAERAEKES SARE SELSSSESESEEKKAEEEKSEESEEKTERERERAESEKTSAEESECSEKKEAREKESKER 1L23F 31 41 16A0 1018 tro HOEBO. x*® 428 SET FUNCTION REGISTER. 
€ O51 # « €% 1263 31 45 1685 1019 LID HOdzOex458 LOAD ~20- IN DATA TRANS REGe 
: 952 * ROUTINE cc TEST EVEN PARITY AND WRAP VARIOUS PATTERNS *# 32€7 31 45 1699 1620 LiO HOcOo.x*ast CLEAR 2UT DATA TRANS REGe 
: 953 *« TO THE 1/0 TRANSFER LINES» * g 1246 30 43 1656 £02) SNS SNSOCox*43- SENSE TRANS LINES ~F922-« 
c € 954 * * o 2022 
ve SSS KKKKREAKRSESKAKSE SSS SEEKAAKSESE SSKSSSSESTEKEKEKSECAKERERKAERSERKSE SRE EE KCKEKKKESSHREKE KE 1246F 3SC 22 16864 1023 MVE SNEOQC-$2¢XKe 228 
7 119D oc 1190 $56 RTNOC DC xL2°0C8 ROUTINE NUMBER 1283 30 22 1655 1024 CLI SNSOCex"22" TRANS LINES AS EXPECTED ? 
L1SE 00 11SE 9587 oc XLE*00° NO MANUAL INTERVENTION REQUIRED €) 1287 F2 01 SF 1025 INE —-« EROC JUMP IE NOT. 
119 FFFF 11A0 958 oC XLZ*FFFE LAST ROUTENE. 1026 
7 959 125A 31 41 16a7 1027 LIC} HOCESextere PUT 3741 IN DIAGNOSTIC MODE} 
i 1LA1 CO 87 O23A 960 8 PRINT PRINT LATCH TEST HEADING. €>  125€ 30 43 1656 1028 SNS  SNSGC2X* 438 SENSE TRANS LINES -F900-. 
11A£ 45 11AS 961 oc XL1°45¢ 1029 
: 11A6 37 11A6 962 pe iLiesse 1262 3c 00 1654 1030 MVE SNEOC~2.x*008 
& LLAT £029 11AB 963 pc AL 2(HBOC) €3  126€ 30 00 1656 1031 CLE SNEOCexE CCE TRANS LINES AS EXPECTED ? 
LLAS 40AC LAA 964 oc XLZ*A0ACE- 126A F2 01 4c 1032 JNE  ERCC JUMP IF NOT. 
7 965 1033 
Co 1LAB CO &7 1310 966 8 INITE INITIALIZE THE 3741 €3 1260 34 41 16A0 1034 -LIO MOoLBOWKeaL® SEY UP FUNCTION REGISTER. 
967 1272 31 65 1681 2035 LIO 6HOCaOeK*45* LOAD -G0- IN DATA TRANS REG. 
ILAF CO e? 13¢2 968 8 Ques CHECK FOR SSW106 J27E 31 4& 1E9¢ 1026 LI HO00D.xKt4S# CLEAR DATA TRANS REGes 
c. 1183 FO 3c 3c 969 HPL x# ace, xe3ce HALT -FF- IF ON. €3 1279 30 43 1656 1037 SNS  SNSOCex*43¢ SENSE TRANS LINES -FOe2~. 
970 . ~ 1038 
. 118€ 31 45 1685 971 LIC HOCeCexsa5E* LOAD THE DATA TRANS REG WITH A -2C-. 1270 3c 42 1€58 1039 NVI - SNSOC-2 ex" 4ze 
C 11BA 30 43 1640 972 SNS  YTEST.x*a3e SENSE 1/70 TRANS LINES FOR -FB2C~e €3 1261 30 42 1656 1040 CLE SWEOC»x*aze TRANS LINES AS EXPECTED ? 
1iBE 31 41 16a6 973 LIG HOERO xe als PUT 3741 IN EVEN PARITY MODE. 1285 FZ OF 3:1 1041 JNE  EROC JUMP IF NOT. 
11C2 Bi 45 1€85 O74 LIQ HOC2C,x*4ace LOAD SAME TEST PATTERN —2C— IN DTRe 2042 
2 116 30 43 1648 975 SNS  TEST-2exta238 SENSE 1/0 TRANS LINFS FOR -F9O2C~e C3 ss 1288 31 41 1607 1043 LIG HOCBOexFart PUT 3741 IN DEAGNOSTIC MODE. 
976 128C 30 43 1656 1044 SNS _ SNSOC.Kt43° SENSE TRANS LINES -F900-. 
7 11CA 39 01 164C 977 TBF  YEST-2ex°018 PARITY @IT OFF AS EXPECTED ? 1045 
a JICE F2 90 CE S78 JF PARITY JUMP IF NOTe &% 1290 3c 00 1658 1046 MVE SNSOC~26x*00" 
s79 12S@ 2D 06 1656 1047 CLI SNSOCex*00° TRANS LINES AS EXPECTED ? 
11D1 38 O1 164A 980 T8N YTEST-3ex*o1® PARITY BIT ON AS EXPECTED ? 1298 F2 Of 1E 1046 JNE  ERCC SUMP IF NOT. 
w apes ee eye es ope eae cae atid © 1298 CO 87 o21€ ieee B LIA RETURN TD OCP 
9 YAK URN e 
1208 31 41 16A7 $83 LIO HOCeO>ex*a1* PUT 3741 IN JUST DIAGNOSTIC MODE. 1051 
c 110C 31 45 1699 984 LIQ HOCOOex*ase CLEAR DATA TRANSFER REGISTERe @ 1052 * ROUTINE OC ERROR MESSAGES * 
11EO0 31 41 16€A6 985 LIC HO190ex*a4° SET SLAVE LATCH IN FNCT REG. 1053 
Z 11E4 F2 43 10 $86 SIO = X*® HOF eKPAZ ISSUE CONTROL 1 START 1706 129F CO @7 O21A 1054 PARITY B PRINT PRINT PARITY CHECKe 
C 11E? 31 45 16Al 987 LIO HOCOaKEaEse LOAD -04- IN DATA TRANS REG € sr2a3 c2 1243 1055 oc XLi°c2e 
1LEB 31 45 1699 988 LIG HocC0O.x"45 CLEAR DATA TRANS REGe 12A4 OD 12A4@ 1056 DC L213 
2 L1EF 30 463 1656 989 SNS  SNEOCex*638 SENSE TRANS LINES -F906—. 125 1036 1246 1057 oe AL?Z(PRCK) 
c 990 ’ 12A7 4033 1248 1958 oc xL2°4033° 
11F3 3C 06 1684 991 MVE = - SNSOC-2.x" 068 2209 CO eB? 139C 1059 8 MAES POINT TO MAP CHARTe 
11F7 30 06 1656 992 CLE  SNEOCex*0EF TRANS LINES AS EXPECTED 2 12AL 9353 22AE 2060 DC XLZ*o3S3° -PAGE 935. ENTRY 30 
b 11F8 F2 01 6B 993 SNE) EROC JUMP IF NOT. (3: 12aF co 27 0222 1061 8 HALT ERROR HALT -33~- 
994 1283 4033 2284 1062 pe XL2*4033° 
YIFE 31 41 16AD $95 CLIO HOLBO.xeare RELOAD FUNCTION REGISTER. 12ES5 CO 87 0216 1063 8 LIKK RETURN TO DCP. 
1202 30 43 1656 996 SNS  SNSOC,X*°43° SENSE TRANS LINES -F900-. 1064 
997 1289 CO 87 O21A 1065 EROC 8 PRINT PRINT SENSE ChECKe 
12CE 3C 00 1684 998 MVI SNEOC-2.x*CO8 ; , 1280 C2 12BD 1066 oc xLA*c2° 
é 120A 3D 00 1656 999 CLI SNSOCex*008 TRANS LINES AS EXPECTED ? €)s.128e 1€ 22BE 1067 oc TLs°308 
120E F2 Of AB 1000 JNE  EROC JUMP IF NOT. 128F 19F0 120 1062 pc AL2CSTRO) 
L € © 7 = 
DATE 1EAUG74 1SNCVTS PROG ED 402-1 DATE 1 €AUGTO ISNCV74 PROG 1D 402-1 
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_. YBM MAINTENANCE OLTAGNCSTIC PROGRAM PART NGe 5558423 IBM MAINTENANCE DIAGNCSTIC PROGRAM . PART NOs 5£58423 
f PAGE » & PAGE oA 
8021 3741 ATTACHMENT TEST WITH —WRAP CONKECTOR— we, 8021 3741 ATTACHMENT TEST WITH ~WRA4AP CONNES TOK] 
‘ qe 
ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT ERR LOC CBVECT COCE AD © STMY SOURCE STATEMENT 
C 12c1 4034 12C2 1069 oc xXLZ*aq3as & FIST SELRSRSES ARAVA LSSOSLSE HSL HERS REKKIRATHRAADS SE LHALEETKEEERASASHSESEASEEEDBODES 
12C3 OC 13 1039 17€85 1070 MYC PRI-67018}) «NCD3 I36C 3¢ O68 1398 $138 EPeEnNTI sT PRITSIARR ; STORE RETURN ADORFSSe. 
. i2c9o Co 87 1377 1071 8 EPENT2 PRINT TRANS LINE HEADING. & 1370 3C ©: 236E 139 AVE LIEAE eX*815 . SET UP TO SPACE 12 LINEo 
; 2c0 oc 0S 1034 1840 2972 eVC PRIT-£2¢€ 1063 .EB2 Ree 1374 €2 87 15 24406 J PRAT 
1203 ¢o e&7 136C 1073 8 EPENT! PRINT E€B12 HEADINGS 1377 34 08 i308 LL4i EPRNT2 ST PRTT4AZ 2 ARR STORE RETURN ADDRESS. 
‘3 1207 CC Of 1037 ie2¢ 1978 MYC PRI-89€15) -BITS Boo i378 SC &@2 138 3282 avi LISE.K* E2 SET UP TO SPACE 2 LINES e 
\ 1200 ¢oO 8&7 i377 i075 s EPENT] PRINT SI¥ LABLES. a i3TF F2 e7 OS 2143 J ORAT 
12E1 C2 02 165€ 1076 La WORK o XRE SET UP OUTPUT ADDRESSES> i2zee 34 98 1395 2248 EPRNTS& ST PRTTAES CARR STGRE RETURN ADODRESSe 
. 12EE C2 03 1037 1077 LA PRT~“49 2 XR1 13e€ 2C #6 128 1285 MvE LENE oX* 7265 SEY UP TO SPACE & CINES. 
R 12ES OC O1 1439 1€64 1078 MVC XP¥L2)eSNSOC-2 STORE EXPECTED BYTES. €> 1246 
I2ZEF OC O02 1438 1656 1079 MVC AC TC2) ce SNSOC STORE ACTUAL ®YTES. 1384 CO 87 G2iAa 4147 ONT 8 PRINT PRINT THE ERRGR MESSAGE IN "PRT, 
e 12FS CO 87 140E 1080 s BITSNF CALCULATE STATUS OF ACTUAL. ss 136E Of I3SGE 11468 LINE oc XLitoge 
i 12F9 1438 12FA 1081 oc AL2CACT? gS 13eF § $28F 1449 cc wL1°938 
l2FE CO &7 136¢ 1982 B EPENTI PRINT THIS STATUS. $390 2068 IS3: i150 oc AL 2 (PRT } ‘ 
. i2FF OC OA 1028 17A7 2083 ave PRT-G6802153.ERS bs 1392 OC SA iDGE 1D6S 2451 RYE PRTICSi) «FRITS: CLEAR ERROR MESSAGE AREA» 
é 13cs CG a7 243¢ 1084 8 CMEARE CALCULATE ERROR BITS. C: i398 co 87 9605 $152 PRITT & s~—& RETURN YO ROUTINE. 
1309 CO 87 1377 19085 8 EPENT]? PRINT THESE BITS. 2153 
: 1306 CO &7 139¢ 1086 8 MAES POINT TOQ MAP CHART. GS LESS SROKASSSEREKRHKE SH STSTHL SS PVPSLAEKESH RES LK SE RE RAESEAKASKETEATLABECSERS ETEAGERADSED 
¢ 1313 9254 13812 1087 oc xXL2*93546° “PAGE O35+- ENTRY &e 2155 * maPS & + 
: i3i2 cO &7 d222 108s 8 HALT ERROR WALT —34—. / L156 Seeaeets THE MAP CHART PREFERENCE IS PRINTEDs CALL s 
a 33217 4036 1316 1089 oc XL2°8034! : 2157 : SUSROUTINE SY - % 
£ 1319 CO 8&7 0216 1090 8 LIAK RETURN TO OCP, : eG 1:58 * : > 
1093 1115S * 8 MAPS * 
vs LOGL HRRARAAH ALGAE RASS LEASE EK SESSRERAAGS HE AIRS AA STE RASEESS OSEREEL SESS TEEEEED 2 2260 * cc XL2"PAGE RUMBER AND ENTRY NUNBER* > 
; a 1093 * INITL 2 * €3 1162 * . > 
1094 s£483%248 THIS SUBROUTINE INITIALIZES THE 3741 % 31GQ SARE SEATRSE ERED £RL 6 HRKRVPKALI SEBS SPRSEAR ASKS FEMA ASSL RLS GRABRAEDESSSERERRD 
as 21095 * SEFORE A TEST ROUTINE £S EXECUTED. * 13S¢C 38 O08 13264D 1i63 MAYS st TEWP.LARR STORE ARR. 
t t 1096 + RS (3a0 3S 0% 1645 2166 L TEMP. KR1 LOB XR1 WITH ARR ADORESS. 
LOQF POARARAPEAREARKAES HR RAGHBESKSS ECLA REKSEAEKERRERAAEKEKKSEEEDARE SE SHERKSESE 23A4 18 02 144F 00 £165 OAT MAFSS—11.04.XR1 3 STCRE HUNDREDS GISIT OF PAGE #. 
2 1210 34 08 $337 i098 INIT. sT INTLt32ARR SAVE RETURN ADDRESS. . ISAS 18 G3 {a50 GO £166 MINN MAPSS- 1046 eXR1} STORE TENS GIGIY OF PACE #e 
t 3321 32 42 i6Aa7 i699 Lio MOCBO.H 241° SET FURCTION REG TO DEZAGNGSTIC #COE a ISAE 1@ C2 1AS1 31 2157 MNZ MAYSS—-901eXR3} STORE UNITS SCLGTY OF PAGE #. 
{32 Bi 42 1665S 1166 Lic HOOG0<.x*42* ZERO LENGTH COUNT REGISTER. 1363 18 03 1A59 03 1168 NN MAFSS—443€ eXR2? STCRE EWMTRY DIGIT. 
1329 3:1 65 1699 Tid Lic HOCOOexF# ase ZERO CATA TRANSFER REGISTER, a 3S68 CO &7 OELA 22169 8 PRINT PRINT SO TQ MAPS. 
< 132D FS 40 GD 41202 S30 X*9D*.Ne aC? DC GENERAL SID RESET TG 37ai 3 33SEC 26 I3BC L170 ' o¢ XLi*se? 
1330 Ci 40 1328 2103 1a NT EDDY 6K FAG" MAKE SURE 3741 IS READY BEFORE TEST. i38C 22 1380 1271 oc IL273a* 
2324 CG &? OD00 $108 INTL 8 kwh ISBE 1ASA %33F 2172 DC AL 20MAPSS3 
£ : 2168 G 33CG 80 87 O2 i:73 8 2iexR2) RETUPN TO ROUTINE. 
1108 HELEPECEAAEASESE SHER ELE ER EREHEREA TERT ERESE AGERE ES EKEAA EES SERERERERTERES x 1:74 
7 Pe 1107 * TIGERS ¢ & ALTS SHRESELA EHRRSRSABRH SST ORASBKELAHBTSRSIRLSRLERHARAERERELRTRES RERTEEERE ERE DE 
€ e 1108 #94e4¢0s288 SUBROUTINE PRINTS OUT TIO ERRORS. » &} 1876 & QUES © * 
1199 * * i377? sekesenes SUBROUTENE DETERMINES IF S$Sw 20 15 GWNe > 
; LLIG KASRERRSEREREES SS RERERE EKER ESEHRERERRAESERERAEKREKE TE EERE TERRES SHERERE i178 * * 
r 1338 CO 87 O21A iL NTROY 8B PRINT PRINT 3741 IS ACT ZEADY. &3 . LEPD SRETTAARHSAEAADGHSREESEF ROSAS SERS TREY LS FEE AATEER STRATES SLEREAE CEEEEAHAHRRS 
4132¢ C2 133C 2412 oc xLit*c2? $3C3 34 08 13D7 3280 QUES st QS43 ARR STGRE RETURN AODRESS. 
; 1330 12 i330 2113 o¢ I.i¢ie# i3C? 38 €0 G2CA isi TERK SEYTES «S580 SS¥w 10 ON 7? 
e ISIE Les? 23S3F 2114 oc ALZENTROV) Cc 13BCce FF iC OA 1182 JT ost RETURN TO PRGM HALT IF YES, 
1340 &03E 4342069125 oc XL2°*403E* I3CE OF O01 1307 169F 2183 AiLc QS4342}.N0C3 INCR RETURN TQ SKIP HALT. 
ty 3342 CO 8&7 139¢ 2216 8 MAPS POINT TG MAP CHART: OQ 1304 CO €?7? 0000 2166 95 8 t—t RETURN TO ROUTENEs 
i i34€ 9071 1347 1117 oc XL2¢*SO71¢ “PAGE S07. ENTRY 1. : i138s : 
1348&@ CO 87 9222 2348 B HALT ERROR HAST ~3E-. i3b0e@ 3D ¢c2 e206 1186 OST Cut R*G200%—execas iS THIS A RODULE 8 SYSTEN ? 
7 434C 403E 134D 1129 oc XL2°A03ES ia i3te CO of 13D4 1187 ENE Qs CO A NORMAL MALT IF NOT. 
i 134E CO 7 O216E 2120 8 LINK RETURN TO OCP. C3 13SEC 38 01 1307 21188 L OS43-.XKR? 
atZa 13E4 4C O28 O02 1683 1189 MYC 2C2eXR1 7. FEFFS SET UP MOOULE 8 MALT. 
e ABE2 CO BT OZiA 8122 BusY 8B PEINT PRINT 3741 1S BUSY. 13€9 CO 87 13D4 11990 8 as GSO MALT. 
t 1356 C2 1356 1123 oc MLVC2s ad ito 
1387 oo 1357 1126 o¢ WWAsya¢ TID HTAKGORAAARASE SHARES EF GASAESHEAE STR ESEEBERT SEEKS RARER ET EENEEEEREREEARE ME 
es ISSO LeSF 1359 1125 oc AL2ZCBISY} 1193 > CXPAT @ 2 
Mi 12EA 403F 135B 1126 oc XL2°a02F° €} 1194 #esesenex . SUBROUTINE COMPARES ACTUAL SENSE * 
yw3se Ce e&7 1359¢ 1127 B REPS POINT TO MAP CHART. . 2198 & PATTERN VS A TABLE GF EXPECTED » 
; 1360 9522 9361 #1128 DC XL2°9522° “PAGE 952+ ENTRY 26 : 1196 2 PATTERNS ANDO PRINTS THE CORRS ERROR * 
13€2 CO a7 0222 2129 B MALT ERROR HALT -3F—. 1197 * MESSAGE. * 
136€ 403F 1367 1130 oc XL2°4663F¢ 1198 *¢ * 
; 3368 CO 87 0216 233i 8 LINK RETURN TO DCF. , Q WLDD HRHERKHSH DSS SE HRERDEPOASAESS SERED OSALAEVERLASSS EERERIBHERAAEEKEEDRERESERD 
‘ i132 ; 7 IZED 36 0&8 1698 %200 CKPAT a NO6i1.ARR 
‘ 1133 FORESEES TSASGHESORDRGALSSERESERAEERES PERERH GK EY ERHAALERRDESEHERARS EKGEKEDE 13% 36 O8 12Fa i201 st #+7,ARR 
J 1134 * XPRNTX * * ss I3SFE 35 01 0000 21202 iL R—-29— XRI STGRE PATTERN TABLE ADORS>s 
4 ‘ 1135 *#asenutese SUBROUTINE SETS UP ERROR PRINTING % © 13F9 3€ oe 1690 1203, & NOC2.<ARR 
2136 x » i3FC 34 o8 1404 2208 st %+7 ARR 
- o 2 
7 DATE TEAUG7T4 1SNOV7S PROG fD 402-1 DATE LTEAUGTS LSNOV7a PROG TO £02-1 
_ EC NOe €24765 824870 PAGE 9 G NOe 8247EF e24e870 : PAGE 9a 
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374i ATTACHMERT TEST WITH -WRAP CONNEC TOR— 
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STORE ERROR MESSAGE ADDRSe 


STORE RETURN ADDRESS. 
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COMPARE TABLE PATTERN VS ACTUAL « 


JUMP TF NO COMPARE. 
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CONTINUE IF NOT< 
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EXPECTED E61 & EB2 BYTESe- 
acTuat E81 € E62 BYTES. 


STORE RETURN ADDRESS: 
INITIALIZE OUTPUT ADDRESSES 


INITIALEZE BIT POINTERS. 


EXPECTED BIT ON IN EB2 SYTE 7 
JUMP IF YESe 

ACTUAL SIT ON {N EB2 GYTE 7 
GO PUT AN -®- EN GUTPUT IF SO. 


‘CHECK EB1 BYTEs 


ACTUAL GIT ON IN EBS BYTE 7 
GD PUT AN -#— IN OUTPUT IF OFF. 


EXPECTED GIT ON IN EBL BYTE 7 
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1306 
2307 
£306 
£369 
2310 
23t% 
£312 
2223 
a3i4 
a3is 
2326 
2317 
1316 
2319 
2320 
132% 
2222 
2323 
£326 
2325 
2326 
&327 
1326 
2329 
13390 
£331 
&332 
1333 
1334 
23235 
2236 
$337 
3338 
1339 
1340 
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PAGE 


PUT —%- IN EB2 OUTPUT. 
CONTINUE CHECKe 
PUT +t IN EBL OUTPUT. 
CONTINUE CHECKe 


THE EBL & 2 BYTES ARE CONVERTED TG 
A PRINTABLE BINARY FORMe 


$556423 


10A 


SAECKEKEREEREESAGEPT EEECEREESS EERE ESE TSE 


* 
% 
% 
* 


ESESRESRERE TERE GEERRESERE CE EREEESE SEE ES OE SEEELERESESRESEE SEES AES ESES SSS 
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svc 
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TRE TEN 
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TNFE 
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ALC 
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XL isooe 


NOL. ARR 
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RE L11 2) oe S-9 
EBIT(2 2 _ t—F 
NOCLIeAFR 
BYRFt+S ARR 
TNF4E eo K*O1e 
INFFOL.KIOEe 
NF ¢3eXR2 
AFFES e XR 


EeZT. K*oct 
7 SON 

NF #2 e X“F OO? 
NF 
NF4t o XSFLE 
#4, K*06* 


EBtT.x*00* 
ITCN 

NF FSL eX" FOF 
NEE 
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FFE: 
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TNF 


TEMPORARY STORAGE FOR ES2 & EB! 
RVTESe 


STORE EBL & E62 BYTES. 


STORE RETURN ADDRESS. 
INITIALIZE EFT POINTERS> 


STORE OUTPUT ADDRESSES. 


THIS BIT ON IN EBS 7. 
JUMP IF SCe 
MOVE IN A Oe 


BOVE {tN A —ive 
PUT 1/70 IN OUTPUT. 


THIS BIT ON IN EBt ? 
JUMP IF SO-« 
MOVE IN A —-O—o 


MOVE IN 
PUT 170 


A wtive 
"NR OUTPUT. 


CHECKED BIF 0 7? 

RETURN IF SOc« 

ENCREMENT BIT POINTERS.) 
CECRERENT OUTPUT ADRS 


CONTINUE CHECK. 


HERSESER OSE EORENEES CORD OEEEEEERDRES EEEEERECEEES SEEETIER ESTEE CERELERSE EEE 
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F4+SeXRE 
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cxeut 


SUBROUTENE IDENTIFIES SENSE GYTE AND 
PRINTS 
SUBROUTINE CALLED BY — 
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IvS STATUS 


AND ERRORS. 


ERROR 

XLE*~m CODE IN HEX® 

ML Z*EXPECTED OATAS 
XL2°ACTUAL DATA®S 

XLL°A <FF- DESIGNATES END* 


CURRENT N CODE STORAGE®s 
STORE RETURN ADDRESS IN KRle 


BRING IN & CODE FOR CHECK INGe 
EXEY EF DETECTED "END FLAG*« 
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TOM MAIKTENANCE DIAGNOSTIC PROGRAM FART NOe 5558423 _YBM MAINTENANCE DYAGNOSTIC PROGRAY PART NOe 5558423 
PAGE a | «€3 PAGE aaa 
2621 3741 ATTACHMENT TEST WITH —WRAF CONNECTOR 8021 376% ATTACHMENT VEST WITH —WRAP CONKECTIR- 
2 
ERP LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC CEJECT COLE ADDR E%4T SOURCE STATEKENT 
c $384 €. 268% C&ODEIOGFSO2 1686 1498 nc XLE*OS00E150F 902" ATTACHMENT ORIVEAR CHECK 
157@ OC SA 1068 1D69 $342 MYC PRIIGI) ERT+4 BLANK OUT PRINT BUFFER 1687 FF 1687 1409 oc XLU°FFS : * END OF TASLE * 
; 1S7A 3D 02 155A 1343 eur NCGO.x*G2* IDENTIFY ANDO SET-UP BYTE HEADINGe 1410 , 
Q TS7E FE O% 06 2344 JRE x45 3 $667 1412 ERMSOS EGU $-3 TAELE OF CORRESPONDING ERROR MESSAGE ADDRESSES. 
2581 OC !0 1042 1788 2345 MYC PRT-—39(27} oNCOI %* FUNCTIGNe 1688 1041 1689 1412 oc ALEiMSSA) 
1587? 3D 92 1554 1346 cLY NCCDsx*O2* 7 2694 1055S 1688 1413 a &Lz(Msse) 
1586 F2 01 OC L3a? INE #315 ef t66C IC71 1680 14234 DC AL Z(NSSC) 
158E OC DA 1035 17¢3 3348 MYC PRI-SiC112 wNCD2-22 %* STATUS“LCR. 168E 1089 268F 1415 oc AL 20MSSO) 
1594 0C OF !D4C 1706 4349 VE PRT-28(16) NCDZ-5 es 1690 iCAl 2692 1416 oc AL Z¢MSSED 
159A 30 03 155A 4350 CLz NCCDex*G3t {5 1652 1C58S 1693 1417 DC ALZUMSSES 
ISSE F2 O12 0€ a3Si 3NE *35 1694 1CD1 2695 1418 oC ALZ¢MSES) 
2541 OC 11 1042 17EB 2352 RVC PRI-38{18) «NCDS * ¥/0 TRANSFER LINES : 16S6E 1CE9 1697 31619 oc Ai. ZTMSSED 
aSay 30 04 1554 4383 cut NCO, x*06" 3 #426 
1SAB F2 01 06 2354 JNE #45 2621 e4sesacaxcese 
ISAE CC OB 103F 1757 138s MVC PRI-Si C122 .NCDS * DATA ADDRESS. , 1422 * CONSTANTS = 
25846 30 OS 1554 4 356 Cit NCCD. xt Gs <¢ G2 ERIS REKFEKEMKSSESHKSESREEDSCKERARE KTH SBREARAGRGFSEAMSSESRERERE ARK VEKRSFERSERKRARYRKETN SF 
1582 Fe ci OC 3357 JNE #415 1668 6006 1695 14246 wooG cc Werce 
ISEE OC OF 1N2F 1480e 1358 MYC PRI-29(25) »NCDS<25 * DJAGNOSTIC-OTRe ; VESA OOCL 1698 1625 NS0t DC Buses? 
15C1 OC 16 1D4C 1418 1355 MYC PRY-28(173.NCOS-5 ee asec S002 2695 2426 NOc2 6c tLee2e 
iSCT CO BF LATIF 2380 8g EPEKT2 PRINT BYTE ID*Se 16SE 9003 169F 1427 NCOS oc tLsest 
1361 — 16AC0 0004 1643 1428 NOG& De Tegree 
1SCE CC O8 1034 1eBE 1362 MVC PRI-S2(16).EB2 BUILD EB BYTE HEADINGS. 3 16AZ2 0COE 1SA35 1429 NODE DC trees 
4501 0C O09 ipae 164C 1363 HVC PRY-3201203).E81 : 26A6 9920 1645 21436 HCOOZO) AC XL Z°O5208 
1SO7 CG B87 136Cc aB6A 5 EPSNTE PRINT EB BYTE HEADINGS. a 16A6 o0eD 16A7? 5431 HOOeS KC xLZ?ocBQ8 
1Sfe of OF 1037 taec {365 MYC PRT~494153.61TS SUILO BIT LABE HEADINGS. i 4SAB 0850 16AC 21632 HORBG Dt XL Etoaaos " 
LSE OC OF ip4e ised 2366 MVC PRI-29C18).R1TS 164A 0190 16AB 1433 Hi0t9e DC RL2°*giurs 
; 15SE7 CC BF L377 1367 B EPRNTO PRINT BIT LABLE MESCINGS. 16AC 0180 EGAD 1434 HOTBOG De Xi 2° O1soe 
: 2E0L FH ch fevD 1368 A NOOSe KRE i i6aE O240 1GAF 1435 HO1AG BE XL Z*O1A0* 
ISEF 34 G1 I5F8 126¢ ST #25,XR1 i8BO 9040 $681 21425 HOGLO OC ZL Zt 0086" 
G5F3 GC G2 1439 9090 2276 YC KF YED} oe STORE EXPECTED SYTES. 1682 FFFS 1662 1437 4FFFS oC XL EZ*FFree 
ISFS 3E€ 01 1690 2371 & NCO2.XRi oe iSeB4 Goe2c 2685 1438 HNOZEC OC Ki z22062C% 
IS°L 34 O01 1606 2272 ST SEOQMRE ; 4686 FOSE 1687 1439 HFOSS oc XLe*rFosse 
7601 GC 61 1438 9000 L373 NVR: MYC ACTL 2) ot— 3 STORE ACTUAL BYTES. 1688 FGAA 16B2 1440 HFGAA CC XL EtFGAARS 
1607 CE O2 1037 1374 LA PRTI-49.xXR2 STORE OUTPUT ADDRESSES. ge 26BA CORD {688 144: NOOB2 OC ML 2°C9GZF 
I6GE C2 01 1046 1375 LA PRT~29—XRE issc 2188 1680 1442 HGIBS CC XLZ* O26? 
: V6CF CO &7 145e 2376 6 BITSNE GO CALCULATE STATUS OF ACTUAL AVTES. 168E oeB2 168F 1423 HOSBe oC MLZ? ofB2* 
f 1612 1436 1614 1377 Dc ALZUACTS ec 16C6 GOFF _46C1 1664 HOOFF DC XL2°OOrFe 
1615 CO 87? 236¢ 1278 B EPRNT? PRINT STATUS/REGISTER TD. ioc! 2016 16C3 14465 HOCIO DC MLZFGO1G3 
115 OD 51 2439 1438 1a7g cuc ZPV(2I0 ACT EXPECTEG AND ACTUAL EQUAL 7 . t€C& 3082 $SC5 1446 #3082 DC RL Z'3ce2¢ 
161F FZ 82 OA 2560 Je SKFER JUMP IF SO. €3 16C€ 308C iSC7 3447 HB0GO . DC ¥LZ°30808 
1622 OC OA 1D24& 1747 1381 wYC PRI-GSL115 ERS ; 26C8 FCOS T6C9 1848 HFCOS oC XLZ*FCoae 
1620 CO OF 143 3382 e CMPARE GO CALCULATE ERROR FITS. 360K FEGG 46CB 1449 HFEOO DOC XL2°FEGO" 
162C CO @7 1277 3383 SKPER A EPENTZ PRINT ERROR 6&ITS. Ci 26€C 9885 16CD 41450 HOBBS OC XL 2¢CBes" 
1626 BE 61 TECE 1384 i MYRLES2XR1E RESTORE ¥RIis 16CE 164E JSCF 1453 DATA oc AL ZI TADATAD 
1634 36 01 1698 2385 A NOOLeXRI ; 36D0 CIC1 16D! 2452 CAA oc CLZ*AARe 
1638 CO a7 1582 13586 & CHIT GO CHECK FOR NEXT BYTE. £2 1602 FSF5 16D3 1453 CES DC cL eesse 
163€ 3€ 02 1698 13a7 CxOUT A NOC1eXR1 INCREMENT RETURN ADDRESS. 1454 
16@0 3a C1 1647 2388 st FAT —eXRI RETURN TO ROUTINE. 1455 feseaategega 
1644 CO B87 0000 13389 e toa = 1456 * MESSAGES * 
2390 L457 ERTEFRRES SE RIRE FES EEASEBRERRERREEKRER TARE SERES A FRARTREEARSEERBERR AS TEL 
Ses 13591 Stexedeaseve _ $603 1458 MSGIS EGU #1 
. 1392 *% RESERVED % ty 1604 CEDEEZCSDSEI40E2 L6FA 1459 MSGI ac CLIGtINSEAT THE WRAP CONNECTOR. * 
L3GI FARERARAAHAH HAE IRE GRR D SER GERRAKARAE SARS EE RLAKKRKE RY EAORSELREKARTE FEKETE RE 16DC CECSSOE6DSCIDOTAG 1859 
16468 ocCCODDNCNSD 1640 12948 TEST 5c 6xti*o08 ACTUAL SENSE DATA STORAGE. ; 16E4 C3DEDSDECLECRESDE 1459 
IG4E OOCOOOTOOOINCOND 1656 1395 WORK oc SxLi*008 WORK AREA, C 16EC DS4B40404604666040 2459 
16EE CC 1395 ~ 26F4 20404040404040 1459 
: 1396 sasataneas al 16FA 1460 MSG2B fou a-1 
\ 1397 * TABLES # i IGFE O7CSOSCE6DE. 90440 1721 14661 MSG2 oC CLIO*PERFORM SYSTEM RESET ANC START. _ 
13986 PIREKEAASERAKRE RATES ESSE SE MEAL STE SEARKEAKAEGERES KS SHKAKKERARAKDAERREETEERES 1703 ESEBEZE3SCSpS6acnSs 1661 
1399 G7OE CEEZCSESACCIOSCS TAGE 
1656 $400 Expy Eau *— TAELE OF ROUTINE 05°S ERROR PATTERNS. : C: 1713 ®CE2E3C1D09E34840 1861 
1657 O2C08150FD00 165C 14901 oc XLEé*C3COEIOCOFDGGE EOT CHECK. om i718 40464 0¢0404040 1481 
1650 0300C10CFDO0 1662 1802 ac xLE€*OBCOCICCFDOO# END RESET — 06 2462 
BEER OCOCELCOFSSO 1668 21403 pc XLE*OOOCEICOFSOGt DISCONNECT CHECK. c: 1722 CODSEZCSDSEZS0EG 1730 14623 dc CLZB*INSERY WRAP CONNECTOR * 
1669 OPCOELOOFDS2 {66E 1404 pc XLE* OBNOEL COFDO2# END RESET - 1 © IT2A D9C 1ID740C3DEDSDS 1463 
IGEF OLFOKCIICFSO2 1674 1405 oc XLE*OBCOCLOOF9O2° INTR PENDING CKa 1722 CECZEBD60SS04CaN 1462 
167£ CO0OT1COFSOO 167A 1406 Dc XLETOOOOCLOOFS00* ENO PESET ~ 2e &3 173A 49404040 1463 
: 1678 O8DDETOCFSCO 1680 2407 BC XLE*OB00EI COFSODF DISCONNECT DRIVER CHECK. I73SE 4005DEE3CESC6C8O 1758 146% UP3741 DC CL27*® NCTE ~- CPU MAY DROP POWER.® 
DATE 1E€AUGTS LSNCV74 PROG 10 802-1 © ace 16AUG74 15NOV76 PROG 1D a02—1 
EC NOs &247€8 824870 PAGE 21 EC NC. 824aTES 824870 
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CSEIDSAOE SH9SC i105 
E2ececsos4003cens 
CSE2 
CACIESCLaOcic4aca 
COCSE2E2 
C&CICICTDESOGEZES 
CSC3S4OC2ZEGE3TS&O 
C&CLESCISOESOICI 
DSE 2c ECSOS4 ODSCS 
CTCIE2ZESCSEDS 
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tesa oc CL4S‘EF SO-e TURN POWER GACK ON AND RELGAD PROGRAM. * 

INTRO DC EL23"00 SYSTEM RESETe START.* 

ERS oc CLIL*RSSERRORESSS 
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CL29"7 70 TRANSFER LINES NOT RESET. * 
CL3G*E/7C TRANSFER LINE SENSE CHECK. * 
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4021 3741 ATTACHMENT TEST WETH -WRAP CONKECTOR=- c 6022 37@} ATTACHMEAT TEST WITH -wRAP CONNECTOR- 
EPR LOC OBJECT CODE ADOR STMT SOURCE STATEMENY ERR LOC CBJECT cCOCE ALSR SYMT SOURCE STATEKENT 
! 1AEe 0248 25014 ce ICDA DSEBSOCACSCSESCS 3519 
TAED OTCSDSCE6DESSD4S46O 18150 1502 HOCE o¢ CL49* PERFORM END OF YRANSFER -EGT- USING 1/70 SELECT 3-* 1CE2 BS OC3BCRCEC 20248 4519 
TAFS CS5D5SC44 006CE640E2 1502 . ICEA COLICTESGCCACSIEZCZ ACOD 2520 BSOIS oC CL26°I/0 SISCONNECT LATCH FAILS TO RESET? 
1AFC CSCIDSE2CECSOS4O 2502 : ICF2 DEDSOSCSCIE 26003 2525 * 
{ECS EOCSDEESEOROE4E2 1502 ICFA ChE sc3acesocEcics asco 
: 1800 CS9D5C780C9610640 2502 Z 1002 CFE26GE30E4 0G9C5 2529 
i 1B15 E2CEN3CEC3E340F2 4502 i 1DOA E2CfESaH 1526 
: 1Bic 4e 4502 . 2£D0E 1068 1521 PRY DS CLS? PRINT FIELD. 
TELE CSOGESZOESCEDBES 1830 2503 EGT oc CLIEG*tEQT SEQUENCE CHECKe*® WES 46 1D69 4522 5c KL 18402 CLEARING BYTE 
IBZE CEDSC3CS40C3CHCE 2503 c: 
1BZE C=D24B 1503 
1B31 EGE2C54C09C5C1ICK& 1662 1504 oc CLECTUSE READ/PRITE CALL TO RESET £70 TRANSFER LINES 3 * 
1B2S 61E ENSCSE2CS420C3 2504 e 
1841 €1020340£ 3044009 2504 
1B4S CSE2CSE340CS6106 1504 
1BE1 S0E309C 1DSE2cECS 1504 & 
1ES9 C940D3CSDSCSE280 1504 
18631 F340 1504 
IBES CIODECSSOF 448 3868 1505 MDO9 = oc CLETAND Sef : & 
1869 ESCSEZESSOCICZCS 189 71506 DC CLES*TEST ABILITY OF 1/0 TRANSFER LENES 3 ANO S TO RESET ©. 
1B71 D3CSESEB4ODECESO 2506 
1E7S C961DESOEZD9CIDE 1506 & 
1BRL E2cecsD9aCO3CSoS 1506 
1BES CSE24CF34CCIDECA 1506 
1ES1 40FS40E3DEs00SCE 1506 3 
1E99 E2CEEZG0 2506 
IBSD CSEIDESCCACIEZC2 185i 1507 HDOA dC CLZI1°170 CESCONNECT LATCHe® 
1BAS CEDSDSCSCIEZ4002 1507 €3 
IBAL CIEBC3BceseS 1507 
1BES ESE2ZCSECCSE1DESO 1BEO 1508 pe CL47°USE I/G TRANSFER LINES 1 AND 2 TO GENERATE END # 
IEA ESCOCLOSE2ZCECSOY 1508 & 
IBC2 S40D02CSDSCEE2ZA0F1 1508 
: IECA 40C1CSC440F 240E 2 1608 
1EL2 DESOC7CSCSCSOSC! 1508 & 
1BDA E3CH40CS0£C440 1508 
1BE1 CECESO0ESCICIOSE2 18F2 2509 HDOB 0c CLL*OF TRANSFER -E0T-.? 
é IFES CECSDS406CCSDEES 1509 & 
18F 1 €C4B 1509 7 
1BF3 FICSEZESAOCIC2CS 1023 1510 pc CL4G*TEST ABILITY TO LATCH 1/70 TRANSFER LINES 3. 4, 6 * 
1BFB OSC9E3SEB4CE3DE4O 2510 € 
ICOB® CACiEsCACeANCSE! 1530 
ICOP CEADEZSDSCIOSELCE 2510 
1C13 CSD940D3CSOSCEE2 1510 e 
IC1€@ 40F 36LR40F 46B40FE 45130 
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1€24 C105C440F 748 $029 3521 HDOC oC CLE* AND 72? & 
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HDOS A OZE 1685 1485 S805 _ MSSH A G26 ICES 1525 rare 
HOOS A O49 1810 1502 OS26 * once’ A O1F 17688 14€8 1345 
HDO? A OSL YABB 1467 OSE2 NCDZ & 033 1709 1869 2348 1349 
HOOe A 045 1ADC 14665 0633 _ NCDS A 618 17EB 1476 aov7o 1362 
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HODCR A OC2 16CC 1EzE ROS _. ONOTS #& G32 LARS 1458 CEGSS OS9HH NHC DEPTS VEEL O68S*% OAGL OFPSS OPTS o7as3 
HOCT® & 002 16C3 1445 6853 f PARITY 4@ O08 129° oeTe 9987 
ROO LC & O02 16RE t4SE gov USTs PAT £ $16 19s GEB4s OF43 Q2gSSe 6336 
HOO LS & O02 V6AE 2429 2042 Z DAT OK & D548 16368 Sy Fm £E9 € 
HOOC4O 4 OOF 1681 iS5é i PREK & Cte taze 
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HOFED & COZ I6A9 1432 . 28ece f° 22GES L3SOS 13622 TB4Be ERSSK 1BSES% 1374 1437S Lasse 
Hoe ES & C62 1é6cB £4 1638 i PRT T & C4 13¢8 Rite Lt FGF LLARBR LR4GE 
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IFSO 82 O88 2785 14€5 RORIV A GiB $alS 1403 GUSs 
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£ YOODIS A OB TAEZ 1500 Gass | RYNGC 2 OOF 4390 OF56 Ege 
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t G2BG LS O4S2 0828 GCH4A €891 GEIS CET? OFOZ S7SI GTPO oOF7E5 4 RTNOG 2 001 CDF GES3 
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4032 


ERR LOC 


0006 


oAoo 


6400 
oacde 
0a93 
0a0c4 
oA06 
cacs 
OAOA 


caod 
Cade 
OAOF 


Salil 
OA1S 
OA16 
OA17 
Calo 
OA1B 
OALF 
OA20 
oA21 
0a23 
OA27 
0a20 
0431 


Ca3S 
0A39 


Case 
9A4G 
COAa3 


CAa?7 
CAeB 


Cased 
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EC NOs 


374} ATTACHMENT DATA TRANSFER TEST 


QBjJECT CoS 


ADOR STMT 


46932 CAO! 
oo oac2 
01 0A03 
coco Oa0S 
oA0D cA07 
FFFF 2a09 
405000 oAagc 
C1 pAgD 
oo oace 
0AS1 0A10 
CO 87 021A 

42 OA15S 
1€ OA16 
1A8E 0A18 
40E0 OALA 
Co 87 O21h 

06 OAIF 
17 oA20 
LAAS oaz2 
3c 40 3F76 

OC SA 1F77 1F78 

C2 01 OAS! 

34 61 OAT 

30 EO OAac 

F2 81 07 

3c EO OAsc 

F2 87 04 

3c £3 Oaec 

co e7 o222 

eoe1 OAC 
CO 87 OAl3 

16AUG74 1SNOVT4S 
826765 820870 


PART NOe 
PAGE 2 
SOURCE STATEMENT 
2 LAST CHG 206 01 74 
3 DECK 4 
4 _ see 0 
5 1.3742 START 0 
6 TREP 
7 GRG x* A0O* 
8 KVSEKTELERKKKKSK KRKEAAVT SESSEVARVEAS EER SEVERED SHAD SHES KKSEE SE SEVASHKRSALASFKESAKES 
9 * SECTION PREFACE . 
10 SERKEKS SHEBEKA EKKESISGTEK FESRKE TED SECESBAKAEASKSKSK TK SBE SESE HST RAGREASHKTEAE SH 
43 pc xL2*a032* PROGRAM 1D AND REVISION LEVEL i 
32 oc xXiL2°008 SECTION FLAGS 
13 oc aL3*o1? CURRENT ROUTINE NUMBER i 
14 oc xXL2*0000° RESERVED 
as pc AL2(BEGINI FIRST ROUTINE ACDRESS 
16 pc XL2¢FFFFe RESERVED 
17 Dc XL 3*40S5000* SpuT 
418 
ig HERSEK ARS FSH SSSA SKECARBKABRSRESKEBASAAS SK SEAS STS SMS RSKHRKLEKESSSKSESK ERS 
2o # PROGRAM NOTES 3 
2i SCHEME LASAKKASESSE SKS SAKVSA TES SARK CRAKS AM AKLKRKK TS FESRK SSESALCHALHESAIEREKTS SK 
22 % % 
23 * ABSOLUTE ADDRESSING NOTE - 
264 
25 s IF ANY CORRECTIONS OR MODIFICATIONS ARE MADE ON ROUTINES * 
26 # O01 ~- OF, SE SURE TO CHECK THE ADDRESSES GF LABLES =- JUMP * 
27 x AND -INTS<—. THESE TWO ADDRESSES MUST» WHEN ORS ED TOGETHER, * 
25 * ( INCLUDING THEIR PARITY BITS } CONTAIN CORRECT PARITY. * 
29 * SEE THE EXPLANATORY NOTE IN ROUTINE CEs * 
30 * * 
3: EEECEKSCIKEKS HE EEACKASS HG ESHEAEKSIRST SHRSETK EE SHESTS TE KEASEARAKEFERSESHEAS TSE KES 
a2 
33 FHSEHAEESRERSE ES ESEESH HETEHESKSKSEESVSAAASISOK EHKES CE HHSLSAKLHE KS TE AS SVRSEKS SKS 
34 » * 
35 * IN TROD LOTION PROGRAM TELLS OPERATOR TO PusSH SYSTEM x 
36 * ; RESET TO START TRE TEST. = 
37 & * 
38 RKLEPKECTA SAH SES FEKESS EAKSSEKESK SETHE STKE GETS ALSTAKAS RIE SEAALSAKSHSRSKE SET ETE 
39 SEGIN 0c miaivoie DUMMY ROUTINE SETUP. 
ao oc xL1 9008 : , : 
41 oc ALZCRTNO SE? 
62 
43 BEGINN 8 PRINT PRINT SECTION MEADING. 
a4 oc ML2*a2e 
45 oc 1L1*30° \ 
46 oc AL2ZCUPSEQC) i 
a7 oc XL2*40EG* { 
28 B PRINT PRINT OPERATOR INSTRUCTIONS. 
49 Bc xLi*o6e i 
50 oc IL2¢23¢ i 
$1 oc ALZCINTROD 
52 “vi PRT+1 ox" 60° SET UP *CLEARING® BYTE. 
53 uvC PRT (913 ePRT41 CLEAR PRINT FIELOs 
54 LA RTNO1LoXRI RESTGRE RTNOI ADDRESS. 
65 st FRIN,» XRi 
56 
S57 col MPLUNeX* EO® CURRENT HALT -E0- ? 
58 JE ALTER JUMP IF SO. 
59 
60 MVI MPLEXOM* EO® SET UP FOR HALT ~E0—. 
61 J 27 
62 ALTER mvI HPL AN. KEE SET UP FOR HALT -El<e 
63 
64 6 MALT INLINE HALT -E£0- OR -E3-~6 
65 HPLxx OC KL2°S0E3° 
66 
67 B SEGINN REPEAT IF NO SYSTEM RESET. 
263UN7TS PROG 10 403~2 
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4032 


ERR coc 


a 


e™ 
tp 


cast 
Oas2 
CASS 


cass 
oAso 
oasa 
casc 
{ Oa5E 
6A60 
OAS 


pt, 


sti 


oO 


0452 
9a63 
CAGE 


Gace 
GABA 
SA6B 
046D 
GaGr 
OAT: 
0a72 


”. 


oy 


om 


Ca73 
Care 
Oats 


on 


COATT 
oa7e 
oarc 
OATE 
9aS80 


os82 
OAsS 


OATE 
Ec NOe 


PAGE 3a 
3741 ATTACHMENT DATA TRANSFER TEST 
OBJECT CODE ADDR STm?t SOURCE STATEMENT 
69 *82484455 
70 @ RTNO1 * 
7i RSASEEBSESCESHE HERVE SKS FESBVSEAESAHESTFER TS 6 AESSESETHHSSE SS EEVEET ESE SRESSE SE 
T2 2 * 
73 ROUTINE 03 TEST GATA BYTE TRANSFER: BYTE © 106 s 
7a & = 
75 SHESBESBSE SHS $AESESSVS FSEESTHSSTS SK SSTES SCVISES SEA LD LHHAS ES SAGES BERESHST LE 
o3 oasi 76 RTNOI OC xLicor RIVITINE NUMBER: 
oo GAS2 F7 oc mi *og? NO MANUAL INTERVENTION REQUIRED 
CAG] 6a54@ 78 oc AL2(RTNO2) RGUTINE O2 ADORESS > 
79 
co 87 1868 ac 8 DATA GO DO DATA TRANSFER TEST 
<s oaso 81 oc ML3 4s CONTRO CODE. 
ca1o cAsSB 82 oc XL2*°9819° “EXPECTED DIAG-DTRe 
ciFr3 case 8 83 oc XL2°C3#3° “EXPECTED STATUS-LCRe 
93723 CASF a6 oc - xXL2*o371% “WAP REFERENCE FoR SENSE CHECK. 
40 Ga60 «885 oc HL 2908 —SENSE CHECK HALT. 
a2 GAs 86 oc LES aze “BYTE CHECK HAL Vs 
87 
86 
89 se94280235 
90 * RTNO2 2 
91 BEEK SEBTH EAS SETKSESSS ESSTCHFSE LA VSSERSETESHE EST FIAEHGE T KSCEKSLOCTSHASESKESLSCT KS 
92 * * 
93 * ROUTINE 02 TEST DATA SYTE TRANSFER. BYTE = 40+ * 
94 * * 
$s RRERK S$ BKESES SE HEHE OCH ESSE GE RTS SE GK SSENS EEA SINSHE SE SHLES HA UKGRSEKSS SEST SES 
G2 oAc2 G6 RTNOZ2 OC 2° 028 ROUTINE NUMBER 
90 GA63 997 cc XL3 200° NO MANUAL ENTERVENTION REQUIRED 
OATS oAGS) —so988 oc AL2(RTNOSS RUVT{NE O3 ADORESS 
99 
co 8? 1808 200 s DATA GO DO DATA TRANSFER TEST. 
DO OAGA 283 oc RL3*OG* “CONTROL COE. 
cee OABC 192 oc RL2*oe8e80* —EXPECTED D1AG-OTR» 
CFL OASE 103 oc HLZ°CSEL® “EXPECTED STATUS-LCRe 
$263 QA7TO 104 oc XL2*9a41* “AP REFERERCE FOR SENSE CHECK. 
£2 Oa7i 105 Dc m2 *aze “SENSE CHECK HALTe 
43 Ca72 166 oc XL %a3* “BYTE CHECK HALT. 
107 
208 
109 #9944378386 
120 © RINOZ 2 
122 SREPX FEB SEKTES SELES SHE BE SFESREDTSVST SSEATESTES SES CEE SS PILSHST OOAHSHHAFERERTAOCSA 
112 % : ® 
823 ROUTINE 63 TEST DATA BYTE TRANSFER. BYTE =A0e * 
1342 ® 
115 HRVKTE FSKSESLESS SFECKVSERS SATCHEL TOKVSSESES HLS PDEEBESSEKF ETADFFE SKEET SE IETS SHSTEKA TKS 
03 SATS 3136 RTNOS OC mu 37038 ROUTINE NUMBER 
co OAT® 117 oc xXL2°908 NO INTERVENTION REQUIRED 
Cage CA76 118 pc ALZCRTNOS) ROVTINE 06 ADDRESS 
219 
co 87 3808 320 DATA GG DO DATA TRANSFER TESTe 
Ea Cave 123 pc MLZ 2E 8° “CONTROL CODE. 
o8a0 CATO 122 oc XL2*OB8A0* “EXPECTED DF AG-OTRe 
Ci€3 CA7F 123 oc ML2°CIFA* “EXPECTED STATUS~LCRe 
S461 CAB1l 228 DC %L2*9261° “MAP REFERENCE FOR SENSE CHECKe 
aa oaea2 125 pc KLE SRO “SENSE CHECK MALTe 
as ORGS i226 xXLa*45* . “BYTE CHECK HALT 
¢ 
16AUG74 ISNOV7S 16J9UN75 PROG ID 463-2 
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ERR Loc 


0ase 
oases 
OASS 


oases 
oABC 
0a8O 
OASF 
0a9l 
0as3a 
oase 


0Aaos 
0a96 
QA97 


Oags 
oagD 
OASE 
OAAG 
OAa2 
OAAS 
oaas 


Oaas 
_ GAAT 
Oaas 


CAAA 
CAAE 
OAAaF 
OABO 
abe 


0aBe 


OABS 
QaBCc 


OASF 
oac3 
OAc? 
oacs 


QACF 


OATE 
EC NOo 


3741 ATTACHMENT DATA TRANSFER TEST 


OBJECT CODE 


0a 
Oag5 


co 87 1808 
| 

o605s 

C2F1 

9481 

46 

47 


os 
00 
CAAG 


co 87 1808 
€2 

O80A 

CiFi 

$501 

48 

a9 


06 
oo 
OAE2 


co 87 
“5 
3s 
1ccé 
4046 


O21A 


co 87 14S¢ 
co 87 1613 
FO 3C 3¢ 


31 41 
31 42 
3i 44 
31 45 


1A30 
31430 
3AG62 
3A30 


F3 43 00 


16AUGTS 
824765 


ADDR 


OAG4 
Qass 
OA8T 


oAsc 
OASE 
0A90 
0A92 
0A93 
OARS 


OAgS 
Oa96 
oagss 


OA9D 
OASF 
OAAI 
OAKS 
OAAG 
GAAS 


OAAG 
OAAT 
OAAD 


OAAE 
OAAF 
0A81 
OAB3 


SSNOV7e 


PART NO. 5558761 
PAGE 2:4 
| 
| % 
STMT SOURCE STATEMENT ; 
128 #8844424 4% 
129 © RTNOS @ 
130 FSSLESAERS STESE EE SESS EH SECESSSESS FERC SES OES KREESHSESKSESASETEREAKSESEEE SSE 
231 « ew f 
132 « ROUTINE 04 TEST OATA BYTE TRANSFER. BYTE © 05. * 
2133 * es . 
134 SEATS S SS AHESOTKTT CES CHEEBEST SEAT EOSSECKEKESEESEES BOE LES SERETECERECESERE SE! &: 
135 RTNO@ OC mie oae ROUTINE NUMBER | 
136 oc xL2°008 NO MANUAL INTERVENTION REQUIRED ei 
137 oc ALZCRTNOS? ROUTINE OS ADORESS | o 
138 
139 8 OATA GO DO DATA TRANSFER TEST. pe 
140 oc XLi°E1° “CONTROL CODE. Beit. 
141 oc xL2* 908058 “EXPECTED DIAG-OTRe : 
4162 pc ML2°*c1iF1¢ “EXPECTED STATUS-LCR. i 
143 oc xL2*°9a81° “MAP REFERENCE FOR SENSE CHECK. oe 
144 oc XL2° 46° “SENSE CHECK HALT. 
145 oc ML2¢a7z7e “BYTE CHECK HALT. ms 
146 . 
147 I 
148 see2e8008 i 
349 * RTNOS * 
150 SO FSO SOSESES SESE SEES SEOUEEESEEEE SESES SHEED ESSERE DERE NESSES ESEEE SECT ES 
151 « . | 
152 * ROUTINE OS TEST DATA BYTE TRANSFER. GYTE = OAc * | 
153 * | 
154 PSSOTCESAESS ESE SE CHSKES EESEHESSE SEES CEEE EET £EESERESES EEREESESEKEOEEECESE ESS 
155 RTNOS 0c xL1° 05° ROUTINE NUMBER 
156 pc xLa*ooe NG MANUAL INTERVENTION 
167 oc AL2(RITNOG? ROUTINE 06 ADORESS 
158 
159 8 OaTa GO 00 DATA TRANSFER TEST. 
160 pc XL3°EZ® “CONTROL CODE. 
162 oc XL2°O80A® “EXPECTED DIAG-OTRe 
162 oc AL2°ciFie¢ “EXPECTED STATUS-LCR. 
163 oc xL2°9501° “MAP REFERENCE FOR SENSE CHECKe 
164 oc ML2L°Ga8 “SENSE CHECK HALT. 
165 oc XL1*a9°8 -68YTE CHECK HALT. 
166 
167 
168 ss eaeeeus 
169 © RINOG * 
170 FESEESSARSEHE BESS EES OF EESEEERES £ HORSES ELE EXKESEEE EES SE ESEKESEEE EEE OEEEEEE 
171 «  « 
172 ROUTINE 06 TEST BUSY AFTER DOING SIO CONTROL te Pa 
173 * eo 
174 SEEKS SERRE SAE SK ELEROESESESEEEESESEEESEES OEE EEE SEKESESSESEEEREESE8EEEES ED 
1785S RTNG6 oc xiL2* O68 : ROUTINE NUMBER . 
176 oc xLieoce NO MANUAL INTERVENTION REQUIRED o 
177 oc AL2(RTNO7) ROUTINE 07 ADDRESS 
178 
179 8 PRINT PRINT BUSY TEST HEADINGe 
180 oc MLA *Q5e 
181 oc 2e2ie 
182 oc AL2(HD06? : 
183 oc XL2*°40A68 
164 
165 8 INITL INITIALIZE THE 3741.6 
186 
187 8 Ques TEST FOR SSW 306 
188 HPL X*3C® X* 3Ce HALT -FF~- IF ON. 
189 
190 LIQ HO00Sex*aie CLEAR FUNCTION REGISTER. 
191 LIO #H0000,x* 42° CLEAR LENGTH COUNT REGISTER. 
192 £10 = ADRS. K* aa* LOAD ADDRESS INTO DATA ADRS REG. 
193 LIO HO00O.x*45¢ CLEAR DATA TRANSFER REGISTER. 
194 
195 $10 = K° 00 § eX* 43° ISSUE START 1/0 CONTROL le 
a 
L69UN7S PROG ID 403-2 
825057 PAGE 2 
sf 
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Resi 


680 @©eee@8eoee eee ee @ 


4032 
ERR Loc 


OAD] 
CADG6 
Cada 


OaDE 


oAE2 
Oae3 
OAEG 


OaEs6 
OAEA 
OAEB 
GAEC 
OAEE 


OaFO 


OAFS 
OAFE 


OAFS 
OAFF 
0B03 
0807 
0808 


O08 OF 
0612 
esis 
0616 
oslic 


0820 
0826 


0B 29 
oB2c 
0830 


0634 
OESA 
0B3D 
0B43 


C646 


OB4A 
OBaE 
0s46F 
oB50 
oBse 


08s4 
0sse 
cass 
C658 


DaTE 


5558781 


184 MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 
PAGE 2a 
3741 ATTACHMENT DATA TRANSFER TEST : 
OBJECT CODE AODR STwM¥F SOURCE STATEMENT 
Cl 42 GADA 196 tz0 ISBSY ex* 42° GRANCH IF BUSY AS EXPECTED. 
Co B87 144a8 197 8 nTasy GO TO ERROR MESSAGE IF NOT BUSY. 
Cl 42 48491 198 1S8sv T10 SUSY» xX*42° BRANCH TO ERROR IF BUSY STILL ONe 
199 
co B87 0216 200 8 INK RETURN YO OCP. ‘s 
203 
202 
203 #¢2¢8023¢ 
204 & RTNOT 2 
260s ESCLELE STEELS EE SECSRS OF SLE CSES SHCSES FHT SSE SSC ESS EHS FOS VNESSEEEESEHE TERE ES 
206 # * 
207 « ROUTINE OF TEST SINGLE CHARACTER TRAASFER wi TH s 
208 « A&A WRITE CALL COMMAND. * 
209 ¢ s 
210 SSVCSKESS HE SESHS SEKLSESES HESS OS TES SESE S SVE CES SSLECSS VESOVSEVEHKESLSLHRESSTEESEESS 
Cc? OAE2 211 RYNOQ? OC _ kL? o7e ROUTINE NUMBER 
oo OAE3S 212 oc m2°00° NO MANUAL INTERVENTION REQUERED 
06897 QAES 213 oc @L.2¢(RTNOS?) ROUTINE GB ADDRESS 
216, 
CO BF 021A 2158 8 PRINT PRENT WRITE TRANS TEST *EADINGe 
45 OAEA 216 oc xL13°ast 
25 OAESB 217 oc Ina ¢37e 
1¢81 OAED 238 oc AL2( HOO?) 
40a7 QAEF 2:39 oc XL2° 20A7* 
220 
co B87 145¢ 221 8 IniTe INITEACIZE THE 37416 
222 
co 87 2531 223 8 Ques TEST FOR SSW 106 
FO 3c 3¢ 2246 #PL X*3C* oX* 3C8 HALT -FF- IF ONe 
225 
31 41 1A034 226 10 HOOO2.K* are SET FNCT REG TO 6 USEC RESET. 
31 42 1AS50 227 L1G HOOFF .X* 42° CAD LENGTH COUNT REG. TO FFe 
31 44 3A62 228 L190 ADRS. X*4Q# LOAD ADORESS IN DATA ADRS REGo 
3C AA 1998 229 Mv I DADAT A,X *AA* INITEALIZES OADATA TG A XK*AASo 
31 43 14058 230 Lio HBOB2[eX* 41% SET 3743 TO DIAGNOSTIC MODE. Se 
233 
F3 42 00 232 sic K®*O0*% »X*aze ISSUE A @RITE CALL 
F3 44 40 233 sia X°20% 4X? age ISSUE CONTROL Ze 1/0 SELECT 123 
F3 44 46 234 $10 X9S0%oX*QQ8 - FORCES SERVICE REQUEST. 
30 45 oB5C 235 SNS SSOTAeK* 45° SENSE DIAGNOSTIC/DATA TRANS ~2500—6¢ 
3c 06 OBs¢ 236 “v1 SSO7AeXK* O08 CLEAR DATA TRANS REGe 
237 
oo O08 OBSC OB8SA 238 CLC SSO7AI2} eSSOTA~2 DIAGNOSTIC/DATA TRANS AS EKPECTED ? 
F2 01 21 239 JNE EROTA JUMP If NOT. 
240 
F3 44 80 241 s10 X®BO* oX* aae 00 CONTROL 2 10 CAUSE EOT. 
30 42 0880 242 SNS SSO76eX* a25 SENSE STATUS/LENGTH COUNT FOR ~E100- 
30 45 0885 243 SNS SSO7C eX*45* SENSE DEAGNOSTIC/OATA TRANS -O04A—o 
244 
0D 01 0885 05883 245 cLC SSO7CC2) »SSO7C-2 DIAGNCGSTIC/DATYA TRANS AS EXPECTED ? 
F2 01 31 226 JNE ERRO? JUMP IF NOTe 
OD 01 08890 OB7E 2a7 cic $S078(2) eSSO78-2 STATUS/LENGTN COUNT AS EXPECTED 2? 
F2 01 28 248 JNE ERROT JUMP IF NOT. 
2469 
CG 8? 0216 250 8 LINK RETURN TO OCP. 
251 ; 
252 # ROUTINE O07 ERROR MESSAGES * 
253 
CO 87 O218Aa 254 EROTA 8B PRINT PRINT RESPONSE CHECK. 
c2 OBSE 255 oc ML2°C2° 
17 OB4F 256 oc 2L1°23¢ 
1€07 0851 257 oc AL 2ESRVEKS 
404A 0oes3 258 XL2°404A8 
259 
co B87 1699 260 8 ERROR OUMP CEAGNOSTIC/DATYA TRANS REGe 
os OBS8 261 oc xL3° OS® 
250¢ OBSA 262 oc ma 2°25008 EXPECTED. 
0000 OBSC 263 SSOTA OC *L2°0000° “ACTUAL 
16aUG74 LSNOV7S6 16JUN75 PROG 10 403-2 
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18M MA,NTENANCE DIAGNOSTIC PROGRAM PART NO. $55876i IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NGe 5556783 
PAGE 3. PAGE 3a 
4acz2 3741 ATTACHMENT DATA TRANSFER TEST 4022 3741 ATTACHMENT OATA TRANSFER TEST 
+ 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR SINT SOURCE STATEMENT 
CBSD FF 0BSO 264 pc M2 °F ES S805 30 45 OCc3D 332 SNS $8514Bsx%* 45° SENSE DIAGMOSTIC/DATA TRANS ~OSCO~e 
CBSE CO B87 14EA 265 8 MAPS POINT TO MAP CHART» 333 
OB62 9541 0B63 266 oc XL2°9561° “PAGE 954, ENTRY ie 9809 OP O41 OC19 OCiT7 334 CoC $5144423 sS516A~-2 DIO SERY RESP SET TRE 3 LATCH 7? 
3864 CO 87 0222 267 8 HALT ERROR HALT -th~o O8DF F2 O01 SD 335 SNE ERI4A SUMP IF NOT. 
CB68 400A 0869 268 oc . M2°400a* SBE2 OD 02 OC30 OC3B 336 CLE SS 14812) «SS 146-2 DID SERVICE RESPONSE RESET 7 
OB6A CO 87 0216 269 8 LINK RETURN 7G OCP. 7 CBEB F2 01 49 337 JNE ERIA HI4P IF MOTs 
270 ; 338 
GB6E CO 87 021A 271 ERRO? 8B PRINT PRINT WRITE CHECK. eses8 co B87 0216 339 B Link RETURN TO PCP. 
oB72 C2 0872 272 oc xLi*c2¢ 7 340 
0873 18 0673 273 pc 1L1*27° 7 342 * ROUTINE 08 ERROR MESSAGES * 
0874 1D0F CB75 274 oc SL2CWRTICKD 342 
OB76 404C 0877 275 oc xL2*404C* OBEF OC 209 1f30 1£28 343 ER14Hh MYC 8 PRTI-SEI33) »sRVR 
276 O8BFS CC OS 1990 1F2F 344 Myc TEST( 6}. PRT-S6 
0878 CO 87 1699 277 B ERROR DUMP THESE REGISTERS~ cere OC CS IF 3D 1994 345 MVC 8 =—- PRT-S8163 - TEST 
os7c 02 oB7C 278 pc MLE ® G2 STATUS/LENGTH COUNT REG. ocos Co 87 0224 346 8 PRINT PRINT RESPONSE HDT TET. 
0870 E306 OB7E 279 pc xL2*E300° “EXPECTED. scos t2 ocoS 347 oc - ML Eeces 
eB7F 90000 0880 280 SS076 OC xLZ*° O0C00* ACTUAL « cccsé 5B oces 348 oc iL3*92* 
6881 0S CBSi 281 pc xL29 6S¢ DIAGNOSTIC/DATA TRANS REGo eco7y iFT77 oces 349 pc AL Z2EPRTI 
O0BB2 GOAA 0883 282 oc XL2*OCAAt EXPECTED. ; COS #404E SCCA 350 DC MiL2*AGLE* 
98284 9000 0885 283 SSc7Tc oC XL2°0000* “ACTUAL >» : ocee Oc SA iF 77 iF768 351 avec PRIL91 ) oPRI01 CLEAR PRINT AREAs 
oBes FF 6886 286 oc MLISFF® : 352 
OB87 CO 87 16EA 28s 8 MAPS POIkT TO MAP CHART. OCii CO #7 1699 383 8 ERROR DUMP DPIAGNOSTIC/OATA TRANSFER REG. 
0888 9542 cBec 286 DC xL2°95e2¢ “PAGE 954. ENTRY 2. 8cis of Of25 354 oe m1 1*03° 
oGeD CO B87? 0222 287 8 HALT ERRGR HALT -4C-. : OC16 FF G6 oci? 355 pc XL2*FFO6* ~EXPEC TED. 
CB91 404C oBs2 268 oc XL25404C® i ocis occo GCCi9 356 SS24a4 BC m@2*9050* “ACTUAL » 
0893 CO SF 6216 289 B LINK RETURN TO OCP. OC1iAa FF OCciA 357 oc xLASFES 
290 : oCi8 Co avy i4EA 358 B REPS POINT TO MAP CHART. 
291 { CCiF 9565 ec20 359 DC XL2*95635 ~PAGE 9560 ENTRY 16 
292 s4404¢004 : C22 CO 87 6222 366 B RLF ERROR HALT —0E-. 
293 * RTNOG * j fC!“5 406E G6C26 36: oc M.Z2°4G6F * 
294 Strrrstngrnesansaceeses coessasecertverssbeserssesrsieenesterersra seo ss) ec2? co BF Gziése =62 5 Link RETURN TC OCP. 
295 * 363 
296 * ROUTINE GB CHECK FOR SERVICE RESPONSE RESET = “C28 CO &? S22K 3264 ERIS 6 PRINT PRINT RESPONSE NOT RESET. 
eae 297 « AFTER 6 USEC. * DC2F C2 SC2F 3565 pC xLacc2e 
Pree a ars 298 + * cc 3O 23 SC30 366 pe 113735" Se 
299 4945454884448 F548 $455 949F8 4S EEE ESE EEE EEE EEKS OSES E48 8488E8E8SE8 SEES SET! C33 21£28 acsa2 3467 be At 20SRVR) 
CBS7 08 0897 30906 RTAGS DC RLi* O88 ROUTINE NUMBER i SC33 S04F oC3e@ 368 BC HL 2*°494F * 
0898 00 0698 301 oc MLioor NO MANUAL INTERVENTION REQUIRED oe 369 ' 
o899 oCcaFr DBGA 352 oc ALZ2O0RTNOO} RGUTINE 0S ACGRESS : 0235 cb BF 1699 375 B ERROR DUMP LIAGNDSTIC/BATA TRANS REG 
303 i SC3e os CC3S 37: oc 1°05? 
O89B CO 87 O214 304 a PRINT PRINT SERVICE RESPONSE HEADING. ' CCsA OBLO ac38 372 oc m2*Soog* ~EXPECTED. 
GBOF 45 OSS9F 305 DC XL1925* : ac3c 9500 eC3& 373 $5188 oc ML2*D000* AC TUAL ; 
BaD 29 0BAO 396 oc 3L2°a3" ge cc3E FF OC3E «374 pc MLASFES : 
CBAl icEc OBA2 307 pc AL2CHDOS} : . CSF CO B7 14ER 375 8 MAPS POINT 4G MAP CHART. 
OBA3 40a9 ceae 308 oc XL2*°49AG8 ! oc43 9562 Ocee 376 oc ML2*9562¢ “PAGE 956. ENTRY 2- 
309 é oCaS CO BF O222 377 B ALT ERROR HALT —*F—. 
O8AS CO BF 145¢ 316 8 IRITL RESET THE 374i. occas 4046F oCa4a 378 oc 2 *406F © 
311 oces CO AF O216 37s 3 LINK RETURN TG DCP, 
OB849 CO B7 1511 312 B QUES TEST FOR SS 1G. é 380 
OBAD FO 3C 3¢ 313 HPL xX" 3C°.x* 3C8 HALT -FF- IF GNs i 383 
3i4 382 see8s0868 
OBBO 31 613 1A48 315 119 #900B2,.x%*42° PUT 3741 IN DIAGNOSTIC MODE. < 3283 * RINCS « 
0684 31 42 1A3¢6 216 iie HOGGOseX*42 CLEAR LENGTH COUNT REGISTER. in SEQ BEAGSAAASAASCKESESEKSRE OE SLE CESS AES SES PKSE SHE SST SES C AACS KO SEAASSSSSEV eS 
OBBB 31 44 1466 317 119 ADRSOO eox*aae LOAD -CO- SYTE ADRS IN DAR. 335 * ; * 
oB8BC 31 46 1A36 318 L293 HOCSG .xX*#45? CLEAR DATA TRANS REGISTER. t 32BH = RSI LRE OF TEST sERVICE RESPONSE Of Iver. . 
OBCO 34 41 1044 319 Lio HE190 ox*ays SET 3741 IN RESET SER RESP AFTER : 387 & » 
326 * & VSEC. SLAVEs DIAGe MGDE, ANS BBB FS9 SS FKSET ESS CEBELSECE VSS EASE ESES FS FARKAS HRKE ELH AE SRES SE SHE FEASERERSHDHE SR 
321 LATCH XFER LINE 3 (TRL 3). SCaF 29 CC4F 389 RINOO UC %.2* 09° ROUTINE NUMBER 
322 * OCSG 05 ocSo «390 pc XL2*oo8 NO MANUAL INTERVENTION REQUIRED 
323 OCSi OCB, 9CcS2 392 oc ALZERTNO Ad ROUTINE CA ADGRESS 
OBCa F3 42 06 324 si0 X* 00% .X*428 ISSUE A WRITE CAiie 322 
OBC? F3 44 40 325 SIG = X*#40* 9x 4a8 ISSUE CONTROL 20 7/6 SELECT i Se So53 CO &? Gaia 393 8 PR INT PRINT RESPONSE DRIVER HEADING. 
OBCA F3 44 40 326 SiO X*°40*® 9X2 448 - FORCES SERVICE REQUEST« Cosy «5 ecs? 394 oc RL2°65* 
CBCD 30 43 0c19 32? SNS $5146A40X*43* DUMMY SENSE TO STALL oese 2B ocsB 395 oc iL1*29° 
0801 20 “3 oOc19 328 SNS SSIGA 2X" 43° SENSE TRL FOR -FFO6- 2c59 2Cé3 eCCSA 396 pc AL 2(HD09) 
329 * : (THE 06 MEANS SER RESP SET TRL 3 GCSE 4649 ecsc ss DC XLZ*a0ags 
330 « LATCH. 170 TRANSFER 2 RESULTS 398 
331 * 10 DISCONNECTS SC5B CO BF 145C 399 8 cusTe ENIVSALSZE THE 37816 
DATE 16AUG74 15noOVv74 L6JUN75 PROG ID 403-2 DATE 36aUGT4S iSnNOv7s IS5UNTS PROG 1D 463-2 
EC NO. 828765 824370 825057 PAGE 3 EC NO. 824765 824870 825057 Pace 3a 
Ee 
kL 
ge ae 
fear 


Me ee 





18% MAINTENANCE DIAGNOSTIC PROGRAN 


4032 


ERR Loc 


ecsi 
Oc65 


0c6s 
océc 
oc To 
ocra 
_0c7s 


ocrTc 
oc 7F 
océ2 
ocas 
ocs9 


oc 8D 
0C93 


0Cc97 
oc98 
ocec 
oc 9D 
OCSF 


oCcAl 
OCAS 
GCA6 
ccaa 
OCAA 
OCAS 
GCAF 
ccei 
eces 
oCe?7 


ocee 
ocec 
eoceaD 


ccBF 
occ3 
occe 
occs 
occ? 


eccs 


occo 
ocD1 


OcD4a 
ocoDs 
ococ 
oceo 
ocE4 


Date 
EC NOe 


374) ATTACHMENT OATA TRANSFER 


OesECY Code 


ce 
Fo 


3k 
3t 
31 
38 
31 


F3 
F3 
F3 
30 


oo 
co 


co 
ca 
ic 


a7 
3c 


ai 
42 


a4 
as 
41 


42 
a4 
44 
43 
43 


Or 
81 


8T 


2E46 
4050 


<0 
33 


87 


FFOS 
ooco 


FF 
co 


87 


9563 


co 


a7 


4056 


<0 


OA 
oo 


87 


OeEoc 


co 
42s 
1g 


87 


ic46 
S0AA 


co 


co 
FO 


31 
33 
3 
31 


&7 


87 
3c 


4: 
a4 
45 
42 
43 


1Sii 
3¢ 


ASE 
3452 


3Aa66 
1430 
£A40 


50 
40 
4&3 
Ocag 
ocAas 


oCAgD 
0216 


G2la 


2699 


1@EA 


6222 


0216 


O2ZIA 


145¢ 


3521 


1A34 
iAG2 
1a30 
yASC 
1a46 


IGAUGTS 


824765 


oca?7 


TEST 


ADOR STMT SOURCE STATEMENT 


ocss 
ocsc 
OC9SE 
ocas 


OCcAS 
OCA? 
Ocas 
OCAA 


OcBO 


ocBsé 


ocsa 
ccBCc 
ocBeE 


occs 
occe 
occsé 
occs 


2SNOVT74 
824879 


Ques 
X*3C# oX* 3C* 


HOOO2S eX* ai* 
HOOFO oX* 424 
ADRSOO eX $44" 
HOOCOeX*45¢* 
HO08O exX* 43° 


&PGOee Xt ase 
K*4O4 XS GRE 
K*AGt oX*aat 
SS1S5asX*43¢ 
SSLSAeX* 43° 


SSiSad22 «SSisa~-2 
LINK 


ERROR HESSAGE « 


PRINT 
MLi*CzZs 
iLi‘¢soe 
AL 2EORIVCKY 
XL2* 4050? 


ERROR 
XL2°O3*" 
XL 2°FFOG? 
MLZ°Coos? 
MLIIEFE 
MAPS 
XL2°9S635¢ 
HALT 
xL2*4o508 
LINK 


PART NO. ss 


PAGE 


TEST FOR SSW 166 
HALT ~-FF=- IF ONe 


SET FNCT REG TO 6 USEC RESET. 
LOAD -FO- IN THE LENGTH COUNT R 
LOAD BYTE ~-CO~- ADDRESS IN DARe 
CLEAR OATA TRANSFER REGISTER. 


58783 
a 


EGe 


SET 3742 Ta DIAGNOSTIC MODE GF OP. 


ISSUE A WRITE CAiLe 

BO CONTROL 2s 1/90 SELECT 336 
= FORCES SERVICE REQUEST. 

DO A DUMMY SENSE TO STALL 
SENSE TRANS LINES FOR -FFO4~6 


TRANS LINES AS EXPECTED ? 
RETURN TOG OCP IF SCeoe 


PRINT DREVER CHECKe 


CUP L/G TRANSFER LENESs 
~EXPEC TED « 

we ACTUAL © 

FPOLRT 


TQ *4P CRART> 


~@AGE FSG: ENTRY 3s 
ERROR HALT -SO-- 
RETURN FO OCP. 


a 


SS SAKESHSSRESAE STS ELA CL SSRETHRKSEK SA SHTCE SRE FEELS SESTEKESRME SRST RTEKEAE LS 


ROUTINE GA 


TRANSFER 3 DATA BYTES TO CHECK THE 


COUNTERS AND ADDRESSES FOR INCREMENTING. 


* 
* 
* 
x 


SSEKSCKEEAAESSEKESESKSEEESS ERS FS SESESSS ESSE E CHS SCHEME EKRE LA KEREBERFEARSEFKA THERES 


409 
@Q02 8 
402 HPL 
4903 
aca Lio 
405 i190 
206 aia 
a07 ura 
408 Lia 
469 
410 $id 
411 sta 
412 sia 
4i3 SNS 
414 SNS 
415 
416 cLe 
ait BE 
418 
419 * ROUTINE O9 
826 
421 8B 
422 oc 
423 oc 
424 oc 
425 oc 
425 
427 8 
428 oc 
429 oc 
430 SS1ISA OC 
431 Be 
432 s 
433 oc 
434 8 
435 pe 
436 6 
437 
438 
439 €64544446% 
440 * RTNOA @ 
441 
442 *% 
843 * 
444 € 
445 * 
446 
G47 RINGA Dc 
446 oC 
R49 oc 
456 
451 & 
452 me 
453 oc 
&54 Dc 
455 ac 
456 
457 8 
458 
259 8 
4260 HPL 
461 
462 &10 
463 tro 
aER LIQ 
465 £10 
466 t10 
267 

L6JUNTS 

825657 


XLi*GA® 
x1.3 C05 
AL 2tR INCE} 


PRINT 
xL1°6S5¢ 
w2*2S5*" 
AL Z¢CHDOA? 
RL 2° 40AA* 


INITL 


MES 
xR*3C4 oX* SCP 


HEOGOSeX* 43% 
ADRS X* Gt 

HOOOOsX* 455° 
HOOF SB eX* 42° 
HOOCEO eX! 41° 


ROUTINE NUMBER 
NO MANUAL INTERVENTION REQUIRED 
ROUTINE CC ADDRESS 


PRINT TRANSFER 3 BYTES HEACINGs 


ENITIALIZE THE 3741.4 


TEST FGR SSw 2G« 
HALT -fF- IF ON. 


SEY FNCT REG FOR 6 USEC RESET. 
#O0AD0 GATA BYTE ACDRESS IN DARe 
CLEAR DATA TRANSFER REGEISTERe 
GAD -FB- IN LENGTH COUNT REGe 
PUT 3741 IN OLFAGNGSTIC MODE. 


PROG 1D 
PAGE 


a03~-2 





ERR 


ee 


' 
¢ 


+ 


ev 


ae 


ah 
(" 


C 


£6¢@ MAINTENANCE OIAGNOSTIC PROGRAM 


4032 


Loc 


oces 


ocEs 
Ocee 


OcF. 
ocFs 
ocre 


ccFro 
soos 
oD06 
oooc 
oDoF 
gors 


Sdi8 
ooi8 


OoiE 
ob22 
2026 


ob2k& 
0630 
8nSs3 
oes 

Ooo3sc 


oo7é 
OD?A 


GDTE 
0D82 
ocses 
0085 
0087 
obsés 
ODS8A 
ooaec 
oD8o 
OD&SF 
oo91 
ops2 
CD96 
0D98 
oosc 
ODSE 


ODA2 


DATE 
EC NOs 


3741 ATTACHMENT DATA TRANSFER TEST 


OSsECT CODE 


F3 41 


F3 44 
F3 44 


30 45 
30 42 
30 44 


oo 63 
F2 02 
oO 0: 
Fa Of 
OD Of: 
F2 0: 


F3 44 
F3 44 


30 45 
30 42 
30 4&4 


CD G2 
F2 G1 
ao Gi 


Fe ot 
Oo 0% 


Fe C8 


nN 
Gt 
ry 
e 


wh Ww 

Oe 
- 
he 


monon 
NONON O 
© 
we 


co 8? 


3c S! 
co a7 


co 87 
os 
2305 
cooo 
o2 
BLFC 
00co 
04 
1999 
0000 
FF 

co 87 
9581 
co 87 
4051 
co 8? 


3c S2 


oo 


61 
6: 


oD86 
0088 
0090 


o0sé 
7o 
0588 
OF 
o690 
SE 


62 
62 


ece2 
0587 
oDsc 


eoBe 


oF 
Sos? 
66 
SosCc 


58 
68 
SDoE 
aces 
ODE & 
ODE 
gE 
QCES 
é5 
obese 
sc 


0216 


QEo? 
COFA 


1699 


IsEA 
e222 
0216 


OEOT 


t6AUGTSA 
824765 


ee ee 





ADDR STMT SOURCE STATEMENT 


ao384 

S089 

odsE 

2pad 

Coes 

CDA 

cooc 

ope 

8oE6 
ods2 
0064 
oD86é 
oD8B7T 
0589 
oD8s 
ooec 
OD8E 
oD90 
0091 
0097 
oD9D 

ASNOV 7e 

824870 


468 
469 
a7o 
a71 
a72 
a73 
a74& 
475 
476 
a77 
478 
&79 
460 
aBl 
682 
483 
484 
485 
486 
487 
488 
483 
436 
aO% 
$32 
&Ss 
4e4 
235 
ao6 
ao7F 
#98 
ae? 
5% 
Soi 
S02 
5¢3 
BG8 
SoS 
506 
SOT 
508 
S69 
510 
Sik 
Si2 
5is 
$14 
$15 
516 
S17 
§18 
$19 
520 
521i 
S22 
523 
$24 
525 
526 
S27 
§28 
529 
§30 
531 
S532 
533 
534 
$35 €RR1I6 


ERG 


SSi6A 


$S2i66 


$$16C 


BSEIUNTS 
825057 


s10 
sro 
s1o 


SNS 
SNS 
SNS 


cic 
JNE 
CLC 
JNE 
crc 
JNE 


sio0 
$10 


SNS 
SNS 
SNS 


cic 
SNE 
Le 
#NE 
cic 
JHE 


sic 
Sis 


SNS 
SNS 
SNS 


Le 
LINE 
cLe 
INE 
cud 
JNE 


8 


*# ROUTINE OA 


MYT 
8 


8 

oc 
oc 
eta 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
8 

oc 
8 

oc 
5 


MVE 


X* OO" eX*41# 
X* ELE Oo KESSEE 
X® 61% ex" QGe 


SS1GAeX* 45* 
$S266.X* 42° 
SS16C oX*AG* 


$S164(02) ¢SS16A~2 
ERiI6 
$$168¢ 23.558 165-2 
ERIG 
$S16C€23 »$S16C-2 
ER1I6 


_K*62* X* eget 


X®G62* oX* AGE 


SS16E eX*45* 
SS16F eX* 42° 
SS16H oX* 64° 


SS36E (2) eSS216E~2 
ERRIE 
SS36F( 21-SSisF-2 
ERRIS 
SSiSHt 2s sSSistie| 
ERRiEG 


X*ES* ext see 
K°GBt a K7 Hee 


SSI6I «x?* 4S? 
$5165 0X 428 
SSiGK oX* 448 


$S$165€2? 6SS3261°2 
ERRRIS 
$$16462) »SSi6J5~-2 
ERRRIG6 
SS16K £23 eSSIEK—2] 
ERRRIG 


LINK 
ERROR MESSAGES © 


RTRN—16X*51° 
Ei6 


ERROR 
XL1" OS® 
xL2*2305¢ 
XL2*0000* 
XL2°02* 
XL2°81FC? 
Xt.2*00008 
xL19048 

AL2 (DADATA*13 
xL2°0000° 
XLI°FE® 

MAPS 
XL2°9561° 
HALT 

xi 2*4053° 
LINK 


RITRN-1 oX*52° 


3 Prae  natmam  e e Beate a 





PART NOe $ss8761 
PAGE aA 


ISSUE A READ CALL 
DO 2 CONTROL 2°S TO TRANSFER DATA 
BYTE -0S—e 


SENSE DIAGNOSTIC/DATA TRANS —2305-« 
SENSE STATUS/LENGTM COUNT FOR -81FC- 
SENSE DATA ADDRESS REGISTERe 


DIAGNOSTIC/DATA TRANS AS EXPECTED ? 
JUMP IF NOTe 
STATUS/LENGTH COUNT AS EXFECTED ? 
JUMP IF NOTe 
DATA ADDRESS 
JUMP IF NOTe 


REGISTER INCREMENT ? 


OG 2 CONTROL 2*S TO TRANSFER DATA 


BYTE ~OA~-. 


SENSE DIAGNOSTIC/DATA TRANS ~230A~ 4 
SENSE STATUS/LENGTH COUNT -81FD—e 
SENSE OATA ADORESS REGISTER: 


DEAGNOSTIC/DATA TRANS AS EXPECTED ? 
JUMP IF NOT. 

STATUSSLENGTH COUNY AS EXPECTED ? 
JUMP IF NOT. 
BATA ADDRESS 
JUMP TF HOT. 


REG INCREMENT 7 


OG 2 CONTROL 2°S TO TRANSFER DATA 


SYTE -AG~.e 


ROSTIC/DATA TRANS ~23k80—6¢ 
US/SLENGTH COUNT -61F E> 
ADDRESS REGISTER. 


SENSE OTAG 
SENSE STAT 
SENSE BATA 
OLAGNOSTIC/DATA TRANS AS EXPECTED ? 
JUMP IF NOT. 

STATUS/LENGTH CCUNT AS EXPECTED 7? 
JUMP IF NOGOT>s 

DATA ADDRESS REGISTER INCREMENTING 7? 
JUMP IF NOT. 


RETURN TO OCF. 


PRINT CHESKe 10 -Sl—o 
OURP THESE REGISTERS- 
DIAGNOSTIC/DATA TRANSFER REGe 
~EXPEC TED. 

“ACTUAL « : 
STATUS/LENGTH COUNT REGe 
~EXPECTED.s 

ACTUAL 

DATA ADDRESS REGISTERs 
mEXPECTEO. 

—-ACTUALe 


POINT TO MAP CHART. 
“PAGE 958s ENTRY le 
ERROR HALT ~Siwe 


PROG 1D a0 3-2 


PaGE aa 





Sates 


se ees ag 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOc $558781 
PAGE s 
4032 3741 ATTACHMENT CATA TRANSFER TEST 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
ODAS CO 87 ODFA 536 8 E16 PRINT CHECKs ID ~52-6 
537 
ODAA CO 87 1699 538 8 ERROR GUNP THESE REGISTERS- 
ODAE 0S ODAE 539 bc XL1*0S* DIAGNOSTIC/DATA TRANSFER REGe 
ODAF 230a 6DB0 540 oc XL2*230A¢ “EXPECTED. 
0081 ocoe O0B2 541 SSI6E oC _XL2*00008 “ACTUAL « 
0D83 02 o083 542 Dc XL2eo2¢ STATUS/LENGTH COUNT REG 
CDB4 g1FD ODBS 543 -  o¢ xL2°81FO8 “EXPECTED. 
OpBé oocS ODB7 544 SSI6F DC %2°C6000* “ACTUAL. 
OD88 04 cose 545 DC XL 19048 DATA ACORESS REGISTER. 
COB9 199A COBA 566 be AL 2(DADATAt2) ~EXPECTED. 
0088 SoocG OCBC 547 S516H OC aL2*00008 “ACTUAL. 
ODBD FF opsD see | pe XLA°FFe 
OOSE CO 87 I4EA Seo 8 MAPS POINT TO MAP CHART» 
Cnc2 958: oDc3s 550 oc xL2*9sei* “PAGE 958, ENTRY ie 
opca CO 87 O222 551 6 HALT ERROR HALT -SZ-. 
9o0c8 4052 ooce 552 oc XL 2°4952¢ 
CDCA CO &7 O216 553 8 LINK RETURN TO DCF. 
S54 | 
ODCE 3¢ 53 CEO? 585 ERRRIG MVE = -RTRN~1.x°S3* 
ODBb2 Co 87 GOFA 556 8 E16 PRENT CHECKse 1D ~53-. 
557 
0006 Co 87 1699 558 B ERROR DUMP THESE REGISTERS- 
ODDA OS o0De 5589 oc XLisose DIAGNOSTIC/DATA TRANS REG. | 
opeB 23a0 CBbC sec oc XL2*23A0¢ ~EXPECTED > 
OofOD ooce OGDE S63 SS161I DC XL2*00008 mACTUAL. | 
ODDF o2 SODF 562 Dc xLI#o2¢ STATUS/LENGTH COUNT REGe 
ODEO 81FE SDE! 563 De XL2°81FE* ~EXPECTED. | 
ODE2 0060 ODES S64 $Ss163 DC XL2*00G608 ~ACTUALe i 
CODES 06 ODES 565 pc XLi*C4s DATA ADORESS REGISTER. 
ODES 1998 ODE6 S66 oc AL. 2EDADATA+3) EXPECTED. 
CDE? 9000 OCES S67 S516K DC XL2*0000* “ACTUAL « i 
ODES FF OBES 568 Oc XLA* FFE | 
ODEA CO 87 i@za 569 8 MAPS POINT TO MRP CHART. 
CDEE 9561 ODEF s70 DC MLZ2°95815 “PAGE 958s ENTRY Je 
ODFO CO B7 0222 571 8 HALT ERRGR HALT -S3-, 
CDF4 #083 OOFS S72 DC XL2*4953° 
ODFE CO 87 6216 573 8 LINK RETURN TO OCP. 
576 
OOFA 34 08 O€6B S75 £16 ST RTRN+ 3. ARR | 
COFE CO 87 0214 576 5 PRINT PRINT TRANSFER CHECK. 
OE02 C2 CEO2 S577 oc XLA*c2¢ | 
O£03 14 oEC3 578 oc 1L2*29¢ 
CECS 15A6 CEOS 579 oc AL2€SNCK? 
0E06 4060 GEO? S80 oc XL2°4000¢ 
0£06 CO 87 0900 581 RTRN 8B a~% 
582 
583 
£84 Se e5enase 
585 * RINOB ¥ 
S26 SERVE LARE KES AAKAKKSE RACER RESRSKTAHES RRA S SEV SH PKIKSREKSLRKBAPSRESKHES 
SST ¢ * 
588 « ROUTINE OB TEST LENGTH COUNT REGISTER * 
569 * OVERFLOW BY READ CALL. * 
$90 « i 
SG3 HOES EG SETHE EEE HES EEE SLEEK HES KKCEA STREETS SAAMKARAKERAEERRAKSELEREAL 
cEOC 08 Cf£0C S92 RTNOS 2C XL1*OB8¢ ROUTINE NUMBER 
QE0D 00 O£0D 593 oc XL2¢008 NC MANUAL INTERVENTION REQUIRED 
CECE CECB OEOF 594 oc AL Z{RTNOC) ROUTINE OC ADORESS 
595 
CE10 Co 87 O21 596 8 PRINT PRINT EOT HEADING. 
CE14 45 0€1@ $97 oc XL2°4S8 
OE1S 2F 0£E1S 598 oc ILite7e 
CE16 18EC SE17 «599 oc AL2(HDOB) 
OEIG 4048 “9£19 800 oc XL2*40AB8 
601 
CELA CO B87 145¢ 602 a INETL INITIALIZE THE 3741. 
603 
DATE 16AUG74 1 SNOV74 16JUN7S PROG 10 403-2 
EC NOe 824765 825057 PAGE 5 


wey, 


IBM MAINTENANCE OLAGNOSTIC PROGRAM 


4032 


ERR LOC OBYECT CODE 


3741 ATTACHMENT DATA TRANSFER TEST 


OLEIE CO 87 i511 604 a 
SE€22 FO 3C 3c 6O5 HPL 
- 666 
CE25 31 41 1834 &o7 Lio 
QE29 31 4& 1AE2 £68 LiG 
GE20 $i 45 1A30 58¢ izO 
OE31 31 42 LASSE 248 iio 
VESS 38 413 $aaGg £23 Lia 
632 
OEI9 FS 41 Of 615 SiG 
QOESC FS 44 Fe 614 Sic 
CEI FS GS 74 @3i5 sig 
616 
2E42 30 462 BEBD 617 SNS 
638 
SE26 00 01 OFEBD CFeB 6i9 cLc 
GE4C F2 01 2¢ 620 JNE 
621 
OEGF 32 45 1ia30 622 LO 
CES3 F3 44 63 £23 sic 
CESS FS 4&4 61 2s $796 
SESS 30 45 GES: 62S SNS 
G26 
OESO 36 45 OFBi1 527 SNS 
SES! 30 42 O&FBS 628 SNS 
62S 
OESS OD 02 CEB1 OEAF 630 cue 
CE6B F2 03 3 631 JNE 
OCESE OD O12 SFB6 CEBS 632 cic 
OE74 F2 61 28 633 JNE 
634 
GE??? CO 8&7 6216 @35 8 
636 
S637 * ROUTINE 38 
638 
GE78S CQ 87 O214 639 ER17 2 
GETF C2 SE7F 646 oc 
oES8G OC CES8G 643 oc 
OESi LEAD CEB2 642 oc 
GEB3 a055 CE8S 643 oc 
644 
cES8s Co a7 1699 645 8 
SEBS O2 SESS 5646 oc 
CESA SIFF CEB8S 647 DC 
ctsac ococ O£G6D 546€ SS1I7B oC 
SEse FF SESE 649 o¢ 
CES8F CO ST 34EA 650 8 
CESS 93862 OE94 65! oc 
cES5 CO B87 C222 682 3 
OES9 4055 GCEGA 653 oc 
O£98 CO 87 8236 654 8 
655 
OESF Co 87 O2ZIA 656 ERRIF 3B 
OEAS C2 QOEA3 657 oc 
SEAS DA OEAS 658 oc 
GEASS iE€68 OEAG 659 oc 
CEAT 4056 OEAB 660 oc 
661i 
OEAS CO B77 1699 662 & 
OEAD OS OEAD 663 oc 
OEAE 6805S OEAF 664 oc 
SEBO 0000 O€B1 665 SS17C DC 
9EB2 02 OEB2 666 oc 
cCEBS E300 CEB8& 667 oc 
SESS 09000 OES6 668 SS!7B oC 
OEB87 FF O=B7 669 oc 
SEG8 CO B7 I4EAa 67C 8 
cCEBC 93583 OEBD 671 oc 
Date 16AUGTS ISNOV7S L6IJUNTS 
EC NOe 824765 &82¢870 825057 


4DDR STMT SOURCE STATEMENT 


QUES 
K° SC* X* 3Ce 


mMOOOZ eK tape 
ADAS 2 K*4G* 

HOQUGe X* SS# 
HOOFE XP aae 
HOGEOsKt 42° 


M* OG Xe 41? 
At FS*t yp X* RH? 
K°7G*% eX *®eqe 


SSIES ext HDeE 


SSi7B5t 25 »SS17B~2 
ERT 


HOOCO,x* 458 
KPGL* xe age 
XO Gis eX gee 
SS17E.X* 45% 


SSi?C sXe ase 
SSi7O,X*42* 


SS27T623 eSSi7C~—-2 
ERRI? 
5$170€2)sSS170<—2 
ERR? 


LINK 
ERRGR MESSAGES # 


PRINT 

xa *c2e 
ILs*z2e 
ALZUSNSCK) 
XML 2°405S8 


ERROR 

m2 *°O2* 
XL2°S1FFE 
XL 2*GO0G0r 
ALE SFFS 
HAPS 
AL2*S582¢ 
HALT 

Hi. 2°SO5S5¢ 
LINK 


PRINT 
XLisc2e 
IL1*10¢ 

AL 20 CKEGTI 
AL 2*°SOS56¢ 


ERROR 
XLi?o5¢ 
xXL2*080S¢ 
XL2*9000* 
XLI*O2¢ 
X2*E 300° 
xL.2¢00008 
YF FE 
MAPS 
XiL2°9583¢ 


TESY FOR sS 
HALT -—FF- IF 


: A : : : : ; ’ q : : Ze hee > : a : : : . 
: - & 9 te . 


PART NO 
PAGE 


id« 
ONe 





. 


5558781 
SA 


SET FNCY REG IO 6 USEC RESETse 

LOAD ADDRESS 1K THE OAR. ~ 
CLEAR DATA TRANS REGe 

GAD -FE~ IN LENGTH COUNT REGe 

PUT 3741 IN DIAGNOSTIC MOOE. 


ISSUE READ CaLt> 
DO 2 CONTROL 2*°S TO TRANSFER A DATA 
8BYTE. 


SENSE STATUS/SLENGTH CGUNT ~81FF=¢ 


STATUS/LENGTH COUNT AS EXPECTED @ 
JUMP IF NOT. 


CLEAR GCATA TRANS REGe 
DS 2 CONTROL 2°S TO TRANSFER ANOTHER 
BYTE AND CAUSE LCR OVERFL OD. 

DUMMY SpaS& TO STALL 


SENSE DIAGNOSTIC/DOATA TRANS -O0805—6 
SENSE STATUS/LENGTH COUNT ~E200~. 


DIAGNOTSTIC/OATA TRANS AS EXPECTED ? 
JUMP ZF NOT. 

SYATUS/LENGTH COUNT AS EXPECTED 7 
JUMP FTF NOT. 


RETURM TS OCP. 


PRINT SENSE CHECK. 


DUMP STATUS/LENGTH COUNT REG. 


~EXPECTED 
~ACTUALs 


POINT 7G MAP CHART. 
“PAGE 958+ ENTRY 2. 
ERRGR HALT ~S5~. 


RETURN TO DCP. 


PRINT EOF CHECK. 


OUHP THESE REGISTERS~ 
DIANGOSTIC/DATA TRANS REGe 
“EXPECTED. 

~ACTUAL « 

STATUS/LENGTH COUNT REGeo 
~EXPECTEDs 

~ACTUALs 


POINT %08 MAP CHART. 
“PAGE 9580 ENTRY 3,6 


PROG 10 403-2 
PAGE SA 





IBM MAINTENANCE DIAGNOSTIC PROGRAM : PART NO. $558781% 18M MAINTENANCE DIAGNOSTIC PROGRAK PART NO. 5558782 


PAGE 6 |. PAGE 6A 
4032 3781 ATTACHMENT DATA TRANSFER TEST é _ #032 3761 ATTACHMENT DATA TRANSFER TEST : 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
CEBE CO 87 0222 672 8 HALT ERROR HALT —S6—5 ae O76 ¥aeesexay 
OEC2 4056 OEC3 673 oc XL. 2* 40568 ~ , S77 * RINOC 
OECS CO B7 0226 674 8 CINK RETURN FO DCP. S78 FESRESESEERECELES HOKE SS SEHK EEREELE HOES EERE SEES SE OHEEESERTE ERE SEE RESEE EE 
Cc". 679 «* * 
2 oo 680 « ROUTINE OC TEST LCR GVERFLOW BY HRITE CALLe ® 7 
681 « & 
: co ; 682 KEECEESEREKESE HE SESEHEE SHSEHEEEESOCESE EH ESE SEE C OLE EE OEE EEE SCERERESEREEEKEKEE 
: oECB oc OEC&S 683 RTNOC OC x2¢ocs ROUTINE NUMBER 
SECS 00 OECS 684 oc XLEefOo* NO HANUAL INTERVENTION REQUIRED 
CECA OF93 ©ECB 685 DC =s- AL2ECRTNOD? ROUTINE CO aDpDRESS 
. 686 
- ‘OECC CO GF O214 687 8 PRINT PRINT EOT HEADING. 
ie COEDS 4S OEDO 688 Dc XLgsase 
oe o£D: 36 OED: 689 oc IL2*46¢ 
2 SED2 2CcFE GED3 690 oc &L2CHEOC}S 
Bp bec, OEDe 40ac OEDS 695 OC | éMi.2*GOaCS 
ue 692 
OE0G CO AF s:65¢ 693 6 SNITL INITIALIZE SHE 3741.4. 
€ G94 , 
| OECR CO BT 151i 695 8 QUES TEST FOR ssw 10- 
; OEDE Fo 3C 3¢ 696 HPL. K*3SC* .X* 3Ct HALT -FF- IF ONe 
ec’ 697 é 
| , OEEL Si 43 24868 695 LIo HOCEZeX*a4* CO 6 USEC RESET AND PUT IN DIAG MODE 
i OEES 38 45 1a30 69g &£FO HO000 e&* as# CLEAR DATA TRANSFER REGISTER 
es OEES 32 $2 1456 7a0 &s0 HOOFF eX°a2e LGAD -fFF=- IN LENGTH COUNT REGISTER 
GEED 32 a4 1A62 TO1 irc ADRS eo X*O45 : LOAD ADDRESS IN DATA ADRS REGs 
OEFL 31 43 tae 702 LIO0 HOOBO eX*az* SEY FNCT REGISTER TO DIAG mODEs 
po 703 
| ae OEFS F3 42 OC Toe siIo K€ 00% eX*g2e ZSSUE BRITE CALL START 170.2 
{ OEFS F3 44 40 70s SIO X* 40% oX* 4G8 OC CONTROL 2 SIO TWICE TO FORCE 
; OEFB F3 a4 46 TOo6 sio RE4O% eX 8 GHe ~ 3/70 CYCLEe 
i OEFE 30 42 OFS6 To? SNS SSIBB.X*62° | SENSE STATUS/LENGTH COUNT ~8300—< 
= { OF O02 30 45 OF4F 708 ' SNS SS GA eX* 458 SENSE DIAGNOSTIC/OATA TRANS -2500~6 
i ¢- 709 
re ‘ CFO6 OD 00 OF4E OFAC 730 cLC SS1BA~16330SSEBA<3 OIAGNOSTEC BYTE AS EXPECTED ? terre 
ss OFOC F2 Of 2A 732 JNE ERis SUMP SF NOT. ; 
OFOF 0D 013 OFS4 OFS2 T7i2 CLE SS 16BI 25 e0SS18B8-2 STATUS/LENGTH COUNT AS EXPECTED ? 
| OFIS F2 01 248 733 JNE ERigs SUMP IF NOT. 
i 714 
| £ OF18 F3 46 40 735 sic X°GOt eK 4G6 , THIS CONTROL 2 CAUSES ~OVERFLOW~~ 
i OF18 30 «65 OFTC 726 SNS $S21ED,X* Se SENSE DIAGNOSTIC/DATA TRANS -0800<« 
pag OF LF 30 42 OFa! Ti? SNS SS1BE eX* aze SENSE SYATUS/LENGTH COUNT REG -E300- 
« g 718 . 
| v OF23 OD CO OF7B OFTS . 71900” cic SS18D-1€ 13 eSS18D<3 DIAGNOSTIC BYTE AS EXPECTED ? 
, OF29 F2 OL 3A 720 JNE ERRIG JUMP IF NOT. 
j OF2C OD O13 OFE! OF7F vei cic $S18EC623 »$S18E-2 STATUS/LENGT#H COUNT AS EXPECTED 7 
| OF32 F2 03 31 722 JNE ERRI8 JUMP IF NOT. 
723 
! > OF35 CoO 67 o216 726 8 LINK RETURN TO OCP. 
725 
c 726 *% ROUTINE OC ERROR MESSAGES @ 
1 €°% 727 
oe OF39 3C 00 OF4F 728 ERIS «avE SS1IBAeX*00*# CLEAR DATA TRANSFER REGo 
OF3D CO 87 0214 T2929 6 PRINT PRINT SENSE CHECK. 
OFai C2. OF 42 «6730 oc MLEOC Ze 
OF 42 OC OF42 731 oc tLae3z2¢ 
OF43 1EAaD OF4e F732 oc ALZCSNSCK) 
‘ OF4S 2057 OF“6 733 oc XL.2°40S7® 
=o; 736 
OFa? CO B87 1699 | 735 8 ERROR DUMP THESE REGISTERS= 
OF4B 05 OF4B 736 oc m2*05° DIAGNOSTIC/DATA TRANSFER. 
oOFac 2500 OF4D 737 oc xXL2*25¢0¢ ~EXPECTEDe 
OF&E 0000 OF4F 738 SSIBA OC  XL2*0000* ~ACTUALs 
OFSO 02 OFSO 739 oc XL1*92¢* SYATUS/LENGTH COUNT REG» 
OFS1i 8300 OFS2 780 oc XL2*8300* ~EXPECTEDe 
OFS53 0000 OFS® 762 SS1i8B oC xXL2°0000¢ / MACTUALS 
= OFSS FF OFSS 742 oc XLR®FES 
: OFS6 CO 87 44&A 743 8 MAPS POINT TO MAP CHART 
hie 
DATE 16AUG76 ISNOV7TS 163UN75 PROG ID 403-2 DATE I1GAUGTS ISNOV74 163UN7S PROG ID 403-2 
EC NQe. 824765 824870 825057 PAGE 6 EC NO 824765 824870 825057 PAGE 6A 
z z a 
u. 
€: 


Le, 


sm, 


” 


meer 


os ; | ( eS & & & &@ & 


@ 


t 


sewer 


ieee meet eterno _ 


Leptentnrues 2a BCA ane o 


Lo cnmst LERNER SN SE ATE OE eee ae ewe ot 


| 
| 


TTA pense TENT PN RN IPE NC RSH SI BAA ee BO TS 








4032 
ERR v.a0c 


CFsa 
OFSC 
OF 60 
oF62 


OF 66 
OF6A 
OF 6E 
OF 6F 
oF7O0 
OF 72 


orre 
oF 76 
or7e 
oF78 
oF 7D 
OF7E 
oreo 
oFe2 
OF83 
oF 67 
cores 
OF 8D 
orer 


OFS93 


OF 99. 


oFos 


oro? 
ores 
orsc 
OF SD 
OF OF 


OFA 


SFAS 
CFA9D 


oFac 
oFBc 
OFBS 
OF BS 


' oF BC 
OFSF 
oFfrce 


OFCS 
OFCS 
OFCF 


OFB2 
OFDS 


' OFDS8 
oOFOC 


DATE 
EC NDe 


lau MAINTENANCE DIAGNGSTIC PROGRAN 


3741 ATTACHMENT DATA TRANSFER TEST 


OBJECT COOE 


9584 
co 87 
4087 
co 87 


3c 06 
co 87 
c2 

OA 
1€66 
4058 


co 87 
os 
0600 
0000 
02 
£300 
0000 
FF 

co 87 
9585 
co ea? 
4058 
co 87 


oo 
oo 
1989 


co 87 
45 
20 
iD16 
a0aD 


co 87 


co BF 


31 4i 
33 42 
3:1 45 
313 44 


F3 423 
a4 
aa 


30 44 
Q2 
F2 01 
a4 


30 44 
30 42 


0222 
0216 


OF 7C 
O21Aa 


1699 


24Ea 
0222 


0216 


G2ia 


146S¢ 


3533 


1aS4 
1AS2 
3a30 
1A62 


090 
60 
60 


3025 
1025 
41 


60 
60 


1049 
i04E 


16auGT4s 


624765 


oF ss 


OF61 


orG6e 
OF 6F 
OF71 
oF73 


oF78 
oF vA 
oF 7C 
GF 70 
OF 7F 
OF 81 
oFB2 


oF 88 


OFBE 


OF93 
OF 94 
OF 96 


Oorsos 
orFsc 
OFSE 
OF AG 


1023 


1SNOV74 
824870 


Ta oc 
745 8 
"46 oc 
T4a7 8 
78 
749 ERRIS MMVI 
750 8 
751 oc 
752 oc 
753 oC 
754 oc 
7S8 
TS6é 8 
757 oc 
7538 oc 
759 $s18D oc 
760 oc 
761 oc 
762 $S16E ODBC 
763 oc 
764 8 
Té5 oc 
765 8 
767 ot 
T6868 e 
769 
770 
T7i BSBSSSEHES 
772 © RTNOD > 
773 
774 «© 
775 
776 * 
V77 
778 RTNOO OC 
v.79 oc 
7e0 oc 
Tai 
7e2 8 
783 oc 
7Ta4 oc 
765 oc 
1°86 oc 
Tar 
788 8 
7389 
790 8 
791 HPL 
792 
793 Lio 
794 10 
795 Lic 
796 1c 
797 
798 sto 
799 sto 
800 sta 
803 
802 SNS 
803 cic 
804 JNE 
805 
806 sro 
807 slo 
808 
809 SNS 
810 SNS 
8123 
S6OJUN7S 
825057 


cn ete 


ADDR STMT SOURCE STATEMENT 


XL2° 95849 
HALT 
XL2¢4057¢ 


LINK 


$S18DeXx* 008 
PRINT 
xi3*C2* 
zL2°208 

AL 2(CKEOTS 
xL2°4058° 


ERROR 
xXE1*°O5* 
xXL2*O800¢ 
AL2°0000F 
XLI*O 2° 
XL2°E3O0* 
XL2° 0000 * 
XLI*F FS 
MAPS 
xL2°9S585* 
HALT 

XL 2*4058 * 
LINK 


PART NOe 5558761 
PAGE 7 


cee cemetenn 


—PAGE 958s ENTRY Se 
ERROR HALT -S7~-e 


RETURN TG OCP. 


CLEAR DATA TRANS 
PRINT EGT CHECK. 


REGISTERe 


DUMP THESE REGISTERS= 
DIAGNOSTIC/OATA TRANS REGISTER. 
WEXPECTEDs 

~ACTUAL « 

STATUS/LENGTH COUNT REGISTER. 
EXPECTED. 

@ATCTUAL o 


POINT TO MAP CHART: 
“PAGE 956e ENTRY So 
ERROR HALT ~SS—¢ 


came: seewees emma ene oem GERAD OLA OPENERS LIONS CEN REECE -GMEERS CEM rte. Atm ae mm moon ne 


RETURN TO OCP. i 


SVORERDPXHEAK SERERKES SESERSRGAESKKSESEHSSK LK SSS AESSEKRTE LSA SKE SHKS ERLE SSE 


= ROUTINE GO 


= 


CHECK DECREMENTING OF DATA ADORESS REGISTER« * 


£ 


HESPEBHSSESECSES AES KE HKSK SEAT ERERHHK TLR AAEE ERERESESESREARSESKEVSRSASALSSSARSIV VRE 


ae ne te 


mL at ods 
xi1¢o0? 
ALZ(RTNOE)D 


PRINT 

x2 °4S5* 
r1*32e 
@L2¢(HOOO? 
XL2*40AD° 


INITL 


Ques 
RE3C* oX° SCS 


HOSB2eX* 41° 
HOOFO oX*42* 
HOCOG oX* 45* 
AORS, K*44* 


X° O00 oX*41° 
X*6O0*% oX* 4K8 
R°GO* oe XK* Gse 
SS19AeX*aa® 
SS29A42) 6SS19A—2 
ERIS 


X60" oX*4Q® 
X°6O* oX* 448 


$S198 0X44? 
S$S19C eX*# 42° 


ROUTINE NUMBER 
NO MANUAL INTERVENTION REQUIRED 
ROUTINE OF ASORESS~ 


PRINT DECR THE LCR HEADING 


INITIALIZE THE 3741. 


TEST FOR SSW 106 
HALT -FF- IF ON. 


SET FNCT REG FOR 6 USEC RESET» 
LOAD ~FO- IN LENGTH COUNT REGeo 
CLEAR DATA TRANSFER REGISTER 
LCAD ADORESS IN DATA AORS REG 


ESSVE READ CALL START 1/00 
DO 2 CONTROL 2*S TG TRANSFER OATA 
BYTE. 


SENSE DATA ADORESS REGe 
DATA ADDRESS REGISTER DECREMENTING ? 
JUMP IF NGTeo 


OO 2 CONTROL 2*S TO TRANSFER ANOTHER 
DATA BYTE. : 


SENSE CATA ADDRESS REGISTER 
SENSE STATUS/LENGTH COUNT ~681F 2-6 


PRroG I0 403-2 
PAGE 7 


ees cate ee ceeds bicbt gs” 


IS MAINTENANCE DIAGNOSTIC PROGRAM 


4032 


ERR LOC 


omy amy anne 
Geet 


ary 


Cy e 7 ore, 


© 


a 


CFEO 
OFE6 
OFES 
OFEF 


OFF2 
OFFS 
OFFS 


OFFO 
2003 
19006 
acoc 


100F 


1023 
1037 
10128 
i619 
2018 


1030 
3021 
1022 
2024 
1026 
1027 
30268 
1020 
2931 
2033 


1037 
1038 
BOSC 
i630 
1903F 


1541 
2045 
1036 
1008 
104A 
1048 
21045 
100F 
1050 
1054 
1056 
3054 
1osc 


1060 
3064 
31065 
1066 
1068 


1OGA 
106E 
106F 
L072 
1073 
107% 
2076 


DATE 
EC NO. 


Garten 





3741 ATTACHMENT DATA TRANSFER TEST 


SOURCE STATEMENT 


* ROUTINE OD 


OBJECT CODE ADDR STMT 
OD O1 1049 1067 B12 
F2 08 4E 813 
OD 01 104E 1306¢ 814 
F2 01 45 615 
Bi6 
F3 43 04 ai7 
BO a2 1072 818 
30 45 1077 829 
820 
OD 02 1072 1070 623 
F2 01 SA 822 
Op O1 38077 2975 a23 
F2 61 53 824 
828 
co a7 0216 826 
827 
828 
829 
CO 87 O28 830 ERI9 
c2 2017 632 
2c 1018 632 
1BOA 2014 833 
a0s9 101¢ 6838 
835 
CO 87 1699 836 
os {021 837 
1997 1023 838 
0000 1025 839 SSISA 
FF 1026 840 
CO 87 14EA Bei 
9603 ro2c 06842 
co SF 0222 843 
4059 1032 844 
co 87 0216 ess 
846 
CO 87 O23A 847 ERRI9 
c2 1038 8368 
oc 103¢ 84S 
1EAD 103E 850 
4054 1040 «851 
as2 
cO 87 1699 8s3 
oe 1045 854 
1996 1047 855 
0060 1049 856 $S198 
o2 1040 857 
81F2 10ec «6658 
9000 106E 859 5S19¢ 
FE 304F 860 
CO B87 16EA 661 
9602 1055 862 
co 87 0222 863 
405A 1058 664 
CO 87 0216 865 
866 
CO 87 O23A 867 ERRR19 
c2 1064 668 
oF 3065 869 
1E8C 1067 670 
40sc 1069 873 
a72 
CO 87 1699 873 
o2 106E a74 
EL F2 1070 875 
0000 1072 876 SS!70 
os 1073 a77 
0000 1075 878 
0000 1077 879 SS19E 
16AUGT4 A SNOV74 265UN75 
824765 824670 825057 


cc 
JNE 
cLc 
JNE 


31a 
SNS 
SNS 


ac 
JNE 
cuc 
JNE 


8 


PRORORRRR® RERRe 


DRT RORRRRRRR” RAAa” 


oc 


oc 


ta Se eRe et Se ew Sie I aie eg tie et 


$819802) »SS1 968-2 
ERRI9 
$$19C(23 eSS19C—2 
ERRIO 


X°O4* oX* 43° 
$S19Dex°a2é 
SS1IVE oX* 25° 


§$190(23sSS190-2 
ERRRID 
SS39E (25 eSSISE~2 
ERRR1I9 


LINK 
ERROR MESSAGES 2 


PRINT 
xi1ec2e 
1L3°289 
AL2 CDARCKS 
xL2*4059° 


ERROR 

xLstoee 
AL2€DADATA@1) 
xL2*9000¢ 
MLISFES 

uaPS 
m2°9601° 
HALT 
XL2*4059* 
LINK 


PRINT 

Mm 2°C2° 
zL5722° 
44.2(SN5Ca) 
XL Z2*QOSA® 


ERROR 
XL2*O6* 
ALZtDADATA~23 
xL2°0006* 
xL1°O02° 
XL2*81F2* 
xL2°0000* 
XLA°FF® 
MAPS 

xi. 2°9602° 
HALT 

XL 2°a05A¢ 
LINK 


PRINT 
xLiecee 
triease 
ALZ2(OVRFL) 
xtL2*eo0sce* 


ERROR 
xi1*o2? 
XL2*EIF 2° 
XL2*0000* 
xL3905° 
*%L2°0000° 
XL2°0000° 


1 gt ee eae tet cero SESE 


$558781 
TA 


PART NOeo 
PAGE 


DATA ADDRESS REG DECREMENTING ? 
JUMP IF NOTe 

STATUS/SLENGTH COUNT AS EXPECTED 7 
JURP IF NOTe 


OG CONTROL 3 SIC TO CAUSE OVERFLOKs 
SENSE STATUS/LENGTH COUNT -Ei Fare 
SENSE DIAGNGSTIC/OATA TRANS~OS00—0 


STATUS/LENGTH COUNT REG AS EXPECTED? 
SUMP TF NOTe 
DIAGNOSTIC/OATA TRANS AS EXPECTED 7 
JUMP LF NOT> 


RETURN TO OCPe 


PRINT DATA AGORESS REG CHECKe 


DUMP DATA ADGRESS REGISTER: 


~EXPECTEDe 
~AaACTU&aLe 


POINT TO BAP CHART, 
~PAGE 9406+ ENTRY 16 
ERRGR HALT -59-6 


RETURN TO OCPe 


PRINT SENSE CHECK es 


é 


OuUMP THESE REGISTERS— 
OATA ADDRESS REGISTER. 
~EXPECTEDs 

~AC TUALe 

STATUS/LENGTH COUNT REGo 
~EXPECTEDe 

~AC TUAL« 


POCINT TO WAP CHART « 
“PAGE S60, ENTRY 2e 
ERROR HALT ~SA-e 


RETURN TO DCP. 


PRINTF OVERFLOW CHECK. 


OuMP THESE REGISTERS=- 

AFTER EGT WAS GENERATEDe 
~STATUS*LCRe 
~ACTUAL.« 

DIAGNOSTIC/DATA TRANS REGISTER: 
~EXPEC TED. 


PROG 10 


PAGE TA 


493-2 


peeeoeoeoooaosaoseesoeoeeoeoeoeenenee 9H 9ee eee ee 


Sl te 


Se Ren ER 8 RD Re tS emer oe ete ee ees 


IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO-e 5558781 IBM MAINTENANCE DIAGNOSTIC PROGRAM PARTY NOs ss587e1 


PAGE 6 PAGE BA . 
4032 3741 ATTACHMENT DATA TRANSFER TEST 4032 3741 ATTACHMENT DATA TRANSFER TEST a 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1078 FF 1078 880 oc XLISFFe 10FF 31 43 1498 948 LIO  wWO0B2exX*41° PUT 3741 IN OIAGNCSTIC MODE. 
1079 CO 87 14EA 681 8 MAPS POINT TO MAP CHART. 949 
107D 9603 107E 862 Dc XL2*9603° “PAGE 960+ ENTRY 36 2103 CO 87 1511 950 8 Ques TEST FOR SSW 106 
107F CO 87 0222 683 8 HALT ERROR HALT -5SC-. 1107 FO 3c 3¢ 953 HPL = KP 3C*# XP CP HALT -Fr- IF ONe 
31083 405¢ 2084 884 oc XL2*°40S5C° 120A CO 87 12E0 952 8 ADJIST - 
4085 CO 87 0216 88s 8 LINK RETURN TO OCP. 953 
886 ; - / £&  FE2D 959 ORG = xX®*FFFFS~xX* 32E0% 8 IF FLAGGEDe CODE OVERLAY PROBLEMe 
887 eeesesece ie? 12E0 9ss ORE x* 1 2E 08 FORCES ADDR OF JUMP TO HAVE A 
868 € RTNOE * ‘ 9S6 * A LARGE VALUE EN ITS RIGHT HAND BYTE 
BED KESESKEHEKESES SECEEESES OE SEEFE SE SERS ESSOSHKE ESEKCS SESCEL EE EEEKRSEESEESESE CSS {- 9s7 : , : 
890 * s 12€0 £3 80 02 ; 956 ADJST SIQ X*02*ox*408 ENABLE INTERUPT © 
891 «+ - ROUTINE OF - TEST 37413 INTERRUPT CAPABILITY. * 12€3 F3 41 06 959 SIG K®00*,x*41* KSSUE READ CALL « 
892 * es ef) 12E6 F3 44 Ca _ 960 SIO = KeCae exeaae DO 2 CONTROL 2°S TO CAUSE DATA TRAN= 
BOS SHESESS EERSTE SEFES ETE SE SESSESESSE SES SES HESS EEE ELE EHESESECSHESES ECE SESSESEOSD 12E9 F3 46 Cea  g63 SIO K*CH*X* HSE SFER AND INTERRUPT. , 
1089 OE 3089 694 RTNOE OC RL2° OEF ROUTINE NUMBER 962 
1084 00 «| 208A 895 oc xL2°00* NO MANUAL ENTERVENTEON REQUIRED ‘££  42€C CO BF 12FO 963 8 . ete BO *NO-OP* SRANCHES TILL INTERUPT eo 
31088 3398 308C 4896: oc AL2(RTNOF} ROUTINE OF ADDRESS ~ 12FO CO B87 12Fe 964 JUMP 6 +46 
897 12F4 CO 8F 12F6 965 8 ee 
308D 3D CS 0200 898 CLE CPU.CES IF IT £S NGT MODEL 25 cee oe 12Fe CO BT 12FC 966 8 e+4. , 
1091] CO 03 135F 699 BNE ADIT THEN GO TERMINATE oo 82FC 38 80 1995 967 TSN FLAG) X*808 INTERUPT FLAG SET ? 
1098 CO 87 021A 900 8 PRINT PRINT ENTERUPT TESTe i op 3300 F2 90 63 968 JF ERA Jump IF NOT. 
1099 4S 2099 901 ce —s knee C: 969 
oe 1098 3c 109A 902 oc tL2¢28° ce 21303 C2 01 1F08 970 LA ERARR» XRE SET UP FOR ARR CHECHe 
a ; 2098 1032 109C 903 oc At. 2CHOCES | 1307 3C 24 1708 971 Myvi = SPIAR,X*26* SEY FOR MaP ENTRY 4. 
209D &0AE 109F 904 oc XL.2°@0aE* i £. 2398 3C 08 17¢8 972 “vr TAR—4@ 0 X* OE® 
905 aes 230F OC O08 17CA 1446 973 MVC 8—« EAR~ 202) ,HAASS 
109F CoO 87 145C 906 8 SNETL INITIALIZE THE 3741. 1315 CO &? 17A0 974 6 CKIAR CHECK ARR WITH PATTERN ~AASS~eo 
907 : ft 3319 OC 02 87CH& 1460 975 “v0 9=— LAR~=2( 2) .HSSAA 
1003 C2 Of 1EF3 908 LA ERIAR oXRI SET UP FOR EAR S CHECK. ve 131F CO 87 17A0 976 B CKIAR CHECK ARR WITH PATTERN ~SSAAwe 
19A7 3C 23 1708 909 MVX MPIARSX*23* SET FOR MAP ENTTYy 3e 2323 OC 02 37CA SAGE 977 “MVC 8 = - EAR=2. 023 2110207 
2048 3C 88 17¢C8 910 avi TAR—4 .X* B8* 4 C 1329 CO @F 17A0 978 8 CKIAR CHECK ARR WITH PATTERN -0107—6 
LOAF OC O08 I7CA 1406 913 MVC) = s- EAR= 262) eHAASS ip 979 
1085 CO 87 1740 912 8 CKIAR CHECK IAR S SITH PATTERN ~AASS~« | 1320 CO 87 3145¢ 980 8 ENERO GO REEMITIALIZE THE 3741. 
1059 OC 01 I7CA 306C 913 avec LAR—2(2) sHSSAA Cc: 983 
eae yy | 1068F CO 87 1746 9146 8 CKIAR a, <8 CHECK EAR S WITH PATTERN -SSAA~. ee 1331 38 80 1995 é 982 SBF FLAGexX*80* RESET THE INTERRUPT FLAG. ee a Se ee 
20C3 OC O01 17CA LAGE a15 HVE = EAR=2(2) eHO10 ; 1735 35 8@ 1A68 ges  . & INTRSsIARS RELOAD THE IAR 5S REGISTER. 
10C9 Co 87 1740 916 8 + CKEAR CHECK ZAR S WITH PATTERN ~0107-. aes 984 
917 = 1339 F3 40 12 98S SIO 8 X*82°sK* 40" OD A PROGRAR 3743 INTERRUPT. 
918 © THE NEXT INSTRUCTIONS HANOLE A. CERTAIN BUG WHICH BEHAVES THUS: : 986 ; 
919 © THE IAR 5 IS OR*D WITH THE PROG. LEVEL ARR AND THE RESULT Le 833¢ CO &7 1340 . 987? 8 eee ALLOW TIME FOR THE INTERRUPT eo 
920 © IS *BRANCHED® 10 SY THE CPUe THEREFORE, THE PROGRAM CALCULATES : 1340 CO 87 1346 968 8 +0 : 
923 @ THE VALUE OF THOSE 2 ADDRESSES OR*D TOGETHER. IT THEN PICKS 1344 CO 67 1348 989 8 ete . 
922 © UP THE FOUR BYTES AT THAT LOCATION AND SAVES IT IN * TEMPS. j, 3346 Co 87 136C 990 : 6 e+6 + 
923 © NEXT. IT MOVES INTO THAT LOACTION A SPECIAL 6BRANCH ; : 993 
° 924 # INSTRUCTION (CALLED BRNCH) SO THAT IF THAT BUG EXISTS. THE i 13¢6¢C 38 80 1995 ( 992 VEN FLAG+K*69° INTERRUPT FLAG GET SET ? 
92S © BRANCH WiLL CATCH ITe AFTER SUCCESSFUL INTERRUPTING HAS (; 3350 F2 90 88 993 JF ERIA JUMP TO ERROR IF NOT. 
926 © OCCURRED. THE CODE SAVED IN *TENP® IS RESTORED. THE VALUE no 994 
927 © OBTAINED BY THE ORING OF THOSE 2 ADDRESSES HAS 2 REQUIREMENTS: 3353 F3 40 OD 995 SIGs K* OD * » X* 408 RESEV THE 37416 
928 * le THE OR*D VALUE (INCLUDING GORING OF PARITY BITS? MUST END ce 1356 35 01 10€8 996 t ORIT4+30KR1 PUT GR®ED VALUE BACK INTC XRi 
929 « UP WITH GOOD PARITY. , : 135a 4C 03 03 19994 997 MVC 8=—- BL XRED OTEMP RESTORE SPECIAL AOCRESS CONTENTS 
930 = 2e THE GR*D VALUE MUST BE SOME ADDRESS WHICH IS BEYOND THE 13SF CO 67 O22a 998 ADIT 68 LOAD TERMINATE SECTIONe 
931 © ENTERRUPT HANCLIENG ROUTINE BECAUSE THAT CODE MUST 8E €> 1363 00 1363 999 oc x.2°00° 
932 © ‘EXECUTABLE wHILE THAT SPECIAL BRANCH IS MOVED INe 1000 
933 * 80023 * ROUTINE OF ERROR MESSAGE * 
_ 934 1002 : 
ROCO OC OO 100A 3a67 935 MavO 8 = SET141(1 Pe INTRS-1 SET UP TO *OR® THE ARR AND IAR Se * 3364 CO 87 023A 1003 ERIA OB PRINT PRINT NO INTERRUPT CHECKe 
1003 OC 00 100E 1466 936. MVC) 8 = SET24102) .INTRS 1368 C2 4368 1004 - oc XL2°C2e ; 
1009 3a 00 10£3 937 SETL SON GRIT42ex%*00° OR THE REGISTER ADDRESSES. (fe 2369 17 2369 1005 oc 1.19238 
2CDD 3A 00 10E4 938 SET2 SBN ORIT+32xX°00* oo 136A 1LETF 2368 1006 oc ALZENOINT) 
20€8 C2 03 12F0 939 ORIT LA JUMP » KR} THES INSTR IS ALTERED. PUT RESULT INTO XRI 236C 40SE 1360 1007 oc KL2*40SE° 
2OES 1C 63 1994 03. 940 MVC) =: TEMP 0 344 eXR1) SAVE CONTENTS OF THIS ADDRESSe oy 136E 4C 03 03 1994 1008 MvC  8—_ 3044 KXR1) o TEMP GESTORE SPECEAL ADDRESS CONTENTS. 
LOEA 4¢ 03 03 3a6C 942 MVC =—-_- 3.140 XR2) eo BRNCH MOVE IN BRANCHe ace 1373 CO 67 36EA 1009 8 APS - POINT 10 MAP CMARTe 
942 1377 9622 4378 1016 oc KL2Z°9G622° “PAGE 9620 ENTRY 20 
10EF 3B 80 1995 : 943 SBF = FLAGe K*80* CLEAR ENTERUPT FLAG. 1379 €O 87 0222 1043 8 HALT ERROR MALT -SE~e 
10F3 35 Ge 1A68 944 i INTRS LARS LOAD INTR S 1AR HITH ADDRESS. 437D 40SE 437E 1012 oc XL 2°@0SE* : 
945 « , 237F CO 67 135F 3033 8 ADIT VERMINATE SECTION: 
10FY 33 44 1A62 946 LEQ ADRS oX* 468 LOAD ADDRESS IN DATA ADDRESS REG. C. 1014 ’ ‘ 
8OFB 31 82 1A50 947 £30  HOOFF »X*42* LOAD -FF~- IN LENGTH COUNT REGe é 19015 88868 SE SEE SEE SESES EES HS TBESEHS OSE SESBS PS CHEST SSE CSO SOSS HHS USE AEORESH SHS 
fo" * 
DATE ‘36AUGTO 25NOV7S  26JUN7S PROG ID 403-2 ~" pate 16aUuG7s LSNOV746 16JUN75S PROG 10 403-2 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 5558781: 
: PAGE 9 | 

4032 3741 ATTACHMENT DATA TRANSFER TEST 

ERR LOC CBVECT CODE ADOR STMT SCURCE STATENENT 

1016 *% EXPECT INTERRUPT § YO BRANCH HERE - * 

LOL ZT FFSRERHELERHEK AS SAK SES ERSERS SHSVHSXAKKSCESKA KGS SLE ESEBTEM RASA KKE CSE BHEEERRES 

1218 
1383 3A 80 1995 1019 INTS SBN FLAGe X82@08 SET INTERRUPT FLAG ONe 
31387 CO 87 1388 3029 8 +4 BG A BRANCH TC SWITCH ARRS AND TARS«} 
2386 30 45 i397 2021 SNS TEMPS eK245¢ ESSUE SENSE TG TEST FOR PROC CHECK .« | 
138F F3 40 05 1022 sia K* OG* aX? a0" RESET INTERRUPT SRETURN TO MAIN PRGMe 
i392 CO 87 1383 1023 8 INTS 
3396 9000 1397 1624 TEMPi OC %L2*0060° A SAFE PLACE TO SENSE, | 

8025 ; 

1026 *eensenes j 

A027 @ RINOF « ' 

1026 eT ee te Oa eee ee Te ETC ee nt ee eee Tele Namen te 

3029 & ‘| 

1036 #« ROUTINE OF TEST DATA BYTE TRANSFERe BYTE = AGs *: 

1031 # EXPECT TG GENERATE 1/0 CHECK. * 

2032 * * 

1033 £4 F825 S845 $4 FFF EEEKEK EB BHLE AEE FART SEES AGH FERK ELS SHKSHARSERERGERKEA ARG SK 
i398 OF 41398 i938 RINOF OC ML OF * ROUTINE NUMBER i 
1399 66 3399 3035 ac 22490? NG MANUAL INTERVENTION REQUIRED i 
239A FFFF £396 2036 oc AW 24F FFF ® LAST ROUTINE 

3537 ; 
i39C CG SF C2ia 1938 8 PRINT. PRINT PARITY TEST HEADING. 
23A0 45 1340 £039 oc xLie45* i 
I3A2 21 I3AL $0690 oc IL.14*335 
2342 1053 13A3 16863 oc AL2CHDOOF 3 
1340 20aF §43A5 1042 oc XL. 2 * &OAF @ 

1043 
13a6 CO 87 1a5C 2044 8 INTL INITEALIZE THE 374136 

1045 ; 
23Aa CO B87 1512 1646 8 GUES TEST FOR SSW i506 
ISAE FO 3C 3c 1047 HF, X*3C*,xX* ace HALT <FF- IF tte | 

2048 | 

poere 21354 31 4% 1034 2049 L305 HO0COL oX5 41" SET FNCY REG TO 6 USEC RESET» : 
2385 321 4&2 1AS2 219056 Lio HOOFG.X*42¢ LOAD ~FO—- IN LENGTH COUNT. l 
1389 3i 44 1A62 1551 210 &DRS ea XtHat LOAD ADDRESS IN DATA ADRS REGe i 
238D 33 41 1440 3052 Lie HOCBOs xX* 47° PUT 3741 in DIAGNOSTIC MODE. 

1953 ; 
i3C1i1 F3 41 a0 1054 s10 X*#O0* .X*ai¢ ESSUE SIO READ CALL. ! 
13C4 F3 44 C8 19655 sIa X* CKE* eX*#4G* 0G 2 CGNTROL 2*S TO TRANSFER DATA { 
I3c7 F3 44 ¢8 2056 sia X*CBt oe X* 4a? AND CAUSE BAD PARITYs | 

16057 { 
13CA 30 42 1424 19058 SNS SSOFAeX* G24 o DUMMY SENSE TO STALL i 
23CE 30 42 1a24 1059 SNS SSOFAeK%* 42° SENSE STATUS/LENGTH COUNT ~COFI-- [ 
2302 F3 43 O04 21060 sta X89 046 a xXF QR FORCE EOT | 
1305 00 O28 3424 1422 2961 cc SSOFA(2) sSSOFA~2 STATUS/LENGTH COUNT AS EXPECTED ? 
1398 F2 01 34 1062 JNE EROF2 SUMP IF NOT. 

1063 
13D0E 30 43 1449 1064 SNS SSOFB«xK#*azZ* SENSE I70 TRANSFER LINES ~FSA2—<0 | 
I3E2 00 01 1449 144807 1665 Cuc SSOFB(23 »SSOFB-2 1/G TRANS LINES AS EXPECTED ? i 
i3E@ Fe oO1 4C 2066 JINE EROF 2 SUMP IF NOT. : 

1067 : 
13EB FS 46 oD 1063 CONY Sio X*OD* oX* 408 OO GENERAL 3741 RESET 
IBEE Ci 40 IZ3FT 1069 Ti10 NTRST oX* 40° BRANCH IF 3741 NGT MADE READYs 

1070 
t3sF2 CO 87 O22a 1071 8 Load TERMINATE SECTION. 
13F6 Gd i3F6 1072 oc xL2*0908 

. 1973 

102 % ROUTINE OF ERROR MESSAGES * 

10753 
i3F7 CO 87 O2iA 1076 NTRST B PRINT PRINT 3741 NOT RESET. 
13F8 c2 13F3 1577 oc m2*C 20 
ISFC 12 i13FC 1078 oc 114188 
13FD 18FE - (3FE 3079 oc AL 2¢NORD Y) 

L3FF 4060 1400 3080 oc XL2*4060¢ 

1401 CO 87 I4EA 1083 6 MAPS PCINT TO MAP CHART. 

1405 9644 1406 1082 oC XL2*96488° —PAGE 9645 ENTRY 4. 

1407 CO 87 0222 1083 8 RALT ERROR MALT ~60~-< 
DATE REAUGTS LSNOV?74 16JIJUN7TS PROG 130 403-2 
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18% MAINTENANCE OLAGNOSTIC PROGRAM 


49032 
ERR Loc 


1406 
1600 
1411 


2412 
24136 
1417 
241€ 
3424 


241C 
3420 
2421 
1423 
1625 
1426 
142A 
342C€ 
4.436 
1432 
1436 


14357 
i638 
343¢ 
3430 
143F 


1441 
8465 
1446 
148 
2444 
1448 
1445 
1452 
21655 
1487 
1°58 


DATE 


Ec NO. 


7 
OG 
© 


3741 ATTACHMENT DATA TRANSFER TEST 


OBJECT CODE ACCOR STMT SOURCE STATEMENT 


4060 240C 1054 pc ML 2*ageos 

CO 87 B22A 1085 B ROAD 

oo 2821 1086 oc AL2*oo8 
1087 

CO BF G21A 3988 ERCFI B PRINT 

C2 1416 :0869 ot MLD4CzZ*t 

oc 1417 31096 oC iLi*12% 

READ 8415 1693 pc AL ZC SNSCK) 

4061 1415 1092 BC MXL2*6562? 
1093 | 

co 87 1699 1094 B ERROR 

02 24Z0 1095 oc XL2*G2° 

COF3 1422 1396 oc XL 2°COFL* 

goso 1428 1097 SSOFA OC xL2°99000° 

FF 1625 2098 pc XLI@FFe 

CO 87 14EA 1099 B MAPS 

964i 34285 1100 oC XL2*9661 * 

£O BF 0222 21G1 8 HALT 

4061 1633 21262 ac XL2*a061 ¢ 

CO B87 O22A 1363 B LOAD 

reyes 1936 1104 oC xL2geoar 
4105 : 

CO 87 0214 1106 EROF2 8 PRINT 

c2 1438 1107 oc ML2*C De 

i8 143c 1108 oc Ibit2ge 

‘ESE 143E 1to9 oc AL2(TRLCK) 

2062 2440 1110 pec XL 2*4062° 
a243 

cO 87 3699 341132 3 ERROR 

03 2445 1113 oc xh1°O38 

Fea2 1447 2113 oc XL2*FBA2* 

0206 1449 2138 SSOFB DC xXL2°CO008 

FF 244A 4216 oc XL2* FFE 

CO S? 14EA 8117 6 MAPS 

9642 1450 11186 OC XL2°9642* 

Co 87 0222 ali9 8 HALT 

2062 14S6 13256 oc XL2*4062* 

CO 87 O22A £221 8 L0a0 

00 1458 12122 oc XLE*008 
41123 
ai24 

16AUGT4& ISnNOvV74 36JUN75 

824765 824870 825057 


PART NOe 5558783 


PAGE ga 


JERNINATE SECTZONs 


PRINT SENSE CHECKe 


DUMP STATUS/SLENGTH COUNT REG. 


EXPECTED: 
~ACTUAL « 


POINT TO MAP CHART. 
“PAGE 964+ ENTRY le 
ERRGR HALT -S1—. 


TERMINATE SECTIONe 


PRINT TRANSFER LANE CHECK es 


DUMP 1/G TRANSFER LINESe 


“EX eCTED. 
~ACTUALS 


POINT TO MAP CHART 
“PAGE 964. ENTRY 2 
ERROR HALT -S2-- 


‘TERMINATE SECTION. 


PROG ID 403-2 
PAGE : 9A 
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PART NOe 5558781 


38M MAINTENANCE DIAGNOSTIC PROGRAM ; PART NO. 555878}: 18M MAINTENANCE DIAGNOSTIC PROGRAM 

PAGE 10 | PAGE LOA 
4032 S741 ATTACHMENT DATA TRANSFER TEST 4032 3741 ATTACHMENT DATA TRANSFER TEST : 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC DBJECT CODE ADDR STMY SOURCE STATEMENT 


| 
L126 €OO6045 445 68s OE SLEAEE AEKE KHER EA EEE EERE SEE SEEK EE ERR EEE EESEEAEERE EEE SEE SE 
Li2? # INITL «& * 


LLGS SHAKE TKERREGS KT SEK ESRSSSCES SES TAT SE RES SEK KTH AD TIE RGRER GREK ELAS SRE LSE TH 
2196 © MAPS € * 


L126 #8 seeeReR THIS SUBROUTINE INITIALIZES THE 3741 x! : LIG?T #4 S44K4% THE MAP CHART REFERENCE I5 PRINTED. * 
41129 = BEFORE A TEST ROUTINE 1S EXECUTED. * | £1968 * * 
1330 # *' L1QO EAHEKES SE GEKK ESTE ETEKAEHHESRESSSISEAKE SHH TES ESE SEES HH AKSEE SSSR SKS ESE RKE Ss 
LEZ) ERHEEEREEERES EKERS SEE RORS CERARAEATSE EAKESHKEETHESERE EG ARER EERE ERE SEDER TERE RS, $4EA 34 96 1994 1200 APS St TEST>< ARR STORE THE ARR ADDRESS. 
145 34 O68 1476 LE32 INITL ST ENTL+4+3¢ ARR SAVE RETURN AODRESS- { ° 14EGE 35 O12 1994 4202 u TEST eXRE LOAD KXRi wiTH ARR ADDRESSe 
1460 Si GE 4A4O . 4133 LEO HOOSC se XK* 41 & SET FUNCTION REG TQ DIAGNOSTIC MODE | 14F2 3:8 62 1€22 o¢ 1202 NZ MAPSS=-13 60 eXRI} LOAD HUNOREDS DIGIT FOR PAGE Gc 
31464 31 42 LASO 2134 Lio HOO0CCex*42* ZERO LENGTH COUNT REGISTERe i 1¢ée7 16 63 ic23 00 3203 HNN MAPSS=“102e9¢ exR1i? LOAD TENS OIGIT FOR PAGE @e 
1468 33 4S 1430 1235 L5G =HO00Csx*4S* ZERO DATA TRANSFER REGISTER. | 16FC 28 O02 1€26 9} 1204 MNZ  MAPSS-Sel(€eXRi} LOAG UNITS GIGIT FOR PAGE @e 
146C F3 40 O95 1:36 SIG =—«-_- MWEOD* xt ane DD GENERAL SIO RESET TO 374le { 150% 16 032 1¢2¢ O18 1205 MNA = MAPSS—202€ exXR1) LOAD ENTRY NUMBER. 
’46F Ci 60 1477 1137 TrG NTRDY 6K *4G8 MAKE SURE 3741 IS READY BEFORE TESTo| . 1506 CO BF O21A 1206 & PRINT PRINT GO TO MAP CHART KXo 
1473 CO 87 046008 2338 INTL 8 Sue : LS0A 6&6 150A 1207 o¢ xi & BSP 
1139 | 1508 22 1508 1208 pc ILa*3as 
L140 S8SEERAEEERERESTES HEE ERERGS ES ORES TEES EL EE OEERERERECTAEESEGCEESHESEERESE, iSoc iced 150D 1209 oc AL2ZCKAPSS) 
124i * TIOERS * * ts : 1218 : 
1142 susessuces SUBROUTINE PRINTS OUT TEG ERRORSe +. ISO0E OO 87 02 : 1212 8 20eXR3} RETURN TO ROUTINE 
1143 « el - ; i2it2 
£3446 EECEKESEREEKRESE ERSESE KS SAEAKEEKRES EEE MERE CAEEEE KES EAE CR EKESEEE EER EEED EE €: F2EL3 SERESKKES EREREKCSESELE VESEESALEHES SSSI HE OLS CHKKES ESS AEE SSEAKS HHSORE KH EES RH 
2477 CO 87 OZLA 1145 NTROY 8B PRINT PRINT 3741 £S NOT READY, ee 3214 # QUES *# © 
1478 C2 $478 1146 oc XLitc2e d 1215 #eeeacer SUBROUTINE OETERMINES iF Sse 10 IS ONe * 
4a7C 12 147C 1147 pc ok EF 188 pies 1216 * . * 
1470 16FE ' 147E 1148 oC ALZCNORDY } { S2SLT ESSSESST SOK SEEK TEREOCSEES EHEETESTRESEEELEKESE SEES EF EOE KGERS PESCHEERECLHEECHE ES 
2S7F 403E abo 1146 oc XL2* 403E* : 1533 34 O68 3525 23g Ques sf GSt3. ARR : STORE RETUSN ADDRESS « 
185! CO BT I4EA 2250 B MAPS POINT TO MAP CHARTo 1515 38 80 O29A . £249 TBN SBYTE 2eSSH1i0 SS€ 16 Gn 7? 
2485 9073 1466 1:51 oc XL2*9073° —“PAGE 90Te ENTRY le tee 1519 F2 10 OA 1226 JT ost . RETURN TO PRGH HALT IF YESs 
2487 ©cO S&S? G222 2152 a HALT ERRGR HA/T ~3E=e ' 1Sic CE OL 1525 LAZO 222k ALC QSt+3 23 eNOGS INCR RETURN TO SKIP HALT e 
1488 403€ 148C 1253 cc XL2*° 403E4 : : é 1S22 CO BF e000 2222 as @ ts RETURN TO ROUTINE. 
348D CO 87 0216 11546 8 LINK RETURN TO DCP. = 1223— 
2185 1526 3D C2 0200 1224 OST . cut X*€020044xX*C2¢t IS THIS & MODEL B SYSTEM 7? 
1491 CO 6? O21Aa i156 BUSY 8 PRENT PRINT 3741 IS BuUSYe 7 iS52A CO 01 8522 1225 BNE @S 00 NORMAL HALT IF NOT 
3495 C2 1495 1157 oc XLE*c2* : a : 152E€ 35 01 2525 1226 t QSt3eXR} SET UP MODEL & HALT -FF=.- 
3496 00 1496 1158 ac whi8a38 : 1832 4&€C Of O02 LASE 1227 #YC 2€2eXR1} oMFFFE 
2497 1C0B 1498 31159 BDC. aL2cslsv) = c 1537 CO 87 1522 1228 5 as GO HALT+ 
7 2499 403F 149A 8160 oc XL2*403F* oe 2 1229 SBT ay ORNS eo feae ag eS Oe LL 
2498 CO 6&7 i4EA 2161 8 MAPS POINT TO MAP CHART. : sf L2AZO CESHEAHRECKSESEKESTHE REE USE HECASED HEAASSERERES SEKETEEKOZEE HS FESR EE STR E EEE RSH 
249F 9522 1@a0 1162 pc XL2*9522° “PAGE 952-6 ENTRY 2e i 3 1232 * CKPAT * = 
2441 CO B87 G222 2163 a HALT ERROR HALT -3F-, ; 2 41232 sseseeses SUGROUTINE COMPARES ACTUAL SENSE * 
1445 403F 14A6 1364 oc XL2* 403F® i ; d i233 * PATTERN VS A TABLE OF EXPECTED = 
14a7 CO BT 0216 1165 B LINK RETURN TO OCP. €3 1234 2 PATTERNS AND PRINTS THE CORRS ERROR * 
1166 an 1235 « MESSAGE e . * 
B4A8 CO B7 G22A "2267 NTBSY 6 PRINT PRINT 3741 21S NOT BUSY i £236 & : * 
24AF C2 L4AF 1168 oc XL1* C28 ; €-= L237 FESSSEEELEESRE SASKEESSS CKESKESR EES EASE SHKS ETE SES HSS EKSIEKERAKES SEEK SK ERECT 
£480 32 1480 1169 ec L2°s7* | 1538 34 08 1560 2238 CKPAT ST PATCK 43 ARR STCRE RETURN ADORESS. 
2481 DFO 1462 1170 ot AL2¢NOTSC) ; 1S3F C2 01 1994 1239 LA PATRNEXRE * STORE PATTERN TABLE AODRS. 
314B3 4066 14B4 1172 pc XL2°4065* te 1240 
2485 CO B7 14EA 1172 8 ¥APS POINT TO MAP CHART. 3 1543 46D 05 06 1994 1241 CKS CLO 6€6eXR2}4 TEST COMPARE TABLE PATTERN VS ACTUAL « 
1489 9521 145A 1173 oc xXL2*9522° ~PAGE 9525 ENTRY is ss 1546 F2 61 16 1242 JNE = TRY SUMP IF NO COMPARE. 
14BB CO 87 0222 1376 B HALT eee ERROR HALT -66-¢ e. 1243 
14BF 4066 16C0 3175 pC XL2* 2066* i 156B 16 02 1EC8B O7 1244 MANZ HSS-267€ eXR1} STORE TENS DIGIT OF MESSAGE fD. 
14Ci CO 87 5216 4175 8 LINK RETURN TO OCP. : 1550 18 03 1EC9 O07 1245 MNN MSS—1e7eXR1) STORE UNITS DIGIT OF MESSAGE IDe 
1177 i Q 3555 CO 87 O2I1A 1246 ERMNS 3 PRINT PRENT CORRS ERROR MESSAGEs 
LETZTE FR SGKSERORERE FE FE EEECEEEESEESEOSEESEERDSESHERAE OSCERERBES SESE SERS REET ED, 1559 62 1559 1247 oc KL1°82¢ 
21179 «© XPRNTX « ‘ = 3554 OE ISSA 1248 oc FL2*34¢ 
1180 #99099045% SUBROUTIWE SETS UP ERROR PRINTINGe * e 1555 1&CA aSSC 1249 oc AL 2CMSS} 
1181 * PS 155D CO 87 0000 1250 PATCK B a-s RETURN TO ROUTINE> 
LOD RRS OE EKER ERES HES SEER EER EHEREAS EEREEDEEAREES OE ERAB ERE A GELS EES OAS ENES TE. 2253 : 
34CS 34 08 16E9 1183 EPRNT1 ST PRT T43, ARR STORE RETURN ADDRESS. p< 1561 36 01 1A3ZAa 1252 TRY a NOO7*e XR3 INCREMENT THE TABLE POINTERS 
Ze£c9 3C 83 14DC £164 MVE 020 LEE eX* Bie SET UP IG SPACE 1 LINEe ; 1565 70 FF o1 1253 cul 30 eKXRIPEXFFE END OF TABLE YET 7 
_24CO Fz B87 OB . 1185 d PRNT : : 15668 CO 02 1543 12546 BNE cKSs CONTINVE IF NOT. 
2400 34 O68 146£9 1186 EPENT2 ST PRTT+3eARR STORE RETURN ADDRESS« Lee 1258 : 
2aD4 3C B2 14DC 2487 Myvi LINE’ X*B2* SET UP TG SPACE 2 LINES. oe 1S56C OC O01 1EC9 1A6E 3256 MVC = MSS—2 (23 C25 SET UP ID FOR NU PATTERNe 
12D8 CO 87 221A 1168 PENT) = oB PRINT PRINT THE ERROR MESSAGE IN °PRT*o i572 CO BY 1555 1257 S ERMS GO PRINT THIS. 
14DC 00 (14DC 1489 LINE 0¢ xL1*008 a 
14DD SB 14DD 1199 oc iL4°929 
2QDE 1F77 44DF 1191 oc AL2{PRTI ioe 
2GEC OC SA 1F77 iF768 1392 MVC PRT(91 3 oPRI+’ CLEAR ERROR MESSAGE AREAs : i 
24E6 CO 87 D000 1193 PRIT 8 ane RETURN TO ROUTINE. ss 
DATE 26AUG74 1SNDV74 4OSIUNTS ' PROG 3D 403-2 DATE 1GAUGTS I SNOV74 26JUN7TS PROG ID - 403-2 
EC NO.w 820765 824870 825087 PAGE 10 EC NOe 824765 824870 825057 ‘ PAGE 10a 
ae 
c 
s é > 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 5558781 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5558761 
PAGE 22... PAGE 214 
4032 3741 ATTACHMENT OATA TRANSFER TEST 4032 3741 ATTACHMENT DATA TRANSFER TEST 
ERR LOC OSJECT CUDE ADOR STMT SGURCE STATEMENT ERR tOC GCBSECY CODE ADOR STMT SOURCE STATEMENT 
L259 SHERKAKE REESE SADE O4SOREAES HES KESE ERLE REA GES HEA SLASAGEES KS SHARAERE SEE AES 1630 36 O08 1A32 1327 A NOO1s ARR 
1260 + CMPARE *# * 1634 34 68 1678 1328 st BI NFt3. ARR STORE RETURN ADORESS.« 
126] BSR stuseaece EXPECTED £82 & ZEZ BYTES ARE COMPARED = 1638 3c 01 164¢ 1329 MYT TNF 41 oX*038 INITIALIZE BIT POINTERS es 
2262 *% Anco ERROR BITS ARE IDENTIFSED SY A ~~ * 163C 3C Gi 36SF 1336 Mv 1 TNFF*1,A*0%¢ 
1263 * IN VHE GQUTPUT AREA * 16490 34 92 1€50 41332 St RF 43 oXR2E STORE GUTPUT ADDRESSES. = 
1264 * x 3646 34 O1 1673 41332 st MFt3, XRi 
L2HS KEMHERGSSE CESS SEAAKALS SHASGAEAARSRSLSSLS SEL ELLIS TEL FEFRTSELSHLISAASSE SAF SES BSA fr 3333 
1576 GOGO 1877 1266 XPT o¢ xL2*OoocGo? EXPECTED €B1 & ES2 BYTES. 1648 38 00 267A 2334 TNF TBN EGBSTexA*GCe THIS GIT ON IN ES2 7? 
1878 0000 1S79 1267 ACT oc xL2°00G0t ACTUAL EB82t & ES2 BYTES. 36aC Fe 10 OF 1335 JT iTSON SUMP IF SOQ. 
1268 169F 3c €0 1658 1336 mv NFOLeaX*FOe MOVE IN A ~Ore 
1S87a 34 Of 1505 1269 CMPARE ST CMPR+30 ARR STORE RETURN ADDRESS. 1683 fF2 87 04 4337 J NF 
ISTE 34 02 1600 1270 sY TAERRt+3 « XR2 INITIALILZE GUTPUT ADDRESSES ec 1656 3C Fi 1658 1338 iftsonN mvt 1F+3—X*F 3t MOVE IN A wim.» 
1582 34 01 1615 i27t st TBERR4+3e XR1 : 36Sa 3¢ 30 0009 1339 NF Mv i HH eK POG * PUT 270 If QUTIPUT. 
1586 3C 01 159F 1272 MvI  - TAB#14XK703* INITIALIZE BIT POINTERS. - 1340 
258A 3C O01 15A6 1273 mvt TAS4+32 oX* O48 ‘ I6SE 38 00 1628 1341 THFF TSN ESiT ext ooe THIS BIT GN IN EGi 7? 
aS8e— 3C 01 1586 1274 MY 3 TAL4+1,X*01* 1662 Fe 160 G? 1342 JST _iTGn SUMP IF SOs 
1s92 3¢C 61 #16887 2275 BVI TE3+3 oX* O34 16065 Sc FO i€71 1343 avi NEES oKX*@ EGE MOVE In A Ore 
1596 3C 01 158E 1276 avi TEZ4+19X* Oia? 21669 Fe 87 G& 1346 J NF 
159A 3€ 01 15¢8 1277 MYT T5142 6X*O1* 2G66C 3C Fi i673 22345 176N iY E NFFCE eM Es MOVE 3H A mime 
1278 2676 3C 68 OocO 1346 NEFF My i SF, X° GO ® PUT 170 IN OUTPUT. 
IS9E 38 01 1576 127¢ TAS TSN XPT-10X*®O2* EXPECTED Bir GK IN EB2 BYTE 7 : 1337 
1Sa2e F2 10 OA i289 JST Tal JUMP $F YESe ; 1674 38 86 3649 1346 T3n TNF +3 oX* AGF CHECKED 827 O 7? 
15A5 38 01 1578 1261 TA2 Tes ACT~1 eX ORt ACTUAL BIT GN In EB2 BYTE ? 1478 CG 16 6000 1383 BINF et $—t RETURN IF SGe 
1SA9 F2 10 SE 1282 JT TAERR 6G PUT AN -t- fh GUTPUT ITF OFF. : 367c OF OS 1689 1689 3356 ALC TNF Os (43 oe TNF SA INCREMENT B37 POINTERS? 
ISAC F2 BST O7 i283 J T63 CHECK EBS SYTEs. i 2662 O£ GO 465F 165F 3353 ALC INFFti (22 eo TNFFSi 
1284 | 1688 GF O01 2650 2A38 1352 sic HF 32 23.N002 DECREKENT OUTEUT ADRS. 
15aF 38 01 1578 1285 Tas TSN ACT~1209oX¢61e ACTUAL BIT ON in EB2 BYTE F : 268E GF O13 1673 1434 4353 Sic AFFC3 (23 sNO002 
1583 Fe 90 S4 1266 JF TAERR GO PUT AN -%- EN OUTPUT IF SOs : 369% GO 87 1646 135¢ 8 INF CONTINUE CHECK > 
1287 i 2355 
1586 38 61 1577 1288 33 TeBN XPT 2X ?GR@ EXPECTED BIT ON EN EB? BYTE ? 1356 SCSASKESSH SSIS SE KTS LA ST SKESSEAACKFSRLKSESTTSSEKLARLES ST VRAKHEKIRLSS ESF SELB LS 
15BA F2 10 OA 3289 JT T81 SUMP IF SO6 ie 1357 * ERROR * = 
1580 38 01 1579 4290 TB2 TSy ACT eX*#O3 § ACTUAL BIT GN IN ESB1 SYTE 7 ! 13858 as4454e648 SUBROUTINE IPENTIFIES SENSE BYTE AND = 
35C1 F2 10 2E 1291 JST TBERR GO PUT AN w-a=- Ih GUTPUT IF SO. i359 4% PRINTS 17S STATUS WHILE ICENT IFY ING s 
15c4@ F2 87 O07 4292 J Tre CONTIAVE ANALYSIS. roe 41360 «€ THE BITS IN ERROR. SUBROUTINE CALLED s 
Spee 2293 ae 1361 sv = * ten 
15C7 38 01 1579 12-3 TSI TSN ACT cX*#O38 ACTUAL BAT GM In EBL BYTE 7 i362 # 8 ERRGR = 
15C8 F2 90 44 1298 JF TSERR 6G PUT AN =%- IN GUTPUT IF OFF o € 3363 2 oc KLi*N CODE IN xHEx* + 
1296 # 136e ¢ oc XL2Z*EXPECTED CATAS rd 
iScE 38 680 15¢C8 a2o?7 Te TSN FH14i eX* SG B17 O BEEN TESTED ? 1368S « oc XL2SaCTuAy Of TAP * 
1502 CO 10 9006 3298 CHPR 6T ams RETURN IF SGe t 1366 @ oc XLiFANOTHER N CODE? s 
1506 O€ OC 1580 1580 1299 alc TALt2 0223, TAILOI INCREMENT BIT POINTERS. = 1367 » oc AL2S*EMPECTED DATA® & 
1spc O£ O60 15A6 1546 1300 ALC ¥A2010135 .T A241 1368 3 oc KLZ2* ACTUAL DATA? 2 
1SE2 OE 40 159F 159F 1301 ALC JAZB43023 6 TAB42 mr é 1365 » oc XL2°A =~FF- DESIGNATES EnO* 2 
isEe o£ oo 15C8 15¢8 2302 ALC THLt*L 625 oTBI43 7 3379 *# B 
ISEE o& OO IS5BE i SSE 2363 ALC TH2t1 629 eTB2+1 LSP L SEAAVEASS GSKRSOFF ELT SSSAEHS AK SKLSOSSHHS ELS FSERESE SETS SHSSRATTHSE SRE TIBHR SEH SDS 
15Fa CE OO 1587 15587 1304 ALC TB341013 . TAS 1698 oO 23698 33572 neECCO oc Fi * O08 CURRENT N CODE STORAGE. 
25Fa OF O1 1600 1A34 £305 SLC TAERRY302) »NGOZ DOECREMENT OUTPUT ADDRESSES: 1699 34 Q2@ 1649 1373 ERROR st B47 ARR STORE RETURN ADDRESS IN XKRiec 
31600 OF 01 1615 i1A34 21306 SLC TBERRAZ( 2) »NOG2] 3690 C2 913 00006 1374 La t—#_y XQL 
1606 CO 67 IS9E 2307 8 TAS GO CHECK NEW BIT: 16Al 34 92 IGAA 2375 CKiTt ST HPD GRRE 
1308 36A5 OC 90 2698 0000 1376 eve NCOOC13—_ t—3 BRING IM & COSE FOR CHECKINGs 
160A 3C SC 0000 21309 TAERR MMVI #—-3eX9SC& PuT ~s%- IN EBS GUTPUT « 16AB 30 FF 1698 3377 Cre NCODeX* FES 
260E CO 87 1586 413306 8 Téeé3 CONTINUE CHECK. 16AF F2 82 E2 i378 AE CKOUT EXIT FF DETECTED "END FLAGS » 
163212 3c Sc 0009 13i1 TBERR MMVI e—-%&—eX*SCe PUT -—%- IN E62 OUTPUT. 1379 
1616 CO 87 15CE 2312 8 rT CONTINUE CHECK. 1682 0C SA FTF iFT7S 138¢ ave PRT (9130 PRIZE BLANK PRINT SUFFER 
2313 3688 30 O32 269 338i CLYy NCOED a X* O32 YOENTIFY ANG SET-UP SYTE HEADING. 
L324 SRP SHSHHRATAAKSYASRERK SS SE SITRARFESESGHRHEPCCESHEK SK ES OHTA KGS ASSET SES HTHR GES 368C FZ 94 G6 1362 JNE atg 
1315 * SITSNF * z 16BF OC 16 iF S2 iACi 1383 avo PRT-37€17 3) saNODE @ FUNCTION. - 
1336 #22¢49088% TRE EB1 & 2 BYTES ARE CONWERYED TO * 16cC& 30 02 1698 1384 cui NCOD,.xX*O2* 
317 «* A PRINTASLE BINARY FORM. » 36C9 F2 01 OC 3386 SNE e415 
313185 * EN 16@CC OC OF IF4@ ACC 138é BYC PRT-514i13 eMCOLA &@ SILTUS—LCRo 
231D PXHEHK FOGLE SEESESRYRERASEVRORSSE SICH SEASHELL SSHECSE ALA SEC CURSE KSH FH REPS HL SSE LHS 2602 OC GF 3FS8 1Aa0€ 1387 avd PRY¥~2811€3 sNCO29 
161A OO. ISLA 1320 EB2T oc 4.17 00° TemPoRaRY STORAGE FOR EB2 € EB 1608 30 03S 32698 13&8 cui NCODe X*O3¢ 
1618 09 2618 12321 E81T Dc xXLZ*OQ" BYTES. 160C F2 01 3&6 1389 JME *eQ 
1322 160F OC 113 iF S3 LAEE 2390 ayo PRT- 364 123 «Neos ® 3/0 TRANSFER CINESe 
161C 36 O8 1A32 2323 BITSNF A NOO1e ARR IEES 3D O04 1698 83¢% cut NCOD o X* ORF 
1620 34 08 1629 1324 st B¢9e ARR IGES F2 OL OG £3932 JHE S4+G 
1624 OC O1 162F GO000 1325 MYC Bt+116(2)28—% IGEC OC 18 3F58@ 1853 1393 ay¥C PRT- 35SEC 21) sNCOs # DATA &AGORESSe 
162A OC O02 1618 0000 3326 ey EB1ITC2) -t— 3 STGRE E€G6i & ES2 BYTES» i652 3D GS 3698 1398 cus nNCOO-ex*OS® 
DATE 26auUG74 1S5NoVv74 16J5UN75S PROG 10 453-2 DATE 36AUGTS ISNOVT4S 1SJUNTS PROG ID 403-2 
Ec NOe 824765 82e879 825057 PAGE a? EC NOe Bea76s§ 824870 625057 PAGE TRA 
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4032 


ERR LOC 


16F6 
16F9 
3 6FF 
3705 
1709 
i7oc 
2712 
2716 
i719 
a7iF 


1723 
1729 
iter 
1733 
1739 
IV3F 
1743 
i747 
1748 
1751 
i755 
a7s¢e 


i7SF 
| 8763 
31767 
i768 
1760 
i771 
1777 
177A 
1780 
1764 


i768 
178C¢ 
31790 
1794 
21798 
179¢ 


17AaG 
17ae 
I7AS 


i7Aac 
1752 
1786 


17BA 
17BE 
3 7BF 
17co 
i17v7c2 


87ca 
417C6 
a7co 
17C8 
17Cco 
1?ce 
i703 


OaTE 
EC NOs 


‘& Y : 


3743 ATTACHMENT DATA TRANSFER TEST 


OSJECT CODE 


F2 601 o¢ 1395 JNE 
OC OF 1IF46 1819 31396 “ave 
Oc 10 1F58 182A 1397 avec 
3D O08 1698 1398 cil 
F2 02 O06 1399 JNE 
oc 08 IFSQ9O IEFF 2400 ave 
3D 88 1698 ; 2403 cur 
F2 01 06 1402 JNE 
Oc OD 1F51 2E€EC 1403 avc 
CO BF 14D0 : 24064 8 
1305 
Oc O9 1F463 1874 3406 ave 
oc o9 IFS7T L87E 14607 ayvc 
co 87 14¢cS 1408 8 
oc OF 1F96 12854 2209 iis 
OC OF IFSA §BSA 2410 mvc 
co 87 24D0 2412 8 
36 O18 1Aa36 3412 A 
34 01 1750 3413 st 
Gc 01 138577 6030 2414 “ave 
36 G2 1434 3415 A 
“34 O18 175E 2416 st 
OC O48 31679 0000 8617 xYRI ave 
1418 
€2 02 IF 4&6 1419 LA 
€2 01 JFSA 3420 La 
co e7 261¢ 4921 8 
1579 3176C 1422 oc 
co B87 146C¢5 3423 8 
OD O1 i577 1579 1424 ci.c 
F2 81 GA 3825 JE 
OC OA 1F33 1A50 1426 avCc 
CO 87 ISTA 1427 8 
‘CO 87 1400 1428 SKPER 8 
1429 
35 61 17SE 1430 iL 
36 01 1A32 1431 A 
co 87 16A1 1432 8 
36 61 1A32 2432 CxOuT A 
34 61 AT9F 41434 ST 
€o 87 00900 1435 8 
£436 
1437 
1438 ¢ CKIAR © 
1439 seeensess 
1440 « 
1441 
34 08 1785 1442 CKIAR ST 
35 64 I17CA 1483 a 
34 84 17CC 1444 Sst 
14465 
OD O03 17CC 1I7CA 3446 ci¢ 
co 62 0000 214467 CKCK BE 
34 01 17c3 1448 st 
1649 
CO 87 O28A 1450 8 
ce 27BE 13451 oc 
35 4i7eF 1452 oc 
oooc a7Ci £453 THEADR OC 
4068 17¢3 14546 oc 
1455 
CO B87 1699 1456 8 
90 . &8&7Ce 1457 oc 
cooo _17Ca 1458 oc 
0000 317CC 14659 IAR oc 
FF i7coO 1466 oc 
ac 03 03 1994 2461 MVC 
CO 87 ISEA 3462 8 
16AUG74 LSNOV74 L6IUNTS 
829765 824870 825057 


ACDR STMT SOURCE STATEMENT 


3415 
PRT-2@9( 15) eNCOSA 
PRT-28(137) enCDSa 
NCODe X*08* 

s+9 
PRT~39(13 23 sNCOOS 
NCOD. X* 8a 

249 
PRT~386 34) .NCOaS 
EPRNT2 


PRT-S2( 10} »EB2 
PRT-32( 10) ESB! 
EPRNT i 
PRT~29( 153 -61TS 
PRT~29(15) -63TS 
EPRNT2 

NOO2-e XRE 

BEV eXRI 

KPTC2) #8 
N002<XR1 
#¢9.KR1 
ACT(2 3 0F-& 


PRT—49 o XR2 
PRT- 29. XR} 
BITSNF 

AL2C ACT) 
EPRNT 2 
XPT(2 5 ACT 
SKPER 
PRT—-68(1212 oERS 
CMPARE 

EPRNT2 


XYR14+5eXR1 
NOO1. XR3 
CKIT 

wOO3. KR} 
e+ 7eXRi 
toe 


SEES VEKSESS SS SEVSESTT SESSESSESES SSE SESE SES SSEEAESE SHV OSES SESE SSKSESKESEEESES 


t.0AD AND SENSE I4R S OR ARR REGISTERS. 


CKCK¢3eARR 
TAR~-2 eT ARS 
TART ARS 


TAR(2 5 oI AR~2 
tus 


THEADR eo XR1i 


PRINT 
ML2°Cee 
iha*2ze 
AL2C #—%) 
XL2°4068* 


ERROR 

xm 2°O0G8 
XL2°0060* 
L2*00008 
XLISFFe 
314,XAR1) , TEMP 
MAPS 


' 


PART NO. 5558761: 
PAGE 12 


@ DIAGNOSTIC-DTRe. 


© ARR REGISTER. 


® LIAR S REGISTER. 
PRINT BYTE ID*S. 


SBultoO E& SYTE HEADINGS.» 


PRINT €B SYTE HEADINGS. 
SBUILO SITY LABLE HEADENGS. 


PRINT SIT LABLE HEACINGS. 


STORE EXPECTED 8YTESe. 


STORE ACTUAL GYTES. 
STORE OUTPUT ADDRESSES. 

GO CALCULATE STATUS OF ACTUAL BYTES. 
PRINT STATUS/REGISTER 1D. 


EXPECTED AND ACTUAL EQUAL # 
JURP IF SOo 


‘GO CALCULATE ERROR BITS. 


PRINT ERROR BITS. 
RESTORE KRie 
GO CHECK FOR NEXT BYTE. 


INCREMENT RETURN ADDRESS« 
RETURN TO ROUTINES 


~—. 


nf 


* 


SEESSESCSEE EES SS ECTEKS SESSEEH EEE CES VESS AEC SEEE CE SESKESERRESSSEE SECS EES: 


STORE SETURN ADORESS~ 
ROAD FARSSARR witht TEST PATTERN: 
STORE REGISTER: 


REGISTER AS EXPECTED ? 
RETURN TO MAIN PROGRAM IF SOs 
STORE ERROR MESSAGE ADDRESS» 


PRINT IARS/ARR CHECK. 


OuMP JARS OR ARR REGISTER. 


mEXPECTEDs 
ACTUAL. 


RESTORE SPECIAL ADDRESS CONTENTS. 
POINT TO MAP CHART. 


PROG 10 403-2 
PAGE i2. 
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£84 MAINTENANCE DIAGNOSTIC PROGRAM 


4032 
ERR Loc 


£707 
i7o9 
1700 
i70F 


‘ves 
L7ET 
ives 
87E9 
17EB 
27EoD 
avF2 
a7F6 
ivre 
avFre 
L7FE 


o™, 


2302 
1603 
1805 
1867 
8809 


31808 
1soF 
1813 
€ 2519 
= 3eiF 
2825 
f 2829 
cat 282A 
162¢ 


382E 
3832 
41833 
1834 
3836 
2638 
183¢ 
$830 
283E 


r 


26060 


1864 
GSA 
18650 
38564 


OatTe © 
EC NO0e 


a 


@ 


3742 ATTACHMENT DATA TRANSFER TEST 


OBJECT CODE ADOR STMT SOURCE STATEMENT 


$5S8761 
12a. 


PART NOe 
PAGE 


$621 £7D8 £1463 MPIAaR DC XL2*9621° “PAGE 962¢ ENTRY ie 
co 87 0222 1468 8 HALT ERROR HALT -68~6 
e066 A7OE 1465 oc XL2*°a0Gé8* 
co BSF 33SF 22466 8 abit TERMINATE SECTION. 
14267 
2468 699889 SOSESSES SEERESES F¥OSSESEKSOSST OSEROSHS SSE SER ESSERE SAE SE SEDREBESERSSER 
2069 & CRCK ¢ * 
3670 eseeeses SUBROUTINE PRINTS -OR~- CHECK « s 
19073 @ . * 
IST]S SHEETS SEKECHSS SCESEE SS $9 SESEE CEHKERL SESLECSSSESECSE SCO SERERES ESTEE SEE FOSS EE 
co &7 O2iA £073 OGRCK § PRINT PRINT <-OR~ CHECK e 
‘2 3VE? 1476 oc xLa*C2e 
3¢@ . L7EB 2475 oc iL3*20° 
aFiCc LIVER 1476 oc AL 2CORRG? 
4069 27EC 2477 oc KL.2°3069° 
aC 03 63 199% 1478 “Vo . 344eKRid oe TEMP RESTORE SPECIAL ADDRESS CONTENTS. 
€0O 87 IGEA +4879 8 MAPS POINT TO MAP CHARTs 
3803 37F7 24060 oc KL2* 38023 * “PAGE 3800 ENTRY 30 
co 87 0222 31483 8 HALT ERROR “ALT -6Pe0 
2069 &?7FD 1462 oc M2*4060° 
co 67 135F . 4483 8 aDit TERMENATE SECTION: 
1486 : : 
BES SSESESVOSKSEEE SESSESOHES SOSKFESETESES CVSOESET SEH SSE FESS LE TEL EESSBESES ESSEGS 
31086 @ DATA © 
21667 seaseste THES SUBROUTINE CAusES ONE BYTE OF OATA 
1488 ¢ TO TRANSFERe PARAMETERS ARE SPECIFIED AS 
2489 s FOLLOGuS- 
1490 & 
2493 e- 6 DATA 
1692 ¢ oc RLAI* CONTROL CODE FoR SIO CONTROL 2° 
8493 & oc XL2*EXPECTED OTR® 
1494 ¢€ oc XLZ2* EXPECTED tCRe 
1495 ¢ oc .XL2°SENSE CHECK HAP REF® 
3496 ¢ oc XL 2°ROUTINE HALT CaDES* 
8a97 *€ 
2498 SESS ES SCESEESESEEES EE ES EEESBESSESSKES CESSES SOTEKESE CEES SESE CAGHHE SES CSSHKRSEESES 
co isd02 1499 CCSsIioz2e o¢ XL3* O08 SiC CONTALGL. 2 CODE. 
oo00 1804 1500 xPoTR OC m2°9000* EXPECTED DIAG<-OTR SYTESs 
6000 1806 356% xXP..CcR oe Fi2°O0006¢ EXPECTED STATUS“-LCR BYTES. 
ooco 1658 1502 MPREF oc XiL2* 00004 SENSE CMECK MAP REF. 
oooo 88904 1503 RTHMLT BE x1.2°0000* MALT CODES: ‘ 
3504 
36 04 2a3C¢ 2505 DATA a NOOB ARR. t 
34 OS 1816 4506 st DATA I452e4RR 
Oc C& 380A Sd00 {SOF OATAS «H#vC RTHLT (93 .s—6 STORE THE ABOVE DATAe 
oc 63 3964 1808 asos eve @PERC2) eo MPREF STQRE SENSE CK MAP REFERENCEs 
O08 O3 1837 DADS aso9 aN« HDNGIO.RING BUILD MESSAGE 1D. 
co 87 O2iE 32Ss30 2 UNP ACK UNPACK DATA BYTEs 
03 2629 85135 o<¢ Waege 
2804 1828 1512 oc AL2C KPDTR}E 
1BSA i82D 1513 oc AL2CHDAT A-15 
35124 : 
CoO BF O21Aa aS235 8 PRINT PRINT TESY NEADING. 
ai 16832 1516 oc 2.2 © ORE : 
26 1833 tst?7 oc ZL2° 36° 
&BacE 18635 15:18 oc &ab2 €HDOX 8 
@0a0o 1837 $539 HONGID DC XL.2°40A0* 5 : 
CO 87 O28A 2520 8 PRINT PRINT DATA TRANSFER HEADING. 
os a83c 1521 oc x3 OS® 
oo £83D 1522 oc fLaease 
1858 4183F 38523 oc A.2E€HDAT AD 
152¢ 
CO &F 245¢€ 3525 8 InrItT. EMZTEALEZE THE 3741 
1526 
Oc 00 186¢ 1832 31527 “vc SIOCC20268 3 2CCSIO2 BUILD UP THE SIC CONTROL 2 COMMAND 
OC 00 18866F 1852 31528 ave S1IOCCZ¢$¢ 38 § eoCCSIiO’2 TQ CORRESPOND ei TH CURRENT ROUTINE: 
co SF 1512 31529 8 QUES TEST FOR SSw 10+ 
€O 3€ 3¢ 3536 HPL. X°S3C*% eo K* 3C* HALT -FF- IF OMe 
26AUG74 ISNOV 74 I16J3JUN75 PROG {0 403-2 
824765 826879 B250ST PAGE 12a 
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IBM MAINTENANCE DIAGNGSTIC PROGRAM ; PART NGe 5558781 IBM MAINTENANCE DZAGNOSTIC PROGRAM PART NGe 5556781 
, PAGE : 331. PAGE IBA 
4032 3741 ATTACHMENT DATA TRANSFER TEST ; 4032 374i ATTACHMENT OATA TRANSFER TEST 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT 
1533 | 21915 CO @7 021A 1599 8 PRINT PRINT OAR CHECKe 
18S7 31 82 1434 1532 i190 HOOO2 »X* 43° SET FNCT REG TO 6USEC RESET. | 1919 62 1919 1680 Oc xXiL1*s2° 
1858 31 42 %a52 1533 L160 HOOFO,.x*42* LGAD -FU- IN LENGTH COUNT REG { 191A OE i91A 1601 pc IL2*248 
185F 31 44 1a62 1534 1.10 ADRS eX*S4e LOAO BYTE TRANSFER ADDRESS IN DARe |: 1918 LECA 191C 1602 oc AL2¢MSS) 
32863 31 41 1A40 1535 L110 HOO80eX* 41* - SET 3742 TG DIAGNOSTIC MODE. { 291D F2 87 33 1602 Z COFH é - 
1536 | 1604 
1867 F3 41 90 2537 SIO X*OO%sX Gy? ISSUE A SIO READ CALLo | 1920 SC GO 1935 1809 16°75 DATER MYC ERRRID(1) eRTHLY—1 STORE ERROR IDe 
186A F3 44 00 1538 slocc2 sia K*°OG* sX*4ae DO 2 S10 CONTROL 2 *S TG TRANSFER A | 2926 Oc 00 198A 1935 1606 MVC ERRIDE1}-2ERRRID STORE THE ID. 
1860 F3 44 00 1539 $10 X*00%ex* 44° OATA BYTE>s ’ 192C Co 87 Gaia 1607 Ss PRINT PRINT SENSE ERROR HEADINGs 
1870 3¢ 45 1967 1540 SNS SSAeX*45# DUMMY SENSE TO STALL | 193c c2 1930 1608 oC xLi*ce* 
1874 30 42 196¢ 1541 SNS SSBex*s2° SENSE STATUS/LENGTH COUNT REGISTER | 1931 14 1931 3609 ac iii*20° 
1878 F3 43 64 1542 Si9 X°O48 oX843t 3/Q SELECT 3 wHICH FORCES EOT. 1932 18A6 1933 £610 oc AL2CSNCK) 
& 1543 t 3934 4066 1935 1611 ERRRID OC xL2*°*40C0* 
1878 3C 45 1967 15404 SNS SSA6X*4ase DuMMY SENSE 3936 3D Oi OA03 3612 CLE RIN#oK*O1° FROM ROUTINE 03 ? 
187F 30 46 1967 1545 SNS SSAeK*a5* SENSE CIAGNGSTIC/DOATA TRANS REG. | 193A F2 O1 16 2613 JNE SOF HK JUMP IF NOTe 
1883 30 44 197D 1546 SNS SSCox*#aae SENSE DATA ADDRESS REGISTER> | f 3614 : 
1547 | 293D OC 0% 1990 1967 2615 avC TEST~2(256SSA STORE DIAGNOSTIC/SDATA TRANS REGs 
21887 OD O01 196C 1866 1548 cic SSB623e¢XFPLCR STATUS/LENGTH COUNT AS EXPECTED ? { 1943 OC £1 3992 196C 2616 myc TE ST-242)3.SSB STORE STATUS/LENGTH COUNT REGe 
168D F2 51 90 1549 JNE DATER JUMP IF MOT. | 1949 Oc G1 1994 1970 1627 myc TEST ¢2)sSSC STORE DATA ADORESS REGISTER 
1890 00 01 1967 1804 _ 1550 cic SSAC 23eXPDIR DIAGNOSTIC/DATA TRANS AS EXPECTED ? | 1616 . 
1896 F2 61 87 155) JNE DATER JUMP IF NOT. : 194F CO 87 1538 1619 8 CKPAT COMPARE ACTUAL wITH EXPECTED PATTERN 
1899 00 GO 1804 1998 1552 CLC XPDTR(1) ~DADATA DATA BYTE TRANSFER GK ? ; é 2620 
189F F2 01 213 1553 JNE BADBYT SUMP IF NOT. i 1953 Oc ©1 1965S 1806 1621 OGFH av¥C SSA~2(23 eXPOTAR BRING IN EXPECTEO SENSE BYTESe 
18A2 30 Gi OA0Z 1554 CLI RTN# 2 X*O1* FROM ROUTINE 01 7? : 1959 CC 01 196A 2856 1622 “avec 5SB-2(2) oXPLCR 
18A6 F2 61. E2 2555 JNE DATTA JUMP IF NOT. ig 1623 
3556 195F CO 87 1699 1624 8 ERROR DUMP THESE REGISTERS~ 
318a9 OD O1 1975 1976 1557 CLC SSCL2) eSSC-2 DATA ADDRESS REG AS EXPECTED ? 1963 05 1¢63 1625 pc XLi*O5* DIASGNOSTIC/DATA TRANSFER REGe 
IBAF F2 G1 a7 1858 JNE CARN / JUMP IF NOT. : 1964 6600 1965 1626 oc xL2°GO0008 EXPECTED. 
1862 F2 87 D6 1559 J DATTA , 1966 0000 i967 1627 SS& pc xL2°cooce ~ACTUALs 
‘ 1560 ; 1968 62 19628 1628 oc XL2°O2¢e STATUS/LENGTH COUNT REGo 
- 2561 * DATA SUBROUTINE ERROR MESSAGES *# ; : 1969 0006 196A 1629 oc XL2*°co0008 ~EXPECTED. 
: 1562 7 1968 0000 196C 1630 $SS8s oc xL2°00008 ACTUAL 
: 1885 0C CO 18C4 180A 1563 BAOBYT MVC ERIOCL) eRTHLT 196D FF 196D 1531 oc XLitFEe 
: (a i8BB CO 87 G21A 1564 8 PRINT PRINT DATA BYTE CHECKe : 196E 3p O08 0A93 1632 cut RIN#sX* 62° FROM RGUTINE 23 ? 
: 188F c2 188F 1555 oc MLitcee 31972 F2 01 OA . 1633 JNE DMPY1 JUMP IF NOT. 
18CO 14 18CO 1566 pc ILat2o8 19785 cO 87 1699 1634 a ERROR 
18C1 1BA6 18C2 1567 Dc ALZ(SNCK) ; 1979 04 1979 1635 oc XL2*°04¢ DATA ADDRESS REGISTER. 
18C3 4600 18C46& 1568 ERIO oc xL2°40008 197A 1999 1978 1636 oc .2 (DADAT A412) “EXPECTED. 
18CS CO 87 O21A 1569 Ss PRINT PRINT BYTE CHECK. 197€ 9060 i970 1637 ssc oc xL2*o000* “ACTUAL « 
1ecs 82 18C9 1570 oc xii*e2¢ ; 1@7E FF LOVE 1638 oc XLAi¢*FFE 
18CA 14 218CA 1571 bc ILit2o¢ 197F CO 87 I4EA i639 DMPY: B MAPS POINT YO MAP CHART. . 
18C8 1892 1eCC 1572 oc ALZCBYTCK) : 1983 ©0000 i986 16480 MPER oc XL2° 00068 ~PAGE XXXe ENTRY Xe 
1573 ' 1985 CO 87 0222 1641 8 HALT ERROR HALT. 
318CO CO B7 O21E 1574 8 UNP ACK YUNPACK EXPECTED DATA BYTE. } 1989 4000 198A 1642 ERRID OC xL2*4o00° 
1601 01 1801 1575 oc IL2°29 i 1988 CO 87 0216 16403 DATTA 38 LINK RETURN TO OCP. 
1802 18646 18D3 1576 oc AL2(XPDTR} j é , 1644 
1604 1881 1805 1577 pc AL 20 XPAC-12}3 eo? 1645 #64 4se94e08% 
1806 CO 87 G21E 1578 8 UNP ACK UNPACK ACTUAL DATA BYTE | 1646 & RESERVED * 
YADA OO} 180A 1579 oc In1?*28 | €~ 1647 ERXAKEAKARKREKSE SEARS ASCSE SSAA EEKRE KE SSESEAERSRAREDAGHSAKRERKSEVESSARABBASEEE SEG 
1808 1998 18DCc 1580 oc AL 2(DADATA} ie 198F 000000000000 1994 1648 TEST oc X¥L6"OCOO0000OC0Nt ACTUAL SENSE PATTERN STGRAGE>s 
1800 188¢ 18DE 1581 oc AL2 (XPAC=3} : 1995 oO 1995 1649 FLAG oc XLif*ooe ERROR FLAG. 
BOF CO 87 O21A 1582 B PRINT PRINT EXPECTED AND ACTUAL DATA BYTEs . 1996 0060 1997 1650 oc XL2¢*C 0008 
18E3 82 18E3 1583 oc MLite2e 1998 CO 1998 1651 DADATA DC XLI PF OOF BYTE THAT OATA IS TRANSFERED INTO. 
18E4 17 18E@ 15846 oc W1*234 1999 0000 1994 1652 DC XL2°O00008 : 
18ES 1685 18E6 1585 oc AL 2€ KPAC) : 1653 
18E7 OC OG 198A 18C4 1586 MVC ERRID(1)e¢ERID SAVE THE ERROR 1De , 1654 sessennges 
7 18ED 3C $4 1983 1587 MvI MPER-1.X"94° BUILD RAP REFERENCEs 1655S * TABLES #4 
iBFi 3C 23 19884 3588 MVI MPEReX*23* ~PAGE S42. ENTRY 3 i 1656 SSESKESARHERASE ESEESSAK SETAE EHAKGHSERAVEKSS VSP SHEATH SAKES SKS YRS SKHES PEKEKSE 
i8F5 CO 87 1963 1589 8 COFH — 1657 
1596 1658 » TABLE CF EXPECTED ERROR PATTERNS FGR RINOS.« 
18F9S OC OC ADBA 1899 1591 CARN MVC ERRIOC1?) RTHLT—2 STORE ERROR ID. e 1659 
16FF OC OO 1914 1809 1592 : mvc IDER CAV SRTNLTW1 ; 199A 1660 PATRN EQU oe | 
19905 OC O01 1EC2 1A70 1593 MVC 45$-112).C05 1661 + D S 
1908 CO 87 O21A ‘ 1594 8 PRINT PRINT ERROR HEADINGe . 1662 * IOTL 
190F C2 190F 1595 oc xti*c2e ie 1663 8 ATAC 
igic 14 31916 1596 oc IL1*20¢ 1664 *# GRTR 
1911 18A6 1912 1597 oc AL24SNCK) : 1998 OB80CBIFO 199E 1665 oc XL4*CBCOS1LFO® SERVICE REQUEST CHECK. 
1913 4000 1914 1598 IDER oc xL2*4000¢ 199F 1998 19A0 31666 pc AL 20 DADATA) 
DATE 16AUG74 1SNOVT7S 16JUN75 PROG 10 403-2 DATE 16AUG74 15NOV74 16JUN75 PROG 10 403-2 
EC NOw 6824765 824870 825057 PAGE 23 EC NOw 824765 824870 825057 PAGE 13a 








IBM NAINTENANCE DIAGNUSTIC PROGRAM 


4032 
ERR Loc 


29AL 
29a2 
2GAG 
1948 
LGAG 
19a0 
iGaFr 
1386 
1984 
1986 
1967 
1968 
1960 
8 S8E 
39C2 
19C4% 
89C5 
isc? 
£9ce 
19¢c 
21909 
4902 
2¢03 
£907 
EWG 
29K 
ESDE 
1SEO 
SEE 

I9ES 
29E7 
2 CES 
1GEC 

LoEE 
i SEE 

LaF 3 
LSFS 
EWG 
i@Fa 
ESC 
iva 
R&GE 

AOS 
Lave 
te08 
bate 
2 AGS. 
EaQeE 
TREE 

BALLS 
EaAG 
1ate 
RALe 
LARD 
5a EF 
EAZO 
Raee 
EAZG 
sane 
RAZ 
L420 
3AZE 


BAQF 
SA38 


SATE 
EC MDn 


oa 
oy : 


3741 ATTACHMENT DATA TRANSFER TEST 


OBJECT Cade 


Qi 
O810682Fi 
21999 

a2 

OBL ICSF, 
139e¢ 

13 
OBL2C9F1 
1999 

24a 
GE14C9Fi 
2999 

2:8 
GSL6CcSoFL 
1999 

iG 

@6OCC IF k 
£OSQ 

1T 

C&20C set 
1eee 

2& 
GSS5CSF 
.33o 

rg 
S@ScoFi 
iZsee 

26 
@32SCi FE 
2996 

og 

GE LACE FE 
LgGG 

re 

CBBC Ci FE 
1999 

EX 

GS LICEFS 
2999 

GF 
GBICGCEFE 
S66 

as 
SBrocsre 
Ieay 

£2 
GRIGELFS 
iGGe 

os 
O@LGCL FE 
1agT 

Ss 
23LOCI FE 
:9Q@ 

Oe 
OCBOCEEFO 
1968 

ae 
GSCCERFS 
129H 

oe 

Fe 


REMIGTS 
82476E 


ADd0R 


IGA 
gas 
1SAT 
19a8 
219ac 
39a 
ISAF 
i983 
21985 
1986 
SGA 
r98C 
2985 
2ecr 
19CZ 
2eC4 
19¢ce@ 
I9CA 
E9CcB 
I19cF 
8901 
19n2 
21906 
290e 
ESOS 
31900 
19DF 
LSEG 
19E4 
RSEG 
197 
ISEB 
LSED 
S9EE 
ESF 2 
19F4 
I19FS 
219F9 
iSfFB 
s9FC 
EADS 
RAGE 


LAZP 
EAOD 
EAGA 
EAGE 
EAED 
BAELE 
ERES 
EAL? 
EAS 
BARC 
RARE 
EAE 
2&Z3 
BAZS 


tae 
LAZD 
RAZE 


5AZS 
Ba32 


i SOvTe 


826876 


ST@T SGURCE STATEMENT 


1667 
2668 
3669 
1670 
iG?1 
1672 
1673 
1674 
4675 
1676 
2677 
1678 
1267S 
16660 
treet 
£682 
1683 
£664 
1685 
2686 
1687 
2662 
1689 
L690 
£691 
4692 
1693 
4694 
1695 
31696 
2697 
2696. 
2699 
EFOD: 
47O 
ReG2 
E?Fos 
£704 
£FGS 
2766 
E7G?T 
47G¢e 
4£7oo 
ErrIG 
EBFEL 
R72 
EBfis 
EE? iG 
E£T7ES 
£7is6 
£737 
47ia 
ETLS 
ETZa. 
B72t 
E22 
ET23 
LT2¢ 
a%25 
F726 
BRV2T 
g72a8 
B72 


RRARARARRRR RRR RARRRAR AR RR AAR RRA AA RR AR AA RRARAARARRARRRRARR ARRAS 


m2 *O2* 
XL4*O8iG@iIF Lt 
AL2CDADATAtE) 
xL2*Q2* 

x4 *O82 ICSF 2* 
4L2EDADATACL? 
xLAf23¢ 
XL4°* OAL 2C9F1* 
&%.2 CDADATAtE } 
ALIS ree 
XL.4*O814COF 1* 
412 CDADAT ATI} 
mL iezge 
KXL4* O62 ECOF 1 * 
44.2 (DADA TAFE? 
RLF ELE 

44 * GCEGQCSF 2 * 
AL Z2EDADA TALI 
RLIO&EBFE 

44 *CB3CCSF1* 
AL Z2COADA TA+ 3) 
ML." 5 Bt 

XL 4&* CESQCOFE* 
Mi_ 2 DADATA+ LE 
XLZ * EGt 

X@* CBSOCSF Ef 
st_2CQADATATE TF 
XLT * 20° 

32.4" OS2SCIiF 1 
4.2 COADARTASE SE 
xLE" GO 

¥L&* CGLACIF EP 
46.2 COADATACL SE 
MLE LSE 

i. * CEBSCIF EF 
M_2 CORDA AGED 
MEELPEEE 

XEG* OCGEOCEFG* 
ME_ZCODABAT ACES 
mare 
XL@ ° GHLGCEFE* 
FEZ EOZORTAE 
xsi_E*eS* 

XLS * OB1SCSE Z* 
MACAO TAS EE 
MEET ES 

x4 * Gel esiFg* 
si. 2EDADA TAF 
SLE*O3* 

Mt. @ * SSECELRE Ef 
4_2¢ D4OK FA— 1.5 
XE TSOSE 

ML4@* SZEGCEF EF 
& ZC DROR TASES 
REL *YSGE 

4%. 4 * GESGE IF CF 
4 Z2EDADAT AE 
ME" O* 

ME_@ OO BIGE rf ao 
SEZ COMM TARE 
MELE * OG" 
MLECFE SE 


S73G *eeeeeteseers 
B73 «+ CONSTANTS * 
EVES COREE EOE CER SEES FOE HEEESEL OELESEEEE LEE BGREBEELELLOSS FERAVES ECE SESE 


BF7SS MOOD ac 


S734 wBOCE 


BGSUNTS 
825057 


oC 


z°oe 
mazege 





ssse7er 


PART NOe 
PAGE 14 


’ 
| 
t 
i 
t 
— MESSAGE IDe 


SINGLE CHARACTER TRANS CHECK. 


- MESSAGE 
4/0 INPUT 


IDe 
F CHECK. 


- MESSAGE IDe 
1/0 ENPUT 6 CHECK. 


tO- 
S CHeEck. 


- MESSAGE 
E40 INPUT 


~- MESSAGE 
£40 INPutT 


De 
4 CHECK. 


De 
3 CHECK. 


~ HESSAGE 
4G ENPUE 


De. 
2 CHE@&Ke 


~ MESSAGE 
E/Q LNGEUE 


EQ-_ 
2 CHECK. 


—- MESSAGE 
tf0 InPur 


We 
@ CHECK > 


~- MESSAGE 
170 EMPOUT 


— MESSAGE Tite 
1/0 Umit § CHECK. 


— MESSAGE [De 
E/Q UNWEIT 2 CHECK. 


- MESSAGE EBDe 
E/G SELECT £0- 


~ MESSAGE [De 
LCR INCREMENT CHECK. 


- MESSAGE le 
DAR CHECK « 


~ MESSAGE FD= 
if/G EXPUET FP CHECK « 


— MESSAGE ID. 
CYCLE REQUEST CHECK. 


— MESSAGE De 

OAR CHECK « 

— MESSAGE Ge 

READ THITERLOCK CHECK. 

— MESSAGE EDs 

E40 SELECT REGESFER CHECK. 


— MESSAGE [D6 
ATTACHMEME OREVER CHECK 


— MESSAGE Ef 
* ENS OF TALE @ 


PREG LD 403-2 
PAGE s4& 


ah 


Bad 


16M MAINTENANCE DIAGNOSTIC PROGRAN 


4032 
ERR Lac 


2A33 
£a35 
tA37 
2a39 
2a38 
tA30 
LASF 
ZAe?t 

1A43 
2asS 
tA? 
A492 
a8 
ASD 
LASE 
1A5S1 

BAS3 
2aSS 
1457 
59 
1458 
2a50 
Lasr 
4461 

2463 
2465S 
EAGT 
2469 
LAGE 
1460 
LAGE 


EATL 

LAaTs 
LAB 

EAaS 
EASE 
LAGeT 
Lager 
LARS 
LAKE 
TAB 

Labs 
*&CL 

£4C2 
EACA 
EAC 
EADS 
LAnD 
EAS 
LAES. 
EAEF 
EAET 
LATE 
tBGs 
2808: 
L813 
RELA 
£822 
ESZA 
ta26 
EBISS 
ES36 
£642 
i866 


SATE 
EC MD 


3741 ATTACHMENT DATA TRANSFER TEST 


OBJECT CODE ADOR 
oce2 LA3e 
e003 1A36 
eoce La3e 
ooo7 1A3A 
oces LAa3C 
FFFS LAZE 
0086 1A40 
2358 LAS2 
4190 1As4 
a@asss rAa6 
0082 LA4s 
OGRA LAGA 
S5aa LAS 
o107 LAGE 
oorF LASO 
orc 1as2 
o4a2 LAS& 
aoe LAS6 
8082 LASS 
e286 1ASA 
core 1asc 
core EASE 
526 1a6o 
L298 LAG2 
LAaz 1Aa64 
EA3o 1A66 
1383 1a68 
cos? 1A6h 
17E3 LAGC 
F2F% LAGE 
Fors Lazo 
D3CSCiESCS4GCG4CS LABE 
Ct C7ESO6E 2E3C9C3 
&0C306DS0SCSC3E3 
060940060548 
CaN640E2ES8E2ESCS AAS 
044059C5E 2056568 
40EZE3C1DSE 348 
SCSCSCCSE9RSN6DS 1A8G 
5C5C SC 

CEES OSCSEICIOGNS 1ACi 
&GD9CSCICSEZESTS 

os 

EZESCIESESE2Z4GC2 14CC 
Ese3cs 
BSCSOSCTESCSH4GCS 1A0C 
CSEecSEsO0sCSCT 
CISIDSSCESOSCLOS LACE 
E2C6CS024003C905 
csez 
C4CLESCI“SACICACS 1833 
OscS E2E24009CSCF 
CIEZEICSOS 

SGCSCBCSC 203 8 1A 
CACSCECTOSDGEZES IBIS 
= : 

CCI ESCESGEZDIOCL EB2R 
OSEZC6C5096009 65 

cr? 

EZCSDSCTIDICSLICE 1B4E 
CBCEOSCECZESCSOS 
KSOSCSCIC4SCESDO 
CLOSE2ZCECSO34uES 
CSEZE3*B 

LGnG7e ESenvrs 
826765 ezea7e 


STMF SOURCE STATEMENT 

i73S NoG2 oc IL2t2ae 

1736 NOQOS oc Ir2*3* 

1737 A606 oc ww2¢6 

2736 Noo? oc Iea2e7e 

1739 NOGE oc t2°sese 

3746 BFFFB GCC XL2*FFFE 

274i #OOGeBD) BC mM2*eceo* 

1?42 H235S OC m2* 2355* 

1743 #412190 OC XL2°4390* 

8744 HAASS OC 2° Aaasse 

17eS HOOBe BC ML 2*ocKs2¢ 

1746 HOOAR OC xL2* ogaa? 

4747 HSSAA GC xL2* SSAA 

1748 HOLS? CC wW2*o1o7*® 

1749 #O0OFF OC XL2* COFFS 

17SQ HOOFOG OC . B2*COFOe 

275i “#0482 O¢ xL.2* 04825 

i7s2 +ecaec OC m_2°4680¢ 

2753 w8C0e2 OC *xL2*ece2* 

3756 Hezec aC xL2* go 280 

17SS HOCFB DC xL2*OCea* 

1756 KOOFE oC xEL2* OOFE® 

1?S7 H4EBSCG BOC xXL27*eB40* 

t7S6 ARS ac A_Z2E€ DADA TAI 

27859 abesss oc & 2€NZSS5} 

L766 ADRSOG BOC fa 2tHaccas 

176i EXtRS OC sL2¢ ENTS) 

1762 oc xiL2*CoeT* 

1?7G@3 SRXCH OC 4% 2CORCK} 

1764 C2t oc a2*2ie 

£765 ces oc ze" os¢ 

1766 

LF6F seeegesetesse 

L76E * MESSAGES * 

L7IGS £84 6S52SEE 65S 6 EE ESTES EERE RS HERSES CEES ST SEE ELE SEEKS SEKEELEKE CELE ELEEEL EQ 
i?7e uPsicace oC CLSG"*LEAVE CIAGNOSTFIC CONRECTGR GH. * 
L776 

L7T7e 

L¢t7Ge 

£77: Entra oc L230 SYSTEM RESET. STARTe* 
EF7E 

177t 

£@7Z ERS ac EL LL "See ERROR Se st 

1tf%2 

4772 wcoL * oc CLE T®FUNCTION REGISTER* 
LF7s 

“77s 

£774 MCOZA OC CELE" STATUS SYTE* 

LTTe 

E77S MESSE OC CELG*LENGTH COAMT RECT 
r77s 

if?%6 NEDSS Be CLiS* IvG TRANSFER tines 
1Fz6 

£?tt6 

Et??F mcs of CLZI* DATA ADDRESS REGISTERE 
Lt7F 

ETzT 

L776 O4H0K OC CuF* CHECK. 

8779 wecesa OC CQLES*DEAGNROSTEIC BYTE* 
£EvTS 

a7ec MCSoSe Oc CLE?T*OARTA TRANSFER REG* 
87e6 

E7eo 

E76 HOOL oc CKE36°SINGLE CHARACTER READ TRASSFER FEST o* 
S7SE 

L7Bxz 

EFSE 

87GE 

IG6SUBETS PROG 109 433-2 
B2S5¢GSF PAGE 1@Aa 


$$58781 
14A 


PART NOeo 
PAGE 





eo9009000099?9 eee eeoeee eeeoeoee ° eee 


ZGM@ MAINTENANCE OIAGNOSTIC PROGRAM . ; PART NO. 5558781 18M MAINTENANCE OIAGNGSTIC SROGRAN PART NO, 5558781 
PAGE ask PAGE 154 
4032 3741 ATTACHMENT DATA TRANSFER TEST _ 4032 3741 ATTACHMENT OATA TRANSFER TEST : 
ERR LOC OBVECT CODE AODR STMT SOURCE STATEMENT ERR LOC OBJECT Code ADDR STMT SOURCE STATEMENT 
1B4F C4C1IESCIGOCZEGES 1858 1782 HDATA OC CLIS* DATA BYTE XXe* 1D2F CSESE84B 1866 
1657 CS460E7E748 1782 1033 E3CSE2ZE340C2C1iC4& 1053 1601 HOOF Dc CL33* TEST BAD PARITY IN DATA TRANSFER «* 
185C FOSOFI40F 240F 340 1B6A 1783 BITS OC cL1540 22345678 103B 40D7C1D09C9E3Easo 2801 
1B64 F440 F540F6460F7 1783 1043 C90S40C4C1iE3C2 40 1601 
1868 60C5SC2F240CZESES 1874 1784 EB2 oc CLIOt-EB2 ayTE=* 31D4B EZSOSCIOSE 2C6CSOs 180i - 
1873 C560 : 1784 ; tDS3 48 1802 
1875 60CSC2F1I40C2ESE3 187E 1785 EB: pc CL20*-EB1 BYTE 1Dp54 E3CS5EZES40F3F7F4 3676 1602 OIC oC CL3S* TEST 37462 AND £70 ATTENTION LIGHTS. * 
1870 C560 17a5 195¢ F140cC1DSC440c96i $802 
187F CZE8E3SCS40E309C1 1892 1766 BYTCK OC CL.209* GyYTE TRANSFER CHECK.* ‘ 1064 0640 CIE3E3CSDS5E3 1862 
1887 OSE2ZC6CSD940C3Ca 1786 i 1D6C CeDeDSa0D3C9CTCS 18G2 
188F C5C30248 2786 i 1074 €3&248 1802 
1893 C4CLE3CISOE3D9C2 LBA6 1787 SNCK dC CL2C*DATA TRANSFER CHECK: “+ 1077 OgCSE2ZC5E340C8Ci 1DAA 1803 READ OC CLS2°RESET HALT: EXPECT 3741 AND 1/0 ATTENTION LIGHTS ONo? 
$8968 DSEZC6CS50960C3C8 1787 : 1D7F O3E36840CSE7D7C5 1803 
1BA3 CSC302e8 1787 1D87 C3E3ZSOFSFTFSFi40 2803 
IBAT CSE7O7CSC3E3CS5C4 18BD 1788 xXPAC OC CLZ23*EXPECTED XX ACTUAL XXe* : 1O8F €1D5C4%40C961 9640 1803 
IBAF &0E7£74940C1C3E3 1788. . : 1097 ClESE3SCSOSE3C9NE 2803 
1887 £4C1D3460E 7E748 1788 ‘ LOSF DS4SCO3CICTCBESE2S! 1803 
168E C4D0649C5SDSC44306 IBEC 1789 HDOS OC 8 §CLe7*DS END OF TRANSFER -EQT- BY READ CALL OVERFLOW»? : 10A7 40060545 2803 
1BC6 C640E3D9C1D5E2CH 3789 i 1DaB C9IC640CZDGEESCB4O 10C0 21604 IF Y¥ oc CL22*iF SOTH LIGHTS NOT GON, * 
1BCE CSC9SO060CSD6E365 1789 —C- 1083 OSC9C7CAESE2Z49 05 1804 
1806 40C2E5*0D9C5C: C4 1789 : 1086 D6E540D6056B 1804 
1BDE $0C3C1D030340D6E5 17389 : : 1DC1 F&FOF OF 2 10C4% 1895 ENTRY DC CL#°4001°8 
18E6 C509C6D306£646 17389 10CS ES6C9CSESCSSA0C5C1 DOF 1806 WRTCK oC CL27*wRITE CALL TERMINATE CHECK s# 
IBEO F3F7F4F140C9EZ40 IBFE 1790 NORODVY OC CL1i8*3741 1S NOT READY. * i 1OCD 030340E3C59904C9 21806 
1BFS OSDGE340D9CSCICa 1790 10DS OSC1 E3Cc5e0csacacs 2806 
1BFO E668 31790 : 1DDD C3D268 1806 
IBFF F3FTF4F140C9E2460 1008 1793 BISY DC €L13"°37413 15 GUSYet | 1DEQ F3FTFaF1IS0C9E240 1DFO 1807 KOTSO aC CL.37°3741 4S NOT BUSYe* 
1C07 CZESE2E848 1791 ; | 1DEB OS0S E340 C2ZESEZEB 1807 
1C0C C7DS40ES0646F3F7 1CZ2D 1792 MAPSS OC €L34"GO TO 3742 HAPS» PAGE 000 ENTRY Oc* 10FO 48 180T 
1C14@ FOF146004C1D7E268 1792 : 1DF1 E2CSDSESCSC3CS4O 1EO7 1898 SRYVCK DC CL23* SERVICE RESPONSE CHECK .* 
1C1C 4007C1C7CS40FOFO 1792 1DFO O9CSEZO7DEDSE2CS 2868 
1024 FO40C5S0SE309E840 1792 i 1E01 #0C3Cscsc3D248 1808 
1c2c F048 1792 | lE0e@ E2C509E5C9C3CS80 1628 1809 SRVR OC CL33*SERVICE RESPONSE LATCH NOT RESET.* 
— IC2ZE C4DO4S0F340CSC1L ES 1046 1793 HOGA OC CLZ5*DO 3 DATA READ TRANSFERS.* ‘ 1£10 D9YCSE2ZD07D605E2 C5 1805 
IC36 C1l40D9C5C1ICS840E3 1793 —S 1E1g8 SQD3CIE3C3C840D5 . 1809 ene nen 
IC3E COCIOSEZCECSDSE2 1792 1E20 DGE3S40D9CSE2CSER 1809 : 
1046 48 1793 1E28 48 2809 
1047 ESCSE2ZE340F2C509 1063 1794 HOSS) =o DC CL29*° TEST SERVICE RESPONSE DRIVER.* 1E29 E2cSp9ESC9C3C540 16466 1810 ORIVCK DC CL3S0* SERVICE RESPONSE DRIVER CHECK o* 
Ic4aF ESCSC3CS4009CSE2 179% : : 163i O9CSEZD7DEDSEZCS 1810 
1C57 O70605E2C5406409 1794 i 1E39 80c¢4D9C9ESCS5SD940 1810 
ICSF C9ESCS0948 ~ 4796 1E4: C3C8C5C302468 1810 
1C64 ESCSEZE340E2CSES3 1C8C 1795 HND0e oC CL41*TEST SET/RESET GF SERVICE RESPCNSE LATCHe® ; 1ES7 C961 0640E309C1D05 IESE 26113 TRICK OC CL24*E70 TRANSFER LINE CHECKe?® 
1CG6C 61 O9C5E2C5ES40D6 1795 ! 1E4F €2C6C5D900D3C9D5 3832 
1074 C640 E2CSO9ESC9C3 1795 g IES? ¢€S540C3C8C5C3D298 283° 
1C7c C540D09CSEZD7D6eD5 1795 1ESF CS5SD6E340C3C8C5C3 1E68 18le CKEOT oC CLAIQTEOT CHECK. * 
1€64% E2C54003C1E3C3C8 1795 1E67 0248 3812 
icac 48 1795 1E6S CSCSESCSOSESCTES ETF 1813 NOINT oc CL23*INTERUPT DID HOT OCCUR.® 
1C8D E2C9DSC703C540UC3 1081 1796 HDD? oc CLA7*SINGLE CHARACTER wRITE TRANSFER YESTe* 1E71 40C4C9C440DSD6E3 2813 
1095 C8C109C1C3E3C509 1796 1E79 40D6C3C3E40948 i833 
1C9D 40 E6COCIESCS40E3 1796 1680 F3F7FSF140C9E240 1EB8D 1614 RDYON OC CL24°3743 15 READY.* 
ICAS DICIDSEZCECSO9SO 1796 1E88 DSCSCIC4S4ES4B 1814 
1CAD E3SCSE2ZE348 1796 . 1EBE CS61D6A0CIESE3SCS 1EAR £615 ATTN OC CL20°170 ATTENTION CHECK.* 
1CB2 ESCSEZE3S20C6ED6D9 1CC6 1797 HDOG DC Cu. 21° TEST FOR BUSY ON/OFF .* 1E96 OSE3C9D60540C3C5& 2615 
1CBA S0C2ZE4E2E88000D5 1797 1E9E €5C30248 3815 
1CC2 63 D6C6C64B 1797 1EA2 E2CSOSE2C540C3C8 LEAD 1816 SNSCK 0¢ CL32*°SENSE CHECK. ® 
1CC7 C40640C505C44006 1CF6 1798 HDOC 3 oC CL48°D50 END OF TRANSFER ~EOT- BY WRITE CALL OVERFLOW.* 1EAA C5C3D248 1816 
1CCF C6S0E 3D0SCIDSE2ZCS 1798 1EAE D6ESCSOSCED3SDSE6 IEBC 1827 OVRFL OC CLIS* OVERFLOW CHECKe* 
1CO? C5£94060C5DS6E360 3798 1EB6 40C3C8CS5C30248 1817 
1CDF 40C2E840E ED9C9E3 1798 1EBD C4C1E3C140C3C8CS ECA 1818 MSS oc CLIS*DATA CHECK 000° 
ICE7 €546C3C1030340D6 1798 1ECS C3D240FOF 068 1818 
ICEF E5C5D9C6éD306E648 17938 LECB DSO6DSS0E2ZC9DGES 1EDE 1819 NOFND OC Ch20*NON SIMULATED CHECKe® 
1CF7 C&C5C3D9CS04CS505 1016 1799 HOOD oC CL32* DECREMENT DATA ADDREZ:. REGISTER s® 1E03 03C1E3C5C4a0C3C8 1819 
ICFF E3S40CACIE3C140C1 i799 1E€08 CS5C30248 21839 
MDCT C4C409CSEZE24009 1799 1EOF C9CID940FS40D9CS 1EF3 1820 ERIAR DC CL21*°3AR 5 REGISTER ChECK o® 
1D0F CS5C7C9E2E3CS094B8 1799 LEE? C7C9EZE3SCSD9EUC3 1820 
1D17 ESCSE2ZE34¢0F3F7F4 1032 1800 HDOE oC CL2Q*TEST 3741 INTERRUPT ABILI Tree 1EEF C8&c5c30268 1820 
101F F140C9DSE3C SD909 1800 1EF@ CID9D94CFS540D9C5 1F08 1821] ERAAR OC CL21°ARR 5 REGISTER CHECK e® 
1027 E&O7E340CIC2C¥D3 1800 IEFC C7C9EZE3CSD940C3 1822 
CATE 16AaUG74 ASNOV7T4S 16JUN75 FROG 10 403-2 DATE 16AUG74 I SNQV74 16JUN75 PROG ID 403-2 
EC NOw 824765 824870 825057 PAGE is EC NOe 824765 824870 825057 PAGE &Sa 


a Oo © 


38M MAINTENANCE OILAGNOSTIC PROGRAM 


4032 


ERR Loc 


1FO08 
iF 09 
1F ii 
iFI9g 
1F io 
1F 78 


DATE 
Ec NO. 


3741 ATTACHMENT DATA TRANSFER TEST 


OBJECT CODE 


CB&CSC3I02486 


A0DOR 


C9CID9SFSE6ICIOSD9S FIC 
4060060960480C35C8 


cSc30248 


40 


16AUG74 
824765 


1F 77 
1-76 


0008 
0216 
G22a 
O21A 
O2te 
0002 
0002 
0222 
Q0ag3 
60846 
0200 
1a30 
1994 
r1EEC 
lEFF 
1A34 
ooao 
O20a 
OA07 
0200 
OAI2 


1SNQOV74 
824870 


CL20* IARS/ARR -GR- CHECKe® 


cLg2 
xuL1*408 


PRINT FIELDe 
CLEARING BYTE. 


PART NOe 
PAGE 


a 


$S558781 


16 


ESSOKRHSESERES SHES SEES SHAS EKKEK SESE SKEESHTK EE SERS ERS ESEERERBESANEE EERE EE) 


x°ose 
x*216¢ 
x*22a° 
x°21Ae 
x*21e* 
X°o2¢ 
x*O2¢ 
x*222¢ 
x* GAOSF 
x*6a* 
x* 200° 
NOOO 
Test 
ERIAR-7 
ERARR-9 
NOO2 

x* Boe 
X*O2Z0A° 
Xx* OAOT®? 
x*0200° 
BEGINN 


ST#T SOURCE STATEMENT 
1821 

1822 ORRO ve 
1822 

1822 

1823 PRT os 
2824 pc 
16825 

1826 ¥£4£O0K4ERERE 
3827 * EQUATES # 
1828 

1829 ARR EaQu 
18630 LINK EQuU 
2831 LOAD EQU 
1832 PRINT EQU 
1633 UNPACK EQU 
1834 xRI Eau 
1835 xR2 Eau 
1836 HALT EQU 
1837 RTN® EU 
1638 IARS  £EQU 
1839 CPU Eau 
1840 HOOCOO §«6EQYU 
1641 TEMP EQU 
1642 nCD8B EQU 
16¢3 NCDOS Eau 
1844 #O002 EQU 
1845 SSwi0 EQU 
1846 SBYTE2 EQU 
1847 FRIN EQU 
1848 SRT Eou 
2649 END 
163UN75 

825057 


PROG ID 
PAGE 


403-2 
16 


€ 


em 
a 


16M MAINTENANCE DIAGNOSTIC PROGRAM 


4032 


syMBOL 


ACT 
AoIT 
ADJIST 
ADRS 
ADRSOO 
ADRSSS 


ALTER 
ARR 


ATIN 
SADB VT 
BEGIN 
BEGINN 
BiIsv 
BITS 
BITSNF 
BRAC H 
STNF 
eusy 
BvtcK 
ccsio2 
cKcK 
CKEoT 
CKIAR 
CKIT 
cKOouT 
CKPAT 
cKs 
CMPARE 
CMPR 
CONY 
cru 
cos 
c2i 
OADATA 


OaRCcK 
DARN 
DATA 
OaTas 
CATER 
DATTA 
omPy3 
ORIVCK 
E82 


' €BlT 


E62 
EB2T 
ENTRY 


' EPRNTI 


EPRNT2]) 
ERARR 
ERIAR 
ERIo 
ERMS 
ERRID 
ERROR 


ERRRIO 
ERRR1I6 
ERRRIS 
ERROT 
ERRI6 
ERR1I7 
Eras 


DATE 
EC NOe 


3741 ATTACHMENT DAYA TRANSFER TEST 


T LEN VALUE 
a 002 1579 
A 004 135F 
A 003 12E0 
A 002 1462 
A 002 1A66 
A 002 1064 
4 004 0aa3 
C 061 0008 
A 020 1EA2 
& 0C6 1885 
A 0021 oacD 
A 00% dain 
A 013 1C0B 
A015 166A 
A006 2161¢ 
A 002 1a6¢ 
A 00@ 1678 
A 00% 1093. 
a 020 1892 
A003 2892 
A 004 17682 
& 010 21&68 
A 004 1740 
A 004 16a1 
A 004 1794 
A 004 1538 
A 005 1543 
A 004 1574 
A 004 1502- 
& 003 13€8 
C 0023 0200 
A 002 1A70 
A 002 1A6E 
A 001 1998 
& 007 1B0A 
A 006 18F9 
A 004 1808 
A 006 1833 
A 006 1920 
A 004 1988 
A 004. 197F 
A 030 1646 
& 010 187E 
A 001 1618 
AO1G 1874 
A O01 161A 
A 004 104 
A 004 14C5 
& GOS 1400 
A 021 1Ff08 
& 021 1EF3 
A 002 18C4 
A 004 1555 
A002 198A 
A 00% 1699 
A 002 1935 
A004 ODCE 
A 00% 1060 
A 00% 086E 
A 00% oDA2 
A 0C® OE9F 
& 004 0OF66 
16AUGT74 
824765 


OEFN 


1267 
0998 
o9S8 
1758 
1760 
1759 
0062 
1829 


1625 
1563 
0039 
0043 
1792 
&783 
1323 
3763 
1329 
2256 
2786 
1499 
2447 
1812 
1442 
1375S 
2433 
8238 
1243 
1269 
1298 
2068 
8839 
3768 
i764 
1651 


1778 
2591 
isos 
2507 
1605 
1643 
2639 
1839 
3786S 
3323 
17646 
1320 
1805S 
2383 
2386 
is2i 
1626 
2568 
1246 
1642 
31373 


2614 
0555 
0867 
0273 
0535 
0556 
0749 


1 SNOV74 
824870 


CROSS-REFERENCE 
REFERENCES 
2281 1285 1299 1294 14178 1422 1426 
0899 2013 1466 1483 
o9s2 
0192 0228 0463 6608 O701 OT96 0946 1053 
0317 0406 
00ss 
0575 1132 2163 1186 1200 1238 121238 1269 
$373 442 1505 1506 
3553 
eo1is)l 
0067 18409 
2189 
2409 2410 
2421 
0942 
13268 
0198 
2572 
3827 1528 
14426 
0659 oO753 : 
0912 0914 0916 0974 O976 O978 
1432 
1378 
1619 
, 1254 
1427 
12696 
0a98 
1593 
1256 “ 
0229% 0526 0546 0566 0838 o8s5sS 1552 1580 
1675S 1678 1681 1684 1687 1690 1693 1696 
2722 #1734 «L717 «41720 «1723):«1726~«21758 
0833 
1558 
0080 2100 6120 0139 0159 
15068 
1549 1551 
1855 1589 
1633 . 
0424 
1407 
13268 1341 
1406 
1334 
2408 1423 . 
31406 1411 1428 
0970 2843 
0996 1842 
15638 1586 
3257 
1586% 15936 16066 
0260 0277 0353 0370 0427 0518 0538 0O558 
9636 0853 2873 1094 131312 1456 13624 1636 
160S* 1606 
0505S 0507 0509 
0822 0824. 
0246 0248 
0491 0493 0495 
0638 0632 
0729 o722 
16JUN7S 
825057 


PART NO. 
PAGE 
1534 
1323" 1324 1327% 1328 
fog 
1636 1666 1669 1672 
1699 1762 i705 708 


0645 0662 06735 


PROG 10 
PAGE 


Oo7S6 


5858781 
116A 


403-2" 
16K 





eoe0eee08ee2e8020 0888080802028 08 8880088000 ©& 


IBM MAINTENANCE OITAGNOSTIC PROGRAM 


4032 


SYMBOL T LEN VALUE 


ERRI9 A064 1037 
ERS A 011 3480 
EROF2 A 004 1412 
EROF2 A 004 1437 
ERO7A A 004 O84A 
ERIA A 004 1364 
ERI6 A 004 0C2B 
ER14A A 006 OBEF 
ER16 A 004 06076 
ER17 A 004 OE78 
ERIB A C04 OF39 
ERIS A 006) «1013 
E16 A 002 ODFA 
FLAG A001 1995 
FRIN C001 O0A07 
HAASS A 002 1A46 
HALT € 001 0222 
HDATA A013 13858 
HDNGID A 002 1837 
HDOA A O25 1646 
HDCB =A 047) «18EC 
HOCC A 048 1CF6 
HDOD A 032 1016 
HDOE A 028 1032 
HDOF A 033 1053 
HDO} A 036 184E 
HDO6 A O21 1CC6 
MDG7 & O37 1¢€81 
HD08 A041 1C8C 
HDC9 =A 029-1663 
—~HD10 A035 1076 
HFFFB A 002 1A3E 
HPL XX A 002 GA4SC 
HOOAA A O02 1A4A 
HOOFB A CO2 1A5C 
HOOFE A 002 1A5E 
HOCFF A 902 1Aa50 
HOOFO A G02 1A52 
HOOC}O A 002 1A30 
HOCO2 A OC2 1434 
HOOBO A 002 1A40 
HCOC82 A 002 1048 
HO107 A 002 1A4E 
HC280 A OC2 1LASA 
HO482 A 062 1A54 
H2355 A 002 1A42 
H4B40 A 002 1460 
H4080 A 002 1A56 
H4190 A 002 1A04 
HSSAA A 002 1A4C 
48082 A 002 1458 
TAR A 902 17C¢ 
IARS € 001 0084 
IDER A 902 1914 
1FY A 022 10¢0 
INITL A 004 145¢ 
INTL A 0O& 43473 
INTRO A 023 1AA5 
INTRS A 002 1468 
INTS A CO& 1383 
ISBSY A 004 OADA 
ITON A 004 166C 
ITSON A 00& 1656 
DATE 16AUG74 
EC NOw 824765 


OEFN 


0647 
1772 
1088 
1106 
0254 
19903 
0364 
6343 
0515 
0039 
0728 
0830 
os7s 
1649 
1347 
1744 
3836 


1782 
3519 
31793 
1789 
1798 
1799 
2300 
18623 
1782 
1797 
i796 
1795 
1794 
1802 
1740 
9065 
1746 
1755 
17S6 
i749 
1750 
1840 


1344 
174i 
1745 
1748 
1754 
31752 
1742 
1787 
1752 
1743 
1747 
1753 
1459 
1336 
1596 
316804 
3132 
1138 
1771 
3761 
iuig 
0198 
21345 
1338 


1 Snov74 
824870 


REFERENCES 


os13 
1426 
1062 
1066 
0239 
0968 
0337 
0335 
Oa7?7 
0620 
o74s 
0804 
CSi6 6536 
O9463% 0967 
0055* 
0911 
0064 
0766 
1481 
41613 
15092 
2454 
os9o9 
9690 
o788 
0903 
3041 
2518 
oi8se2 
0218 
0307 
0396 


0835 


0993 


oa7s 


0713 


O97s 
0267 
9843 
3641 
1623 


- 122% 


cos7 9066" 
0465 
0620 
0227 
0465 
8196 
1135 
G226 
0408 
0315 
0915 


o700 
0794 
01391 
1760 
0404 
0466 
0698 
o977 


G793 
17s¢ 


0319 
0913 
0230 
O910% O911s 
0944% 0983* 
1592% 


og975 


018S G221 

11324 

00Si 

9935 0936 

1023 1761 

0196 

1342 

1335 
16JUNT7TS 
825057 


3741 ATTACHMENT DATA TRANSFER TEST 


CROSS-REFERENCE 


6481 


OSS6 
O982* 0992 i0i98 


C287 0360 O377 0434 oO531 6551 0571 
0863 0883 10133 3083 1102 1119 13252 
00622 

C947 

1056 1533 

0193 0316 09318 e24607 G4a6&a G609 6622 
0462 GO607T 1049 3532 

0611 Oo702 i652 4333 1535 

0948 


0913* COIS O9S72*% O973¢ O975*% O9T7* 1443 
2443 1444 


0330 0399 0457 cé6é02 0693 2788 97906 


0944 0983 


PART NOo 
PAGE 


C6S2 0672 6745 

3163 3174 1464 

0699 O795 1134 

24444 1486 1446 

CS8O 1044 i525 
PROG 10D 
PAGE 


$558781 
317 


403-2 
17 


18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO $598781 
PAGE 17A. 
4032 3741 ATTACHMENT DATA TRANSFER TEST 
CROSS-REFERENCE 
SYMBOL T LEN VALUE OEFN REFERENCES 
JsuMP A 004 12FO0 0964 0939 
LINE A GOi 140C 1189 1184% 113874 
LINK C C01 0216 18306 0209 0250 0269 0289 0339 C362 0379 0417 0436 0511 C533 0553 
OS73 C63S 065% 0674 0724 0747 0768 0826 0685 0865 C385 1154 
1165 117€ 1643 
LOAD C OOt O22A 183i 0996 10723 1085 1103 1123 
£3742 A 001 oO006 9005 
MAPS A COS 14EA 1200 0265 0285 0358 O375 0432 0529 0589 OS69 0650 0670 O743 O764 
084i 0861 0861 1009 1081 1099 1117 #12150 1161 1172 i462 1479 
1639 
MAPSS A O34 1€20 1792 12028 1203% 1204* 2205 1209 
MPER A 002 1984 1640 1508*% 15872 1588* 
MPIAR ACGO2 1708 1463 99099 O971s 
MPREF a 002 1808 1502 1508 
“SS A&G1ié@ 1ECA 1618 3246% 3248* 1249 1266% 15638 1602 
NCOOS A O22 LEFF 1843 1400 
NCOL & O17 %taCi 1773 1383 
NCD2A AOll iacc 1774 1386 
Nep2a A 016 2ADC 1775 1387 
NCD3 & 018 1AEE 1776 1390 
Ncp* A 921 1803 1777 1393 
NCDSA AO1S 1819 1779 3296 
NCOSS A C17 182A 1780 1397 
NCD88 AO2Z1 LEEC 1842 1403 
ncaO A GOL 1698 1372 23768 1377 1383 1384 1388 1391 1394 1398 1403 
NE A C04 165A 1339 1332" 1336* 1337 1338 13526 
NFE A 00% i676 1346 4332e 13427 1344 1345* 13534 
NOFND A O20 1EDE 1839 
NOINT A O23 1E7F 1813 1066 
NORPY AO18 I18FE 1790 1079 «61348 
NOTSO A O17 I10FO 1807 11270 
NTSSY ACO4 i448 1167 0197 
“NTRDY A 00 1677 13145 1137 
NTRST A GOS 13F7 1076 2069 
NOOO A002 ia30 1733 2846 
NOO} A 002 LAB2 1736 1323 1327 13433 1433 
NOO2 A 002 1034 1735 1305 1306 1252 1353 $412 1415 1864 
Noa: A 002 1A36 1736 1221 
NGOS A O0C2 1038 1737 
NOG? &A 002 1ABA 1738 1252 
NOOB A 002 %3A83C 1739 1505 
OOFH A O06 1953 1621 1569 1603 16:3 
ORCK A 004 7&3 1473 176s 
ORPIT A G04 10E3 0939 0S37* 09337 OSS6 
ors A 020 LFiIC 1822 1476 
CVRFL A 015 2LEBC 1417 0879 
PATCK A 004 i55D 1250 1238s 
PATRN A OOL 199A 1660 1239 
PRINT C OU OQ21a 1532 0043 00468 0179 6215 O25¢ G27! 0304 0346 03646 0392 49423 0451 
0576 0596 0639 0656 C687 0729 oO750 oO7a2 Ca3s O84F GE67 O90 
1003 i038 i076 1688 2106 1145 14156 1167 1188 t206 1266 14650 
1473 1515 2520 i564 1869 1582 1594 1599 1697 : 
PRNT & OO 14D8 1188 1185S 
PRT & O91 LF7?F 1823 0052* 0053 0053* 0343% 634% 03458 96349 C352 G35ie 41192 1192 11926 
138 2366" 1383% 13868 13878 13908 1393% 13968 2297" 1406 14033 14068 
1407* 14058 1416% 1419 1820 4426s 
PRIT A 004 18F6 1193 1183" 11862 
as A 00% 1522 1222 1218* 122i8 1225 1226 1228 
ast & 00% 1526 i224 1220 
QUES A vO 1531 1218 0187 O2235 03:2 0403 0459 066% 99635 O799 6950 1006 1529 
ROYON A Ol& JEBD 1414 
READ A&A O52 1DAA 1803 
RTHLT A 902 189A 1503 1507= 1563 1593 1592 1605 
RT™Ne C 001 OAIZB 1837 1509 1586 21612 13632 
RTNCA A GOL OCBB 6447 0391 
RTNOGB A OO1 OESC e592 0249 
DATE 1GAaUG74 1 SNGVT4 16IUN75 PROG 10 403-2 
EC NOw 824765 824870 825057 PAGE 17A 
x 
i 
x 
{ 
sa 


te epee eet erent 


1BM MAINTENANCE DIAGNOSTIC PROGRAM Pat7 NO. S558781 18M MAINTENANCE DIAGNOSTIC PROGRAN PART NOs 865558761 
PAGE 18 PAGE LBA 
4032 3741 ATTACHMENT DATA TRANSFER TEST 4032 3741 ATTACHMENT DATA TRANSFER TEST 
CROSS-REFERENCE CROSS*REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBGL T LEN VALUE DEFN REFERENCES 
RTNCC A OC1 OECB 0683 0594 TEMP A006 1694 1841 0940" 0997 1008 1461 1478 
RTNOD A 001 OFS3 0778 0685 TEMPE A 002 1397 1024 1021% 
RTNOE A CO1 1089 0896 0780 TEST 4 006 1994 1648 0344% 0345 1260" 21201 1242 1615S L6I6G# 1617* 16841 - 
RINOF A 0Ol 1358 1034 0896 THEADR A 002 i7C1 1453 1448% 
RTNOl A001 OAS1 0076 0041 ocse : TNE A 006 1648 1334 13294 1348 1350 13508 1354 
RINO2 A OO1 GAG2 0096 0078 TNFF A O6@ 165E 1341 1330% 1351 1351 
RTNO3B A 0C1l 3A73 0116 0098 TRLCK A O24 IESE 2831 1209 
RTNOS A& 001 GABS 0135 011s TRY A C04 1561 1252 1242 
RTNOS £&£ 0C1 GASS 6155 O13? UNPACK C O0i O21E 1833 15160623874 = «61578 
RITNDIG A OCG1i OAAG 90175 0157 . : UPSEOC A O30 1A8E 1770 0686 
RTNO7T A OOL SAEZ 82131 O177 WRICK A O27 LODF 1806 0274 
RTNOSB A OOl O8S7 0300 0213 XPAC A 023 1880 1788 31877 1581 1585 
RTNC9 A 002 OC4F 0389 0302 XPDTR A O02 18804 1500 4512 1550 1552 1576 1621 
RTRN A 008 GE0S 0581 0515* 0535%* 0555* oS75* XPLCR A O02 1806 1501 2548 1622 i 
SBYTE2 C 001i O20A 1846 1219 XPT A O0C2 «1577 1266 1279) «632880 1414%* 3424 
SETI A 004 1009 0937 0935 XR} € 001 ood1 1834 0054* COSS 0908* 09359% 6940 0941 9708 S996" Oo997 19008 1201 1202 
SET2 A 004 1000 0938 09368 . x 21203 8204 1205 2213 12268 1227 1239% 1241 3244 1245 12528 1253 
$i0cc2 A 003 186A 1538 15278 152a¢ ‘ 1271 1332 1374@ $375 16124 14133 134158 1416 134206 143608 14318 14332 
SKPER A 004 1784 1428 1425 1434 1446 1461 1478 
SNCK & 020 1B8A6 1787 0S79 1567 1597 1610 XR2 €¢ 001 C602 1835 12700 2331 14198 
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OKaLOE {it 1<G TONC 
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e 
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e 
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e@ se 
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e 

SS*SNBEN IC(KISSP RE<jH? e | KKaVsSUC 
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OBJECT CARD LISTING 


eee ees a ee ee eee a 
EB/ES*E7#=—DC"PHS ="7MEF | j Cc FX asc R A SO 
pea 
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4042 3741 DIAGNOSTIC FUNCTION TEST 4042 3741 DIAGNOSTIC FUNCTION TEST 


ERR LOC OBVECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
2s LAST CHG 208 01 74 (5 21 £es454030 0488888 
3 DECK ¢ 22 * ROUTINE 1 * * 
4 SEQ ° fr 23 ARREAS ASRS SED SOLSRAA REEL TTESE AT OT ere ee ey ee eee 
us 2% * 
oe , nae, eager e 25 « THIS ROUTINE WRITES A PATTERN FOR SEVERAL RECORDS. a ~ 
oaoo 7 oRG X*QA00® 26 * IT THEN READS THEM BACK AND COMPARES FOR PROPER DATAe * 
BQ #ESAHEAKEESREKATEARE SKE AK ERERESSSESLS AES VEKSRRK KES KKK PEAS KEK HS SETASERE SRS ES C 27 # IT ASSUMES THAT 401+ 4020 AND 403 RAN WITHOUT ERROR. Z 
* 28 * 
is : SECTION PREFACE . 2D HHESDE ESTERASES ESAESSDEAEREHEES HEE OSES SAESES ESE SAESSELKE RES SESERSSE SAAS ES 
iis ges 30 : 
LS SHAE SKKASSKKSKASSSERSKKAKSKSERRSEKAKHKKK AKL KEAKESKKR AK LA EAKASESKARKARAS SSH KES HK KH € OAOD 01 OaA0D 31 RTNO1 OC xML2°O2R® ROUTINE 1 
0a00 4042 OAQ1 13 oc xL2*4042° PROGRAM ID AND REVISION LEVEL . OACE 80 QA0E 32 DC xL1°80° MANUAL INTERVENTION REQUIRED 
0A02 60 OA02 24 oc xLA*008 SECTION FLAGS O. OAOF OC4A 0aid 33 oc AL2Z(RTNO2) AEXT ROUTINE 
Oa03 02 OA03 15 oc XLIFOL® CURRENT ROUTINE NUMBER 34 
0A04% 0000 oads 16 oc xL2°0000° RESERVED 35 * INSTRUCT CoE TO SET UP 3743. 
GCA06 OCACD QAO? 17 oc AL2¢RTNOL) ADDRESS OF FIRST ROUTINE €: 36 
O0A08 FFFF oaog 1s oc XL2°Frrre ERROR RECGRDING TABLE 7 37 
OACA 4050006 OAOC 19 UDTL oc xL3°a0S0C0* 3741 ; OAL 33 41 i076 38 “10 FUNBIT eL FUNC FUNCTION REG TO K*4000° 
3 39 
| © 39 
: 39 
es 39 . 
fo CA15 3¢C 87 OCDO 40 MVI JRW+1 oX*B7* SET UP FOR PGM TQ SPECIFY READ OR WRT 
i OA1i9 3C FF 1¢50 @1 MVI EXPFLGeX *FFS EXPECT AN INTERRUPT 
.* OA1D SC 00 1C5A 42 wVvI INTFLGex*00* CLEAR INTERRUPT FLAG 
| 0A21 CO 87 O21A 43 BEG 8 PRINT 
( OA25 42 OA25 844 DC -  XLAe42e 
| cS OA26 27 0A26 45 oc ALICASTRKI-ASTRKS) 
, GA27 1490 CA28 46 oc AL 2CASTRKID 
| CA29 40Fi OA2A 4a? oc XL2°@0F1°* 
| £ @AzB CO B7 O21A 48 8 PRINT 
| ae OA2F 02 IAZE 49 oc XL1°O2# 
QOA30 27 CA30 50 oc AL 1¢€HD2=-HD18) 
’ £4 OA31 15FC 0432 51 ct AL2CHOL) 
Se nrneenennmreenmnee  e 5 0A33 CO 8&7 G2lA ; S52 8 PRINT See en 
: 0a37 02 0A37 §3 oc M2°02¢ 
v: OA38 27 CA3E 54 oc AL IC ASTRK 1-ASTRKS) 
3 CA39 1490 OAZA 55 oc ALZ@ASTREI) 
OA3B CO 87 O21A 56 8 PRINT 
€ OA3F 01 OaSF 57 oc xXLifto1e 
7 CASO 27 0AS0 S58 oc ALICINLB-EN1A) 
QA4l1 1317 OAS2 59 DC AL2€1N18) 
¢ OA43 CO B7 O21A 60 8 PRINT 7 
° GAaT O01 9A4? 61 oc xL2¢O18 
CAS 27 CASS 62 pc ALL CINIC~INIB? 
os OAS 133E OASA 63 oc ALZGINLC? 
[ GA&B CO B7 021A 6% 8 PRINT =» 
| OASF 61 OAGF 6S oc xe2r°o.® 
| €- OASO 27 QA5S0 66 pc ALICINIO~IN1C) 
: ae OAS1 1365 oas2 67 oc 42 2C1N20) 
SAS3 CO 87 O21A 68 8 PRINT 
| ¢+ oAaS7 O32 OAST 69 oc xLi*018 
ye Cas& 27 OASS 70 oc ALIC INIE-INI0) 
| OAS9 138C OASA 71 cc AL2ZQCINIED 
c£ OASB CO BT 021A 72 8 PRINT — 
oe OASF 01 OASF 73 oc xXLirole 
| Oa6G 27 OA60 74 pc ALI CINI-INLED 
€ OA6G1 1383 0A62 75 pc AL2€1N2) 
OA63 CO &7 O21A 76 8 PRINT 
| OA67 12 OA67 77 Dc MiL2e122 
| € 9468 CO B7 O2IA 78 8 PRINT 
{ * OAG6C Gi OA6C 79 oc MLI°O3? 
CA60 27 OASD 80 oc bLILASTRKI“ASTRKS) 
é OAGE 1490 OAGF 81 oc AL2CASTRK1) 
OQA7O CO 87 O21A 82 8 PRINT 
OA74 C2 OATS 83 oc XL2L®O2¢ 
C. OATS 27 OATS 84 oc ALI CASTRKI-ASTRKS 3 
OA7T6 1490 OA77 85 oc mt. 2CASTRKL) 
a 
DATE O1AUG7T4 1SNOV74 163UN75 PROG 1D 404-2 ~ pate OLAUG7TS LSNOV74 R6JUN7S PROG 10 404~2 © 
EC NO. 824765 824870 825057 PAGE 1 EC NO. 824765 824870 825057 


PAGE aA 


eooe 








IBM MAINTENANCE DIAGNOSTIC PROGRAM PARTY NO>o 5558776) 


184 MAINTENANCE DIAGNOSTIC PROGRAN PART NOe §$558776 
PAGE 2 


PAGE 2a 


| 

\ 

4042 3741 DIAGNOSTIC FUNCTION TEST : | 4042 3741 DIAGNOSTIC FUNCTION TEST 
| 


ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT : ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
A 8 PRINT i & iS4& * 
eee a acces OaTC ay oc XLi°O18 155 #  seernre 
OATD 27 oA7D—s «BB oc ALI CIN2B-IN2AD 0805 3C 55 1C57 156 MVE CHAR» X*S5¢ START wITH $5 FIELD 
CATE 2401 OATF O89 pe AL2CIN2B) 0809 3C 34 1C5B 157 MVE RECCTReNUMREC NUMBER OF RECORDS TO WRITE 
OAB8O0 CO 87 O21A 90 8 PRINT 0B0D 3c %2 0016 158 MVI DOS1O+1 eSWRITE PRE PARE TO WRITE "2 
® e 189 
ae re oe = Feat iaeanees CBlL1 OC 00 1275 1C57 160 mvc BUFF 241271) 0 CHAR PROPOGATE °CHAR® THROUGH BUFFER 
0617 oc 7E 1274 1275 i6el mvc BUFF 2+126(€127) sBUFF2¢127 
abe ee Soni OAB7 = oe aust INec? OB1D OC 02 1C6B 1C68 162 myc SEQC3) sNUMONE INITIALEZE COUNTER CFOFOFI) 
oABC 01 osec— 85 pc xLL*O1° 0823 OC O02 11FB 1C6B 163 mvc BUFF 24+5(3).SEQ PUT COUAT INTO BUFFER 
OA8D 27 oasD 96 oc ALI CIN2D—IN2C) | 164 
OASE 144F oAesF 97 oc AL 2CEN20} Ie ae 164 
0A90 GO 87 O21A 98 8 PRINT Drafp. ie = WRITE CCCP 
0a94 02 0A94)— 989 oc xL2°02¢ 
is 0829 167 wLooP EQuU) * 
Dace cave pes ion ec ae ne og29 oC 7F 11FS 1275 168 MvC  _- BUFF14127(128).BUFF2¢127 = MOVE PATTERN BUFFER TO 1/0 BUFF 
oB2F CO 87 OCA3 169 8 Rw 
aa ee oY Be Gere oagoc os ae oe eks ' 0833 OF OO 1C58 1C48s 170 SLC RECCTRC1).CNE DECREMENT RECORD COUNTER 
OA9D 27 OAGD 104 oc ALL LASTRKL-“ASTRKS) 0839 F2 81 OC 171 JZ ENDe ExIT LGoP WHEN ALL RECORDS wRITTER 
OASE 149D OASF 105 pc AL 2UASTRKI? 0B3c CO 87 OEB2 172 8 CHGBUF CHANGE pee : 
cane co ey oats ee 8 i Geren oo eee =a a ea 
OAAG 01 OAAS 107 oc mL1202° 
- 0648 175 ENDS EQU 2 
ae nen eae ree a a pei 0848 CO 87 OFBC 176 8 GETENT wAIT FOR INTERRUPT CREACD MODE) 
OAAB CO B7 OZ1A 110 B PRINT oBac FS 43 50 L177 s1o0 REOJERSR oSCTLI RESPOND EQN AND SENSE RESPONSE 
oAAc 02 OAAG 131 pc XLL*®O2* | ORB¢F F3 40 04 178 sio SDISABe SCNTRL DISABLE INTERRUPTS 
OAAD 27 QAAD 112 pc AL2 CASTRKI“ASTRKS) = oes2 CO 87 0856 i79 S « #4 
OAAE 149D OAAF 113 pc AL2CASTRK1} | &: 
0ABO CO 87 O21A 114 B PRINT 
OABS 12 OABS 115 oc mLien2¢ 
OABS CO 87 O2Z1A 116 8 PRINT | & 
QABe O62 CABO 117 pc XL1*O2¢ | 
OABA 27 OABA 118 pc AL AC ASTRKI-ASTRKS? - 
OABB 1490 oasc 119 oc AL2CASTRKED 
— 9ABD CO B7 021A 120 6 PRINT | . ae ae 
OAc’ 01 OACL 121 oc MLitoLe | 
OAC2 27 OAc2 122 oC ALI CIN3SB-IN2XC? | & 
Oac3 1539 oacs 123 pc AL2CIN3B) 
OACS CO 87 O21A 124 8 PRINT | 
oace 02 oac9 125 pc xL2°02° | € 
OACA 27 OACA 126 oc ALI CINS-IN3B? | 
OACB 1560 Oacc 127 oc AL2CIN3) 
OACD CO 87 O21A 126 8 PRINT | € 
Oadl 01 OAD1 129 pc miaeoie 
OAD2 27 @AD2 130 oc ALI CINGA-IN4B) 
OAD3 1SAE Q0aD4 131 oc AL2CINGA: | & 
OADS CO B87 OZIA 132 8 PRINT { 
OADS 06 OADe 133 oc XL1°06° | 
OADA 27 OADA 134 oc AL 16 IN@-ENGA) @ 
OADB 1505 Oapc 235 oc AL2EINGS 
OADD CO B7 0222 136 8 HALT 
OAEL 40F2 OAE2 137 HTFL pc ML 2°40F 1° BAIT FOR CE TO PREPARE 3741 | G 
138 | 
OAEB 31 45 1C4C 139 LIQ  ZERO»sLOTR LOAD DATA TRANSFER REG wITH 0000 : 
OAE7 30 43 1C7C 140 SNS  SNS3,SLINES SNS 10 TRANSFER LINES & 
OAEB OD O14 ICTC IC4E 141 cLc SNS3(2) oXF900 IF F900. wRAP CONNECTOR STILL ON> | 
OAF1 F2 01 12 142 JNE  WRPOFF IF WRAP CONN IS OFF. JUMP (CONT INUED | 
OAF4 CO 87 O21A 143 8 PRINT SPACE 6 .& 
OAFS 16 CAFS 144 oc XL2°26° 
CAFS CO B7 O21A 2145 B PRINT TELL HIM #RAP IS STILL ATTACHED> 
OAFD 02 OAFD 146 oc xL1°02° | & 
OAFE 4F OAFE 147 oc AL 1(MSG22-MSG22B) 
OAFF 1ACE 0B00 148 oc AL2(mSG22? 
080i CO 87 0A21 149 8 BEG | & 
0805 150 WRPOFF EQU) + 
151 | 
152 # 9 -oene-= €: 
153 * SET UP FOR wRETE LOOP | 
I £95; 
DATE Q1AUGTS ISNGV74 16IUN7S PROG ID aca-2 DATE OLAUG74 1 SNOV74 16JUN75 PROG ID 204-2 
EC NO. 824765 824870 825057 PAGE 2° EC NG» 824765 824870 825057 
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4042 3741 DIAGNOSTIC FUNCTION TEST 


ERR LOC GBJECT CODE 


oBsé 
OBSA 
O8SE 
oBSF 
0B60 
0B62 
0864 
0868 
0869 
OB6A 
oB6C 
ca7o 
oB7, 
oB72 
OB74 
0878 
B79 
OB7A 
oB7C 
0880 
0asi 
088s 
0886 
0687 
0669 
0880 
oBsE 
oger 
0891 
oBes 
oBS6 
oB97 
0899 
oaso 
OBE 
0B9F 
CBA: 
OBAS 
OBAS 
OBAA 
0848 
ORAC 
OBAE 
oB62 
oBB3 
0686 
0886 
OB8BA 
oeeB 
opec 
0 BBE 
sce 
oBCc3 
oace 
cBc6 
CHCA 
98ce 
oscc 
OBCE 
0BD2 


08D4 


DATE 
Ec non 


3C FF 
Co a7 
42 

27 
149D 
40F2 
CO 87 
02 

26 
1624 
co a7 
02 

27 
13DA 
co 87 
01 

27 
1490 
co 87 
12 

£0 87 
1 

27 
243 
co 87 
G1 

27 
14E8 
co 8? 
G2 

27 
1512 - 
cu 87 
ol 

27 
149D 
co 67 
12 

co 87 
22 

27 
149D 
co 87 
03 

27 
1539 
co a7 


27 
2587 
co 87 
ol 

27 
SAE 
co 87 
06 

27 
1505 
co 87 
40F2 


3c 34 


1cso 
O2Z1A 


C214 


O21A 


O21A 


O2iA 


Q2la 


O2R4 


O2tA 


G2ia 


G2ia 


O24 


O2iA 


G2iLA 


O21& 


O2iA 


Q22e2 


icss 


O2AUGTS 


824765 


ADDR STMT SOURCE STATEMENT 


O&BSE 
OBSF 
0863 
0863 


oB6é8 
0B69 
0668 


0870 
OBFa 
oB73 


oB78 
oB79 
0878 


oBeo 


o8ss 
0686 
c883 


O0BSD 
OB8E 
OBSO 


2895 
0896 
oBss 


oB95 
OB9E 
OBAO0 


OBAS 


OBAA 
OBAS 
OBAD 


9BB2 
c8s3 
0388s 


OBBA 
c8Bs 
©BsD 


oece 
08c3 
oBecs 


OBCA 
oBce 
oaco 


0803 


1SNOV74 


218i 
182 
183 
184 
iss 
£86 
187 
188 
289 
190 
191 
192 
193 
194 
19S 
196 
i197 
198 
i99 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
2413 
214 
21S 
216 
227 
2138 
219 
226 
221 
222 
223 
2246 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
246 


* 
* 


HTF2 


SQ #an 


165UN75 
625087 
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PART NO. 
PAGE 


READ S2 RECORGS AND COMPARE VALUES AS WRITTEN 


MYVI 
8 
oc 
BC 
oc 
oc 
B 
oc 
oc 
oc 
6 
oc 
ac 
oc 
8 
oc 
oc 
oc 
8 
o¢ 
8 
oc 
oc 
oc 
8 
oc 
oc 
oc 
8 
oc 
oc 
oc 
8 
ac 
oc 
oc 
3 
oc 
38 
oc 
oc 
ac 
8 
oc 
oc 
oc 
B 
oc 
oc 
oc 
B 
oc 
oc 
pc 
5B 
oc 
oc 
oc 
8 
oc 





EXPFLGs X°FFe 
PRINT 

XLE °428 

AL LCASTRKI~ASTRESS 
AL2CASTRKID 
KL2°&GOF2¢ 

PRENT 

XLE%92° 

AL 1€HO2—-1D 2B) 
AL 2{HD2Z? 

PRINT 

XLE*O2Z* 

ALAC INLX~ENL ASD 
AL2ZCENE XD 

PRINT 

XL2°O3° 

ALAC ASTRKL-ASTRKSS 
ALZCASTREKE J 
PRINT 

wL EE Lae 

PRENT 

MLZ° O36 

AL LC IND XA- IN2KB } 
ALZCIN2X AB 
PRINT 

XLE*QRe 

AL ICI N2xX~IN2XA} 
AL 2CIN2X} 

PRINT 

xLa*Ge* 

AL SC IN2XC~ IMSXB 
AL2tENaxc) 
PRINT 

XL2 9G Le 

AL LCASTRKI-ASTRKS} 
AL2tASTRKI 
PRINT 

42229 

PRINT 

XL2 6026 

AL LCASTRKI~ASTRKS) 
AL2ZCASTRKI) 
PRINT 

mam £9022 

aL.2 CINZE-ENZXC) 
AL 20 EN3B) 

PR INT 

*xL2*9O2° 
ALICINSX~IN3) 
AL.2UCIN3SX } 

PRINT 

ML aeoie 

ALI CIN@A-INGB) 
AL2C INGA? 

PRINT 

XL2*O68 

AL. 10 IN@— INGA) 
ALZ2CING) 

HALY 

M.2°40F 2* 


SET UP FOR READ LOOP 


MV 


RECCTR ea NUMREC 


EXPECT AND INT 


NUMBER GF RECORDS TO BE READ 


PROG ID 
PAGE 


{ 
! 
i 


5558776 


3] y. 


nearer annapntesetee en teeestremarennmre Os 
“ne 


€; 
&3 


® © 


© 0 0 8 6 


404-2 


@00 
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4042 


ERR tac 


opo0s 
osoc 
OSEO 
OBE6 
oBEC 
OBF2 


GOBFS 
OBFC 
oco2 
oce6 
ecoc 
oC%90 
OCis 
ocis 


ocic 
oc 206 
GC24 
&C26 
. O26 
Ooc2F 
9C36 
oc3i 
oc33 


6c3s 
9C39 


6C38 
OC3E 
ec4i 
oces 
aces 


DATE 
EC NGo 


GBJECT CNOOE 


3c 
3c 
oc 
oc 
oc 
oc 


ce 
oD 
co 
OF 
co 
co 
ce 
co 


co 
30 
38 
F2 
co 
cé 
4F 


41 
ss 
oo 
7E 
92 
o2 


87 
7F 
Ox 
oo 
8% 
87 
87 
37 


87 
43 
6&8 
io 
87 


i9BA 
408A 


co 


8&7 


408A 


F3 
FS 
co 
ce 
Qo 


40 
4&3 
8? 
87 


ODis6 
ics7 
127s 
1274 
icé6s 
323F8 


OCAZ 
1iF5 
OF O01 
1css 
ocic 
OEB2] 
CBFS 
ocec 


oF ac 
i1c7c 
ic7c 
ao 

O21A 


6222 


04 
oa 
6C4s 
0224 


O1AUGTS 


822765 


1CS7 
1275 
1c6s 
1C66 


3275 


1648 


L1SNGV?T 
824870 


3741 DIAGNOSTIC FUNCTION TEST 


PART NGe SS58776 


PAGE 3A 
ADOR STMT SOURCE STATEMENT 
249 MVI DOS1043¢SREAD READ 
250 MVE - CHAR» X*558 START EXPECTING 55°S 
251 MVC SUFF24127(1)>6CHAR 
252 MVC = PUFF 24126(127) eBUFF24¢127 PROPAGATE CHAR 
253 MVC  SEQ(3) eNUMONE INITIALIZE COUNTER (FOFOFL) : 
254 MVC BUFF245(3)6SEQ PUT COUNTER INTO BUFFER 
255 
256 * READ LOOP 
257 
256 RLOGP 8B Rw READ RECORD 
259 CLC SUFF14+127(126).8UFF24127 COMPARE READ AND EXPECTED DATA 
260 BNE CMPER : 
261 SLC RECCTR,OAE 
262 Bz ENOR QUIT WHEN RECORDS READ 
263 8 CHGBUF CHANGE PATTERN IN BUFFER 
264 8 _RLoOP 
265 8 8o4 
OCiC 266 ENDR E£QU #4 
267 3 GETINT WAIT FOR INTERRUPT (REAO ODE) 
268 SNS  SNS3ceSLINES SNS I70 TRANSFER LINES FOR EQs 
269 TBN SNS3,E0S IS END OF 308 CLINE UP. 
270 JT EGS ISU 
271 8 PRINT EOJ NOT UP AFTER ALL READ BACK 
OCc2F 272 pc xLI1®C6F 
OC30 273 pc AL 1€M@SG12-MSG128) 
ac32 274 Dc AL2¢MSG12) 
CC38 275 oc X_2°608A5 
276 
27? 5 HALT 
OC3A 278 HTBA oC XL 2°408A* 
0c38 279 EQuISU Equ- + 
280 SIG  SDISAB,SCNTRAL CISABLE INTERRUPTS 
28: SIO  REsSCTLI RESPOND TO EOU | 
282 8 aoe 
283 B LoaD TERMINATE ———— 
S049 288 are xLa°oor NORMAL, 
4 ‘$6SUNTS PROG ID 404-2 
825057 PAGE 3A 
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4042 3741 DIAGNOSTIC FUNCTION TEST 4042 374i DIAGNOSTIC FUNCTION TEST 


ERR LOC OBYECT CODE ADDR STMT SOURCE STATEMENT 





ERR LOC OCBVECT CODE ADOR STMT SGURCE STATEMENT 


286 £99444 S55 24% ¢ 334 $eSRHESES TREE 


287 * RTN 02 * 335 * Rw * 
<88 RKRKKECKKEKKSERKSEKSCKKASSE SREVSRSCSSSSEBSECES ; 336 RPSSSERMKS LH SEAKVRERTL SKK HK SSARASKKKSHE KHLKK SSH SREKSSE SESE SS 
289 Poe 337 * READ OR WRITE ROUTINES * 
OC4A 02 OC4A 290 RTNOZ2 OC XL2SO2? ROUTINE NO> . 338 * READS OR WRITES OUE TO PREV ICUS SET UP OR % “ 
0C4B 60 0c4sB 291 Dc XL1°80° MANUAL INTERVENTION 339 * AS SET UP aT 3743 (SEE JRW JUMP) * 
OC4C FFFF oc4ap 292 oc ML2°FFFFe THIS IS LAST f 3O0 FERRER EREE TEE SESEERGERS HS OS SESKAHSE SOSER AST SE SSOKH SR TSS 
293 ; 341 
OC4E 3c OF OcDO 294 MVE JRWH1 eX O78 SET UP SQ PROGRAM SELECTS READ OR WRT OCA3S 34 08 ODFC 342 RW ST RWR+3 ARR SET UP RETURN 
ocS2 CO 87 O21A 295 B PRINT ROUTINE 2 HEADING OCAT CO 87 OFEC 3a3 8 GETINT WAIT FOR INTERRUPT 
0C56 46 0C56 296 oc xL2%460 344 
OCS? 77 ocs? 297 DC AL’ CHOS—HD3B) OCAB 30 43 1C7C 345 SNS SNS3,SLINES SNS EO TRANSFER LENES 
ocS8 1698 0c59 298 DC AL 2€HD3) OCAF 39 FC 1C7C 346 TBF SNS32X® 80" ¢EDS+BIPE+EORtEQJ+AT INVALIO REASON FOR INTR ® 
OC5SA 40F6 0CcSB 299 pc xL2°40F8? CCB3 CG 30 GDFD 34? BF STATER IF NOT OFFe GO PRINT STATUS ERROR 
OCSC 38 04 020A 300 LoGP2 TBN SBYTE2.SSWiS IF SSW 15 IS ON» DON®T HALTe 348 
OC6G F2 10 06 301 JT KEEPON CcCB7 32 O4 ACFE 349 TBN —SNS3—-15X*04? IS THES THING ON-LINE 
0C63 CO B87 0222 302 8 HALT ALT BEFORE EXECUTION OF RYN oces co 90 10Cc? 350 BF OFFLUN 
OC67 40F6 0Cc6e8 363 HTF6 oDC ML 2*@0F 6? _ 353 
304 f 352 * MAKE SURE ONE ANDO ONLY ONE MODE IS ONo 
OC69 3C FF 1C50 305 KEEPON MV EXPFLGsX °F Fe EXPECT INTERRUPT OcBF 38 O03 ic?7é6 353 TEN SNS3-1,X*%03° SEE IF BOTH READ AND BRITE MODE ON 
0C6D CO BF OCAZ 306 8 Re DG READ OR BRETE ecc3 co 10 1059 354 eT BADHMOD STATUS ERROR IF BOTH ON 
Oc72 F3 40 04 307 sia SDISABe SCNT AL DISABLE INTERRUPTS occ? 39 03 1¢7B8 355 TBF SNS3—-1eX*93°* SEE If BOTH READ AND &RITE MODE OFF 
OC74 3D 41 0016 308 cil DOSiO+i » SREAD If WE READ. PRINT RESULTS occB co 10 1059 356 BT BADMOD STATUS ERROR IF BOTH OFF 
oc7e co 81 9c8s 309 BE RODONE 357 
oc7c CO 87 021A 310 8 PRINT WRITE WAS DONE 3 357 
ocso 06 oceo 321 pc XL1° 06° 357 
ocs1 4F ocsl 312 oc AL1(HOS-HOSB? 358 * SELECT SET UP AS PER PROGRAM OR AS PER 3741. JUMP IS ALTERED. 
oce2 1761 ocs3 313 DC AL2¢€HDS? Cc OCCFE F2 06 12 359 JRW Jc EXT et—# 
ocee Co a? ocsc Bie 8 .LoPr2 im 360 
315 360 
3:5 € 360 
0CBB CO &7 O2iA 316 RDDONE B PRINT 36i * SET UP READ OR WRITE ACCORDING TO 3741 (READ OR WRITE ES ON) 
ocsc 02 ecac «317 pc MLIL®o2e oco2 3c @2 op16 362 MVE DOS 1041. SWRITE 
oc8o 77 oceo 314 pC AL 1€ HD4-HD482 i ¢ ocdD6 BE OL 1C7B 363 TEN SNS3-1eX*O1* IF READ MODE ON (S/3 uRETE} 
OCBE 1712 ocaF 319 oc AL 2 (HDG) | OCDA F2 10 29 ; 364 JT MODE OK rere 
320 ee 365 
OC90 OC 7F OBFF AIFS 321 mvc X*SFF°( 528} .BUFF 14127 PUT SUFF IN OCP PRINT SUFFER phate OCDD 3C 41 OD16 366 Mv DOSIO+i » SREAD 
0C96 CO BF O214 322 8 PRINT i OCEL F2 87 22 367 J *ODEOK THEN CONTINUE READ 
OC9A 22 OC9A 323 pC ML1e22° | 268 
OC9B CO 87 10DF 324 8 DUMP £ PRINT BUFFER EN HEX & 368 
OCOF CC 8&7 oOCcsSC 325 8 Loor2 GO BACK 368 
326 * ie OPEN/CLOSE DISK 2c FeSeLOWER CHAR ADV 3. 43-~~-128 369 * SET UP READ GR wRITE ACCORDING TO PROGRAM 
327 * 4. FeS.LOWER x S» TYPE MESSAGE Geo FeSelLOnER WN | Cc" OCE4 3D 42 0016 370 ExT cul DOS 1041 SREAD IS THIS A READ $10 
328 * Ge FIELD COR o> feo OCES F2 81 OF 371 : JE ESREAD 
329 © | OCEB 372 ISt#RIT Eau * 
330 * le FoSsiOWER CHAR ADV 2. FeSeLGWER ¥ Zo FIELD COR <==-- € OceB 38 O02 1C7B 373 TBN SNS3~1ex*O1? MAKE SURE READ MODE ON 
331 * eae OCEF 39 02 1C78 374 TaF SNS3—1eX*02¢ AND WRITE MCDE OFF 
332 8 | OCF3 CO 30 OF43 375 BF SETER 
| fs OCF7 F2 87 OC 376 J MODEGK IF OKe GG ON 
377 
\ OCFA 278 ISREAD EQuU % 
| OCFA 38 02 1C7B 379 TBN SNS3-12X*02° MAKE SURE 3761 @RETE MODE ON 
OCFE 39 01 iC76s 380 TBF SNS3710X*O1° AND READ MODE OFF 
: opo2 CO 90 OF43 382 BF SETER . 
| cs 382 
| 382 
382 
ee 0006 383 MODEOK EQU + 
7 0D06 F3 43 08 384 SIG REeSCTLI RESPOND TO WRITE/READ MODE 
OD0S BL 42 1072 385 Lio LENGTHeLLCR LOAD LENGTH COUNT REGISTER (7F) 
be OD0D 31 44 1278 386 ito BUFF1@eL CAR LOAD DATA ADORESS REGISTER 
: 0032 3C FF 1C50 387 MVi EXPFLG.X*FF° EXPECT AN INTERRUPT 
3868 
Cc 389 * wee ene ewe 
- 0015 F3 00 00 390 DOSIQ sia X° 008 .#—*% SIQ TO READ OR WRITE 
39% * mee new ee 
c 0618 3C 02 OEAS 392 BLP MVE WSEC 02 wAIT 2 SEC FOR NOT SUSY (1 RECORD?) 
OD1C CE 42 CD23 393 WAITBY TIO ISSSV eTBSY GRANCH IF BUSY 
& 
DATE CLAUG7TS LSMNOV?7S L6JUNTS PROG ID 404-2 DATE C1LAUGTS 1SNOV74 L6JUN75 PROG ID "04-2 
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en 18M MAINTENANCE DIAGNOSTIC PROGRAM EAT NGS:.- Pee Te: LBM MATRIENANCE (OL AGRI GELS AROGRAN ee ore 
4042 3741 DIAGNOSTIC FUNCTION TEST SOSe) (STS DIAGNOSTIC, FUNCTION TEST 
s 
ERR LOC OBYECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
5030S. eF Oc 394 4 siover CDAB CO 87 GESA 461 wl B WAIT WAIT 1 SEC 
0D23 CO 87 CESA 395 ISBSY 8B WAIT “AIT COAF CO 87 0087 462 3 *+8 
oD27 CO 87 OEED 396 B TOOBSY SWAIT® COMES HERE IF TIMEOUT 0DB3 CO 87 ODAB 963 6 wi 
co28 CoO 87 oDIC 397 8 wAITBY *WAIT® COMES HERE NORMALLY 464 
OD2F 398 SNOTBY EQU * COB7 F3 43 10 465 S10 RSR»SCTL1 RESPONSE TO LCR ERROR . 
CO2F Cl 42 OD2F 399 TIO *, TBSY 466 
0D33 CU 87 OFBC 400 8 GETINT WAIT FGR INTERRUPT ODBA CC 87 C2l1E 467 B UNF ACK SET UP FOUND LCR VA)LUE 
401 CDSE 01 ODBE 468 c RLie.e 
402 ODBF 1C7A OnNCG 469 oc AL 2(SNS2) 
0037 30 43 1¢7¢ 403 SNS SNS3eSLIKES SNS I/0 TRANSFER LINES vOC1 191C obC2 470 oC AL2Z{MSG9) 
0038 OC 01 1C7A 1CB2 404 MVC SNS2(2), SNS2I MOVE IN SNS AS PICKED UP IN INT RTNe 471 
405 ODC3 CO 37 O21A 47z 8 PRINT 
0041 3C FF 1C50 406 MVIo  -EXPFLGexX*FFe EXPECT NEXT INT oDCc? Ci sbe7 473 oc xXL1°Ccie 
407 * CHECK FOR NO-OP cocs 33 oocs 474 oc AL 10MSG9—MSG98) 
408 COCs 191C ODCA 475 oc AL2(MSG9) 
0045 38 04 1C79 409 TBN  SNS2-10X*C4? CUIT IF NC-OP BIT ONe ODCB 4086 opcc §=476 al XL2°4088° 
CD49 CO 90 OD60 410 BF NOGPOK CDCD CO 87 C2LA 477 8 PRINT *NOTE- LENGTH MUST SE 128 ees*® 
ait ODD1 86 0001 478 oc XL1°86* 
CD4D F3 +3 50 412 SIC  RSR+REOS+SCTLI SENSE RESPONSE/EOJ nore te Sone. ate OS poet haces Mesere) 
0050 CO 87 O21A 413 8 PRINT NO-OP'D SIO 0b03 199 OD04 480 Oe AL 2(MSG27) 
p54 cé opse 414 oc XL1°c6* ODDS CO 87 0222 481 LCRHLT 8 bALT LCR ERRGR 
ODS5 28 0055 415 Dc AL1 (MSG6-MSG6A) Vee eee Mepe. Uabe ree: Be Roky SCRRs 
ODS6 189A OD57 416 pc AL2(MSG6) SREB NCS A, ORs ae3 5 Lehre 
0058 4082 ODS9 417 oc xL2°6082° 484 
418 484 
CDSA CO 87 0222 419 8 HALT 484 
CDSE 46082 ODSF 420 HT82 oc XL2*°4082° ODDF 485 CKEOR EQU * 
621 OODF 38 10 1C07C 466 TBN SNS3.E0R MAKE EOR 1S UP (CAUSING BUSY TO DROP) 
422 % CHECK FOR DATA TRANSFER PARITY ERROR ODE3 F216 10 487 JT AOK IF SOe GO ISSUE RESPONSE 
4 488 
623 
2060 38 08 1¢79 424 NOOPOK TBN SNS2-15X*085 DATA XFER PARITY ERROR ? ODE6 CO 87 O21A 489 8 PRINT "EOR NOT UP AFTER RECORD PROCESSED® 
CD64 F2 90 31 425 JF NOOTPE ODEA C6 QPEX . “490 oc eceatiocpad 
CO67 F3 43 90 426 SI:- _ RSR+BOPE.SCTLi SENSE RESPONSE / 8US GUT PARITY ERR CDEB 4F Oo—S 491 oc AL1(MSG26-MSG6266) 
CD6A CO 87 O21A 427 8 PRINT DATA TRANSFER REG. PARITY ERROR OOEC 1692 OPED ~ a2 DE AL 2(MSG2E) 
Se a ee RO a ee ODG6GE Ci ODG6E 428 oc xbL1°C1° OOEE 408F CODEF 493 oc XL2*408F ® 
OD6F 27 ODEF 429 oc ALI CMSGT<uSG7E) ODFO CO 87 0222 494 B HALT END OF RECORD (£0R) NOT UP AFTER 
CD70 18¢1 0D71 430 oc AL2(MSG7) ODFS soBF ODFS 495 HT&eF oc XL2*408F® RECORD HAS BEEN PROCESSED 
cD72 4081 0073 431 DC xXL2*°4081° 496 
CO74 3D 42 OD16 432 cL DOSIO+1 «SWRITE BAS THIS . WRITE (TO 3761) 497 +4 
CD78 F2 81 OF 433 JE PEWRIT 498 4% RESPOND TO SUCCESSFUL SIO 
OD7B 434 PEREAD EQuU * PARITY ERROR WAS GN READ 499 *=% 
CO7B CO 87 021A 435 8 PRINT *WHILE READING FROM 3741° S30 
OD7F 81 OD7F 436 pc xt1°B1¢ CDF6 F3 43 08 501 AOK Ss1o REsSCTL1 RESPONSE (SID SUCCESSFUL) 
0080 27 cDB80 437 oc AL 1€MS624-NS624B8) ODFS CO 8&7 OOD0 S02 RwR 8 —% RETURN TO CALLER 
cCo8l 161¢ 0082 438 oc AL2(MSG24) ' 
0D83 CO &7 OF23 439 8 EXPEND SO TELL HIM EXPECTED AND FOUND 
CD87 F2 87 08 440 J PEHALT i 
COBA CO 87 O2Z1A 441 PEERIT B PRINT SWHILE WRITING TO 3741° ; 
CDBE 86 ODSE 442 Doc XL1°868 ae 
OO08F 27 ODBF 443 oc AL. 10MSG25-MSG25B) ‘ 
CD90 1843 0091 444 pc AL2(MSG25) | 
445 | 
Ob92 CO 87 o222 446 PEHALT B HALT | 
0D96 40a} 0097 447 HTBl DC XL2°4081° \ 
448 
449 8 CHECK 1/70 TRANSFER LINES ! 
0D98 450 NODTPE EQU) «* ; 
451 ' 
0098 39 EC 1¢7¢ 452 TaF SNS3. X*80"+EDStB IPE+EQI+AT CHECK FOR STATUS ERRORS 1 
cDSC CO 90 OOFD 453 BF STATER IF NOT OFFe PRINT STATUS ERROR 
454 oO 
455 * CHECK FOR LCR ERROR 
456 
ODAO 3D FF 1C7A 457 CLI SNS2eX*FFe LCR = FF ? € 
ODA4 F2 81 38 458 JE CKEOR GO CHECK THAT EOR IS UP. 
459 7 
4s9 . 
ODA? 3C 01 OEA9 460 MVE WSECe} 
DATE . 01AUG74 1SNOV74 1649UN75 PROG ID 404-2 DATE 01AUG74 1SNOV74 16JUN75 PROG ID 404-2 
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4042 3741 DIAGNOSTIC FUNCTION TEST 4042 3741 DIAGNOSTIC FUNCTION TEST 


ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SQURCE STATEMENT 
SOL EROERAEREKHEARAREHSESSEE SE HASAEES ESE SE EAEEEHSE ESTEE RE | = : 568 
505 * SUBROUTINES * , OESA S69 WAIT EQU * 
S06 * * . OESA 34 O08 OEAS 570 ST WAITR4+3e ARR SET UP RETURN 
SOF KRKEKRHSERSETEREEERARHAERASERSEEEAE SE REESE EEE RE : OESE 30 09 OEAS $71 Cul WSEC.0 NEw COUNT VALUE 7? 
508 , OE62 F2 81 12 572 JE OLOSEC - 
508 OE£6S GC 01 OCEAB OEASD 573 MVvC WSECAC2) oWSEC PuT NEw SEC COUNT INTO WORK 
509 #9944 e eR SRS CE6B OF C1 OEAS OEAS 574 SLC WSEC( 2) 6 WSEC ZERO ThE MAIN SEC COUNTe 
$10 * STATER OE71 OC O1 OEAT OCEAD 575 MVC WCNT (2) 6 Wi 000 sET vP TO CO 1000 TIMES 
511 ESSE EKSAKEKS SEKSEKSEBSERSE OE77 CD FF OE7T OE77 $76 OLOSEC Ci. Cc *( 256) 5* wAIT 1 MILLI 
OCDFO 512 STATER EQu = OE7D OO 38 OE7D OEF7D $77 cL *( 600% 
ODFO 34 O€ OES9 $13 st STATRRt3 sARR SET UP RETURN © 0E83 OF 01 OEAT OCEAF 578 SLC WCNT( 2) 280001 CO 1000 TIMES 
OE01 F2 87 OB 514 EQSFLG JC STAT1 »X* 87° CAN BE ALTERED TC IGNORE EOJ ERROR O&89 F2 01 10 579 JNZ WAITRN THROUGH LOOP 
0E04 38 08 1C7C $15 TSN SNS3.EOGS IF ITS EOS GNLYs IGNORE OEBC OC O01 CEA? OCEAD 580 MVC — WONTC( 2), W10C0 SET UP TO DO ANOTHER 1000 MELLI SEC 
0608 39 F?7 1C7C 516 TBF SNS3,X*FF*~EOy OEG2 OF C1 OEAB OCEAF 581 SLC WSECAC2) »WO001 CECREMENT NUMBER OF SEC TO WAIT 
OEOC F2 10 47 $17 JT STATRR 3SE9B CO B81 OEA2 582 BZ wAITR IF IT TIMED QUT, RETURN OIRECTLY 
518 CESC CE 01 OEFAS OFS} 583 wWAITRN ALC WAITR4#302) eW0004 RETURN TO CALLER +4 
OEQF 519 STAT1 EQU * OEA2 CO B87 0000 584 wAITR 8 t—* 
CEOF F3 43 08 520 s1o0 RE» SCTL1I RESPOND 585 , 
CE12 CO 87 OF16 521 8 344 CEA6 QO000 OEA7 S86 WCNT pc xL2*00008 
OE16 CO 87 O2I1E $22 8 UNP ACK OEAB OGCO0 oEAQ SB7 WSEC oc XL2*oo000* 
OEIA 02 OFLA §23 oc i*2e CEAA 0000 OEAB S88 WSECA DC xL2°0000° 
OE£1B 1Cc7c OEIc S24 pc AL2(SNS3) OEAC O3E8 _O£AD 589 W1090 oc It2*1600°* 
CE1D0 1140 O£1E 525 oc AL 2CSTATXX) : OEAE COO1 OEAF 590 w0001 oDC w2eie 
OEIF CO &7 O21A 526 8 PRINT OEBO 0004 OEB1 591 wo00e OC Ir2*ae 
cE23 C2 0E23 527 oc xLaec2e : ave 
O£24 4F OE24 528 DC AL 1( STATMG-STATB) foe 592 
OE25 1175 0£26 S29 pc ALZ2(STATMG) ore 
OE27 4083 o&28 530 pc xL2*4083° STATUS ERROR 1 $92 
531 Pot 593 £4940 444448 
532 * | 594 * CHGBUF «* 
533 * SHIFT OFF BITS AND PUT IN MESSAGE DESCRIBING THAT BIT AND PRINT es 595 * * 
534 * : S96 ES OEEEEEE HEE EEE RE ERE AE EKEEEEE EEE SE EEEE EEE AEE ERS ERE SERED ER EEE 
535 * : 597 * CHANGE BUFFER FOR WRITE GR READe * 
o&29 C2 01 128C 536 LA STAB,» XR1 ; 1 £ $98 * PATTERN ~ 5S AA FF 01 00 SS AA FF 01 00) eee % 
a o&20 CC 01 1C6E 1C7C 537 mvc wORK(2),SNS3 PUT SNS3 INTO WORK AREA ears . SOD KEEREE KEE KEESER REESE SE CF ERSEKEE EERE EERE SERS AHS ERE ESTEE EER AR ERE —— 
OE33 OF OG 1C6E 1CoE 538 SPLOOP ALC = wWORK(1) o WORK 600 
GE39 Cd AO OE44 539 BOL SETPT IF THAT BIT 'S CNe GO PRINT OEB2 34 OF CEEC 661 CHGBUF ST CHGBUR+3 ARR FOR RETURN 
GE3D D2 O1 14 $40 LA SLEN( oXR13eXR1 OEBE 3D 01 1C57 , 602 cul CHAR X* 01" IF CHAR IS 01+ FORCE TO 00 
0O£40 CO 87 OF33 $41 8 sPLooP CONTINUE UNTIL BIT FOUND OEBA F2 01 O7 693 JNE CHG1 
OCE44 S42 SETPT EQU s / ' OEBD 3C 00 1CS7 604 MvI CHAR, X*0G* 
OE 44 34 01 OFGF 543 ST FaeXxR1I POINT TO LINE WHICH DESCRIBES BIT ; O€C1 Fe 87 OD ; 605 J NORAP DON'T OO ALC 
544 : OEC4 st6& CHGI £aQu * 
OE48 CO 87 O21A _ 545 ) PRINT wae 607 
OE4C 8&6 OE4C 546 oc xi 1°86* : CEC4 OF CO 1C57 IC4F 608 ALC CHAR( 1) e INCVAL 
CE4D 14 OE40 547 oc ALI CSLEN) OFCA F2 20 04 609 JNOL NORAP 
OESE co00c OE4F 5e8 PA oc AL2( 4-8) CECD 3c 01 1CS7 610 MVvI CHAR. X* 01° AFTER FF FORCE TO 01 FOR P SIT OFF 
. 549 OED1L 611 NORAP EQU * 
OESO CO B87 0222 550 B HALT ERROR OURING WAIT FOR R/W MODE OED1 OC 00 1275 1C57 612 MVC BUFF2412701).CHAR 
CES54 4083 CESS $51 HT83: Dc XL2*2083* . : CEO7 OC 7E 1274 1275 613 Myc BUFF24+126(127), ,BUFF24127 PROPOGATE 
$52 : OEDD 06 O02 1C6B 1C68 614 AZ SEQ(3)+.NUMONE INCREMENT ESCDIC RECORD COUNTER 
O€56 CO B87 0000 553 STATRAR 8B *— RE TURN OEE3 OC O02 11FB 1C6B 615 avCc BUFF245(3),SEQ ANO PUT IT INTO SUFFER 
554 i 616 
§54 OEES CO 87 90000 617 CHGBUR B en % ‘ RETURN TO CALLER 
554 . 618 ie : ; 
554 c 618 
555 eeecennusen . 618 
S56 * WAIT * 618 
SST CFOS EE EH ESE TEESE SES OE HEREAEKEES ESE SEEKS : $ ; €- ‘ , ; 619 £EREEESESEE 
558 * SUBROUTINE WAITS 1 MILLI SEC PER CALLe AFTER EACH SEC IT “Fey 620 * TOOBSY * 
559 * DECREMENTS SECONO COUNT. i 621 ERREREHEEEEEEEEE SETHE EESESERERE 
S60 * SAMPLE LINKAGE ~-= - c. J 622 * BUSY TOG LONG (TIMEOUT) * 
$61 * me , oe 623 * . ta 
562 # MMVI WSEC.S BEFORE LOOP, SET UP # OF SECONDS O24 HERSEEEEESESEEE SSE EES EESESESESS 
$63 * Loop 8 WAIT <--- LINKAGE TO TIMEOUT ROUTINE neaike 625 
S60 * 8 TIMQUT <--- WAIT RETURNS HERE FOR TIMOUT : OEED 626 TOGBSY FQU + 
56S * 8 Looe <--- WAIT RETURNS HERE NOMALLY OEED CO 87 O21A 627 8 - PRINT BUSY TOO LONG 
566 * : CEFI C6 OEFIL 628 oc xL1*C6* 
SOT FEE SESKEEDE EARS AKERS SEEESESEESE EES EERERERE s CEF2 27 OEF2 629 DC —s- AL. 104 SG1§-4S6158) 
5 i € 
DATE O1AUGTS 15NOv74 165UN75 PROG ID 404-2 #8 DATE G1AUGTS 1SNOV74 16JUN7S PROG ID 404-2 
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18M MAINTENANCE DIAGNOSTIC PROGRAN PART WG. 5558776 I5M MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 5558776 
PAGE 7 PAGE 7A ‘ 
4042 3741 DIAGNOSTIC FUNCTION TEST 4042 3741 DIAGNOSTIC FUNCTION TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
CEF3 1A2F GEF4 630 pc AL2(MS615) OFSA CO 87 O21A 689 PRD B PRINT *SET UP ERRORe XXXXX MODE EXPECTED. 
CEFS 408E OEF6& 631 oc XL2°408E* OFSE C2 OFSE 690 DC XLisc2s 
OEF7 CO 87 oO222 632 B HALT OF SF 4A OFSF 691 oc AL1(MSG3-MSG638) 
OEFB 408E OEFC 633 HTBE  01C XL2*408E¢ OF6O 1822 OF61 692 bc AL 2(MSG3) 
CEFD CO 87 ON1e 634 8 BLP GO BACK THROUGH BUSY LOOP AGAIN © OF62 4085 OF63 693 oc xL2°4085° - 
635 694 . 
635 OFSGS 38 01 1C78 695 TEN SNS3-16X*O18% READ AUDE ON ? 
635 OF68 F2 90 08 696 JF RDOFF 
635 OF6B CO 87 O21A 697 8 PRINT PRINT REAL MODE FOUND ON 
636 HARK EKER S OF6F 86 OF 6F 698 oc XL 1*868 
637 * CMPER * : OF 70 28 OF70 699 DC AL. 1 (MSG4-MSG4B) 
63GB FARRKARARHEKE SE HKSAR RARHEERERE OF71 184A OF72 700 oc AL2(MSG4) 
639 * CGMPARE ERROR * ” 701i 
640 * * OF73 702 ROGFF EQu * 
C41 HHRERR ASEH RE AKE REE SHERARBERDR SF73 38 O2 1C7B 7o3 TBN SNS3-1.X*O62! WRITE MODE ON ? 
642 OF77 F2 90 08 704 JF WTOFF 
GCFOL 34 08 OF22 643 CMPER ST CMPERR+3eARR FOR RETURN OF7A CO B87 OC2iA 7e5 8 PRINT PRINT WRITE MODE FOUMD ON 
CFOS OC C2 1943 1668 644 Myc MSG10¢€3)+SEQqQ PUT IN RECORD NUMBER OF7TE 86 OF7E 706 DC XL1*86t 
CFOB CO 87 J2iA 645 B PRINT CQGMPARE ERROR GN RECORD XXX 2 OF 7F 28 OF7F 707 oC AL 1CMSG5-MSG5B8) 
OFOF Ce OFOF 646 oc XLifc2¢ OF BC 1872 ore 768 oc AL2(MSG5) 
OF 10 27 OFIO 647 oc ALi (MSG1O0-MSG10B) 7909 
CF1l 1943 OF 12 648 pc AL2€MSG103 OF 82 CO 87 0222 710 WTOFF 28 HALT SET UP ERROR 
CF13 4089 CF14 649 oc XL2°40898 OF 36 4085 OF87 711 HTEeS oc XL2*408ese 
OF 15 CO 87 OF 23 650 8 EXPFNOD PRINT EXPECTED AND FOUND DATA OF88S CS 8? CODD 7i2 SETERR 8 awe RETURN TO CALLER 
OF19 CO 8? O222 651 B HALT COMPARE ERROR é 713 
GF1D 4089 SOFIE 652 HTa9 oc xXL2*é40s¢e . 7i3 
CFiF CO 87 OGOO 653 CMPERR B a= RETURN . 713 
654 - 713 
654 714 exe eee annese 
654 725 * GETINT « 
Bex i CLG PHRASE CTA RERRSHEAKHSSKERKS 
655 €ESReRSHERE 7 7iv « WAIT FOR AN INTERRUPT * 
656 * EXPFND »# 718 # * 
657 SEA A AEE eR ee a ee a Se a a a aR ae ak a oe yo ea a ah ak a ak a ge oe Sako oa Rk ee 1 Cc FLD SRA SHHASH ARE HLS ERT ARARARAREE : 
aE Op ee ee 658 * PRINTS EXPECTED (¥RITTEN} DATA AND FOUND (READ) DATA = 35 : 720 OTR 
659 * OF8C 34 08 1013 721 GETINT ST GE TR+3sARR FOR RETURN 
660 SEEGER ERR REE RO EE TE Ae AREER EE HK BREE TE REO OF 90 3C G7 DEAS 722 MVE wSECa7 wAIT 7 SEC FOR INTERRUPT 
661 OF94 3D CS 0200 723 CLI CPUsC8Ee IF THIS IS MODEL "E* (15) ENASLE INT 
OF 23 34 CB CF42 662 EXPFND ST EXPFNRt3 ARR FOR RETURN i GF98 F2 81 23 724 JE HNGINT 
OF27 CO 87 O21A 663 B PRINT CATA WRITTEN _ F2s 
OF2B 81 OF2B 664 DC XLESBLe 726 * WAIT FOR INTERRUPT PENDING 
OF 2C 28 OF2C 665 Dc 4L 1 (MSG20-MS626B) | CF9B 30 42 1IC7A 727 HNGPND SNS SNS2.SSTAT 
OF 2D 1A57 OF SE 666 DC AL2(MSG20? | OF OF OC OL 1C82 1C7A 728 MVC SNS21€2)eSNS2 SIMULATE SNSING IN INTERRUPT ROUTINE 
CF2F CG BF? 1103 667 B DUMP 2 OUMP EXPECTED BUFFER j OF AS 38 20 1C€79 72g TBN ENS2~—1_,X*2C08 IS INTERRUPT PENCING BIT GN ? 
OF 33 CO 87 O223A 668 B PRINT CATA READ ' OFAS F2 i0 OC 730 JT INTOC : 
OF 37 81 OF3? 669 oc AL 1°e1° OFAC CO 87 OESA 731 a wAIT WAIT UNTIL IT DOES 
OF 38 28 OF38 670 ele AL LOMSG21~-MSG2!163 i oFBG CO 87 OFES 732 8 NOLERR 
CF39 1A7F OF34 671 oc AL2(MSG215 i OF 54 CO 87 OF9B 733 B HNGPND 
OF 38 CO 87 100F 672 8 DUMP A DUMP DATA READ BUFFER : OFBB F3 40 O1 734 INTOC 510 SRESET+ SCNT RL RESET IY wHEN IT COMES 
OF3F CO 87 2000 673 EXPFNR B *—% RETURN CFS Fe BF 1A 728 J PEND 
674 i 736 
674 i ¢ CFB8E 737 HNGINT ZQU * 
O74 SFBE 35 86& icCs3 738 & INT5@,1 ARS LOAD INTERUPT S JAR, 
674 CFC2 F3 40 o2 739 S10 SENABeSCNTRL ENABLE INTERRUPTS 
675 *tOaGeaaene i¢ 740 
676 * SETER * ; OFCS 30 FF 15a 74% HNGIT CLI INTFLGeXtFF®e INTERRUPT RECEIEVED YET ? 
OFT FAERHNKAE KARE OHAK KER EKSKKBERSS OFCS F2 83 OC 742 JE PEND : 
$78 * SET UP ERROR ROUTINE * . CFCC CO 8? OESA 743 8 wALT WAIT TL IT DOES 
879 «* * . CFDOC CO BY OFEO 74S & NOTERR FIME OUT 
CBG HFA HH ENE EERE ERTS WS ARK R : CFDS CO 87 OFCS 745 6 HNGIT LOGP BACK 
681 f 746 
OF 43 34 68 OF85 682 SETER ST SETERRt324RR FOR RETURN 1A 746 
663 OFDS 3C 00 1C5A 747 PEND MV I INTFLGsX*00* CLEAR INT FLAG 
OF4S7 OC G4 ILTFA 1c3B. 684 MVC MSG3A(S9 eCREAD ASSUME READ (5/3 WRITES) ; OFOC CO 87 10:5 748 5 GETR GQ RETURN TO CALLER 
CF4D 3D 42 oOD16 685 cul DOSIO+4 eSWRITE WHERE WE IN A WRITE a 749 
OF51 F2 81 O06 686 JE PRD ' 49 
687 e 750 * FIRSY SEE IF ON LIWEs 
OF 54 GC 04 17FA 1040 688 MYC MSG3A(5).CWRITE ASSUME READ (S/2 WRITES) OFEG 30 63 ic7c 751 NOIERR SNS SNS3e SLENES SNS 1/9 TRANSFER LINES 
c 
DATE O1AUG7TS ISNOV 7S 16JUN7S PROG 1D 404-2 ~ DATE OLAUGT4 1SNOV74 16 JUN7TS PROG ID 40G—2 
EC NO. 824765 824870 825057 PAGE 7 EC NGe 824765 S$2%870 825057 PAGE TA 
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QM 








IBM MAINTENANCE DIAGNUSTIC PROGRAM PART NO~ 5558776 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5558776 
pace’ 8 PAGE BA 
4042 3741 DIAGNOSTIC FUNCTION TEST 4042 3741 DIAGNOSTIC FUNCTION TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT 
OFE4 38 04 1C7B 752 TBN SNS 3—-12X*04* ON-LINE ? 815 * BOTH ON OR BOTH OFF. * 
OFEB CG 90 10C7 753 BF OFFLN ‘IF NOTe GO HALT B16 FESRER TERRES HRESAE EAL HEREEE RESETS SHES ESSA ES 
754 1059 34 08 10C6 817 BADMOD ST BADMOR+3 ARR FOR RETURN 
OFEC 30 CS 0200 755 cul CPUsC*E* 1F MODEL 18+. GIVE EXPECTED REAL INTS 818 * PRINT BOTH FCUND ON OR BOTH FOUNC OFF. 
OFFO F2 81 0D 756 JE NOIE 1050 38 03 1C78 819 TBN SNE3~1,x%°03* SEE IF READ AND WRITE ON AT SAME TIME 
757 1063 F2 90 OD 820 JF NOT 2 
OFF3 CO 87 O2Z1A 758 8 PRINT INT PEND 81T NOT ON 1064 CO B87 G21A 821 B PRINT GOTH MODES ON 
OFF? Cé oFF? 759 oc xXL1°Ccee 1068 C2 1068 322 pC xL2*c2¢ 
OFFS 28 OFFE 760 oc AL 10 MSG1-MS618) 1069 28 1069 823 oc AL 1 (MSG8 -MS GBB) 
OFFS 1789 OFFA 761 oc AL2(MSG1) 106A 18E9 1063 6824 oc AL2(MSG8) 
CFFB 4084 OFFC 762 oc XL2*4084¢e 106C 4086 106D 825 oc xL2*4086° 
OFFOD F2 87 OA 763 J NOLHT 106E F2 87 OA 826 J WDEXP GO TELL HIM WHICH EXPECTED 
764 827 
1000 CO 87 O21A 765 NOIE 8 PRINT EXPECTED INTERRUPT DID NOT OCCUR 1071 CO 87 O21A 828 NOT2 B PRINT BOTH MODES OFF 
1004 Cs 1004 766 oc XL1°*C6S 1075 Ce 1075 829 oc xXLi*#C2* 
1008 4F 100S 767 oc AL1(MSG2-MSG2B5 1076 27 1076 830 oc AL 10MSG 1 3~MSG138) 
1006 1708 1007 768 oc AL2€MSG2) 1077 1963 1078 831i oc AL2(MSG13) 
1008 4084 1009 769 pc XL2°40848 1079 40eC 107A 832 oc xL2*408c* 
770 833 
100A CO 87 0222 771 NOIHT 8 HALT INTERRUPT DID NOT OCCUR 833 
100E 4084 100F 772 HT84 pc XL2°6¢0846 1078 30 87 OCDO 834 MDEXP CLI JRw41 oX* B78 1F 867» NAME MODE EXPECTED 
1010 CoO 87 0000 773 GETR 8 *—* RETURN TO CALLER i07F F2 81 OB 835 JE WHICH 
774 836 
775 *eeeee eens 1082 CO 87 Q21A 837 8 PRINT PRINT "EITHER MODE EXPECTED®? 
776 * INTS * 1086 86 1086 338 pc ML1°86° 
P77 SHOALS FHRER SERRE KES 1087 27 1087 639 oc AL1(MSG14-MSG14B) 
778 * INTERRUPT » 1088 1AC8 1089 840 DC AL2(MSG14) 
779 = ROUTINE * 108A F2 87 1B B41 J BADHL T GO PRINT WHICH FOUND 
FBO ESSE HASHHAAS SAERAKE 842 
1014 781 INTS Eau Ps 108D 843 WHICH EQU * 
1014 34 04 1¢52 782 st PSRSAVePSR SAVE PSR 1CBD OC 04 iACOE 2iC3B B44 MVC MSG49AC5),CREAD ASSUME READ (S/3 WRITES) 
1018 30 42 iC82 783 SNS SNS21.,SSTAT SNS STATUS (DO BEFORE S1Q TO RESET) 1093 3D 42 0D16 B45 CLI DOSI1041+SWRITE WHERE wE IN A WRITE ? 
101C 30 FF 1c€50 7e4 cll EXPFL GexX* FF INTERRUPT EXPECTED 2? 1097 Fe 81 06 846 JE PMD 
= 1020 3C co 1C€50 785 myt EXPFLGsX*00* KOT AGAIN 847 
1024 F2 81 OF 786 JE WASEXP 1094 OC 64 1CGE 1C40 848 MVC MSGA20A(5) eCWRITE ASSUME READ (S/3 WRITES) —— 
787 * INT RECEIVED NOT EXPECTED FORCE A HALT.- 1040 CO &7 O21A 849 PMD 8 PRINT FRINT MODE EXPECTED ON 
1027 CO 87 1028 788 8 *4+4 10A4 86 1044 850 oc XL1°86° 
1028 34 20 154 789 ST PIARSVsPIAR SAVE PROG LEVEL iGAS 2D 10AS 851 oc AL1(MSG4 0-MSG40B) 
102F 35 20 1¢56 7390 L UNE@ +P I1AR FREPARE PROG LEVEL 10a6 1C36 10A7 852 oc AL2(MSG40) 
1033 F3 40 O5 791 ip fe) SRE SETtSOISAB,SCNTRL KILL INTERRUPT 653 
792 8s3 
1036 793 wASEXP EQU * 10A8 854 BADHLT EGU * 
1036 BA FF iCSA 794 SBN INTFELGs X*FF & SHOW INTERRUPT OCCURRED 10A8 38 03 1C7B 855 TBN SNS3—-1eK*03* CECIOE FOR BOTH ON OR BOTH OFF HALT 
103A 35 G4 1C52 795 tL PSRSAVsPSR RESTORE PSR 10aC F2 10 OA 856 JT GNHLT 
103E F3 40 O1 796 sia SRE SETS SCHTRL RESET INTERRUPT TOAF CO 87 0222 857 OFFHLT 8 HALT READ/@RITE MODE BOTH OFF 
1041 CO 87 1014 797 8 INTS 1083 408 1084 858 HTaC oc XL2°a0sce 
798 : 1085 CO 87 10AF 859 B OFFHLT 
798 10389 CO 87 0222 B60 CNHLT 8 HALT READ/#RITE MODE BOTH ON 
1045 799 UNE EQu Fa \ 1080 4086 10BE 861 HT8&6 oc AL2*°4086* 
1045 CO 87 O21A B00 8 PRINT UNEXP INTERRUPT. : 10BF CO 87 1089 862 a ONHL T 
1049 C6 1049 801 oc XL? cée | 663 
104A 28 10@A 862 oc AL1€MSG13-MSG118) i 10c3 co 8&7 0000 864 BADMOR 8B ae RETURN 
1048 196B 104C 803 pc AL2(¢MSG11} 865 
104D 4087 102E 804 oc xL2°4087° i 865 
aes | m 865 
104F CO 87 0222 806 HNI 6 HALT UNEXPECTED INTERRUPT ! 865 
1053 4087 1054 e807 HT87 fora XL2*4£087 6 : 865 
1055 CO 87 104F acs 8 HNE ot B66 +eneeeeeEe ees 
809 : 867 * OFFLN * 
809 | 868 * P 
809 f BOS KHHHEEEAE EES RERTE EEE HE HE AESERES DEES RELSBER ED 
809 ; 870 * 3741 1S OFF LINE * 
809 \ B71 * * 
BLO HEERKESSTEAREE : f 872 BEERAERELEERAKEESEEEE ST OF SESE KEESE SS SEER HENS 
811 * BADMOD * 10C7 34 68 10DE 873 OFFLN ST GFFLNRt3 »ARR FOR RETURN 
812 * * 20CB CO B87 O2Z1A 874 B PRINT OFF LINE 
BL 3 FERRER ARERS AE ERAEEE CHESSER ANKE SHRK ESTEE 10cF C6 10CF 875 oC XL1*C6é* 
814 * READ MODE / WRITE MODE * 1000 27 10D0 876 DC AL1(MSG23~MSG23B8) 
DAVE Ci AUGT4S 15NOV74 16JUN75 PROG ID 404-2 DATE C1AUGT4 1SNOV74 16JUN7S PROG ID 404-2 
FC NG. 824765 824870 825057 EC NOs 824765 824870 825057 PAGE BA 
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. “4 S5A776: IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5588776 
IBM MAINTENANCE OLAGNOSTIC PROGRAM See NG. 8 6555 Si $ pace oa 
| 2 AGN C FUNCTION . 
4042 3741 OLAGNOSTIC FUNCTION TEST | 404 3743 OLAGNOSTIC FUNCTION TEST 
ERR LOC OBYECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC CBYECT CODE ADDR STMT SOURCE STATEXENT 
1001 1AFS 1002 a7? pe AL2(MSG223) ' ae 935 Sena Ree etre ston ener meme ene eee eae ee 
1003 4086 100% 878 oc XLZ2*e0808 =. : peti . 
879 i = 
1005 CO 87 06222 880 6 HALT | . 933 % S 
1009 4080 100A 881 HT80 oC XL2*60808 | NOT ON-LINE | oe : : ~ 
882 LNR B ane _. RETURN ' S 
Wenge ee ee 883 = . | - B36 HETFE ESE SUEKSEPRES ONS OH ASSESSES SES SF HSESEHASSESORG SSS 
883 — 4126 937 STATB EGU #3 
883 21127 CP9E0DGACEZOSCINS 1140 93S STATAX OC CL39*61-0 TRANSFER LINES “SENSE 3- XXXX* 
883 : : ; : 222F E2Ce6ecsoe4g 27¢905 938 
883 . 2237 CSEZO04680404680 938 
BBS Seeteent tage | 113F GOE2CSDSE2CSA0F3Z 938 
885 * DUMP * i LLGT GOSOSOETEFETET 936 
886 * * | 2ISE 40408046406040C3 1175 939 STATMG BC cLege ACTIyvE LINE 1S NAMEO SELoY s 
BST SHSTERISHERREDELAGRSE THEFREKRERESHA SRARSEKEKE { 11S6 CIESCSESCS40D3Ce 939 
686 * CUMPS CONTENTS OF BUFFER 3 * 21SE DSCS40C9E240NSC1 939 ‘ 
6sa9g * ‘ *s 2366 O4C6C440C 205035065 $39 
C90 £8 ORE HSHES EERE THES POASERERSABELSERVEKETS hep 2iGE £€690402040804543 939 
10DF 34 08 11362 891 DUMP1 ST OUMPIR*Zs ARR FOR RETURN (i 940 
10€3 Co er 0215 892 B UNPACK . UNPACK FIRST HALF OF 228 arte REC ! a0 
10E7 40 20E7 e93 oc iL16ae 1176 94: BUFF1 EaU * 
10£8 1185 i0E9 a94 oc ALZ (BUFF 1463) Gos 1176 31FS 942 ry DS m14.128 READ BUFFER 
1CEA OSFF 10EB 895 oc XL2*arFre . PCP BUFFER 3156 943 BUFF2 EY * 
10EC CO 87 21a B96 5 PRINT | 126 1275 944 cs CLiZzs READ EUFFER 
30FO AL 10FO a97 oc XQ Aas FAGH OWN BUFFER 1276 49 1276 945 Bc aae? 
, 946 
898 
10F1 CO 8&7 321E B99 & UNPACK UNPACK SECOND HALF OF 128 BYTE REC 2 1277 1176 1278 947 BUFFI8a DC AL2(8UFF 1) LEFT END OF READ FIELD 
10FS 40 10F5 906 oc ILatGse : oc 948 
10F6 11F5 30F7 961 pc Al 2(GUFF 14327) ere 
10F8 OeFF 20F9 902 oc XL2°*SFFe OCP SUFFER 28 
10FA CO BF 821A 903 8 PRINT : 1279 CRLESEICACICHORCS 128C 949 STAB pC CL20* ATTACHMENT RST e 
10FE A6 L0FE 904 oc XLI*AGe FROM OWN SUFFER ti rari ee see 
10FF CO e7 0000 965 DUMPIR 8B wong RETURN TO CALLER i 404 4 
3 906 * | 1280 CSD5C44506C540T4 1240 950 oc CV. 20"ENO OF DATA SET 2 
Pa eee ee 906 ! 2295 CiESCLAOELCSEZ4O ~ 950 : Set ee ag nr ee 
ace 1290 204040406 950 . 
998 Pe 1241 F3F7FSFISAOCZEGE2? 12664 951 oc CL20°3743 BUS Is PRTY ERR® 
906 | 12A9 400905400 7D9E5E8 951 
DO? Keeee STARE SHE | 1281 40CS09D9 9Si 
$OS * ocUMFZ * i 1285 C5D5€C44006C64009 12C8 952 oc CLZO0%END OF RETGRO e 
909 * * | 2280 C5C30606C 4408009 952 
G10 FEREKEEEARAEEHE ESE REKE EELS EKRE HERE CRRESIARTE , £2¢5 40404040 952 
911 * DUMPS CONTENTS OF BUFFER 2 * | : §2CS C50SC44006C54001 1200 953 ; oc CL20° END OF 4OB e C 
$12 * * 1201 06C2906649404040 953 
GL 3 CROAT EAERABEAG KARA SKS OASEHERKS EAA SESH SERERE | 1209 40404040 53 7 
1103 34 08 1126 91% OUMP2 ST DUMPZRE 3 ARR FOR RETURN ' $200 FSF7TFSFISGOCLESERS 12FO 954 oc CL 203741 ATTENTIGN REQG * 
1107 CO 87 O21E 915 8 UNPACK UNPACK FIRST HALF OF 128 BYTE REC | 12ES CSOS5E3SC906D54009 954 . 
1108 40 2108 916 oc IL2°66" { ; 12E9 C5D8C440 954 
110¢ 1235 2100 917 oc AL. 2( BUFF 24633 | a 255 
110E oaFfF L1i0F 918 pc Mi.2° BFF Ft OCP SUFFER i2FO 956 INIA Eau +2 oat fe 
1110 CO 8&7 6234 919 8 PRINT ; 12F1 OSCSDAOGESCSS0E6 1317 957 1N18 oC CLIP"REMOVE WRAP CONNECTOR AND CONNECT 3761 ¢ 
4114 Al 4114 926 oc XLLtAaze FROM OtN BUFFER bok 12F9 D9C1D079CC 3D6D505 987 
923 i 1302 CSC3E3C6C949C105 987 
1215 Co 87 dO21€ 922 8 UNPACK UNPACK SECOND HALF OF 128 BYTE REC | 1309 ee saecuece 957 
1119 40 1429 923 oc tL2*6ae ' 2131} E340F 3F7F 4F 146 957 
bila 1275 1218 9246 DC At. 2 (BUFF 241273 1318 CICIC203CSE24840 133E 958 INIC boc CA 3SS"CASti as, INSERT A SCRATCH OISKETTE . 
111C C8FF 2210 $25 oc XL2°8FFe _ CCP BUFFER 1320 40C905E2C509E340 95a : 
111LE CO 87 O23a 926 B FRINT ; 1328 CIS40E2C309C1IE3C3 958 
. 1122 A2 4122 927 oc X2¢a2t FROM GWN BUFFER 1330 C84 0C4C9E2D2C5E3 958 
. 1123 CO 87 0690 9268 DUMP2R & tne RETURN TO CALLER 1336 E3€54046404640 958 ; 
. 133F D6BDS40E3CB8C540C9 1365 9359 INID oc CL39*° GR THE 1/0 ACAPTER #RAP DIAGNOSTIC ® 
13467 610640CiC4&C1O7E3 959 
134F C5094CE60SC.9740 959 
1357 C6COCIC7TOSOGEZE3 959 
135F C9C34040404049 959 
1366 C4C9E202CSE3E3CS 1386 960 INIE oc CL39* DISKETTE: P/N 2669460. ® 
136E 6846007610S40F2F4 960 
1376 F6FSF4F6F 0484080 960 
Date 98 AUGTS ISNOoVv74 16JUN75S PROG 1D 404-2 DATE 01 AUG74 1snOv74 16JUN75 PROG 10 404-2 
EC NOs 828765 824870 825057 PAGE 9 EC NQe 824765 624870 825057 PAGE Qa 
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ZQM MAINTENANCE DIAGNOSTIC PROGRAM 


4042 | 


ERR Loc 


I37E 
2386 
1389 
1395 
139D 
13as 
334D 


1384 
a36c 
13¢¢ 
13cc 
1300 


3308 
13E3 


132F3 
i3Fs 
1462 
340A 
1412 
41a 
1422 
1429 
21431 
3439 
2443 
1449 
146S0 
1458 
1460 
1468 
1470 


2477 
147F 
21487 
248F 
3a97 


149& 
14Aa6 
24AE 
21486 
186E 
1acs 
146CO 
1805 
42@D0D 
14ES 
14€C 
14Fa 
14FC 
21806 
250¢ 
21513 
15138 
1523 
1528 
1533 
1S3A 
15462 
154a 
4552 
155a 
1561 

1569 


DATE 
EC NOs 





' 13£8° 


&82476S 


OBsECT CODE 


3781 DIAGNOSTIC FUNCTION TEST 


AOOR STMT SOURCE 


4040604946804940 960 
4049400040404¢ 960 
E3CBECS40F 32F 7FaF2 1383 961 INI 
40EZC BDG6E 4030240 961 
C4CSE2Z0703C1 E640 961 
CBC&DOF 140C4C9E2 963 
D7D3C1E868<060 961 
13B3 962 INixB8 
F3F7TFOFLA0E2ZC8DS 13DA 963 1N1X 
E4D3C440C4CSE2D7 963 
CIC} EB840C8CHD9F 1 . 963 
40C4C9E2D703C1E8 963 
40466040004060 963 

33DA 960 INZA 
COCE64OHCI4A0EZT3IDS 14023 965 INzB 
CLESC3CES0CACVE2 96S 
P2CS5SESESCS4OCSE2] 965 
SCESE 2CSCA6BQ6C3 965 
40CACLESCI4660 96S 
E2CSESS40ES6CSESCSE 1428 966 IN2ZC 
40F1 F2F840CZESE3 966 
CSa009CSC3DEDeCe 966 
E240C 1DSC 440E3E6 966 
D6460609404040 966 
D&2DGDSCSS0OCIESC3 I46F 967 IN2D 
C903C3 C203CS4vES 967 
DECI C3O2ZE240D0 £4 967 
E2E340C2C540C6D6 967 
E4D5C440C2E640 967 
CaCSD7D9CSEZEZCS 1476 968 IN2 
OSC 74660D9C5C349 | 968 
€3C6ES6048404040 968 
2020404940004040 968 
40406060400045 968 

1476 969 ASTRKS 
SCSCSCSCSCSCSCSC 189D 970 aSTRKI 
SSCS“ SCSCSCSCSC ' 970 
scscscscscscscse¢ 970° 
SCSCSCSCSCSCSCSC - 370 
SCSCSCSCSCSC5c¢ 970 

149D 978 IN2xS 
CSCESOCI*@QE2ZCSD9 1466 972 INZKA 
CLESC3ICE4OCECSE2 972 
O2CS5E3E3SC54066C1 972 
E24GE4E2C5C46500 ‘972 
C4CS DT DOCSEZEZ 972 
GODSCSC340CICSES 10EB 973 ENCK 
6040 E405SE3COD3S40 9F3 
E2CIDACS40CACIES 973 
Ci’ 40E2CSES4O0CI EZ 973 
40C2CSC6D609CS5 973 
CS9EZ4¢0C6DGESOSCe 1512 S976 IN2xXC 
2820404080304060 974 
£0206404040404040 976. 
£0404046040406080 | O74” ‘ 
206040460806046 97a 
6CCSEGDO40E2CB8C9 1539 975 IN3B 
C6E3604640E3ESD7 ' 978 
CS4&OF 4F 180604940 9Ts 
2040.204000604940 97s. 
454640000900045 975 
S6OC6ESDSCZEZ40E2 1565 976 IN 
CSD340ES0TDTCSDS 976 
6040 4063C9DSD7E4 976 
£360404049904045 976 
40404040494000 976 
SOCGESDSC3ES40E2 158F OFT IN3K 
CSD340ES6D707CS09 $77 
02 AUGTS isnov7¢ 163UN7S 
824870 825057 


_ yr 


sa 


PART NOeo 


PASE 


STATEMENT 


Qu 
De 


oc 


oc 


Eeou 
oc 


ac 


G39*THE 3741 SHOULD DESPLAY HORI DISPLAY. * 


we} 
€L39°3741 SHOULD DISPLAY MOR] DISPLAY _ * 
pm 2 : . 
L39°IF A SCRATCH DISKETTE IS USEDe A DATA * 
CLSO°SET WITH 128 SYTE RECORDS AND TWO OR e 
CL39°WORE AVAILABLE TRACKS MUST BE FOUND BY ¢ 
G.39° DEPRESSING -REC ADV-0 ® 
st Be 
CESS * SEERESE SESE SEE SB ECSERGEESEES ES ESCFESAOEKESSEE 
1 : s 
CL3S%IF a SCRATCH DISKETTE WAS USEDs CEPRESS* 
CL39*=REC ADY— UNTIL SAME DATA SET aS SEFORE* 
CL39°1S FOUND. « 
C.39*-NUS SHIFT~ TYPE 0% _ @ 
CL39° -FUNCY SEL UPPER] <iInPUT- ® 
€1.39°-FUNCT SEL UPPER=- ~-ONTPUT= e 
PROG 1D 
PAGE 


_$558776 
zo 


seww: exmten 


4046-2 


AON Ae AON LN EE ANUS sar toeet meant ethene, oe + 
ore 


on, 


a 
\ 
; 


ao ©} 


184 MAINTENANCE DIAGNOSTIC PROGRAN 


4042 


ERR LOC 


is72 
is79 
1582 


1588 
1590 
1598 
15A0 
1SA8 
SAF 
1687 
1SeF 
15¢c?7 
1SCF 


31506 
ISDE 
iS&6 
1SEE 
15F6 


1S5FO 
1605 
1600 
£615 
1610 


1625 
1620 
1635 
" 1630 
16985 
166¢ 
1656 
165¢ 
2660 
166¢ 
1674 
167C 
- 3686 
169¢ 
1698 


"3469¢ 
IGAS 
$6aC 
3660 
166C 
16¢3 
36c6 
1603 
1608 
16€3 
16E€8 
16F3 
36F8 
2703 
1768 


i733 
1718 
8723 
2728 
a733 
173A 
41742 
174A 
4752 


OaTE 
EC NOe 


OBJECT CODE 


60404060D06ESE307 
E2E3 604040404040 
40404040494040 


E6CECS50S40E2CSES 
S0E4D740C9E246C3 
06040703CSE3CS6B 
4040404040006040 
49 464040404040 

DICSE2ZCSES40EZEB 
£ 2E3C50461F340C8 
C1D3E34849404040 
9089406040004040 
40404040404040 


FS F240D9CS5C30609 
C&E240E6C9030340 
C2CSS0E6O9CSESES 
CS0540E3D640F3F7 
F4F14040404046 


FSF240D9CSC30609 
C4E246 0E6C 9030365 
C2CS@009CSCi C440 
Cr08C440C 2960407 
C3 D9€SCe40 404040 


E2CSES40ES0740F3 
FTFAaF180E3064009 
C5C1 0440060940 £6 


ADDR STMT SOURCE 


18587 
2SAE 


isos 


31Sos 
asFc 


21SF¢ 


1624 


3626 
2648 


OSCSESCSABAO4G0EG - 


C8CS D540 C6 F640 
€8¢2p3E3460C 9E240 
OSCSE2CSES6840E2 


EBEZESCSOAAOFS40 . 


E6CSD3038009C5C3 
€446060940402540 
E6D9C9EICS*#OD6D5 
CS20D9CL.C30ED9CS 


41673 


1698 


4840402000806080-= © 


4040404040404040 
2040804040 404040 


DODSCS40D9C5C306 
D9C4e20£6C1E24009 


2698 
16¢2 


¢5¢1¢448400009CS - 


C3D6D9C490C9E260 
D7 C9CIDSESCSCO 

20F240E3CODSCS5E2 
8B6040D6D5C3C540 
C9D540D7D9C9DSE3 
CiC2D3cSe0csc2c3 
€4€90368404040080 
D60SC3C540C9D540 
C8C5E7 6840404000 
2080404060404940 
4080400040402000 
$040404080804640 


PSO5C54609C5C3D6 
D9CS40E6C 1EZQ0E6 


‘DSCSEZESCSO54840 


40C4C 1ESC I S0ESE2 
CSC4e0C6D060946 

EGDSCIESICS40E6C1 
E240 EZC1D4CSe0ci 
E2800709CSESCS06 
E*E2D3E84009C5C2 


iSNOV?: 
824870 


OL AUGT4 
824765 


46EA 
a7a2 
ava2 


1739 


3763 


a 


3741 DIAGNOSTIC FUNCTION TEST 


977 

977 

OT7 

9783 IN48 
979 INGA 
379 = 
979 

979 

979 

960 INS 
980 

980 

980 

980 

982 #018 
982 HD: 
982 

982 

982 

982 

983 HD28 
984 HO2 
964 
986 

984 

one Ct 
985 MD3B 
988 
986 - 
86 
956. 
986 
967 
937 
987 
987 
2387 
988 D3 
988 

98s 

988 

988 
989 HOSS 
990 

990 

990 

990 

990 

991 

291 

993 

991 

991 

932 HDA 
992 

992 

9982 

992 

993 HOSE 
9946 

994 

994 

994 

996 

995 “DS 
995 

995 

$95 


265UNT75 
825057 


Eqy se 3 


PART NOs 


5558776 
PAGE 10A 

STATEMENT 

equ 2 

pc CL39°WHEN SET UP IS COMPLETE. . 

pc CL3O*RESET SYSTEM/3 HALT. e 

EQU wi . . 

DC =. CL. 39*S2 RECORDS witt BE WRITTEN To 3741 e 

equ) #1 ; 


-oc €L40*S2 RECORDS WILL SE READ AND COMPARED e 


So th 


Fou . o1 . 
DC . L39°SET UP 3741 TO READ OR WRITE. GHEN Fe * 
pe GLOO*HALT IS RESETe SYSTEM 3 WILL READ OR e 
OC —«-s«CLAO*WRITE GNE RECORD. * 


oc CL39*ONE RECORD WAS READ. RECORD I5 PRINTED* 


oc CL.40* Z TAINESe ONCE IN PRENTABLE ESCDICe * 


DC = CL@O* ONCE EN HEX. “a s 
equ 1 | 
oc CL39* DONE RECORD WAS WRITTENe DATA USED FOR * 


oc CLA0*WRITE WAS SAME AS PREVIOUSLY READ. ° 


PROG 1D 404-2 
" PAGE 350A 


* 


e > TR we steer Panic otic Tally Ey BRL IRI Pe AR Ree a Sears, teale 22 


wee ake we Aline enn ed eel nai mi trai as ahr 


@ & , 


I 
i 
i 
{ 


i 


| 


18M MAINTENANCE OIAGNOSTIC PROGRAM PART NOw 5558776 IBM MAINTENANCE DIAGNUSTIC PROGRAM PART NO 5558776 
PAGE 12 PAGE LIA 
| a 
4042 3741 DIAGNOSTIC FUNCTION TEST - 4092 3741 DIAGNOSTIC FUNCTIGN TEST 
ERR LOC GEJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC GBJECT CODE ADOR STMT SOURCE STATEMENT 
175A C44B404040404080 995 191D C3D6D4D7C1D9C540 1943 1018 MSG1O DC CL39* COMPARE ERROR. RECORD NUMBER xxxe 
1761 996 MSG1B EQU x} 1925S CS50909D609484040 1018 . 
1762 60C9DS5E3CSD9D9E4 1789 997 MSGi pc CL40*+INTERRUPT PENDING- BIT DID NOT COME ON * 192D 40404009CSC3D609 1018 
l76A DZTE3B4O007CS505C4C9 997 1935 C4&4&C0D5E404C2c509 1018 
1772 DSC76040C2C9E380 997 193D 404C4040E7ETE7 1018 + 
177A C4&C9C440DSDSE3R9 997 ; 1943 1019 MSG11B EQu *— 1} 
2782 C3D06D4C540D605a0 997 1944 E4O05CSE707CS5SC3E3 1968 1920 MSG11 DC CL40* UNEXPECTED INTERRUPT. e 
1789 998 MSG2B EQU a—1 194C CSC440C9D5E3CSD9 1020 
178A CODSE3CSD9D9E4D7 1780 999 oc CL39*° INTERRUPT LEVEL S DID NOT OCCUR AFTER 7° 1954 DGE4D7E348404040 1020 
1792 E34CD3CSE5C50340 999 195C 4040404040404040 1620 
179A FS40C4C9C440D5D6 $99 1964 4£904604040404040 40 1020 
17A2 £346 C6C3C3E40940 999 1968 1321 MSG12B8 EQu =} 
17AA C1C6E3CSD9SO0F7 999 196C 60CSD5C440D6C649 1992 1022 Dc CL39"°-END CF JOB— LINE NOT ACTIVE AFTER ° 
17B1l 40E2CSC3DEDSC4E2 17D8 1000 MSG2 oc CL40* SECONDS. e 1974 01 D6C2604003C905 1022 
1789 4B404040404040480 1000 1s7C €5400506E340C1C3 16022 
17C1 4046404040404000 1000 1984 ESCSESCS40C1C6E3 1022 
17C9 40404040404040a0 1060 198C €8D94040404040 1022 
17D1 4040404040404040 1000 1993 DSCSCIC4C9DSC740 198A 1023 MSG1I2 OC CL40* READING ALL RECORDS OF DATA SET ‘ 
1708 1001 MSG3E EaQU aj 199B C103034009C5C306 1023 
1709 F3F7FSFIGQE2ZCSES 17FA 1902 MSG3A DC CL346°3741 SET UP IMPROPERLY. XKXKE 19A3 DOC4E2Z40D6C640C4 1023 
17E1 40£40740C9D40709 1002 19A8 C1E3C140F2C5E34B8 1023 
17E9 D607C5S09D3E84849 1002 19B3 40406404040004640 1023 
ATFL 404C40404000E7E7 1002 19BA 1024 MSG138 EQU =] 
17F9 EVE? 1002 ; 19BB 09C5C1C44004D6C4 1961 1025 MSG13 pC CL39*REAC MODE ANO WRITE MODE SOTH OFF. * 
17FB 4004D6C4C540CSE7 1822 1003 MSG3 OC CL40*" MODE EXPECTED ONe e 19C3 CS40C105C440 Ea bg 1025 
1803 D7C5C3E3C5C440 D6 1003 ! 19CB CSE3BCS40D4D6C4 C5 1025 
4808 D548404040404080 1003 : 1903 40C2D6E3C84000C6 1025 
1812 6040404040404040 1003 19DB C64B4040404040 1025 
181B 404046040404040460 2003 ! i19E1 1026 MSG14B EQU 4~i 
1822 1004 MSGéB EQU w=} | 19E2 CSE7TD7CS5C3E3C5C4 1A08 1027 MSG14 D0C CL3S* EXPECTED EITHER READ OR WRITE MODE. ® 
1823 D9CSC1IC440D04D0C& 184A 1005 MSGS oc CLSGO*REAC MODE FOUND ON- e ISEA S0C5CO9ESCBCSD949 1027 
182B C540 C6D6E405C4640 1005 19F2 D9CSC1C440D5D940 1027 
1833 06054B 40404046040 1005 i 19FA E6D9CS9E3SCS54004606 1027 
se etn ST we 183B 4040404040404060 1005 1A02 C4C54B40204040 1027 
1843 4040404040404940 1005 i oe 1A08 1028 MSG158 Eau *—1 a 
184A 1006 MSGSB EQU x=} 1A09 F3F7FSFL40C2ZE4E2 1A2F 1029 MSG15 DC CL39°3741 BUSY TOO LONG, ° 
184B E6C9OCSE3SC5S4004D6 1872 1007 MSGS DC CL4G"WRITE MODE FCUNC ON, 8 1AL1 £840E 3D605400306 1929 
1863 40404040404046040 1907 1429 40464040404045 1029 
1868 40404040404040480 1007 | 1A2F 1030 MSG20B8 EQU 3 
1872 1008 MSG6B £EQU x} : VA3ZC C8C1E3C1400709C5 1A57 10313 MSG29 OC CL4Q*DATA PREVIOUSLY WRITTEN WAS ® 
1873 E2CS9D64CD0S50665D6 189A 1009 MSG6 oc CL40°SIG NO~OP. e : 1438 ESC SD6ESE2D3E840 1031 
1878 0748404020404040 1009 LA40 E6D9CIEZE3CSDS40 1031 
1883 4040404040404640 1009 1A46 E6C1IE29040404060 1031 
188B £040404040404040 1909 : LA5SO €204640004604604040 1031 
1893 40404640404046%0 1009 i, 1A57 10932 MSG21B EQU *~ 3 
189A 1910 MSG7B EQU ¥#=] 1A58 C4C1E3C140D9CSC1 iA7F 1033 MSG21 OC CL40* DATA READ BACK waS ‘ 
1898 C4ClE3CI40E3D9CA 18C1 1011 MSG7 DC CL39°DATA TRANSFER REGISTER PARITY ERROR . YAGO C44CC2CICID240E6 1633 
1B8A3 OSE2C6C5094009C5 3011 ° 2ACB C1 E2404040404046 1033 
18AB C7C9EZESCSD940D7 1021 1A7O 4046405049404040 1033 
18B3 Ci O9SC9I9ESZES4OCSDS 1011 ; 1A78 20404040404040490 1933 
18BB 09D60940406040 1011 } = 1A7F 1034 MSG22B EQU 41 
18C1 1012 MSG8B EQU +— 1 1A80 SCECECEOSCG0SC40 1AA6 1925 cc CL39° 4-a-2-y THE wRAP CONNECTOR IS STILL * 
18C2 C206E3SC840D9CSCI 18E9 1013 MSGB DC CL4G*BOTH READ AND WRITE MODE wERE GONo ° 1ABB 404CE3CBCS40ESD9 1035 
18CA C430CiIDSC4&40EED9 1013 1490 C10740C3D605D5C5 1035 
1802 C9E3C5400406C4CS 1013 1A98 C3E3D6D940C9E< 40 1035 
18DA 40E6C508C 5400005 1613 1AAQ E2E3C903034040 1035 
18E2 48404040404046649 1013 LAAT CSD5E2ZE3C1D3D3C5 ACE 1036 MSG22 dC CLAO* INSTALLED: FOLLOW DIRECTIONS « e 
1GE9 1014 MSGSB EQU mm? LAAF C4484040C6D6D303 1036 
18EA O3C5DSC7E3CB46C3 1910 1015 ; oc CL39*LENGTH COUNT REGISTER ERRORs EXPECTED * 1ABT DEESSOC4CID9CSC3 1036 
18F2 D6E4DSE340D9C5C7 1018 1ABF E3C9D605E2484940 1036 
16FA C9EZE3SCSD940CSD9 1015 LACT £040404040400640 1036 
1902 DSD6D94B840C5E7D7 1015 i 1ACE 1037 MSG23B EQu a—t 
190A CS5C3E3C5C44040 1015 LACE F3F7F4F140C9E2Z40 1AF5 1038 mMSG23. OC CL39°3741 3S NGT ON LINE * 
1911 C6C66B84GCEDE6E4DS 191C 1016 MSGI oc CLI2Z*FFs FOUND Xx* LAD? 05066340060540 D3 1038 
1919 C@40E7E7 1016 LADF €9D5C54040404060 1038 
191C 1017 mSG108 EQU we] JAE? 4£0404040404040580 1038 
DATE O01LAUG74 1S5SNOV74 165UN7S PROG ID 404-2 DATE 01 AUG74 15NOV74 165UN75 PROG 10 404-2 
EC NGe 824765 824870 825057 PAGE 11 EC NOe 824765 8248706 825057 PAGE lla 


nr 


oo 
eo 





; PART NO. 5558776 
AN LAG IC PROGRAM 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 5558776 IBM MAINTENANCE D NO ST Oo Sace ia 
PAGE 12 
s 
_ A IC FUNCTION TEST 
4042 3741 DIAGNOSTIC FUNCTION TEST 4042 3741 DIAGNOST u 
; EMENT 
ERR LOC OBJECT CODE ADDR sTMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEME 
7 1€41 0000 1€42 1074 S pc xL2*°00008 * CONTAINS SWITCHES AS SENSED 
BREr PSU RN ence poze 1¢43 00 1C43 1075 $1 pc xL1°00° * 
Pee ee eee ey eee e 1¢44 00 144 1076 S2 pc xL1°008 * KEEP TOGETHER AND LENSTH 6 
1AF6 4040C4E4D9C9D5C?7? 181C 1049 mSG24 DC CL39* DURING READ FROM 3741 TO SYSTEM 36 oes lee ice = pi aaeus ; 
pec eee aide 1046 00 1C46 2078 S4 pc xL1*00° * Z 
bee eee nee . 1047 0001 1€48 1079 ONE DC XL2*°0001* 
coo oe a eee ee eee 1649 06C2 1C4A 1080 Two pc xtL2*0002° 
Oe Ger eee oe -_ 1C4B 0000 1Cac 1081 ZERO oC XL2*6000° 
yee tee eeeen ee as 1c4D F906 1C4E 1082 xXF900 oC XL2*°F9DO0« FOR wRAP COMNECTOR SNS 
1810 4040C4E4D9C9DSCT 1843 1942 MSG25 DE CL39* DURING WRITE TO 3741 FROM SYSTEM 3. ¢& soles pose 1525) tuceaio ne ceuvons edabe + cOAKs 
asada chez tse ners deta iC¢50 00 ICSC 1084 EXFFLG DC xLitooe 
Se ae eee Beas 1¢51 0000 1C52 1085 PSRSAV DC xL2*oo000* 
Pee Deere Sererer ers rose 1C53 0000 1054 1086 PIARSY DC xL2°900008 
Pease E Oar ee eee eas Te jsesea ee end 1C55 1045 1€56 1087 UNE@ o0C AL2 (UNE) ADORESS OF FORCED HALT DUE TG UNEXP INT 
1 104 3626 u - 
7 1C57 1088 CHAR 0C ALi (a=) 
1844 60C5D5C449D6C640 186A 1044 oc CL39°+END OF RECORD- LINE NOT ACTIVE AFTER ° pe aie a ae ee As Ae ee 
eee et ee os 1C5A 06 1C5A 1090 INTFLG DC = ALI C#=a) 
foe. eee eee eee 1C58 00 1€58 1091 RECCTR DC ALI #=8) 
Taek eoeeeeeeocae an. ee 1¢5C FOFO 1C50 1992 CTBUF oC XL2°FOFO ¢ 
. @ 
1p6p E3C9CIDSE2ZCECSDY 1892 1645 MSG26 DC CL4Q* TRANSFER OF A 128 BYTE RECORD. s oe ey cet aoee :; ae pieceoess 
Peep cca e ees actos ee 1C62 FoF2 1C63 1095 z2 DC 30 xxL2*FOF2* 
1883 CS5SC3D609C4484040 ; <e ; 1C64 0006 1C65 1096 CTR oc XL2*00008 
18628 ae ecaek occa 6 ed i. 1C66 FOFOF! 1C68 1097 NUMGNE DC XL3*FOFOFL® 
. 1892 a MSG27B EQU 1 1C69 000C00 1C68 1098 SEG oc XL3*0000008 
7 * | 1c6c 00 1C6C 1099 QwORK o0C xL2°008 
1893 404005D6E3C5 6040 1889 1047 pc CL39* NOTE- THIS ERROR CAN BE CAUSED BY | eer ee ee eee ae aoe 
1898 40£3C 8CSE240C5D9 1047 | voce ae ee cee aan ee eco hes 
$ 4 
ee Sere ee ee | 1071 (OOTF 1C72 1102 LENGTH DC XLZ*OO7F ® 255—t CEG. 255-128 = 127 = xX*7F*) 
es Che ccages peat 1673 0000 1074 1193 x0000 oC xL2*0000° 
pie pedis | 1C75 4060 -- 3C76 2104 FUNBIT OC xL2*4000* EB-1 BIT 0 "6 USEC PULSES * 
}BBA E4E2C9DS5SC740C240 1BE1 1048 oc CL40"USING A 374) DATA SET WHOSE RECORDS ARE * | eae seen Bee ener Cay os ieroacor 
eee ee eceeeee 10468 1¢79 0000 1C7A 1106 SNS2. OC xL2*90008 
i ee seca ne . rr 1C78 0000 1C7C 1107 SNS3 OC XL2*0000* 
oe oon Berar cas eines ‘ 1¢7D 0000 1C7E 1108 SNS& DE xL2*0G00* a 
- : ; ‘ 1C7F 0000 1C80 1109 SNSS OC xL2*00008 
Ree ee arene Shaee een Nenar. Soe See eee PATE SER ENE Iie 1681 0000 1¢82 1110 SNS2I_ oC XL2*0000° FOR INTERRUPT LEVEL SNSING 
ace Son ccececsasecka nce 1683 0000 1€84 1111 SENS  0¢ xL2*0000° 
LBFA 406C4040404600060 249 1¢€85 0000 1C86 1112 SENSO oc xXxL2*0000¢ 
tees UGacRBA Saou bibeG Saxe | 1c6é7 90000 1CBSB 1213 SENS} DC xXL2°OC00* 
uc 1050 1c89 0000 1CBA 1114 SENS2 DC XL2*0000° 
1051 1¢BB 0000 1C8C 1115 SENS3 O0C xL2*000C* 
1052 1¢8D COCO 1C6E 1116 SENS& pC XL2*9000* 
1053 iC8F 0000 1C90 1117 SENSS DC xL2*9000° 
| 1C91 0000 1092 1118 SENS6 DC xL2*900008 
‘ aoe ; { ra 1119 MERE RSE EK CEES SEKRETSE SEES ESE SEBSERKSKKYSEEKRKERKKRRE BAEK EEK PSREKEEKRE 
1055 \ 1120 # * 
eee Al21 +» EQUATES * 
; f 1122 * * 
eee e 1123 # * 
1€09 1059 MSG408 EQU 4-1 1124 * = 
Re ee nae eee eee pat ‘ & 1125 FHKE EERE ERK AKERS KARHERHESSECEGSRKARSE EEK EKHKKKEKAEKKSE KKH KEK HHS 
1CCF 40D4D6C4C540C5E7 1636 1061 MSGaQ OC CL40* MODE EXPECTED ONs e & eee 
fete Resse NG Gacei sae vs ee | LIZ]ST EOROCHHEEEEAESHEEE SRE EERE NORE REESE 
- : 04 eee = 1128 * STANDARD OCP EQUATES  § # 
tose Souci sccaccocac eee c L129 RHEE TRE ERE AKEAK EERE SKE ERSERER RE HE 
° O% 0222 1130 HALT EQU  x*222¢ 
1062 Se s e 
1C37 40p9CcS5C1C4 1C38 1063 CREAD oC CL5¢ READE | f ea nee ayae ae nee 
1C3C E6D9CSERCS 1040 1064 CwRITE DC CL5S*wRITE® \ ae Gas eer eau. ehois. 
1065 SARAH EAKEERERAREKAKRELAR RAKE MERE SEKABKEHR KK KH 7 aoa 1134 UNPACK EQU x*21E8 
oer : c w 0020 1135 PIAR EQU x*20e PROGRAM INSTRUCTION ADDRESS REGISTER 
ace : oc*s -* | 0290 1136 CPU EQU _x*200° LOCATION OF CPU MODEL LETTER. 
1069 # ‘ bod 0001 1137 xR1 equ o1 
1270 * * oe 0002 1138 xR2 EQu 02 
‘O71 . 0008 1139 ARR E£QU x#08e 
: i Ge 
LOT 2 BARKS E SHAR EAE EE REE EEK DEAR ER EAR ERE AK SEAEALESEEAEESEES pee. 0004 1140 fo ah cane 
1073 i OOcO 1141 IAR1 
x PROG ID 404-2 
DATE O1AUG74 LSNOVT4 16JUN75 | PROG ID 404-2 oS nnd la Aoceee) ocecey oaee a5 
EC NO. 6824765 824870 625057 PAGE 12 ° 
t 
€. 
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4042 3741 DIAGNOSTIC FUNCTION TEST 4042 3741 DIAGNOSTIC FUNCTION TEST 


ERR LOC GBYECT CODE ADOR STMT SOURCE STATEMENT : ERR LOC OBYECT CODE ADOR STMT SOURCE STATEMENT 


| 
0084 1142 IARS EQU = xX*BaF Lx 1210 
O0C20 1143 P1IAR EQU x*20° 1221 * LIO 
0200 1144 SYSTEM EQu $12 - 1212 
0226 1145 PACK EQU x* 2268 le 0041 1213 LFUNC EQU. x*41® LIO FUNCTION REGISTER 
022A 1146 LOAD EQu x*22a¢ | 0042 1214 LLCR EQu x*42° LIG LENGTH COUNT REGISTER y 
0080 1147 B1TO Eau x*B08 0044 1215 LDAR EQu x*aae LIO DATA ADDRESS REGISTER 
0040 1148 BIT Equ x*4ao# | ré 0045 1216 LDTR EQuU x*ase LIiO DATA TRANSFER REGISTER 
0620 1149 BI1T2 EQU x20 pe 1217 
0010 1150 8173 EQU x*10* i 1218 * SIO 
0GO08 1151 BITS EQU x*oa* oa 1219 
0004 1152 BITS EQu x* 048 7 0060 1220 SCNTRL EQuU x*4Q8 S10 CCNTROL INTERRUPT STATUS 
0002 1153 8176 EQu x*o2* 0041 1221 SREAD Eau x*41° S10 READ 
0001 1156 BIT? EQu x*o1s o 0042 1222 SwWRITE EQu x*42¢ SIO WRITE 
0208 1155 SBYTEO EQU x*oz08¢ , 0043 1223 SCTLi €QU x*°43° S10 170 CONTROL 1 
020A 1156 SBYTE2 EQU x*O20a8 SENSE SWITCH BYTE 2 0044 1224 SCTL2 EQY x* age SIO 1/0 CONTROL 2 
0208 1157 SBYTE3 EQu x*02068 SENSE SwITCH BYTE 3 £ 1225 : 
0020 1158 SSwO2 EQU x*208 MANUAL INTERVENTION 1226 * SNS 
0008 1159 SSW94 EQU x*o8e BYPASS NON-ERROR PRINTING (DCP) 1227 
0001 1160 SswO7 EaQU x*o18 LCAD AND GO (OCP} ro 0041 1228 SFUNR EQU x*aie SNS FUNCTION REGISTER 
0080 1161 SSW1O0 Eau x* 80° - 0942 1229 SSTAT EQu x*428 SNS CCR + STATUS ( STAT=EB2) 
0040 1162 SSwii  EQuU x*40* 0043 1230 SLINES EQU x*a3e SNS 1/0 TRANSFER LINES 
06020 1163 SS#12 EQU xe 208 . 0044 1231 SDAR EQU X* ago SNS DATA ADDRESS REGISTER (DAR) 
0010 1164 SSe13 EQU x*108 | — 0045 1232 SOXFR EQU x°4a5e SNS DATA TRANSFER + DIAG (DIAG=EB2) 
0068 1165 SSwl4 EQU x*o8e ve 1233 
0004 1166 SSwi5 EQU x* Oae “1 € 1234 * R-BYTES FOR SIO O 
0002 1167 SSwi6é E€QU  x*O28 iy 1235 
0001 1168 SSel? EQU xeoL* ' 1236 * BIT 
0080 1169 SSW18 EQU x* 808 . oo 0001 1237 SRESET EGU x®o3° 7 SIO I-R RESET INTERRUPT 
0040 1170 SSWI9 EQU xeage 2 3 0002 1238 SENAB EQU x*oO2° 6 S10 I-R ENABLE INTERRUPTS 
09020 1171 SSmiA EQu x*z20¢ : 0004 1239 SDISAB EQU x*Oa* 5 SIQ I-R OISABLE INTERRUPTS 
0001 1172 SSw2F EQuU x*oue c 0008 1240 SNUBSY EQU x*98° 4 SIO I-R FORCE NOT BUSY 
1173 i 0010 1241 SUPINT EQU x*®10° 3: S10 ImR SET INTERRUPT REQUEST 
0034 1174 NUMREC EQU 52 READ 52 RECORDS | 1242 
ae 0014 1175 SLEN EQU 2a pe 1242 
1176 | oe 1243 * ERROR MASKS SNS-3 : Sd ON ae he gaa ae AD 
LAV T SHEER EEESHEEKERSA SAH SERS TEKASERSERSEERABKAKKSR 1244 
1178 « EQUATE USE FOR PROGRAM CODING z | eo 1245 * 
LL TD FERRET HERS EEE ERASED PEE TARERE ARRAS SR ARS | 0040 1246 EDS EQU x*4ao# END OF DATA SET 
0603 1180 H1 EQu x* 03° 0020 1247 BIPE EQu x*20¢ BUSS IN PARITY ERROR 
OO71 1181 HZ £QU x*72° c 0010 1248 EGR EQu x*°108 END OF RECORD 
003C 1182 HF EQU x°3C5 00058 1249 EOS Eau x*°oR* END GF 4O5 
OO7C 1183 HE EQuU xe7c* 0004 1250 AT EQU x Oe 3741 ATTENTION 
0068 1184 HL EQU x*66¢ | & 1251 * 
OO6F 1185 HO EQU X®° oF? | 1252 
0076 1186 H2 Eau x*768 1253 * 1/0 SELECT 
0057 1187 H3 EQu) x*s7* | c 1254 * LINE # MEANING 
0018 1188 Ha Equ x*1B° - 1255 * le2 NOT USEO 
0050 1189 H5 Eau x*5D° | 0004 1256 RSU EQU X*°O4t 3 SET UP ERROR CREAD VS. WRITE MODE? 
OO7D 1190 Hé EQU x*7p* c- 0008 1257 RE Eau x*o88 4 RE SPONSE 
0007 1191 H7 Eau x*o7° . | me 0010 i258 RSR EQu x*208 © SENSE RESPONSE 
OO7F 1192 HB EQU X*7FS | 0020 1259 REGO EQu K*208 6 ENC OF DATA SET 
OOSF 1193 H9 EQu X*5F6 | er 0040 1260 REQS EQu x*aot 7 END OF yO8 
OO3F 1194 HA EQu X°3Fs ~ 0080 1261 BOPE Eau x* B08 8 BUS GUT PARITY ERROR 
0079 1195 HB EQu x*7gQe | FFFF 1262 END : 
006C 1196 HC Eou x*ece Lf 
0073 1197 HD EQu) = x*738 bo 
900% 1198 HUP EQU x*94e 
0040 1199 HON eQu x*4aO° L . 
L2LOO FHREEHEHHSEERS AERTS EO OEDRBES . 
3201 * 
1202 * EQUATES FOR 3741 . +t 
1203 * iy 
L204 FERRE EREKEKRESLAEESESEEIABED | 
1205 ar a 
1206 * T10 | Xe 
1207 
0040 1208 TNR Eau xa? TIO NOT READY OR ERROR €: 
0042 1209 TsSY EQU  x*az2s TIO FOR BUSY yea 
oate Si Avers LeNOVTS 16JUNTS PROG 10 404-2 one 02 AUG74 1SNOV74 16JUN75 PROG ID 404-2 
EC NGe 6824765 824870 825057 PAGE 13 EC NO. 828765 824876 825057 PAGE 33a 
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’ 
4042 3741 DIAGNOSTIC FUNCTION TEST , 4042 3741 DIAGNOSTIC FUNCTION TEST 
CRCSS@REFERENCE CRCSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE OEFN REFERENCES 
AOK A 003 ODF6 0501 0487 . HD 2B A 001 i15FC 0983 0192 
ARR Cc 0c1 ocos 1139 0342 0513 0576 06801 0643 0662 0682 0721 0817 O873 O89! 0914 HD3 A 040 1698 0988 6297 0298 
ASTRKS A 001 1476 0969 0045 0054 0086 0084 0104 0108 0112 ©2118 0:86 0199 0217 0223 HO3B A QOL 1624 0985 0297 - 
ASTRK1 A 039 149D 0970 0045 0046 0054 0055 0080 0081 0084 0085 0104 0105 0108 0109 HD4 A 040 2722 0992 9318 0319 
0112 0113 0118 0219 0186 0187 0199 02060 0217 0218 0223 0224 HO4B A 001 1698 0989 0318 
AT C 001 0094 1256 0346 0452 HDS A 040 1761 0995 0312 0313 
BADHLT A 001 10A8 0854 0841 HDS8 A 001 2712 0O993 03512 
BADMOD A 004 1059 817 0354 O35€ HE c 003 oo7c 1183 
BADMOR A 004 10€3 0864 Oa17% HF € 001 oo3C 1182 
BEG A 064 0A21 0083 0149 HL Cc 001 0068 1164 
BIPE C col 0020 1247 0346 0452 HNGINT A 001 OFBE 0737 0724 
g1Td c 001 0080 1147 HNGIT A 004 OFCS O741 0745 
BITl C 001 0080 1148 UNGPND A 004 OF9B O727 0733 
Bit2 C 001 0020 1149 HNI A 004 104F 0806 0808 
B1T3 Cc 001 0010 1150 HTFA aA oc2 oAE2 0137 
piT4 C 001 0008 1151 HTF2 A 002 0803 0242 
BITS C 001 9004 i152 HTF6 A 0c2 0c68 0303 
B1TS Cc 001 oco2 1153 HTS8A A 002 oC3a 0278 
BIT7 Cc 001 ocoir 1154 HT8C A 002 1084 03858 
BLe a 064 O018 0392 0634 HT6E & 002 OEFC 0633 
BOPE Cc 0¢1 0080 1261 0426 HT SF A oc2 ODFS 0495 
guFFI1 A 001 1176 O94) 0168* 0259 0321 089% 0901 0947 HTBO A 0G2 100A 0861 
BUFFl@a A O02 1278 0947 6386 HT81 A 002 O02DS7 0447 
BUFF2 A O0C1 11F6 0943 0160* 0161 G161* O163% 0168 0251* 0252 o252* 0254% 0259 0612* 0613 HT™B2 A 002 ODSF 0420 
0613*% 0615* 0917 0924 , ' HT83 A coz o€5S 0551 
CHAR A 001 aicS7? 1068 0156% 0160 0250* 0251 c602 o604* 0608* 9610* 0612 HT 84 A 002 100F o772 
CHGBUF A 0C4 OFB2 O601 0172 0263 i HT85 & 002 OFBF O711 
CHGBUR A 004 OFE9 0017 O601* ‘ HT86 A 0oc2 i10BE 0861 
CHG; & 001 OFC& C606 0603 HTS7 A 002 1054 0607 
CKEOR A OOl ODDF 0485 0458 ; HT88 A O0C2 ODSA 0482 
CMPER A CO4 OFOL 0643 0260 : HT89 A 002 OFIE 0652 
/ __CMPERR A 004 OF IF 0653 0643% HUP c¢ 001 Goose 1198 
cPU C 0C1 0200 1136 0723 o755 AZ C 001 oo71 1181 a re 
CREAD A OCS 1€38 12563 0684 9844 : HO C 0Ci OCO6F 1185 
CTBUF A GG2 1CSD 1092 i Hi ¢ 001 o003 1180 
CTR A 002 1C65 1096 : H2 C 001 0076 1186 
C#RITE A 00S 1€C40 1064 9688 08468 ‘ H3 Cc 001 0057 1187 
pDoSIO aA 03 ODp1S 0390 0158% 0249*% 0308 0362* 0366* 0370 0432 0685 0845 i He c 001 GOIB 1188 
DUMP1 A 064 10DF 0891 0324 0672 | HS c¢ 001 oosD 1189 
DUMPIR A 004 10FF 0905 0B91% \ Ho Cc 001 0070 1190 
DuMP2 A 004 1103 0914 0667 | H7 Cc 901 oOo37 1191 . 
puMP2R A 004 1123 0928 09148 48 C OGL GOTF 1192 
EDS C 061 0040 1246 0346 0452 } Ho € 001 OOSF 1193 
ENDR A CO1i O0CiC 0266 0262 , 1AR1 c 001 ooco i134) 2 
ENDOW A 001 OB48 0175 0171 i TARS Cc 001 0084 1142 07338 
EQJ C 001 ocose 1249 0269 0346 6452 0515 0516 i INCVAL A 001 1C4F 1083 0608 
EOJFLG A OCS GES1 0514 : INTFLG A G01 1CSA 1090 0042% 0741 O747% O794% 
EQJISU A O01 OC3B 279 0270 i INTOC A 003 OFBS 0734 0730 
EOR C 001 G010 1248 0346 0486 INTS A 001 10314 O78} 0797 1089 
EXPFLG A 0G1 1C50 1684 0041% 0183% O305* 0287* C406* 0784 0785* INTSa A 002 1C59 1089 0738 
EXPFND A 004 OF23 0062 0439 0650 IN1 A 039 1383 C0961 0974 oOo7§ 
EXPFNR A 004 OF3F 0673 0662 \ INLA A 001 12F0 056 0058 
EXT A 00% OCES 0370 0359 IN18 A 039 1317 O57 0058 cCO0SS Oo062 
FUNBIT A OCe 1C76 1104 0038 INIC A 039 133E OvS8 C062 029063 0066 
GETINT A 004 OF8C O72) 0176 0267 0343 0400 In1D A 039 1365 0959 0066 0067 0070 
GETR A 0C4° 21010 oO773 0721%* 0748 INE A 639 138C 0960 0070 oOO7Ti 0074 
HA C G01 OO3F 1194 ENIX & 039 13CA 0963 0195 0196 
HALT C 001 o222 1130 0136 0241 G27? 0362 0419 0446 0481 0494 0550 0632 0651 o71C INIXB A 001 1383 0962 0195 
o771 0806 oO857 0860 0880 IN2 A 039 1476 0968 0100 0101 
HB c 601i oc79 1195 IN2ZA A 001 130A 0964 00828 
HC C 001 O06C 12396 IN28 A 039 1401 0965 008ae 008s 0092 
HO c of’ Co73 1197 IN2c A 039 1428 0966 0092 0093 0096 
HON Cc o¢l co4o0 1199 IN2D A 039 144F 0967 0096 0097 90100 
HO1 A 039 15FC 0862 0050 0053 INZX A 039 1468 0975 0209 oO210 oO213 
HD18 & 001 1505 098: 0050 IN2XA A 039 14C4& 0972 0205 O20€ 0209 
HD2 A 040 1624 09864 0191 0192 IN2xB A 001 1490 0971 0205 
DATE O1AUG74 1SNOV74 16JUN75 PROG ID 404-2 DATE 01 AUG7T4 15NOV74 16JUN7S PROG ID 404-2 
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4042 3741 DIAGNOSTIC FUNCTIGN TEST | 4042 3741 DIAGNOSTIC FUNCTION. TEST 


CROSS—REFERENCE CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE DEFN REF ERENCES 
IN2XC A O39 1512 0974 0122 0212 0214 0227 "SG6B A O01 1872 1008 0415 
IN3 A 039 1560 0976. 0126 0127 0231 “S67 A 039 18¢1 1011 0429 0430 
In3B A 039 1539 0975 0122 0123 0126 0227 o228 MSG7B A 00} 189A 1010 0429 £ 
IN3X A039 1587 0977 0231 0232 MSGS A 040 1869 1013 c&23 0624 aa 
IN4 aA C39 1505 6989 0134 0135 0239 0240 MSG8B A 001 18C1 1912 0a23 
INGA A 039 1S5AE 0979 0130 0131 0134 o235 0236 0239 ; S69 AGl2 1913C 1036 0479 0474 0a75 
INsB A001 1587 ov78 0130 0235 : . MSG9B A O01 i8E9 1014 0474 
ISBSV¥ A 004 6023 0395 0393 NGDTPE A 001 GD9B 06450 0425 
ISREAD A 001 OCFA 0378 0371 NOIE 4 004 1000 0765 07S6 
ISWRIT A 001 oOCEB 0372 ; NOTERR A O04 OFEO 0751 0732 90744 
IR w A 003 occF 0359 0049* 92948 0834 , NOIHT A 004 100A 0771 0763 
KEEPON A GO& O0C69 0305 0301 ; NOCOPOK A O0C& 0060 0424 0410 
LCRHLT A 004 ODD05 0481 0483 NORAP A 0Ol O£D1 0611 0605 0609 
LDAR Cc OCl 0044 1215 0386* nNoT2 A 004 1071 63828 0820 
LOTR C061 0045 1216 0139% NUMONE A 003 1C68 1097 0162 0252 0614 
LENGTH A 002 1C72 13102 0385 NUMREC C 003 0034 1174 0157 o24e 
LFUNC C 001 0041 1213 0038% OFFHLT A 004 10AF 0857 08s9 
LINK C 001 0216 12331 GFFLN A 00% 10C7 0873 0350 O753 
LLCR € 001 6042 1214 0385" OFFLNR A 004 1008 0882 087 3* 
LoAD C001 O22A 1146 0283 OLDSEC A 006 OF77 O576 os72 
LOOP2 A 0064 ocSc 6300 0314 0325 GNE A 002 1€48 1079 0170 0261 
MDEXP A 004 1078 00634 0826 GNHLT A OCS 1059 0860 0856 0862 
MODEOK A 0C1l 0036 0383 0364 0367 0376 Pa A 002 GE4F 0548 0543# 
MSGI A 040 1789 0997 0760 0761 PACK C 002 C226 1145 
"5618 A OGi 1761 0996 0760 PEHALT A 004 OD92 0446 0440 
MSG1O0 A 039 1943 1018 0644* 0647 0648 PEND A 004 OFDSB 0747 0735 0742 
MSG10B A 001 191 1017 0647 PEREAD A 001 0078 0434 
MSGi1 A 040 1968 1020 0802 0802 PEWRIT A 004 OD8A 0441 0433 
MSG11B A O01 1943 10:39 0802 PIAR £ O01 0020 1135 0789 0790% 
MSG12 A 040 19BA 1023 0273 3274 PEARSY A G02 iC54 1086 0789% 
MSG128 A 001 1968 1022 0273 PMD A 004 1080 0049 0846 
ee __MSG13 A 03S 19£1 15625 0830 0831 FRD A 004 GFSA 0089 C686 
MSG136 A 0C1 198A 1924 0830 PRINT C 061 0214 1132 0043 06046 ©0052 0056 0060 0064 0068 0072 0076 0078 O082 0086 ee es 
MSG14 A 039 1A08 1527 0839 6840 0090 C094 0098 0102 0106 0110 0114 0316 G120 0124 0128 0132 
MSGl45 A GO1 1961 1026 6839 Z 0143 0148 o7284 291869 0193 0197 0201 0263 O207 0211 ©2135 0219 
MSG15 a 039 1AZF 1029 C629 0636 C221 0225 0229 0233 0237 C271 0295 0310 0316 0322 0413 0427. 
Wacved A662 1KE8> Lose 0629 0435 0441 0472 0477 0489 0526 0585 0627 0645 0662 0668 0685 
MSG2 A 640 17D8 1000 0767 C768 £ 0697 O705 C758 0765 C800 0821 0828 0837 0849 0874 0896 0903 
MSG2B A 001 1789 Qy9e 0767 ; 0919 0926 
MSG20 A 046 IAS7 1033 0665 0666 PSR c 0Ci 0054 1140 0782 0798 
MSG20B A 001 1A2F 1030 0665 PSRSAY A 002 1CS2 1085 0782* 0795 
MSG21 a 046 1A7F 1033 0670 0671 PIIAR ©¢ 001 0020 1143 
MSG21B A 001 1A5S7 1632 0670 QwoRK A001 1C6C 1099 
MSG22 A 040 1aCE 1036 0147 6148 RDDONE A 004 OCBS 0316 030¢ 
MSG22B A 0O1l 2LATF 1034 0147 RDOFF A 001 OF73 0702 0696 
MSGZ23 A 039 1AFS 1038 0876 0877 RE C Gol 0008 1257 0281 0384 90501 O520 
MSG23B A 061 1ACE 1037 0876 RECCTR A 002 1CSB8 109: O1S7* 017C* O248* 02612 
MSG24 A 039 1B1C 21040 0437 0438 REOD € 001 00290 12459 : 
MSG24B A 001 1AFS 1039 0437 REOJ € 001 0080 1260 0177 0422 
MSG25 A 039 1843 1042 0443 04484 Ri OOP A 004% OBF8 0258 0264 
MSG25B A 001 181¢C «=—:1641]1 0443 RSR c Ooi 0010 i258 0177 0412 0426 0465 
MSG26 A 040 1892 1045 04931 6492 RSU € 001 GOO4 1256 
MSG26B A 001 1843 1043 0491 ; RTNCi A 001 OADD 0031 0017 
MSG27 A 04C 1C09 1049 0479 90486 RTNOZ A QO? OCA 0290 0033 
MSG27B A 001 1892 1546 0479 Rw A 064 OCA3S 034: 0169 0258 0306 
MSG3 A 040 1822 1003 0691 0692 RR &4 004 GOFF 0502 0342% 
MSG3A A 034 17FA 1002 0684% 068% s A 002 1C€82 1074 
MSG3B A 001 1708 260% ‘0691 ; SBYTEO C 001 C208. 1355 2 
MSGS A 640 184A 1005 0699 0700 SBYTE2 € 001 O20A 1156 0300 : 
MSG4B A& 001 1822 1006. c6ss¢ . SBYTE3 C 001 O20B 1157 
MSG40 A 040 1C36 1061 0851 0852 SCNTRL C OCR 0040 1420 0178 0280 0307 O734 0739 (C7Si O796 
MSG40A A 005 1COE 1060 08442 0848« ScTLi C 001 0043 1223 Gif? O28: 0384 0412 C426 0465 OS598 C520 
MSG40B A 001 1C€09 1059 0851 SCTL2 C€ 002 60044 1224 
MSGS A 040 1872 1007 0707 O70e SDAR C 061 0044 1231 
MSG5B A 001 186A 1006 0707 . SDISAB C C61 9004 1239 0176 0280 0307 o791 
MSG6 A 040 189A 1409 0415 0416 SOXFR C O02 0045 1232 
C 
DATE O1AUG74 iSNOV7T4 16JUN75 PROG 1D 404-2 DATE OLAUG74 1SNOV74 16J5UN75 PROG ID 404-2 
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4042 3741 DIAGNOSTIC FUNCTION TEST 4042 3741 DIAGNOSTIC FUNCTION TEST 
CROSS-REFERENCE CROCS S-REFERENCE 
SYMBOL Y LEN VALUE OEFN REFERENCES SYMBOL T LEN VALUE DEEN REFERENCES 
SENAB C O0Gi1 C002 1238 0739 UNE@ A 002 1C5S6 1087 0790 — 
SENS A 002 1C€84 82112 UNPACK C 001 O21e 1134 0467 0522 9892 08569 0615 0922 
SENSG A O0O2 1c@6 1112 Walt Aa 001 CESA 0569 0395 0861 0731 0743 : : 7 
SENS1 A002 1C8B8 1413 . WAITBY A 004 OD1C 0393 0397 
SENS2 A GCO2 1CB8A 1214 WAITR A OC4 OEA2 pee se 0582 0583 
WAITRN A CO6 OEFSC 058 o : 
a . Bee et tire WASEXP A COl 1036 C793 07386 
SENS6 A 002 1c92 12128 WHICH A 001 196D 0343 0835 
SEQ A 003 1C6B 1098 0162* 0163 0253* 9254 0614* 0615 644 wicop A 001 0829 0167 0173 
SETER A 004 OF43 0682 0375 0381 WORK A 002 1C6E 1100 0S37* 0538 6538« 
WREOFF A OC1 0805 0150 0142 
2 ; Soi atin eae ower wWSEC A 002 O0FAS 0587 0392% 0460 0571 0573 OS74 O0574*% O7228 
SFUNR C 60] C081 1228 WSECA A 002 CEAGB 0588 Oo573* 0581% 
SLEN C001 0014 1175 0540 0547 WTOFF A OC& OF82 0710 o704 
SLINES C 001 0043 1230 0140 0268 0345 0403 oO751 wooci A O0G2  JEAF 0590 oS78 0581 
SNOBSY C 001 CCOB 21240 woo04 A O02 OFB1 OS9L 0583 
SNOTBY A 0C1 OD2F 0398 0394 wi A 004 ODAB 0461 0463 
SNS1 A 002 1C78 1105 w1000 A 002 OFAD 0589 os75 0580 
SNS2 A GO2 1C7A 1306 0404* 0409 0424 0457 0469 0727*% 6728 oO729 XF9CO A O02 1C4E 10682 0141 
SNS2I A CO2 1¢82 1110 0404 0726% 0783% XR1i € 001 ooOok 1137 0536* 0540 0540% 0543 
SNS3 A 002 1C7C 1207 0140* 0141 0268* 0269 0345* 0346 0349 0353 0355 0363 O373 O374 xR2 € 001i 0002 1138 
0379 0380 0403% 0452 0486 0515 O516 0524 0537 0695 0703 O751*% Breve Boe nee ee 
SNSS A002 1C80 1109 zo A 002 1CSF 1093 
SPLOOP A 006 O£F33 0538 0541 Zi A 002 13C6b 1094 
SREAD C 001 0041 1221 0249 C308 0366 0370 ze A 002 1€63 1095 
SRESET C 002 OCS1 1237 0734 O791 9O796 
SSTAT C 001 0042 1229 o727 o783 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = ° 
SSwo2 C 061 0020 1258 
SSwO4 C OG1 OCOB 1159 is pA Ss et 
7 “sswo? € 002 0001 1160 
SSwiA C 001 0020 1171 g 
SSw10 C 001 0080 1361 i 
SSwil C 001 60429 1362 
SSvet2 C€ 001 0620 1163 
SSw13 C 001 O610 1164 
Ssswiaé C 001 0008 1165 
sswiS C€ 001 9034 1166 0300 
SSwl6 C O0G1 0G02 21167 
Sswi7 C001 0001 1168 
SSw18 C G01 0060 1169 . 
Sswi19 C001 0040 1170 | C 
SSW2F C 061 00913 1:72 
STAB A 020 128C 0949 0536 | 2 
STATB® A O0O1 1126: 0937 0528 = 
STATER A 0Cl ODFD oO512 0347 0453 
STATMG A 040 1175 0939 0528 052 | a 
STATRR A 004 OFS5S6@ 06553 O513* 6517 | \ 
STATXX A 039 114D 0938 0525 | 
STAT1 A O01 OFF 0519 0514 
SUPINT C 001 0010 1241 | ¢ 
SwWRITE C GO} 0042 1222 0158 0362 0432 0685 0845 
SYSTEM C 001 0200 1144 
$i A 001 1€43 1075 ; & 
$2 A 001 1€44@ 1076 
$3 & 003 1C45 1077 ies, 
$4 A 001 1€C46 1078 | u 
TESY C¢ 001 G02 1209 0393 0395 ; 
TEST COOL 0212 1133 
TNR © 0C1 6040 1208 €, 
TOOBSY A 001 OGEED 0626 0396 
Two A 0C2 1C4@A 1089 _ 
UoT1 A 003 ocAcc 0019 ‘. 
UNE & 001 2045 0799 1687 
‘ i 
DATE O1AUG74 15NQV74 164UN7S PROG ID 404-2 DATE OLAUGTS 15NOV74 165UN75 PROG ID Pree 
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e co eee e 
GBK GSD PN 55 
es ee 
Tt+-Y:EDH & 8-7 
T+-Z50H* BF~DXD1~ 
ri e 
T+-BOCE17 /CHE Kx 
ame ® 
Tt—e eSOHEOXBG SY 
° e 
T+-%W JLAGD#F2 JG 
Tt-_/GF%<wi GSDXP 
e =_® 
Tt-> 6p. SCHE S~ 
e » 
T+? KeMXeAG SY 
T+~0« [ODOC ETINGE® 
eo 
T4~-10xXXBGB"T 700 
° ° 
T+-2H] *<4<BG 7/2 
T4+=-3C/0HE x#Pp-j 
e 
T+-3=DAARtE<C 438 
° > 
TtH#~49 SIHOT EK 
. 
T+-5S4- CAGGY#-T3 
Te-67 6-4 00D | One 
‘T4#- 7D 706 TOme (5 ¢ 
_e 
T¢-B8VLi>KEH* /OH 
° 
T+~-9- )MBCO-DKT 0 
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e e 
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ec o 
f02TCO #OLivays 
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KOH BEF-HXEL? 70H 
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es e e 
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6 | H*<4C3"GE a Al 
ALL(VOH*8F-DxDa3 


e e 
BF-OXxXEO" /CHE S* 


e 
SOHE S¥*NG<KEBG /Y 


+OHHEL INGE ¥2( A} 


<OHF4+2%BGB2X /0_ 


° 


BF-DXEI7 /OHEDSB 
°° e 
E KanNt+a3G /YBL1G 
s e 
K& SisGF~-< /GHGF? 
eo 
@O/ ECHSBFRRIFSZ 
FCN*8nuCé ff aen<B 
s 
&7@BGCCEC4GB 7SCH= 
*S"HERLI ACJS2/ 2H 
oo eas 
#M(< COBCOXAE-4 
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; OAG2 86 Oa62—s S11 DC XL1* 808 
0A63 19 OA63 «52 pC s«TLA* 259 : 
Cc OA64 40C3D0240E2E3C1E3 CATC 53 SNSO11 DC CL25* CK STATUS XXXX XXXKX KXXX* | o 
oS OA6C E4E240E TETETE 740 53 den 
ms OATS ETETETETSOETETET 53 | sane 
2 OATC ET 53 re) 
54 
OATD 80 OA7D «SS oc xXL1°808 | 
Cc OATE 19 OATE 56 pc san *258 : © 
i OA7F 4007D9C9D5E340D7 CAO? 5? SHSALO DC CL25* PRINT POS XXX XXK XXKE | 
ees OA87 D6E24040E TE 7E740 5? 
Cc OASF 4OETETET4040E7E7 57 i © 
OA97 ET 57 | 
C io | 
.. DATE 285UL69 28NOV69 Z20JANTO PROG 10 OEOF-2 | wows DATE 28JUL69 28NOV6E9 20JANTO PROG 3D OEOF=1 
EC NO. 816444 816542 816548 PAGE 2 | eee EC NO. 816444 816542 816548 PAGE AA 
C | 9 
g ; r : od 
ec 


. 






c —= —_— : re 
G 





o | . 
B¥ee ion a 
sas, IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589915 «18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589915 - 
C PAGE z2 PAGE 2a 
EOF1 EOF = 5203 PRINTER SYSTEM TEST MODULE Oo ECFi EOF - 5203 PRINTER SYSTEM TEST MODULE 
>.>. ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT ‘pane ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
moo Are 
Cc 61 FESEESESESSAESEESESESEAARERSSKSRRERS SS AHRERLERENSRSSCESSEHRS EKA CES ENS EEKEEE °o 129 * 
62 * ROUTINE OL — 5203 SYSTEM TEST MODULE * | 120 ** THE FOLLOWING CODING DETERMINES WHICH FAILURE HAS OCCURRED AND 
: 63 EESEKSEE SES SEEEREAE SEEREE AEERETESESESLEASSSERESSS SEEK GKEELK ERT AKEKE EOE OK 131 ** SETS UP THE PROPER HALT CODE. 
o 64 © « | @ 132 #0 
65 ® COMMANDS ARE ISSUED TO THE 5203 IN RANDOM ORDER FROM A CONMAND * 133 ¢s 04 - CHAIN SYNC CHECK. 
ee 66 * TABLE. SKIPS ARE TO THE NEXT LINE ONLY. * ! 134 #8 05 ~ INCREMENTER SYNC OR SLIP CHECK. 
Cc 67 * * © 135 O06 - INCREMENTER FAILURE CHECK. 
68 FESESESERERSESEASEESE SEES EE SEEKECAKKSECESERRASEKSSERSS STKE SE EEKEREKS HERSRERER 136 «* O09 ~ HAMMER ECHO CHECK. 
0a99 01 OA99 «69 RTNOL OC XL1L*O1* ROUTINE PREFIX 137 ¢¢ OA = ANY HAMMER ON CHECK. 
c OA9A 00 “OA9A = 70 pC séXL1°0° |; 90 138 ¢* O7 - THERMAL CHECK. 
ee OASB FFFF oases 71 oc XL2*FFFFS Ceuu. 139 #+ O01 - CARRIAGE SYNC CHECK. 
aeae ©asD 72 USING BEGIN»1 “ 140 e* O02 - CARRIAGE SPACE CHECK. 
© @a9D)—s 73 USING BEGIN, 2 141 ** 03 - FORMS CHECK JAN. 
OA9D C2 02 OADD 74 BEGIN LA BEGIN, XR2 LOAD BASE REGISTER \ 142 #* 08 - NO OP STATUS BIT SET WITH NO OTHER ERROR. 
OAA1 3C 40 ODCT 75 MVI PFIELD#131,C*® * PUT BLANKS IN PRINT AREA 143 +* OC ~ UNPRINTABGLE CHARACTER SKIPPED. 
Cc OAAS 3C 40 ODC6 16 MVI = PFIELD#130,C* °* 1 O | 144 * . 
OAAS 30 E3 ODC9 77 SNS PSTAT,X*E3* STORE PRINTER STATUS bos 08682 C2 01 OCOF 145 La SNSTAB—-3,XR1 POINT AY TABLE OF SENSE /HALT INFO 
OAAD 38 04 ODC9 - 78 TON PSTATsX*04* ; 0886 D2 O1 03 146 SNSLP LA 34oXR1) .XR1 INCREMENT TO NEXT ENTRY 
<a OAB1L F2 90 OF 79 Jt £0120 BRANCH IF NOT 48 CHARACTER CHAIN \! OB89 1C 00 0894 00 147 mvc CHECK141(13,0€eXR1) MOVE MASK TO CHECK NEXT ERROR BIT 
OABS OC 2F ODC5 Os2F 80 MVC] = PFIELD¢129{48),LPIMAG¢4¢7 SET UP FOR 48 CHARACTER CHAIN OB8E 1C 00 0896 01 148 MVC 8 =—- CHECK 2410239102721) 
OABA OC 51 0095 CDCT 81 MVC PFIELD¢81(82),PFIELDe132 0893 39 OO ODC8 149 CHECK1 TBF PSTAT-1,%-* CHECK TO SEE EF THIS £S ERROR EIT 
Cc OACO F2 87 OC 82 J SETPRF . Gg 0897 39 00 ODC9 150 CHECK2 YBF PSTAT,¢-* DETECTED 
ee OAC3 OC 77 ODCS OB77 83 LDI12Z0 MVC) = PFIELD#129(120)9LPIMAG*119 SET UP FOR 120 CHARACTER CHAIN [ais OB98 CO 10 0886 151 BT SNSLP CONTINUE IF NOT 
aass OAC9 OC 09 004D cDET 84 MVC = PFIELD#9¢10) , PFIELD¢131 wee OBSF 1C 00 OBAD 02 152 MVC = PHALT(13520eXRL? FOUND IT = SET UP HALT 
¢ OACF 3C 00 0876 85 SETPRF. MVI  LPDATA=1,X*00* LOAD SYSTEM TEST FLAG INTO PRINT FLD | V OBAS CO 87 0222 153 DOHALT 8B HALT ERROR HALT 
OAD3 31 EO OCDA 86 LIG 8 N112,X*EO® LOAD PRINTER &SRS | OBAB E000 OBA9 154 PHALT OC XL2* EO00* 
OAD? 31 &4& OCHC 87 LIG X800,X*E4! OSAA 3C 00 0878 155 avi LPDATA-1,X*O* : 
Cc OADB 31 E6 OCDE 88 LIO X87C,X*E6* : Oo OBAE CO 67 OCCe 156 B coouT EXIT MODULE 
OADF C2 01 0D01 89 FIRSTC LA CMDTAB—2,XR1 : INITEALIZE POINTER TO COMMAND TABLE 0682 Cl EG 0889 157 CKBUSY TIG ISBUSY,X* E6* BRANCH IF PRINTER BUSY 
es OAE3S 34 O1 ODCB 90 ST CMDPTR»xXR1 he 0886 F2 eT 14 158 J CKCARR GO ISSUE COMMAND IF NOT BUSY 
C OAET 35 O1 ODCBE 91 LDPTR L CMDPTR,XR1 INCREMENT POINTER FOR NEXT COMMAND 9 0889 OF O01 ODDS OCD4 159 ISBUSY SLC TIMOUT(2) ,ONE GO SACK TO SUPERVISOR IF NO TIHEGUT 
OAEB D2 01 02 92 LA 2yXRL},XRL ; OSSF CO OL OCCS 160 BNZ GOOUT 
: OAEE 7D 00 GO 93 CLI 04, XR19 eX" O08 RE-INITIALIZE Ff THIS IS LAST | _ 08C3 CO BT 0222 161 B HALT *BUSY TOO LONG 
C OAF1 EO 81 42 94 BE  —- FIRSTC(.XR2} COMMAND OQ O8C7 E014 osce 162 DC =: XL2* E024" 
sgn OAF4 34 01 ODCB 95 ST CMDPTR»XR1 OBC? CO 87 OCCS 163 8 Go0uT EXIT SUBROUTINE 
ages OAF& Cl EO OBOE 96 TIO LPERR,»X* EO" BRANCH IF ANY PRINTER ERRORS/NOT ROY = |; OBCD 38 80 0209 164 CKCARR TEN SBYTE1L,SSWOS SET UP TO CHECK LEFT OR RIGHT CARR. 
é OAFC 30 E3 ODC9 97 SHS PSTAT,X*E3? STORE STATUS Co CBD F2 90 07 165 JSF SLEFT LINE COUNTER DEPENDING ON SSHuO8 
OB00 39 E2 CDCS 98 TBE PSTAT,X*E2* . OBDS 30 EO ODCD | 166 SNS LCIS,X*EO® RIGHT CARRIAGE . 
0804 39 F7 ODCe 99 TBF PSTAT=1,X*F7* O8D8 F2 87 04 167 J CKDCP 
c 0808 CO 10 oB82 100 BT  CKBUSY BRANCH IF NO ERROR STATUS ~G OBDB 30 EC ODCE 168 SLEFT SNS LCIS+1 X*E0° LEFT CARRIAGE 
ae OBOC 30 £3 ODC9 101 LPERR SNS  PSTAT,X*€3* STORE STATUS ieee OBOF 30 FF 0878 169 CKDCP CLE LPDATA-1,X*FF* BRANCH IF DCP DID NOT PRINT 
i 0810 39 E2 0DC9 102 TBF PSTAT,X*E2* IF NO CHECK CONDITIONS, GO EXIT a ole OBES F2 82 OA 170 JE CKLINE = 
. 0814 39 F7 ODCS 103 TBE PSTAT=1,x*F7! : @ OBE6 OC OO ODCF oDcD 171 mvc) 8s LC SBE1),LCIS NO OP LINE COUNTER CHECK 
0818 CO 10 OCCcs 104 BT GOOUT _ '  OBEC 3C FF 0878 172 MVI LPDATA~-1,X*FE* 
O0B1C 38 O02 ODC9 105 TBN PSTAT,X*02* SKIP ERROR HALT IF UNPRINTABLE CBFO OD OO ODCD ODCF 173 CKLINE CLC 1C1S€1),8CS8 CHECK LINE COUNTER 
& 0820 38 60 ODD6 106 TBN FLAGsX*g0* CHARACTER ERROR AND HAS ALREADY (OQ OBF6 F2 81 50 174 JE LOCHD 
aids 0B24 CO 10 OCCSs 107 ' BT GOOUT BEEN INDICATED OBF9 04 20 OD35 OCDT 175 ZAZ = LCERR-1303), OZERO(2? 
qarn 0828 3A 80 ODDS * 108 SBN FLAG eX*80" OBFF 04 20 O0D41 0CD7 176 ZAZ LCERR=1 (33 .DZERO(1) 
c 0B2C 30 E6 ODD3 109 SNS PSTAT2—X* E6* STORE LPDAR Co OCO5 CC 00 ODD1 ODCD 177 MVC =9WORK(2)9—LCIS SET UP ACTUAL LINE COUNTER 
0830 OC 03 OAS? OASC 110 MVC = ECMDS-1004),ECMDS-5 PUT LAST COMMAND IN PUSHDOWN TABLE OCOB 0S 20 0D35 ODS 178 ISLOOP AZ LCERR-13(3) DONEC) 
. OB36 OC 03 CASC OA6L ill MVC = ECMDS=5 (4) ,ECMDS OF ERROR COMMANDS OC11L OF 00 ODD1 OCD4 179 SLC = WORK C13 gONE 
G OB3C CO 87 O2Z1E 112 8 UNPACK o 0C17 CO 01 OCoB 180 BNZ SLOOP 
OB40 02 0840 113 DC IL1"2° cy 0C18 OC 00 ODD1 ODCF 181 MVC «WORK (1) -2.CSB SET UP EXPECTED LINE COUNTER 
OB41 OA37 OB42 114 > DC AL2(CMD3) bore 0C21 06 20 0041 oCcDe 182 SBLOOP AZ LCERR=1(3)eMONE(1) 
aCe 0843 0A61 OB44 115 DC AL2CECHDS) Cc 0Cz7 o 00 0001 0CD4 163 SLC wpe tlhe 
0B45 OC 03 OAT2 OAT? 116 MVC = SNS011-1014) »SNSO1L=5 PUT CHECK STATUS IN PUSHDOWN TAB oC2D 01 0C2) 1846 BNZ = S8L 
OB4B OC 03 OAT? OATEC 117 MVC SNSO11-5¢4),SNSO11 ee 0C31 CO 87 021A 185 8 PRINT PRINT LENE COUNTER ERROR 
& 0651 CO 87 021€ - 118 B UNP ACK PUT STATUS IN ERROR TACLE © 0c35 CS 0C35 186 oc XLB°CS*® RESSAGE 
woe 0855 02 o855 119 oc —sdILA*2¢ 0C36 27 0c36 «187 oc =—s:« IL. °398 . 
hs 0856 ODC9 0B57 120 DC AL2(PSTAT) cf 0C37 0D42 oc38 188 oc ALZ2(LCERR) -* 
e OB58 OATC oB59 121 oc AL2(SNSO11) 0 0C39 €033 OC3A 169 oc XL2*EO33° 
OBSA OC 02 OAD OAgZ 122 MVC = SNS110-10(3) »SNS110-5 PUT PRINT POSITION IN TABLE 0C3B CO 87 0222 190 8 HALT HALT ON ERROR 
“0860 OC O02 OCA92 CADT CC 123 MVC) = SNS110-5(3),SNS110 ‘O0C3F £033 océo «6191 oc XL2*E033° - 
—. 0866 OF OC ODD3 OCEL 124 SLC PSTAT2¢11,X78 : C 0C41 3C 00 0878 192 MVE «=s- LPDATA-1.X°0* SET UP TO SKIP NEXT LENE CTR CHECK 
—. O86C 04 20 OAS? OCDT 125 ZAZ = SNS110(3) ,DZEROC1LI ; a Qu 0C45 CO 67 0852 193 6 CKBUSY 
O872 06 20 OAST ocDa 126 PPLOOP AZ SNS110(3) »OONEC1) sage 0C49 35 01 ODCB 194 LOCMD L CMDPTR, XR1I LGAD POINTER FOR THIS COMMAND 
C. OB78 OF 00 ODD3 oCcDe 127 SLC PSTAT2(1) -ONE oO OC4D 1C 01 OCC1 01 195 MVC «=—- STRT1042€22010,XR13 MOVE INTO COMMAND 
OB7E CO 01 OB72 128 BNZ  PPLOOP 0C52 78 02 00 196 TBN 0 eXR25.xX*02* BRANCH IF NO PRINT 
Cc © . 
DATE 283UL69 28N0V69 205ANT0 PROG ID OEOF~1 DATE 28JUL69 28NOV69 20JAN70 ; PROG 1D CEOF=1 
EC NO. 8164644 816562 816548 ; PAGE 2 EC NO. 816444 816542 816548 PAGE 2a 
C ° 
to . 
< ° 
Ned 4 
aang ° cee 
Cc 0 
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-- TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NG. 2589915 lease IBM MAINTENANZE DIAGNOSTIC PROGRAR PART NO. 2589915 
C PAGE 3 | 9 PAGE 3A 
EOF] EOF = 5203 PRINTER SYSTER TEST MODULE | 0 EOF] EOF = 5202 PRINTER SYSTEM TEST HODULE 
¢ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SCURCE STATEMENT 
C 9C55 F2 90 12 197 JF CKSKIP oe &: OD1C D3C9IDSC540C3D06E4 0042 262 LCERR OC TL3O°LINE COUNTER ERROR. ES XXX. SHD BE XXX.° 
0C58 OC 00 0043 ODC7 198 MVC «- PETELD-102),PFIELOSi32 RIPPLE PRINT FIELD 0024 D5E3C5D940C5D909 262 
OCSE OC 83 ODCT CDCS 199 MVC «- PFIELD#131(132),PFIELD4130 OD2C D6094840C9EZ240E7 262 
Ce OC64 OC 83 OBFF ODC7 200 MVC LPOATA+131(1321),PFIELD¢i31 MOVE TO PRINTOUT AREA Cc 0034 ETE7T4B4GE2C 86446 262 
ea OC6A 70 FF Ol -, @01 CKSKIP CLIT 1U,XR1L9,X'FFE BRANCH IF NOT SKIP TO NEXT LINE l guage OD3C C2C540ETETET4SB 262 
cara OC6D F2 01 18 202 JNE SETiC [Sana 263 
E OC70 OF 00 ODCF oCDS 202 ALC LC5B8(1),ORNE G 244 *ebeeeeseessaesereses 
OCT6 OC OO OCC1 OCDCF 204 MVC = STRTI0#2013,0CS8 SET UP TO SKIP TO MEXT LINE 265 * RESERVED STORAGE *#€90886624% $4620 08S S9SE69526 43 TE46 SESESERESED ELSES 
OC7C 3D 70 OCCi 205 CLI STRT1IGe2, 112 IS WE OVERFLOW LENGTH, SET UP i 266 PEERESESESSESESEREESD 
C O0C80 FZ 04 18 206 JNH LOETAS TO GO TO LINE 1 oO 0D43 0043 267 DS chi DUNMY BYTE FOR RIPPLE 
0C83 3C 01 OCCl 207 MVI «= - STRTIOQ4+Z51 0044 268 PFIELD EQU & PRINTER WORK FIELD 
0C87 3C 00 ODCF 208 MVE = LCSB,0 CD44 ODC? 269 DS Ci132 
C OC8B OE 00 ODCF OCCl 209 SETLC ALC LCSB(1)9,STRTIO42 SET UP EXPECTED LINE COUNTER TO WHAT © ooce ODC9 270 PSTAT DS CL2 PRINTER STATUS 
0C91 3D 70 ODCF 220 CKi12 CLE LCSB,122 IT SHOULO BE AFTER THIS COMMAND i ODCA OOCB 273 CHDPTR DS CtL2 COMMAND TABLE POINTER 
0C95 F2 04 G6 211 ; JNH  -LDETAS 3 eocc OOCD 272 LCS os cL2 ACTUAL LINE COUNTER 
Cc OC98 OF 00 ODCF OCs2 212 SLC LCSB419¢CKL1241 TAKE CARE OF CROSSING LINE 112 @ OOCE . ODCE 273 DS ci, 
i OC9E 38 80 0209 213 LOETAB TBN SBYTEL,SS#OB PRINT USING RIGHT CARRIAGE IF SSHOB | ... ODCF OOCF 274 LCSB OS cLi EXPECTED LINE COUNTER 
ea OCA2 F2 90 04 214 JF +7 IS ON jad oD00 0001 275 WORK OS cL2 : 
t OCAS 3A 08 OCTO 215 SBN STRT1041,.x*08* GO obc2 0003 276 PSTAT2 DS cL2 
OCA9 38 60 ODD6 216 SBF FLAG,X* 80° TURN OFF UPC FLAG oD04 OD0S 277 TIKOUT DS cL2 
OCAD OC O1 OAZF 0433 217 MYC CMD1(23_CMD2 PUT THIS CGMMAND IN PUSH-GOWN TABLE i oDD6 ODD 278 FLAG OS cLi 
C 0CB3 0C 31 0A33 0A37 2is MVC =CM02{2),CMDS C 273 
OCB9 OC O1 OA37 OCCi 219 MYC = CHO 3. (2) s STRT T1042 sabe 280 Seteneaen se 
OCcBF F3 OC O00 220 STRTIO Sig Hw, Soe DO CGMRMAND = Z81L * EQUATES 242996663629 5229 £3 AHS SECESKHAEAHISSSRESASKS SD EKES KESTKVSS SHY VSRE GE 
Cc OCC2 OC 01 CODS OCEG 221 _MVC  TIMOUT(2),TIME SET UP BUSY TIMEOUT | ¢ 282 44448468284 
OCC8 3D EO OA00 222 GOOUT CLI X*A00', Xt EF CHECK TO SEE IF SECTIGN RELOCATED 0010 283 IAR EQU) -k*10° INSTRUCTION AOGRESS REGISTER 
OCCC CO 01 OADA 223 BNE ENTRY YES, GO TO SYSTEM TEST SUPERVISOR COC8 284 ARR EQqU) = X*O8* + ADDRESS RECALL REGISTER . 
C OCDO EC 87 4A 22% B LOPTR(»XR2) NO, REMAIN IN TEST © 0001 285 XRL EQU = x*01° IMOEX REGISTER 1 
ae 225 C002 286 Xk2 EQU x'O2¢ INDEX REGISTER 2 
ae ko 226 *4teeese genes xy 287 
é Z27 * CONSTANTS €¢9¢8 829422532246 594524 S2ER494 2555085 C4 SSESE CHETESSE £44849 CG 0208 288 SBYTEO EQU xX*208* FIRST BYTE OF COMMON SENSE SWITCHES 
228 s42824048 R404 9209 289 SBYTE1 EQU <XK*209% SECOND BYTE OF CONMON SENSE SWITCHES 
0co3 0001 CCD4 22¢ CNE oc ¥L2*28 O20A 290 SBYTEZ2 EQU X*Z20A* FIRST SYTE OF SECTION SSwS 
ce CCO5 0002 OCD6 2365 THRO DC 1L2¢2° CQ C208 291 SBYTES EQU X*206* SECOND BYTE OF SECTION SSS 
7 OCDT FO OCB? 231 DZERO OC DL1*0° | geet 0212 292 TEST EQU = x*212¢ SRT ~ ENTRY TO CHECK CONSOLE SS 
ocos Fl OCDB 232 DONE OBC DLitit | Ey C216 293 LINK EQU = XK*216* - ENTRY TO CHAIN ROUTINE oe 
Cc 0co9 7070 OCDA 233 N112 DC XL2* 7070! mo 021A 294 PRINT EQU X*ZLAS - ENTRY TO PRINT 
OCDB 0800 OCOC 234 x800 830 —Ot xL2* 800° OZiLE 295 UNPACK EQU x*21E* - ENTRY TO CONVERT HEX TO EBCDIC 
OCOD C87Cc CCDE 235 x87C oc XL2*B87C* i 6222 296 WALT EQU X* 222° - ENTRY TO HALT 
c OCDF 1770 GCEO 236 TIME OC 11276060" Go 0226 297 PACK EQU x*226* - ENTRY TO PACK EBCDIC TO HEX 
aene OcEl 7B OCEL 237 X78. oc XL1°*76¢* 0232 298 UTAB EQu x*232° ~ DCP UNIT TAB8LE 
eave GCEZ 236 SNSTAB EQU = TABLE OCF ERRGR STATUS/SHALTS t G800 299 LPIKAG EQU x*8C00° FIRST BYTE OF 5203 PRINT IMAGE FIELD 
C OCEZ 0080046040052000 OCFE 239 oc XL.21*008004004 005 1 0000604000 902000400 2007800008 © Q- O87C 300 LPDATA EQU = xX*87C* FIRST BYTE OF 5203 PRINT DATA FIELO 
OCEA 0604000902000A00 239 301 
OCF2 2007800001 239 . 302 * 
Cc OCFT 4000022000030100 OB02 240 oc XL12* 40000220000301000800020C* ' 303 ** SENSE SWITCHES. 
OCFF 0800020C 240 dhe 304 # 
- 241 * Ane 0004 355 SSWOS EQU xX*04* PRINT ON MFCU 
Cc 242 ** TABLE OF COMMANDS. ; | © CC80 306 SSwoe EQU x*80* USE 5203 RIGHT CARRIAGE 
243 * 307 
OD03 244 CMDTAB EQU ® OAOA 308 ENTRY EQU  X*ACAS MULTIPROGRAMMING ENTRY 
Cc 0003 E201 OD04 245 oc XL2° E201" PRINT 6 SPACE 1 ' oO CaAID §=309 END 8 =6BEGIN 
bas 0005 E202 OD06 246 DC XL2*E202# PRINT & SPACE 2 
aeas ODO? E201 opos® 247 oc XL2*E201° 
Cc 0009 E203 OfO0A 248 pet XL2*E203° PRINT & SPACE 3 0 
ODOB E201 Opec 249 DC XL2*E202° 
ODO0D £000 ODOE 250 oC XL2*E000# SPACE 0 
C ODOF E201 ODIO 251 oC XL2*E201° . Oo 
OD11 £003 OD12 252 DC XL2*ECOL® SPACE 1 S040 
0013 £201 ODlL& 233 pc xL2*E201° Phen 
G 0015 E6FF ODIG 254 pc XL2°*E6FF* PRINT & SKIP TO LINE XX © 
0017 £201 0018 255 oc XL2*°E201° 
OD19 ESFF ODIA 256 oc XL2° EQFF® SKIP TO CINE XX 
oO oD18 00 OD1B 257 OC XL1°0° oo o 
258 
259 s*oeeregeesees ’ 
Cc 260 © PRINTOUTS 6299969 0845 $6 $9 OS 9455 OS OFETEEEESETRESEHSSS Ch ESSESERRETESESES © 
261 Seenzeseeeses ‘ 
vvee DATE 28 JULOS ZENNVED 2OJANTO PROG 1D CEOF=-3 2 ewen «DATE ZBWULSS 28N0V69 2OJANTO PROG 10 CECF=2 
~s EC NG, 814464 826542 316548 PACE 3 .@4me EC NO, BL4S44 316542 816545 PAGE Za 
a 
=e @ o 
7 J 
ae Cc i @ 
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: 1BM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589915 IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 2589915 | 
¢ PAGE 4 9 PAGE Ye 
¢ EOF. €0F = 5203 PRINTER SYSTEM TEST MODULE 6 EGF EOF = 5293 PRINTER SYSTER TEST MODULE 
ee CROSS-REFERENCE nyse CROSS-REFERENCE - “4 
C” SYMBOL T LEN VALUE DEFN REFERENCES © SYMBOL T LEN VALUE DEFN REFERENCES 
ARR C 001 0008 0284 : SPFLGS A 0601 OA0Z2 0017 
C BEGIN A 004 OASD 0074 0072 0073 0074 0309 ©  SPUDT A 001 OAOA 0022 
CHECK] A 004 0893 0149 01467¢ SSWOS C 001 0004 0305 . 
. CHECK2 A 004 0897 0159 Gi48* S$S¥O8 C GOL GO8G 0306 0164 0213 
‘©  CKBUSY A 004 CBB2 0157 0100 0193 ©  STRTIO & 003 OCBF 0220 0195% 0204 9205 0207* 0209 0215% 0219 
CKCARR A 004 OBCD 0164 0158 TABADR A 002 OA09 C021 
CKDCP A 004 O8DF 0169 0167 TEST € 001 6212 0292 
€  CKLINE A006 OBFO 0173 9170 © : © TIME A 002 OCEO 0236 221 
ae CKSKIP A 003 OC6A 6201 0197 eee TrImcUT A O62 ODDS Oo277 O15S9¢ 02212 
sar, CKI12 A 004 O0C91 0210 0212 ae Two A Q02 O0CDS 0230 
¢ CMDPTR A 002 ODCB 0272 0090* C091 0095s 0196 | UNPACK C O01 O22E 0295 0112 6218 i 
CMDTAB A 001 0063 0244 9089 . UTAS C€ COL 0232 6298 
CMD1 A002 OA2F 0036 0217 fe WORK 4 0C2 O001 6275 OL77* 0179% 01814 01534 
C  cMo2 A002 0A33 0039 0217 0218¢ | XRT C 001 0001 0285 0089% 0090 0091* 0092 0092* 0693 0695 0145% 0146 0146* 0147 0148 
CMO03 A 002 OA3T 0042 0114 ©6218 02194 0152 0194* 0195 0196 0202 
‘DOHALT A 004 OBA4S 01523 i xXR2 C OOL 0002 az2ké OOT4¢* 0094 6224 
€ DONE AOOl ocDR 0232 0126 0178 0162 1 C  x7e A001 OCEl 06237 0124 
DZERO A COL OCD? 0231 0125 0175 O176 x800 A 002 OCPC 0234 0087 
ECMDS A025 OA61 900469 0110 O1LL0* OLLE O1LL® 0115 | xeTc & 002 OCDE 0235 008s 
C ENTRY C 001 OAOA 0308 0223 1 O . 
eta; ERRTAB A001 OA0D 0028 0021 TOTAL STATEMENTS FLAGGED IN THES ASSEMBLY « eC 
agag EOF A 001 6090 0003 . 
C  FIRSTC A 004 OADF 0089 0094 : | @ 
FLAG A001 ODD6 0278 0106 0108* 62162 
FRTIN A 002 OA07 0020 
‘C GooUT A 006 oOCcC8 0222 0104 0107 0156 0160 C163 iG 
HALT € OOL 0222 0296 0153 0161 6190 ee 
TAR C 001 OC1O0 o283 anon 
C -ISBUSY A C06 OBB9 0159 0157 19 
: ISLOOP A 006 OCOB oO1i78 0180 | 
LCERR A 039 0042 0262 O0175* O176* OL78* 0182 0188 
€ cis A002 opcD o272 0166* 0168 0171 0173 0177 © : 
= seg LCSB A OOL ODCF 0274 O171* 0173 0181 6203* 020% 0208* 0209% 0210 o212* pot 
1495 LDCMD A 004 0649 0194 0174 om 
C  LDETAB A 004 OCSE 0213 0206 0211 Oo 
LOPTR A004 OAET 0091 0224 
LD120 A 006 OAC3 0083 0079 
© LINK C001 0226 0293 °o 
LPDATA C 001 O087C 0300 0085* 0155 0169 0172% 0192* 0200¢ $e" 
LPERR A004 OBOC 0101 0096 OC 
C  LPIMAG C 001 0890 6299 0080 oC83 9 
N112. A 002 OCDA 0233 0086 : 
ONE A G02 OCD4 0229 0127 0159 0179 6183 0203 
C PACK C001 0226 0297 G 
ov; PFIELD A 001 0044 0268 O0075* O0T6* 0080* 0081 0082* 0083% 0084 0084* 0198 0198* 0199 01998 PS 
aeae 0200 ha 
C  PHALT A 002 OBAS 0154 01528 , 9 
PPLOOP A 006 OB872 0126 0128 
PRINT C001 021A 0294 0185 
C PROGID A 002 OA01l 0016 — ' © 
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}BR MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589951 184 MAINTENANCE DIAGNOSTIC FROGRAA PART NO. 256935i 
; PAGE i PAGE ia 
E0}3 5203 LINE PRINTER FUNCTION TESTS £013 5203 LINE PRINTER FUNCTION TESTS 
ERR LOC GBJECT CODE ADOR STMT SGURCE STATEMENT ERR LOC GBJECT CODE ADDR STMT SGURCE STATEMENT 
2 DECK 4% GASES OA 0aSs 73 oc i417 *106 
0 aco 3 £0233 START x*a0go* 0487 1801 OAs Vi oc AL2U MAP) 
Gb SFO AITHESE ORIG SHE SEALE SHAK SCKHELHLK SKHSAKKSSREK KS SREHK CHES EL ARE VERSE SHRTSR TREK HEKE OASS CO 87 6222 72 HALIT 8B HAL TF 
5 @ SECTION PREFACE * OA8D EOOE OA SE 73 DC XL2 * EGO E* 
& FPSSREKESSERHEKSE SS FRECKLE RE KRHA KERE SELES KAP ASI AKA E SKK SSASH SEH RLSESERASS OASF CO 87 0216 74 OX¥DOK B LINK 
7 * THIS AREA CONTAINS INFORMATION NECESSARY FOR SECTION GFERATION. % 75 
a # THE PROGRAM ICENTIFICATION, FLAGS AND FIRST ROUTINE ADORESS * 7TH SSEKAEKESKE KS SSK AKSARKEARTHES HESS KE KES LS SSE KSTSKEESHSLSSE SS SKSRS SEKSSK THERE KS 
3 * ARE LOADED BY ASSEMBLED DATA. THE CURRENT ROUTINE NUMBER IS * 77 2 * 
10 * SUPPLIED BY THE CONTROL PROGRAM. SECTION UNT ENTRIES ARE * 78 ROUTINE 2 ~ TIO TO NOT READY DEVICE = 
il % DEFINED PARTIALLY BY THE SECTION SO THAT THE CONTROL PROGRAN * 73 ~% {PRINTER MUST BE NOT READY BEFORE EXECUTING) s 
i2 * CAN SUPPLY OPTION BYTES. * 80 * 2 
LZ PESRSKAASASARSSKSASKELSK ROK SHSEKIELKE SRE SHE HSEKKSECKSEKES ALEKS HERKKSSERESKSKAESS BL ARPRKKSSEKKSESKASAKESE SSHRSAAKSSLSESSRESERSREKKEVTSVEKSCKSSSS PERE SR SELEKTHKK NSS 
OAOT E013 OAG] 14 Bc XL2*EO13°* PROGRAM IDENTIFICATION GASA O02 OA93 82 RTN2 oc xXL1F2° RGUTINE NUMBER 
GA02 00 OAD? 1§ OC XLi* of FLAGS OASe 80 OA94 83 cc xL_1°80O* FLAGS ~- MANUAL INTERVENTION 
QA03 QO} 0A03 16 RNUM oC xXxLitis CURRENT ROUTINE NUMBER GA95 OCAE2 CA96 84 DC Si2 (RTNS) ADORESS OF NEXT ROUTINE PREFIX 
0A04 0000 Caos 17 OC XL2¢°O# RESERVED G5 SEREKRAESEAKEREKKSESSEAESKKEKRE SRE SCKSSERSESERSKEKSSASKEKKSE SV HESKSE KRESS STH SSEKSE SF 
0A06 OAOCF OAOT7 18 oc AL2QR TNA) ADDRESS OF FIRST ROUTIRE PREFIX Oag? Ci EO OADE 86 Tig RINRDY,NRDY SHOULO BRANCH ON TEST OF NOT READY 
OAGCS 1F91 0409 19 DC ALZ(ERT 1) ADDRESS OF ERROR RECORDING TABLE OASB 38 04 0208 87 TBN SBYTEO «SSHOS PRINT ON MFCY 
QOACA EO5000 AKL 20 SPUBT OC XL3* EO05000* UNIT DEFINITION TABLE - PRINTER GASF F2 90 10 88 JF LOARR JUMP TO SKIP PRINTING 
Zk SERERSESRHEESAKSEERREAS SSE SHESECSESLHERERKASAKETLESESHKR HERS LA SERERKHKRE SEES SKLERS OAA2 CC G2 1891 1BAD 89 MVC RORN (3 3, TGN PUT NOT IN NSG. 
22 # * OAAS CO 87 O21A 90 8 PRINT PRINT MAKE NOT READY 
23 % ROUTINE 1 - SENSE COMMAND TO PRINTER * QAAC 41 O AAC Si BC XL1*42° 
24 # {RESTORE CARRIAGE(S) BEFORE EXECUTING) * OAAD 13 GAAD 92 oc 1t1°198 
25 * * OAAE 1897 OAAF 93 oc AL 2(MANORE? 
26 SEREKAEEAAEKRKER SERA HS HARKS HS EK KEKE EKKKRH SKAKKSCHKESLASETSHEKARHEKKKLSELKSERERKE CABO EOEO CARI 94 oc XL2* EOEO* 
OAOD 0101 OAOE e? €EXPi2 ODOC XL2'O1G1* GABZ2 FO 7C 6F 95 LOARR HPL X°6OF® .x*7C# NOT READY HALT 
28 GASS5 Cl EO OADE 96 Tio RINROYeNRDY 1F PRINTER GK, SHOULD BRAKCH 
OAOF O1 OQAOF 29 RI™N1 BC XLitis ROUTINE NUMBER OABS 38 04 6208 97 TBN S8YT EO »SSHO5 PRINT ON MEFCU 
OA1LO OO OA10 3¢ BC Xi 1708 FLAGS OABD Fe $0 18 98 JF TAULT 
OA} OA93 OA12 31 OC AL2 (RTN2}) ADDRESS OF NEXT ROUTINE PREFIX OATS CO 87 O21A a9 8 PRINT PRINT NOT READY ERROR 
BQ RERASKSKSSERKERSEKSSESTRSKAHKACKKKSASLTATLHE SN ELASERELSKESE SRAEAERERS KES SSERLKS OAC4S Cl OAC% 100 oc xL1°C1* 
CA13 38 Gi OAOC 33 TBN SPUOT, BEL* DUAL FEED OACS 14 oOacsS 101 DC IL2*28° 
PALIT F2 10 04 34 JT NIGEB OACEé 1881 GAC? 162 DC AL2 (CCRINS } 
OALA s€ 00 DAOE 35 MVI Ex 12,x*0G" OACS £031 Gaco 103 DC ML 2*EO31? 
OALE 30 EO 1695 36 NIGEB SNS STAIX sX 7£0* SENSE FOR CARR.LOC. OACA OC O1 18D1 18D3 104 My C MAP {2 $8. CHT 1S PUT CHART NO. IN SG. 
BA22 GOD O11 LF9S OADE 37 cic STAEX(2) sEXP12 ARE LINE COUNTERS AT LINE i OaD0 CO 87 O21A 165 B PRINT PRINT PRINTER MAP CHART AQ. 
QOA28 F2 B1 25 36 JE SPALT JUMP OVEK HALT OAD4 81 OCAD4 106 BC XL i*"B],* 
OAZ2B 38 04 C208 39 TBN SBYTEO, SSWO5S PRINT ON MFCU OAD5 OA CADS 16G7 oc Tik*10°* 
Oa2t F2 90 18 40 JF GRALT OADS 1801 OAD? 1068 DC AL2¢( MAP) 
OA32 CO &7 O2Z1A 41 B PRINT PRINT "CMD DECODE ERRORS GAD8 CO 87 0222 109 TALT 8 HALT *@ERROR - TIO FAILED TSG BRANCH 
0 A36 C1 OA 36 42 BC XL1°Ci° GADC £031 CADD 110 oc XL2*E631° 
0A37 10 0OA37 43 oc witist QABE CO 87 0216 111 RINRDY B i INK GO TO OCP TO LINK TO NEXT ROUTINE 
OA38 1684 QA39 44 oc AL2 (REDOP) 1l2 
GAZA E030 OAaB 45 CC XL2"E030° LLZ SHSSSEAESRSEREARLE SESE SSAEAEKE CSE EKTASCTIS SSO RESS SVS RLS SHSS LSS SEKESESSGERKE 
OA3C OC O01 1801 i8D7 46 MVC MAP (23, CHT13 PUT CHART NO. IN MSG. 114 * * 
OA42, €O 87 O21A 47 6B PRINT PRINT PROCESSOR CHK MSG. 115 * ROUTINE 3 ~- FID GN BUSY TO NOT READY DEVICE & 
OA46 Bi 0A46 48 OC xi *81° 116 2 e 
GA4T OA OA47? 49 oc 12p*108 LLY S¥XSSKKERSSHAATCHISKSSSKKHES VSS TSESEESERKRSERKSRAHKES SIESREE RKRE HGS IRE SKE SAGERSS 
0448 1801 GA49 50 oC AL2C MAP) OQAE2 03 OAE2 118 RTN3 oc AL1&36 ROUTINE NUMBER 
OAGA CO BT 0222 §1 GRALT 8 HALT INVALID *"N® FIELD IN SENSE COMD, QAES O90 Q@AESZ 119 DC xL1°O° FLAGS 
OA4E £030 OA 4F 52 oc XL2Z*EO30* OAE4 0816 QAES 120 OC AL2 TRTNG) ADDRESS OF NEXT ROUTINE PREFER 
OASCO Cl E2 OA54 53 SPALT TIC JEXT,PBBUSY LQ] EXE SHRSEKKAAKKASEAKSEKSERTKAARHESCKASSLESRSLHEKETEK SRA SEKARSVREKSKEULKL SKE SERS ASE SIS 
OA454@ 30 FF 0878 54 SEXT CuI UCSFLG, X*FF®* 120 CHAR .I MAG OAté Cl ES OAED iZ2 T10 PRFECU,RUST BRANCH SHOULD NOT OCCUR 
OA58 F2 G1 04 55 JNE SESTAT GAEA F2 87 25 123 J R2EXIT 
QOA5B 3C 39 0463 56 m¥I “ECHBE, X*3G9° SET TEST FOR BIT OFF OAED 38 04 0208 124 PRFCU TBN SBYTE SC, SSHWOS PRINT ON MFCU 
OASF 30 £3 1F93 57 SESTAT SNS STAT6 eX *E3* SENSE STATUS BYTES OAFL F2 90 18 125 JF R2BUSV 
0 A603 38 O4 LFS3 58 TECHBI Yan STAT6e8*100? TEST 48 CHAR.BIT CN OR GFF OAFS CO 87 O2iA 126 B PRINT PRINY BUSY ERR 
OAGT F210 25 59 JT CK YDOK OAFS Ci OAFS 127 Oc ML1i*c 38 
QOASA 38 O04 0208 60 TBN SBYTEO,SSWOS5 PRINT ON MFCU OAF9S 16 OAFO 128 oC iLi*22¢ 
QAGE F2 90 16 61 JF HALIT OAFA 1BC7 OAFB 129 BC AL2(BABUSY) 
OA7T1 CO 87 O21A 62 8 PRINT PRINT CHAIN CHK.ERR SAFC EO32 OAFD 130 DC XL 2*EO32* 
OA75 Cl OA 75 63 oc xLi*ci? OAFE OC O01 1801 180D 131 KYC MAP (2),CHT 17 PUT CHART NO. IN MSG. 
OATO 25 OA76 64 DC ILi*37* 0804 CO 87 O21A 132 B PRINT PRINT PRINTER MAP CHART NO. 
COATT ICSC OA7T8& 65 oc AL2 (CHACHE 3 osos 81 60808 133 OC XL1°Si* 
OAT9 EQCE CATA 66 DC XL2*EOOE ® OBOS OA OBOS 134 DC ri2¢1 0? 
OATB OC OL 28D) iBDF 67? M¥C MAP (2),CHT19 PUT CHART NO. IN MSG. O80A 1801 OB0B i135 oc AL 20 AP ) 
OA81 CC B87 O21A 68 8 PRINT PRINT PRINTER MAP CHART NO. OBOC CO 87 O222 136 R2BUSY 8B HALT @ERROR - TESY 140 ON BUSY FAILED 
OAS5 Bl OASS5 69 oc xXiL1°31* Q0B10 £032 OB1li 137 oc XL2*°E O32? 
DATE 2 SAUGSS 310CTS9 ZEN0VH9 O2MARTO OLNOV TO IS9NO VTi PROG ID 0E01-3 OATE 25AUGES 31 0CT69 ZBNOVES O2MARTO O1NOV7O ONO V7i PROG ID | GEOL <3 
EC NO. 616465 816529 816542 616¢31 816764 818677 PAGE 1 EC NO. 816485 816529 816542 616631 816764 818677 PAGE 1A 
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E013 5263 CINE PRINTER FUNCTION TESTS EOS $203 LINE PRINTER FUNCTION TESTS 


ERR LOC GBSECT COOE ADDR STMT SCURCE STATERENT ERR LOC GQBIECT CODE ADGR SYM? SGURTE STATEMENT 
OBL2 CO 8? G216 234 R2EXIT B L INK GO LIRK TO NEXT RIN VIA Ove O8B2 CLEC Ob58 206 Tis BUSR I pRICABY RiGrt CARR .BUSY 
139 O888 F2 67 30 267 J TEPCU 
L4Q SESRES SEARS SEE RSEKEEKEHAR TES EEREKEES TARR SEVSES SLE KEK VLE SKLERRKAHSL SHS SEH H OBBB OC OF 1COC LESA 708 UFERR MYC PBRCAL S1BUFF PUT BUFFER EN BUSY &S6. 
i141 # % O8Ci X AT OBFB 299 BVI BERALT »X?37 SET SUFFER HALT £0 
142 # ROUTINE 4 - TIO TO READY CEVITE * oecs £2 87 23 216 J JEPCU 
143 $ (PROGRAM HALTS 10 INDICATE PRINTER BUST BE MADE ¥ OBCE COC G7 1COC LBSA 211 BUSLE M¥C PRCAIS3, CARR PUT CARR.IN BUSY BSG 
144 @ READY, THEN ISSUES TEST 1/70 ON NOT READY) % OBCE OC 04 1€03 iB 74 22 MYC RRACI5S) »TEEL PUT LEFT IN BUSY MSG 
445 4 % OBC4 3€ 38 GCBFB 213 MV i BERALT, X*3e8¢ SET LEFT CARR.HALT ID 
146 849 OFS49EEESS99SESSLHESSORSHERBE GRESEAKSTHS LRH SKE KHRRRE RSELHSESKERS BK SKERK GEE O8BDS F2 87 LO 214 me] TEPCU 
OB16 C4 CBi6G 147 RTN4 oc KELE oe ROUTINE NUMBER 6808 OC O7 iCGC 1B5A 215 BUSRI MYC PBCAC&) »CARR PUT CARR IN BUSY HSG 
GB1L? 80 OB1?T i146 DOC xL1°80° FLAGS - MANUAL INTERVENTION OBE1 OC 04 1C€03 1LBSF Z16 MYC RRAC(C5$- THGIR PUY RIGHT IN BUSY MSG 
0818 C868 OB19 149 DC AL2 (RTNS } ADORESS OF NEXT ROUTINE PREFIX OBE? 3¢ 39 OBFB 217 MYVI BERALT ,X%* 39° SSET RIGHT CARR.HALT 10 
150 SERA GR ERE SAKESERESSEREEEHKEEE SERRE EREES EEK KS AEKELE KTH ER ERS SKS FASS SES OBEB 38 04 6268 216 TEPCU TBN SB YTE O- SSWC5 PRINT ON RFCU 
OB1lA Cl EO OB21 151 Tio TYBS, NRODY | OBEF F2 90 18 219 JF JSUSALT 
OBIE F2 87 1A 152 J RE CHK GO ON IF PRINTER READY OBF2 CO 87 O21A 220 8 PRINT PRINT NOT BUSY ERR 
0821 38 64 0208 153 TY8S TaN SBY TEO,SSWOS PRINT ON MFCU OBF6 Cl OBF6 221 DC ML 1°C 2° 
0825 F2 99 10 154 JF R4 NRDY OBF7? 2S OBF? 222 oc ILE tai * 
0828 OC O2 18913 1A29 155 VC RORN( 3} pKNALB BLANK NOT IN READY #SG OBFS 1C22 CBF9 223 bc AL 2UREBUSY) 
OB2E CO 87 O21A 156 8 PRINT PRINT BAKE READY HSS OBFA E000 OBFB 226 BERALT DC XL2* E000° 
OB32 41 OB32 157 oc KLI® 4] 5 OBFC OC O1 1801 1806 225 AVC MAP (2? ~CHTL?T PUT CHART NO. IN MSG. 
0833 13 0833 158 oc 1L12h*298 oco2 CO 87 O21A 226 & PRINT PRINT PRINTER MAP CHART NO. 
0836 1897 0835 159 oc AL2 (MANORE 3 ocoé 61 OcoF 227 oc XLL*ez & 
0836 EOE 0837 160 Dc XL2*E GEL® OCO7 OA °OCOF® 228 DC ILEf& 208 
0638 FO 7C 03 161 R&NREY HPL X*O3* XTC 2 MAKE READY HacT occe i8bdi Oocosg 229 OC ALZUMAP 
0838 C1 EO 0642 162 R4&CHK TIO JT VE eNRDY TEST 31/0 AND BRANCH ON NOT READY OCOA OC OG OC15 OBFB 230 JUSALT MYC YECHIL) eBERALT PUT 10 INTO WALT 
OB83F fF2 87 25 163 J R4EXIT -SHD NOT BRANCH OCLO CO 87 0222 231 8 HALT 
CB42 38 04 0208 164 JIVE TBN SBYTEO eSSHwO5 PRINT GR MFCU 0Ci4 E000 OC1i5 232 YEOW oc XL2°E O00* 
0846 F290 16 165 JF ERR41 OCCL6& CO 87 0216 233 RSEAXITT 6 & INK GO TO NEXT ROUTINE VIA OCP 
0849 5O 6&7 O2Z1A 166 8 PRINT — PRINT READY ERROR 234 
OBGD Ci CB4D 167 oc XLLOCLt 235 SHEEREKREAGKEKRESSESS EEKGE LAE EKES EREKE SKECSKES SE SKSSSSKKK SSE LR EERSTE S KE AHEHE SSE 
OBGE 1A OB4E 168 DC TLLe268 236 * 2 
OBGF 1B8F9 0OB50 169 cc ALZUSNIROC) 237 « ROUTINE 6 ~- LIO*S TE A READY DEVICE * 
08651 E010 OBS2 176 oc XL2* E01 O° 238 * . 
0853 OC 01 1801 1803 17% AVC MAP (23,CHT10 PUT CHART NO. IN MSG. 239 EFSEKE45S$0HEESRSSESTERESESESEEEVESEKTEKESESS SERSESSSEKSSELEKRT SSS SESE STS ISS 
0859 CO 87 O2Z1A 172 B PRINT PRINT PRINTER MAP CHART NO. OCIA 06 COCiA 240 RING bc KL1* 6F . ROUTINE AUABER 
0850 61 0650 173 oc XL1* gi* Ocis oO Oci8 241 oc ML LEDS FLAGS 
OBSE OA OB5E i174 DC iL2*108 OC1C OFS OC1lD 242 oc AL2 (RTNT} ADDRESS OF NEXT ROUTINE PREFIX 
OBSF 1801 OBé0 175 oc AL2 (MAP) 243 FHESEEEEREEESES ESTES SEKSS ERE HE HS SLEKLE KHVSESTHSES ASE YTS SASK SLSSHSKSESSHSE SIS 
0861 CO 87 0222 376 ERR4S!] B HALT # ERROR OC1iE CO 87 140A 244 6 BROUT 
OB65 EOLO OB66 177 oc KL2*°€0108 OC22 31 E4 1846 245 GIDDAP LIG LPITADR,LPIAR LOAD IMAGE ADDR. REG. 
0867 CO 87 0216 178 R4EXIT 8B LINK GO TO NEXT RTN VIA CONTROL PGM O0C26 GC 01 18D1 1607 246 MVC MAP (23 -CHT13 PUT CHART NO. IN SSG. 
179 OC2C 30 E4 1F95 247 SNS STAIXeX®EG* GRAB IMAGE AODDR.REG. 
LGO SHESSEKSSAPARSESHSESHRAS GL SEGSESSERKEKCHKEI KT SERKSHGSRAKKE KAS CREASE KE FS TEKES BDC30 0D 01 LFS95 1846 248 c“e STA 1X2 dL PEAOR IMAGE REG.LGADED CORRECTLY 
181 * * 0C36 F2 61 3F 249 dE coLio WES, TRY DAR 
182 % ROUTINE 5 - TIO ON BUSY TOC READY DEVICE * OC3S 38 04 0208 250 TBN SBYTEO -SSWO5 PRINT ON HFCU 
183 (PRINTER SHGQULD BE READY. TEXT 1/0 ON BUSY SHOULD * . 030 F2 90 32 251 JF TMACLT 
164 * NOT BRANCH) ™ OC40 OC 04 1C31 1C2C 252 fv C LEBAL (535 EGANI PUT IMAGE IN MSG 
185 # : * OC46 CO 87 O21A 253 8 PRINT PRINT IMAGE ADDR.ERR 
186 ESERSOKERERS FAHHSIOSSOSSKS STR CB ERKATASEEKEKASEARKKEKRK AES SE SHKSERE RSLS SKKE SS OCéA Cl OC4A 256 Oc 2°C1® 
G66B 05 0848 187 RIN5S DC XLEO5e ROUTINE NUKRBER OC4B 16 OoC4B 255 cc ILit22*.. 
OB6C 00 O86C 188 oc XL #0°% FLAGS Oc4éC 1042 OC4D 256 Dc AL2(ARWAL) 
OB6D OCIA OB6E 189 oc AL2 RT NGS ADDRESS OF WNEXY ROUTINE PREFIX OC4E EO3A OG4F 257 oc XL 2°EO3A* 
190 SES SEO SETESSESEESEARHERA SESE LHS REKGSHEKEKCERSLEREKHLKKERSE KEK SKEEKELBREKS SHY 0C50 CO 87 O21E 258 B UNPACK ACTUAL IMAGE ADDR 
OBOF Ci ES OB74 . 191 Tid ERR51, BUSY TEST 1/0 ON BUSY-SHD NOT BRANCH O0C54 62 0c54 259 pC Ititee 
OB873 F2 B67 AO 192 J RSE XE T ocss LF95 Ocsé 260 oC AL2(STAIX: 
O876 OC O1 LFSO 1850 193 ERRSL MVC MSECS (25, SFHU OC57 1€49 OSs 261 oc ALZ2COIRIS? TO 
OB7TC OD FF O800 0800 194 Tw CLC LPE (256) ,.L°P2 BELAY OC59 CO 87 O21LE 262 6 UNPACE EXPECTED 
O8e82 OD 3B 0800 O800 495 CLc LPUC6Ob PT 7.5 Oc 5D 02 O0Cc5D 263 oc iLit2? 
0866 OF Gl LFSG 1823 196 Suc MS ECS (23, ONE secs OC5E 1846 QOCSF 264 oc AL2UCPE ADR) FROM 
OBBE CO 8& OB7E 197 BH Tu OC60 ics5 Oc6i 265 oc Ai 20D IR SB 7a 
OB92 F2 BT OO 198 J RAELC END OF ER W/S1G SKIP OPEN J.R-G. OC62 CO OY O21A 266 B PRINT PRINT REG IS & SHD.BE 
0895 Ci Eé OBSC 199 RAELC TIC STLit». BUSY OC66 §1 COC&G 267 BC 1°82" 
0 BSg F2 87 74 200 of RSE XE T OCS? 13 OC6FT 268 oc TLE FL ge 
OB9C Of OF 4COC § B62 20k Stitt Smvec PBCACS), PRIN PUT PRINTER IN BUSY MSG. Océes 1655 M69 2695 oc ALZ (DIR SB? 
OBA2 oc O@ i063 baAz9 202 MYC RRAT ES) «KNALB BLANK LZR CARRS OC6A CGO EF O2LA 270 8 PRINT PRENT PRINTER SAP CHART NOe 
ORAS 3C 23 OBFB 253 ey § BERALT, XLRI Ss SET PRINTER HALT ID OC6E G1 OCéE 272 oc X12 °6E2% 
OBAC ch E2 O865 204 TiG UFERR eo PBBUSY PRINT BUFFER BUSY OCéF Oa OC6F 272 oc TL 1°216% 
OSRO Ci £4 OBCE 205 750 BUSLE «CABUSY Lert CARR. BUSY OCTS 48D) OCT. 275 oc AL 2UMAP } 
BATE 2 SRUGES RLCC TSS 2ONOVE9 O2 BARTG G1NOVTO LINDY 72 PROG 16 CE 01-3 DATE 25hUGE9 310C T69 2 8NGVES O2MAR TO OLNOVTS LO NOVT PROG 10 OE Gi 3 
fi NE BiG4E4 $2 6529 lose? Bis63i Bi 6766 BL E677 PAGE 2 EC NG. 616485 816529 816542 £16633 826764 61 8a7T PAGE 2 & 
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TBM MAINTERANCE DIAGNOSTIC PROGRAM 2589951 


PART NO. ISM HAINTENANCE DIAGNOSTIC PROGRAM PART NO, 2589952 
PAGE 3 PAGE 3a 
EOi3 5203 LINE PRINTER FUNCTION TESTS £013 5203 LINE PRINTER FUNCTION TESTS 
ERR LOC OBJECT CODE ADOR STMT SGURCE STATEMENT ERR itCGC OBJEC Y COSE ADDR STMT SOURCE STAT ERENT 
OC72 CO BT C222 274 IRPALT B HALT IMAGE ADDR REG ERROR HALT 342 * ROUTINE 8 - CARRIAGE SPACE-SKIP TEST 2 
OC7T6 EOZA OCT? 275 oc XL 2*E CBA? 343 % s 
O0C78 31 ES 184A 276 GGOLIG LIO LPDAULR, LPDAR {LOAD CATA ABDR.REES. 3244 SEEKS RELESAS EERE SERERSS HORSE ES EEESE EES TELE SLE SE SARE EE ECEREEEEEEESRORORES 
oc7c 30 E€ 1FS5 evi SNS STAI X_X* EGt GRAB DATA ADOR. REG. ODOA 08 ODA 345 RING oc X12 2°35 ROUTINE NUMBER 
OC80 OD Oi 1FS5 184A 278 CLC STAIX(2},LP BADR GATA REG. LGABER CORRECTLY 0508 CO GD0B 346 oc XLitos FLAGS 
OC 8&6 F2 81 3F 279 JE FCLIC YES, TRY NGO-GP LATCH Oooc OE80 G600 347 DC AL 2TR ING} ADDRESS OF NEXT ROUTINE PREFIX - 
0C69 33 04 0208 280 TBN = SBYTE Gy SSwO5 PRINT ON MFCU 348 SERSELAECERS SESE SIRGESSSESSESSESOSERE AFHARTESETHSRER GES ESERERTOESEEES EREEERE 
OC8O F2 90 32 281 JF LSMET CDOE CC 87 1432 349 8 XIQ MAKE SURE CARR.IS 
OC90 OC 04 1031 1027 282 MVC LEBALI5},ATAD PUT DATA IN BSG. OO12 £401 OD13 356 oc XL 2*ESGORe ON LINE NO. 1 
6C€96 CO 87 O21A 283 8 PRINT PRINT DATA ADDR.REG. ERR ODi4 3C 61 iFA1 351 MYvE LICTReX*O1! SET LINE COUNTER AT 1 
OC9A C1 OCSA 284 oc xXt1*ci?* 0018 C2 G1 1FCS4 352 LA SPSK-2 ¢ XRi LOAD CMD.ADDR REG. 
CC9B 16 OC9B 285 oc TLis22* ODLC 36 O01 1825 353 BACGO A FWG » XR UPDATE CHD. ADDR.REG. 
OCoC 1€42 Oc9D 286 oc AL 2¢ARWAL } 0020 1C O61 1F97 Gi 354 HVC CMOS AVI2})61¢9XRL) SAVE THE CHD. 
OC9E E034 OCSF 287 DC XL2*E034* 0025 C2 02 0883 355 LA LPD47,XR2 LOAD 4S G.ADBDR.REG. 
OCAO CO B87 O21E 288 B- UNPAC K ACTUAL ADDR.REG. 0D29 30 EO if8sD 356 SNS STATGeX*EO® GRAB LINE COUNTERS 
OCA4 02 OCAG = 289 oc ILL ¢2? oC2D 38 80 0209 357 TBN SBYTE1 »SSwWOSs RIGHT CARR. 
OCAS 1F95 OCA6 290 OC AL2U STAI xX) FROM 0031 F2 90 08 358 JF FRANG 
OCA? 1C€469 OCcAsB 291 OC AL 2(DIR IS) To 0034 CO 87 1389 359 B cvo CONVERT RIGHT LENE CTR. 
OCA9 CO 87 O21E 292 8 UNPACK EXPACTED DATA ASDR. OD03€ iFSsD CD39 360 oC AL2 (STATO) FROM 
OcaD 02 OCAD 293 oc ItL1it2e OO3A 186A 0038 361 oC AL 2(0A SH) To 
OCAE 186A OCAF 294 Oc AL2Z2(LPDAOR) FROM 0D3C F2 87 08 362 J MODASH 
OcseOo 1C€55 CCB 295 DOC AL2 @OIRSB) Ta OD3F CO B67 13B9 363 FRANG 8B Cyd CONVERT LINE NG. T DEC. 
OCe@2 CO 87 O21A 296 8 PRINT PRINT REG.IS & SHD BE 0643 1F8C 0044 364 oc AL2(STATO-1) 
OCBé 81 OCB6 297 oc XL1°81°¢ 0D45 186A 80%46 365 . DC AL 2¢@DASK) Oo 
OCB7T 13 @s7 298 DC IL1*19* 0047 &8&C O07 CO 186A 366 ®ODASH #VC Cl8_XR23 DASH MOVE INTO PRINT AREA 
OcBs 1€55 OcB9 299 oC AL2(DIR SB) OD4C CO 87 13689 367 B CVD CONVERT LINE COUNT OF CND.TO DEC. 
CCBA CO B87 O2Z1A 300 8 PRIAT PRINT PRINTER MAP CHART NO. OD5¢ 1F97 0D51 368 oC AL2 (CMDS AV ) FROM 
OCBE 81 OCBE 301 OC XL2*e 3° O0S2 18sEe ODS3 369 oC AL2( SKLINO) TS 
OC BF OA COCcBF 302 DC 7L2 4108 0054 OC OO 1862 188E 370 MYC SPOP(13,SKLING MOVE COUNT INTO SPACE KSG. ALSO 
Occod 1801 Occl 303 oC AL2 (MAP) OD5SA 36 02 182F 372 A TWLVE 2X R2 UPDATE MSG.ADDR REG. 
OCce CO 87 6222 3204 LSMFT 8B HALT DATA ADDR.REG.ERROR HALT OD5E &C OB OO 1882 372 MVC C(12 ,XR2},S POP PUT SPACE MSG. IN PRINT AREA 
OCC6 EC34 OCCcC7 305 — oc X12* 034° 0063 OF OO 1FA1 1F97 373 ALC LICTRI1) -CMDSAV ADO SPACES TO LINE COUNT 
OCCB 30 £3 1F93 306 FOLIO SNS STAT6eX*E3# GET STATUS BYTES OD69 OD OO 1FAL 1862 374 CKOUNT CLC LICTR(1), FOLG LINE COUNT FULL 
OCCC 38 01 1F92 307 TBN STAT6-1,8°i° NG-OP CHECK OD6F F2 04 CC 375 JNH JUBRES 
OocDO F2 90 1F 308 JF ROEXIT OD72 OC 01 OO7D ODE 376 MYC R SOUN T+ 5¢ 2) ,C KOUNT?# 5 
OcC03 38 04 0208 309 TBN SBYTEO, SSwo5 PRINT ON MFCU 0078 OF OO 1FAl OO00 377 RSOUNT SLC LICTRCE1 ), 4-2 RESET-LINE COUNT 
OCD? F2 90 12 310 JF LALT OOTE 78 04 00 378 JUMRES TBN Cf yXR19 9 X* 04° 1S THIS A SKIP 
QOCDA CO 87 O21a 311 8 PRINT OD81l F2 90 53 379 JF ITSase JUMP ITF TTSA SPACE 
OEDE Cl OCDE 312 oc XL1'cit 0084 8C OB OC i188E 380 MVC GO (12 eXR2) »SKLING PUT SKIP MSG.IN PRINT AREA 
OCDF 22 OCOF 313 DC EFCI* 34° 0089 OC 00 IFA1 1F97 381 VC LIC TRO139 pC MOSAV MOVE IN LINE NO. TO SKIP TO 
OCEO 1C77 OCE1 314 BC At 2(NOPLIQ) OD8BF 70 2A 01 382 cL 14,XRL 94 K*2ZA* IS THIS A SKIP TO LINE 42 
OCE? EO3C OcE3 315 Oc XL2*E03C* GD092 F261 15 383 JNE NEXLEN JUMP IF NOT 
OLES CO B87 O24 326 B PRINT PRENT PRINTER MAP CHART NO. 0095 OC 01 14C2 1854 384 MVC FRMLE4*3( 23 -ADFL 42 PUT 42 ADOR.IN LIO 
OCEsS 61 OCcEs 317 OC xL1*81°* OD9B OC 01 ODDC 1854 385 MVC FRADDI2 },ADFL42 PUT THE FROM ADDR.IN FORM LEN.LINK. 
OCE9 OA OCES 318 oc iL1¢10°* ODAl OC 01 OD6E 1854 386 MvC C KOUNT¢ 5(2) ,ADFL42 
OCEA 1802 OCEB 319 DC AL2( MAP) ODAT F2 87 2D 387 J ITS ASP JUMP TO CONVERT TO DEC. 
OLCEC CO 87 0222 320 LALT 8 HALT NO-OP HALT ODAA 7D 55 O01 388 NEXLEN CLI 144XR13 9x*55° IS THIS A SKIP TO LINE 85 
OCFO €03C OCF. 321 OC XL2* EG3Ct OCAD F2 O01 15 389 JNE DoOil2 JUMP IF NOT 
OCF2 CO 87 0216 322 ROEXIT B LINK GO TG NEXT ROUTINE OBBO OC O01 14C2 1856 390 MVC FRMi E43 {2 3, ADFL 85 PUT 85 ADOR.IN LIO 
323 0086 OC G1 ODDC 1856 391 MVC FRADD(23 »ADFLS5 PUT THE FROM ADOR.IN FORM L ENoLINK. 
324 FERREELESEERS SE RESSES ARSE SESE ER EEE SES RE TERAEEEHERESEEESER ESET HEETEEERERS ODBC OC 01 OLE 1856 392 MVC CKOUNT45(2 }, ADFLA5 
325 *% * ODC2 F2 87 l2 393 J ITSASP 
326 * ROUTINE 7 ~ COMMANDS TEST FROM TASLE * OOCS OC O01 14C2 18528 39% 00112 MVC FRMLE*3( 23 -ADFOLG PUT 112 ADGR.IN LIO 
327 * (PROGRAM ISSUES COMMANOS SEQUENTIALLY FROM TABLE * Oocs OG O1 ODDC 1858 395 «MVC FRADDI2 3, ADFOLG PUT THE FROM ADOR.IN FORM LEN. LINK. 
326 * ~CKOTAB-) * O0D01 OC 01 GO6E 1858 396 VC C KOUNT?e 542) ,ADFGLG 
329 + * ODO? CO 87 1389 397 ITSASP 8 Cvb CONVERT TO OEC.FORM LEN. 
330 FOSTERS ES ESHER SHE SEASEEEE SERS DERSERE TA CRRTAKSESERE SERS ERE HESS ARAREESEA coos 2000 ODOC 398 FRADD oC XL2° oF FROM ADDR. 
OC&S 07 OCF& 331 RIN7 OC AL 1*78 ROUTINE NUMBER 0000 i8Fi QSDE 399 Dc AL 2€LNG TH) TO ADDR. 
OCF? cc OCF? 332 oy XLI*O® FLAGS ODDF 36 O2 1831 4600 A SVN EN, KR2 UPDATE MSG.ADDR.REG. 
OCFB ODDA OCFQ 353 oC AL2¢R TNA) ADDRESS OF NEXT ROUTINE PREFIX O0O0E3 8C 10 OO 18Fi 401 4 YC O12 7_gXR2Z3 gL NGTH PUT FORM LEN. MSG. IN PRINT AREA 
334 SROOTEEEGESE SS ESSDESTEHEEEAAERELESS TORRE EREKE OES SEEEREETEODES EREERERERE ODES CO 8&7 1438 402 B SKIXIG PRINT A LINE 
OCFA 3C O1 1FA1 335 MMVI LEICTR,X*OL? SET LINE COUNTER TO 1 ODEC £200 OOED 403 oc AL!S*E 2008 
OCFE C2 O1 1FAG 336 LA CMD TAB, XR 1 SET UP COMMAND TABLE POINTER ODEE 1C 0) ODFS O1 404 MVC PUT SUUM€ 23914, XR 1) PUT A CARR. CMDLINTO LINKAGE 
ODO2 CO B87 1243 337 8 CKCMD GO ISSUES COMMANOS FROM THIS TABLE ODF3 CO 87 1438 405 B SKEXTG 00 CARR .CHD. 
0006 CO 87 0216 3238 8 LINK LINK TO NEXT ROUTINE ODF? O000 ODF8 406 PUTSIM DC XL2°a? CHD. PARAMETER 
339 ODF9 30 EO 1FSD ; 407 SNS ST AFG, ®E0* GRAR C&RR.LINE COUNTER 
340 POSES EO EFE ESS OE SENS $94604995SOEEEEKEOEEEEEEESEET ERED ONERESESEETORRSS ODFD 38 80 0209 408 TBN SBYTEL » SSWOS RIGHTY CARR. 
341 * OEO] F2 90 12 409 JF LEFs2 IC 
DATE 25AUG69 310CTes ZBNOVEO OC2MAR 70 OINOV7S ASNOVT71 p PROG I10 C&01-3 DATE 25AUG69 310CT69 Z8NOVGS 02 BARTS OLNGV7TO 19NOV71 PROG ID CE O2-3 
EC NO. 816485 826529 816562 616631 816764 818677 PAGE 3 EC NG. 8164685 Bi6S29 816542 81663) SiIS764 81 8677 PAGE 3A 
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[84 MAINT ENSRCE BIAGHOSTIC PROGRAR PART NG. 258G253 ERS S&IRTERANTE DIAGNOSTIC FROG ae PART NG. #SEESS 7 
PAGE & FRGE oe 
EQ 2C3 LINE PRENTER FUNCTEOGN TESTS EGL2 $202 LGkE PRINTER FONCTION TESTS 
ERR LOC OBSECT CORE SDDR STMT SOURCE STATEMENT ERR Lie SReECT CORE ADGA SYST SGURCE STAT ERERT 
O&64 Gf G4 28CB SbF 620 YC RICH-1¢5? . THER GEBS 30 ER GEBS & 78 fA RUCONS = ot eT ¢ PUT YT FN PRINT LINE 
GOA OL OO LFEG LFAL &il CLC STATOELPSL ICTR REGHT LINE LOC. CORRECT Gebt C2 OF Q&TA. & TY L& i D~2 ef RZ LO80 PRIXY ACOR« 
GERG &e2 OF 1D lz JAE MUSTU JdUNP LF OT @EEO BO &5 OGBFE £60 i YE PROAT< 2 ekS oO? 
GES F2 ST OF “& iS of ISLAS GEES O64 28 LBL 285E oF E ZAt HAROG2Z$, DECTROC EE ZERD MAMBER RO. 
GEL6 OC O% 16C8 LBr4e 44 CLEFLIC BVT RiCH= 1055—. TEEL . SEER 36 G2 L8zZ9 &%&&2o NEAR & FOUR. ERZ ZNCR PRINT ADSR. 
O£1C O86 OO 1fF BC IFAL 415 CLC SYATOi (1) -LECTR LEIRE LOCA? ION CORRECT SOEEE 06 26 LBA 1652 4&3 he HAND? 22 pO SCONE € 22 AOG 1 TO RABR. RG. 
QE22 Fe GE OB 416 ai RE 4uSTYU OEF4 30 OF OG ERBLA 4B & BY To G42 -KR2 be HANG © PUT HAMMER NO. EIN PRERT ARES 
O€25 FO 00 C1 417 ESLAS CLT 1, XRL5,x* G08 LAST CMO. DONE GEFS 30 40 O8FE 485 CLE PRDAT-1 exX* 40% END OF PRENT LENE 
GE2Z8 CG BL OETE &i& BE CLENK EX ET OEFD CO Gi GEEA &8& BE NEARR 
OE2C CO BF ObLC &1LG B BACSS OFOL CO 87 1422 Sa? “O08 8 Kid PRINT HARKER NUNGERS 
BESG 34 O11 LF SB 420 BUSTU SEN TAGS p TAC? SET IST LINES ONLY FLAS OFOS E201 GEO& 486 BC KL ZeE 20 28 
O€34@ OC OO 1780 CETI 421 MVC HE TEDE LD p LUKE PUT HALT 10 EN BSG OFOT CO &T CES2 &BS 8 FINFE 
OE3A CO 87 1732 422 B PSTERR GG PRINT STATUS OR LST LENES OFOS CG 87 C2iaA 490 GETQUT 8 PRINT BR TO SPACE 4& 
OEZE 38 C2 1F 85 423 TEN TAGS,TAGE WAS THERE A STATUS ERR OF OF 14 CFOF 49% oc XLiPiet : 
DE42 F2 10 00 424 iT STBEP JUMP TD LOAD SHORT MSG.COUNT OFIC CO SF O216 492 5 LENK 
O£45 20 20 OESB 425 HV I LCOML» 45 SET A MSGeCOUNT OF 45 493 
O&49 OC O05 18€¢C LkA2g & Zé MYC HICH(C 6) »KNALB &9% SRRESKESERASESSRSEELEL SS SRESSKKECTRA HKELSCRASETKAGCCH KS EG HE TKK KSSKEKK ESS SS 
CESF F2 87 04 427 J TNIRP JuMP TO PRINT 495 % 
OE52 X 1A OE 5B 426 STBEP HVE LONL 226 SER MSG. COUNT OF 26 &96 * ROUTINE OA ~ PAPER SETTLING TEST se 
QE56 CO &7 O21A 429 TNIRP 8 PRINT PTINT LINE COUNTER ERR 497 & ts 
GESA 6: OE5& 430 Oc XLi tae 49R S#SSHESSESESAAESSSSELASASSEKOS SSS CKEECSASEKSSESKRACKKRSESS SKS SSS HKS SECY SS 
CE538 CO OFSB 431 LORE DC XL1* QS COUNT OF iS GA OFI4 499 RTNOA BC XLYS ae ROUTINE RUBBER 
GESC LBES CE50 432 DC AL Z€L ICOER § GFLS GO OF IS 566 oc ALYE GF FLAGS 
CESE OC G2 1801 180¢ 433 BRYCE MAP (2 1, CHT 14 PUT CHARY NO. EN &SG. OFL6 SFES GFF S62 oc AL ZéRTN GE I ADDRESS GF NEXT ROUTINE PREFER 
Of64 CO &8T G2LA 436 8 PRINT PRINT PRINTER MAP CHART NOL SOF ERSSAESHEEAEE SS SSSESGESAS SHARE CKARRHESELSSRRSRHL MHE SRE SAHRSSLEGESSERSSE CEES 
GE68 B5 Q£68 £35 BC KLE 85 & wee, OFIS CO SF GZEA 503 8 PRINY PRENT TETLE 
CE69 CA CE6SG 436 Oc FLEE LO OFC 42 OFLE 504 DC AL Le&aeet 
GEOA 1 B02 OE6B 437 c AL 2(MAP 5 OFIGB £3 OF iB 505 DC ELLE 9P 
CEGL CC BT 0222 438 8 HALT LINE COUNTER ERR HALT GFLE iSit OFIF 506 DC AL 2UTETLAS 
Q&TO E033 GETE 439 LUKE BoC XL2 *E 0335 GF 26 ESOS OFZi SO7 BC RAL2Z2*© EO0G* 
O€T2 CO BT GE25 449 8 ISL AS OFZ2 38 860 8209 5038 TaN SEYTE Ls SSHOS PRINT ON RIGHT CARR. 
OFT6 CO 7 1432 4432 CLERK 86 XEO OF26 F2 90 OF $a0g JF IFSLEF 
OETA EQO2 CEFR 442 : oc XL 2*EGO2* SPACE 2 OF29 34 68 OFSE S10 SBN PSSIC14+1L, 8 LG606* SEY MOOIFFER SIF ON 
GET CO 87 G216 443 B LINK . OFZE 3A GB OFEL Sik SBN SBUSY41 68 * LOGG* SEY MODIFEER BIT OR 
&G4 ‘ GF31 34 08 OF SD 512 Se@N PSS FG2¢L-, &* LOCC * SET MOCIFIER BEY GR 
445 SESCESHRESLERSSESSSESKSRSAESESRALER SE SREGCKEKSES TS SRSESKSSKAKEASEPREKKKSEREKE KEE OF35 F2 &f OC 513 J OG OS 
446 & = OF36 36 O8 OFBE 514 EYSLEF SBF PSS 10341,-8 © 1006° SET MODIFIER BEY OFF 
447 * RGUTERE G ~ "HE € &F& PRINT FEST *% OF3¢ 38 O08 GFSOL 515 SBF SB8USY<1,.8° 10008 SE¥ MOOEZFIER BEY OFF 
448 3 * CF40 38 6&8 OFSD 516 SBF PSSEO2¢ 148" 10C5? SET MODIFIER SIT OFF 
GGQ RESKEEEASRSETSTSERSSSERSLESLSSELSESKSSKSERSE RS SKS SKK LSELSS SEFCLKKAEKE SSE SST SES GF44 3B FF LESS 527. OGOG SSF FINDER, X*FEE ZERO CGUNTER 
SE8C 69 O€SG 450 RIN oc XLEE QE ROUTINE NUMBER , GF4@ 39 36 OAOE 516 S¥IOST TBF  SPUDT,B'1100008 166 LPM PRINT ER? 
GES 00 OEBi 451 oc ML EfOS FLAGS OF4C FZ 10 LE 519 ST GOK S 
OE&2 OFL4S O£B2 452 BC AL2 (RTNCA} ADDRESS GF NEXT ROUTINE PREFIX OF4F 36 E2 LFSS §26 SRS STAT6 eX *E2 GR4B THE SENSE BYTES 
453 RERAERESKESEERRS ERSSEKKESK KES SSK ES SE STE EHES EA EERESSKEAKK ES KSRKSESCRESRKSERKE OFSS 38 O61 LESS 52} TEN STATGeBt1€ HABBERS IN RIGHT SHEFT FOS. 
CEBS CO 87 O24 454 8 PRINT PREINT TFITFLE OFS? F2 10 i7 522 JSF HANG 
CE8S 42 OF BS 455 pC KLLESZé GF5SA CC 87 £432 §23 8 XIG PRENT A BLANK LINE 
QESS 10 OE89 456 oc Ik £° 262 OFSE E200 OFSF 524 oC XL 2*°E 2008 
OEBA 1904 GESB 457 DC AL2ETITLO) OF66 CO 87 CF4E 525 6 $1asTt 
O£8C ECOG CEaD 458 oC ¥L2° ECOG? OF64 CG BY 0222 526 PRNROY 2 HALT BR TO CHECK KALT ON ERROR 
QEBE 3C C8 OER &59 MYE ROCONS1,C tHe PUT H EN PRENT LENE OFS8 E916 OF6E9 527 dC XLZ2°EOLO® AFTER MOT READY 
O£F92 38 EF IF9S 460 FINFE SBE FINDEX.KtFE® ZERO COUNTER OFGA F2 &7T C4 528 J HANG 
OE96 39 30 OA0C 461 TSE SPUD TSF kLOcdc® LOO LPM PRENTER? G6F60 CO 87 1275 629 GOM4 B M40E 4 
GESA F2 10 12 452 JT SUNERD OFTi CL EO OF64 530 HANG FIG PRNRDVY,RRDY NGT READY 
O£9D 30 £2 iF BF 463 SNS  STAT2eX*E2° GRAB TIMINGS | OFTS5 CO 87 146A 531 & bROUT 
GEAL 36 OL LFBF 464 TSN STAT2cB 41S HAMMERS IN Me OFTS 3C 4¢B 0606 §32 MVI ATERTE,Ce ft PUT A PERT OU ER Sé 
QEAS F2 SO 59 465 JF “OOM OF TD € SB OS8D7 O8DS 533 AYE ATEFIV-2L(G2},AT EATE PROPAGATE IT 
CEAG 39 30 GAOC £66 KGOCOR YTeF SPUDT, BF220000 * 100 LOM PRINTER OF83 3C 4B LETT 534 RVI EDE MAG eCF. # PUT A PERIGD EN IMAGE AREA 
OEAC F2 GO O46 &67 JF ROCCN OFS? OC 76 LET&G LFF? 535 MYC EX IMAG~2LC LLG ,EDIMAG AND PROPAGATE IT 
GEAF CG BY 1275 4668 SUNERD B M40EL 9F38D FA EG O21 536 CSSEGL SIO K°OL*® gXe EOF SPACE LE 
OEB3B 3C GO CBFF 469 ROCON MYE PRODAT »&—-# INSERT AN “HS OR A #Te OFSG Cl €4 OFS) $27 SBUSY TEO SBUSY sCABUSY BAZT 
QEB? CC 83 OBFE OBFF 479 AVC PROAT-~101323 ~ FRDOAT PROPAGATE IT OF94 CL EG OF E4 $36 ‘ FIO PRAROY eRROV ES PRINTER READY 
OEBD OF OO 1FSS i625 471 aie FENDEKE LEgGNE ADD 2: TO COUNTER OF98 31 E& LB4E §39 Lic SITADS pLPEAR EM&aGE ADDR. 
OEC3S Co BF? 1432 FZ 8 XID BR YO PRINT A LINE OFSE FS E2 OC 546 PSSiod Sid KP*OG*, KPELF PRINT & LENE 
GEC? €201 Gece 473 nC RL 2°E 201° OFSF 35 O21 1821 S43 s ZERC , MRE 
O&Ce 3D 1¢ IF SS 474 CLE FIRDEX Xt is® 25 LINES PRINTED OFAS Cl && OFAA 542 TEGAN Tio SZO0F .6 USY CHECK BUSY 
gece €O a2 Geass 47S BRE XCCOR OFAT F2 8&7 OE §43 of SAaTCH ee TO SET UF BHOTHER PRINT COMBRAD 
Gf2Ci 36 €3 QEB*S 476 CL tf ROC] Ce Fe HAVE F°S BEEN PRENTEG OFAA 326 G2 1825 544 BIO0rP aA ONE 2 ARE Bal FOR be SEC « 
Geos Fe SL 3S STF JE SET OUT GFAE CO G1 GFAS 545 Sh 2 T EGAR fo CLeagk BUSY 
QOATE 2 5hUIGSS SIOCT SS ZSHOVYES. O2ZHAR IC OLNOVTO LONOVTL PROG ID GEGE<-3 ° DATE 2 54UG 63 310CTS$ ZBNOVES OZMARTO GENCYTO ASNOVT PROG £6 GSEGi= 3 
EC NG. €16485 g1e52¢ 816542 816631 816744 618877 PAGE & — EC NG. 816485 816529 816542 216632 LG 764 8i S77 PAGE 4 & 
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£013 


ERR LCC 
OFB2 
OFB6 
OFBS 
OFBE 
OFC4 
CFCS 
“OFCA 
OF CE 
OFT] 
OFC? 
OF OB 
JFDF 
GFEC 


OFES4 
OFES5 
OFE® 


OFE 8 
OFEC 
OFED 
OFEE 
OFFO 
OFF 2 
OFFA 
OFFA 
1000 
k0O4 
1006 
190A 
aBOoE 
$012 
1016 
ROLA 
1Oie 
A024 
2028 
ao2ec 
2030 
1032 
1036 
1039 
1C3F 
1043 
1047 
1048 


104C 
104D 
LOE 


DATE 
t€ NO.» 


5203 LINE PRINTER FUNCTION TESTS 


PART NO. 2589951 
PAGE 5 


GEJECT COLE ADOR STMT SOURCE STATEMENT 

CO 87 O222 546 B HALT 

£014 OFB? 547 «| oc XL 2"*EC14" 

CC O02 ORDA 1LBFS 548 SATCH HVC ATEATE-1(3 9,T EES PUT T*S IN DATA AREA 

OC 58 0806 CBDA 549 MVC ATEFIV-2092) -ATEATE-i PROPAGATE THE T*5S 

CO 87 1432 550 8 x1I0 

£201 OFC S 51 DC XL2*E2015 . 

30 14 1F99 °° §52 CLi FINDE X,20 ZO LINE PRINTED 

F2 81 OA 553 JE THROUT BR TG LEAVE ROUTINE 

OE OO 1F99 1823 554 ALC FINDEX(1) ,ONE ADD 1 TO LINE COUNT 

CO 87 OF48 555 8 SIOoSsT 

CO 87 O21A 556 THROUT 8 PRINT SPATE 2 

lz OFOF 557 oc XL1i*22¢ 

CO 87 0216 558 8 LINK 
559 
560 FES RRESSAAEAH RARER EATER EERE GEES EEKASMEKE ERK SE SKESRE EKGEALSHEKSESEKKETETE 
561 * 
562 * ROUTINE OB ~— WORSE CASE PRINT TEST 
563 * 
504 FEEFERER ESL REAR E SE SEEEEERESRELERSEHESTSLERKLERARERSRA AR KEABAKAREALABERESE 

O08 OFE4 565 RINOB DC XL1°B¢ ROUTINE NUMBER 

co OFE5 566 OC XL1*oO® FLAGS 

104C OFE? 567 DC AL2¢RTNOC) ADDRESS OF NEXT ROUTINE PREFIX 
568 FPESSREREKSERERSHRRESEAKE SESS HEHAKSERSESRSKES ORAS ASABE KS EE SASSRRASRE TEATS 

CO 87 O21A 569 8 PRINT PRINT "WORSE CASE PRINT TEST® 

42 OFEC 870 oC XL1*42? 

15 OFED 571 BC init2.1°¢ 

392C OFEF 572 DC AL2 (TITiB) 

E000 OFFI 573 oc XL 2*°E OOO! 

38 FF 1F99 574 SBF FINDEX, X?FFE ZERO LINE COUNTER 

3c CS G@&C3 575 GETAH MMVI DASTU-.C* H* INSERT AN *H?* 

OC 46 O8C2 O8C3 575 MYC DASTU- 1071) pDASTU PROPAGATE IT 

CO 87 1432 577 8 xia PRINT A LINE AND SPACE 1 

E201 1005 576 DC XL2 *E 201°? 

C2 02 OB80G 579 LA LPI,XR2 LOAD IMAGE ADDRESS 

L2 01 O876 580 LA LPD-2 ,XRi LOAD DATA ADDRESS 

36 O02 1825 581 NADUN A TWO 2 XR2 ADD 2 TG IMAGE ADDR. 

36 O01 1627 582 A TREEXRI ADO 3 TO DATA ADOR. 

6C U2 00 GO 583 MVC 0(3_XR1),0(,XR2} MOVE 3 CHAR. INTO DAT A AREA 

3% O02 1F98 584 ST SINDE X,_ XR 2 SAVE IMAGE ADDR. 

OD O11 1F98 1848 585 cLe S INDEX (2) ,TUFORE IMAGE ADDR. UP 48 

CO 82 1OOE 58é BL NAD UN BR TCO MOVE IN 3 MORE 

3C 40 08C3 587 MV I LPO+71, ¥*4C68 BLANK PRINT POSITION 72 

CO 87 1432 5388 a x10 PRINT A LINE AND SPACE 2 

E202 1031 589 OC XL 2*E 2028 

3D 19 1F99 590 CLi FINDEX,X*19*# 25 TIMES THRU 

F2 81 OA 591 JE ZIGOUT 

OE OO 1Ff99 1823 592 ALC F INDEX( 1) ,QNE INCREMENT LINE CCUNTER 

CC 87 CFF6 593 8 GET AH 

CO 87 O21A 594 ZiGOUT B PRINT SPACE 2 

12 1047 595 OC XLiLfiz? 

CO 87 021¢ 596 P LINK 
597 
598 FERSSSSSASSHSSAAESEKES ERE SS PARSE SEE KALE TSHEKERS PHRALKKKERSERESARS HAS KKERES 
59S # % 
600 * ROUTINE GC - RIPPLE PRINT PATTERN * 
601 * {PROGRAM PRINTS ROUTINE TITLE AND THEN PRINTS ALL ¥ 
602 CHAIN CHARACTERS IN A RIPPLE PATTERN. EACH LINE * 
603 ¥ CONTAINS THE CHAIN IMAGE REPEATED AS MANY TIMES % 
604% * AS POSSIBLE IN THE PRINT LINE. SUCCEEDING LINES * 
605 2 ARE DISPLACED ONE CHARACTER TO THE RIGHT TO * 
606 *# PROVIDE A LEFT TO RIGHT RIPPLE. THIS ROUTINE 1s * 
607 * ESPECIALLY USEFUL DURING PRINT CHAIN CLEANING.} * 
608 *# * 
669 SEEKS EEH TEASERS SEEAELED HERES LERARESRMREDELERREA DARE ERAERERRREREAREREE 

oc 104C 610 RINOC OC xLi*cs ROUTINE NUMBER 

00 304D 611 Oc XL14'O°* FLAGS — NONE 

10F5 1O04F 612 oc AL2 CRINOD) ADDRESS OF NEXT ROUTINE PREFIX 
613 SOLRISS FEET SSS SHSSAESSEH SS HO TEASE SERIE RAED ET EAEELS HEERKERRERESRERSEERE DD 

2oAUG SS S10C 16S 2BNOVS9 G2 MARTO OLAKCV7S ISNOVT2 PROG ID CE O1-3 

Bi664685 Bil4Ese9 816542? 816631 SlLé 764 8: 8677 PAGE 5 
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£013 
ERR LOC 


1050 
2054 
i055 
1056 
1058 
1C5A 
105E 
1062 
1065 
1069 
1060 
107% 
1075 
1078 
107C 
1086 
1084 
1088 
108E 
1094 
1098 
1098 
10Al 
LOAT 
10AB 
LOAF 
1085 
10869 
1080 
10C1 
10C5 
10C9 
10CB 
i001 
1007 
1000 
10QE3 
1GE7 
iGEs 
LOEF 
10FO 


1OF4 


10F5 
1 0F6 
10F7 


10F9 
10FD 
LOFE 
1O0FF 
2101 
1103 
1107 
11C8 
110F 
1312 
1116 
111A 
11106 
1121 
2125 


DATE 
EC NG. 


PART NO. 
PAGE 


2589951 
SA 


5203 LINE PRINTER FUNCTION TESTS 





of 
* es Trea S eet ‘ + 


OBJECT CODE ADDR STMT SOURCE STATEMENT 

CO 87 021A 614 8 PRENT PRINT TITLE 

42 1054 615 oc XL1*42¢ 

oc 1055 616 DC 1L21°129 

1938 1057 617 DC AL2 (MSGC) 

E000 1059 618 DC XL 2*E000* * 

39 06 CACC 619 TBF ©SPUDT,8*110° 96 PRT .POS.DEVICE? 

F2 10 27 620 JT SEFILD 

3C 83 1086 621 MVI - RESET 141,131 

3C 83 10BA 622 MVI  =- RESET2619131 

3C 83 1596 623 MVI-FRSMV#2 9131 

3C 84 1598 624 MVI- SNOMV 43, 132 

38 02 OAGC 625 TBN SPUDT,»B8*10* 132 PRT .POS DEVICE? 

F2 10 10 626 JT SEF ILO IF NOT,MUST BE 120 

3C 77 1CB6 627 MVI—s- RESET141,119 

3C 77 10BA 628 MVI = - RESET2#19119 

3C 77 1596 629 MVI - FRSMV#2,119 

3C 78 1598 630 MVI = SNDMV4#3 4120 

OC 2F 1F84 082F 631 SEFILD MVC PFIELD(48) ,ATETUF SET UP 48 CHAR.RIPPLE FIELD 

OC 53 1F54 1F84 632 MVC = - PFIELD-48(84),P FIELD 

3D FF 0878 633 CLI UCSFLG_X* FFE THIS A 120 CHAR.CHAIN 

F2 O01 OC 634 JNE OORIPL 

co 77 1F84 0877 $35 MVC =—- PF EEL 4120 ) ATSVNS SET UP 120 CHAR.RIPPLE FIELD 

OC 08 1FCC 1F84 636 MVC = - PFIELO-120(12) » PFIELO 

C2 01 O87c 637 DORIPL LA  =LPD,»XR2 LOAD DATA AREA ADDR. 

C2 02 1-00 638 LA PFI ELO-132 »XR2 LOAD PRINT FIELD ADDR. 

OC 83 O8FF 1784 639 MVC =—- LPD#:131(132)PFIELD FILL DATA FIELD 

3C 5F 1595 640 RESET1 MVI -FRSMV41,95 RESET 1ST MOVE COUNT 

3C 5F 1597 641 RESET2 MVI  FRSMV43 495 RESET 1ST MOVE DISPL. 

3C 00 1599 642 MVI = SNOMV41_X"00" RESET 2ND MOVE COUNT 

3C CO i59A 643 MVI  SNDMV42 »X*00 * RESET 2ND MOVE DISPL. 

CO 87 1432 644 RPLOGP 8 x10 PRINT THE LINE 

E201 10CA 645 oc XL2°E201° * | 

OF 00 1595 1823 646 SLC FRSMV#1 (13 ,ONE DECR.iST MOVE COUNT 

OF 00 1597 1823 647 SLC - FRSMV#3€1) -ONE DECR. MOVE OISPL.OF PFIELD 

CE 00 1599 1823 648 ALC  SNDMV4141),O0NE INCR. 2ND MOVE COUNT 

OF 00 159A 1823 649 ALC = SNOMV#2 (1) ,ONE INCR. MOVE DISPL. OF DATA AREA 

3D FF 1595 650 CLI FRSMV41,X"FFS RIPPLE COMPLETE ? 

CO C1 10C5 651 G8NE RPLOOP 

CO 87 021A 652 8 PRINT SPACE 2 LINES 

12 10EF 653 oC XL1*a2° 

CO 87 6216 654 B LINK CHAIN ROUT INE VIA DCP 
655 
656 SLSEKERKSSHKKSVIRSSAS SAK SRLRASKALHASSERSSRAKSRE KE RAHKS SESRSKETLESS SACHS ES 
657 * s 
658 * ROUTINE CD - UNPRINTABLE CHARACTER CHECK * 
659 + * 
660 RRRRECEES ERSTE OEKGHIERATSEKSERA SESE CESS ERSHESH ES REREES OS 9EDSEDEEDSERERED . 

00 10F4 661 ADDATE DC XL1°0¢ ADD ONLY 8 FLAG 
662 

Ob 10F5 663 RINCD OC xLiep? ROUTINE NUMBER 

00 10F6 664 DC XL1°O# FLAGS - NONE 

1190 10F8 665 Dc AL2 (RTNOE) ADDRESS OF NEXT ROUTINE PREFIX 
666 #43 HERKEBAORAAESTELSRAKKLSSEARLAIKCSKKEKHAHSKRSE KR KEKKS SE RKACRKSE VEKHKSESEKHARBAY 

CC 87 C21A 667 8 PRINT PRINT TITLE 

42 10FD 668 oc XL19429 

17 10FE 669 DC 1L1°23* 

1945 1100 67¢ OC AL2 (UNCSK} 

£000 4102 671 DC XL2*E O00? 

C2 02 Ll2c 672 iA ADTUSXs XR2 

3C FB 1154 673 MVI «=—- HOMANY41,4X* FB! SET END AT PRINT POS.128 

38 02 OAOC 674 TBN = SPUDT 4B #16" 1S THIS A 132 POS. PRINTER 

F2 1C CF 675 JT GRED 

3C F3 1154 676 MMVI =- HOMANYe 1, X°F3° SET END AT PRINT POS.120 

38 04 CAOC 677 TEN =©SPUDT »B*100° IS THIS A 120 POS.PRINTER 

F2 10 04 678 JT GRED 

C2 02 1192 679 LA DOUT » xR2 SET END AT PRINT POS .94 

34 02 1152 680 GRED ST BW HER 44 XRZ 

C2 ©1 Ca7D 681 LA LPD+) oxXAI LOAD O2TA ADDRACREG. 

Z5AUGES 32 0CT69 28NOVES O2MAR 70 OUNGW70 19NOV72 PROG 10 O£0i ~3 

816485 816529 $16542 816631 816764 818677 PAGE BA 








TRH RSINTENANTE DIAGNOSTIC PROGRAM FART NO, 2589951 fEM ASUNPENARCE DLAGNOSTIC PROGRAN 


at HRT Ne 2 5899 814 
PAGE & PAGE && 
EGIS 5203 LENE PRERTER FUNCTION TESTS EQ’? S203 LINE PRINTER FUNCTION TESTS 
GRR LOC OBJECT CODE ADDR STMT SOURCE STATEMERT ERR LOC GEIECT COLE ADOR STMT SOURCE STATEMENT 
Ri2S F2 87 94 682 J BUNT H ZEAG 2E 2146 750 oc ELES ee 
Lig 34 GE 1835 683 ADTUSX &A TWYS TR oXRI ADS 26 10 DATA ADDR. LIA? 1948 LLAS FSi OC AL 20 INS 13 
2330 3€ O01 10F4 684 BUNTH BVI ADDATE eK*agis SEF ADB ONLY & FLAG LAD ECE LEAR 752 ot XEZ°EQEA® 
i346 7E FF 00 685 NEXTAR MV OG,RRLG, KROFES PUT UNPRTABLE IR DATA AREA EiAB CO GS? OZLA €53 B PRENT 
LES? CO BT 4442 £86 8 MEO LIAF C4 LLAF 754 nC RLEfOse 
1138 €200 113C 687 o¢ XL 2°E 2008 Li80 24 2280 755 DC 21? See 
Ri3D 7 £0 G6 688 MY] GCE MRLE KX *408 BLANK THE LAST UNPRT .CHAR. L2 Bi LSE5 11862 756 oC AL 20 INS2} 
1140 38 O02 1F93 &89 TBRN STAT6,8*108 UNPRINTABLE CHAR. SKIPPED L1B3 C2 GL if éa 57 LA ETABLE,XRi LOAD TABLE ADDRESS 
814% £2 20 27 690 fF UPCER GO PRINT ERR LLBY 3D 3F Lice 756 ENTERG CLI ENTER 1¢ ZoXK® 3F 5 WAS LAST HALT AN EA? 
E147 34 Ci 1Leg9 é91 ST FINDER, XRI i1BB F2 OL G7 759 JRE REDAS 
1148 30 CY 1FS9 6392 cil F INDE X, X*D9* LIBE 3C 4C 138 76S fAYE ENTERL?2 9 X*6Ce SEY FOR EC HALT 
RL4F CO 81 CRCG 693 WHER BE St GO ADD ONLY 26 OR GET CUT 112 €2 87 04 T61 J ENTER} 
1153 30 00 iF99 694 HOMANY CLI FINOE X,*-# DONE ENOGUGH PRINT POSIT IONS Lics 3€ 3F 118 762 REDAS AVI ENTERER 42,5 X*3F® SET FOR EA HALT 
1157 F2 81 38 695 Jé DOUT JURP TO EXIT 11c9 FO 7C Go 763 ENTER] HPL KE CO® axX®7Ce HALT 
115A 36 01 182C 696 A CIGHT »KRL A0O 8 TO BATA ADDR. t1lcc 70 GO OL T&4 SNS 1t,MRibeXxtor READ OATA SWITCHES 
LiSE 38 O1 LOFS4 69T TBN ADDATE, x*O1* ADD ONLY 8 LICF 4D O01 G2 1823 765 CLC 142 XR be ZERO BRANCH IF LAST ENTRY -GO00- 
llé2 CC GO il2c 698 BF ACTUSX 11D F2 81 56 766 JE ODOC MDS TQ EXECUTE THE STRING GFE CMNDS 
1166 3C GO ICF4 699 RYT ADDATE., x* O08 RESET AGD ONLY 8 FLAG 1107 79 €G CO 767 TRE Ole XR}, K*FQF GG READ NEXT COMMAND IF THIS 
LLGA CO BF 1134 700 8 NEXCAR LIGA F2 10 4&4 768 JT NEXT 1S O8 <CAY ENTRY 
116E CO BF 1432 701 UPCER 8B X10 SPACE i iLO 78 €O 00 769 TBN Of e RRIPgX*EOF BAKE SURE DEVECE AGDRESS IS -€< 
1172 €001 ii73 6702 oc XL2°E OOLS SPACE ONCE ilEG F2 90 12 770 JF BADCKE 
1174 CO BT G21A 703 8 PRINT PRINT UNPRTAELE ERR MSG. : L1E3 79 19 00 771 TBF Cé o KRL) gX* 208 
1278 C} Ri?8 704 oc XLECCi® LLEG@ F2 90 OC 772 JF BADCHD 
1179 30 2179 7C5 OC TLicéit LIES 79 O05 OO 773 TBF OC pXRILF yX 2O5* BRANCH IF NOT SPACE OR PRINT/SSPALCE 
1i7A 1570 Live® 706 oc AL 2CWUDF? LILEC F2 90 24 174 JF CKSKIP 
117C €O3E £170 707 BC RXL2*EOZ EF LIEF 7D 64 Cl 775s Cay 14, XR1ibg K* OR? MAKE SURE THAT CONTROL CODE £8 LESS 
LIVE OC OL LBEL i828 106 ABYC MAP C2) eCHT 1G PUT CHART ROWEN MSG. LiF2 F2 82 2¢ THE JL NEXT TKAN FOUR 
1184 CO 87 C2Z1A 705 8 PRINT PRINT PRINTER MAP CHART NG. L1lf€5 1C O1 LFOT O1 777? BACCKD MVC CHDSAYL 2b e 1 y XR 1} *INVALID COMMANG ENTRY 
i168 8&5 Bes = 7:¢ DC XLE® g5e LIFA CO 87 O2Z1E 77a 5 UNP ACK CONVERT ENTRY FOR PRENTING 
1189 OA 1189 7ii DC 1L1°208 LiFe 32 LIFE 779 oc Lhe ge 
POA 1BD: 11868 72 Oc AL2 (MAPS LLFF LFOT 1200 780 BC AL2tCMOS AV} 
118C CO 87 0222 713 8 HALT UNPRIABLE ERR HALT 1201 ioF3 1202 781 Oc AL2 CIAVCH 
12190 EO3E L119} 7L4 OC ML2°EQS3E* 1203 CO 87 O21A 782 8 PRINT PRINT ENTRY ERROR &SG E0-37 
1392 CO 87 1432 715 OGuT 8 xIe 1207 C5 i207 783 oc xXt1ecss 
1196 E260 1197 716 oc XL 2*E 200* i208 O€ 1208 784 oc TLi®iss 
1398 CO 87 C22A N17 8 LOAC 1209 19F3 126A 785 oC AL 2¢ INVC} 
119C 00 119C «~71a oc xL1 * 00? 1208 E044 i2OC 786 bc XL2* E044 
719 1200 FO 18 18 787 HPL X° B® ,X*iBe 46° HALT ON ERROR 
720 FRESE E SE SEKE AEREEESERS SEEKS SREREELARSLELHERKEEEEREKE SR EREREE EEE EEEEER KE i210 F2 87 18 788 J WHIHLT GO TRY AGAIN 
72 4 * 1213 79 01 GC 789 CKSKEP TBF OC oXRLD X* O18 if NOT SKIP MUST BE ENTRY ERROR 
722 % ROUTINE E€ - COMMANDS TEST--FROM SWITCHES * 1216 TO 90 1LES 7390 BF BADCMD 
723 * * 121A W] 7C OL T91 Cul 1¢{,XR1i),X*70° SKIP - NOT MORE THAN 112 
724 ® THE PROGRAM PRINTS INSTRUC TIONS FOR CONSOLE DATA SWITCH ENTRY * L2id CO 84 LES TS2 8H BADT HD 
725 *% OF PRINTER COMMANDS AND PERFORMS A -EA- HALT. THE DATA SWITCHES * 1221 36 O1 1825 7S3 NEXT A THO eRRE r INCREMENT FABLE POLATER 
726 * MUST THEN BE SET TO THE DESIRED ENTRY ANDO THE HALT RESET. AFTER * 1228 WW FF 02 719% cil 2 CUgKRLD XP FES SFOP ENTRY IF 20 HAVE BEEN MADE 
T27 % READING AND STORING THE SWITCHES, THE PROGRAM BRILL HALT * 1228 F2 81 04 795 JE DOCMOS 
728 DISPLAYING -EC-. REPEATED ENTRIES MAY BE MADE WITH ACCEPTANCE & 1228 CO 87 1187 796 WHIHLT 8 ENT ERQ 
729 * BEING NOTEO BY A’'TERNATING HALT DISPLAYS OF-EA~AND~EC-. THE * L22F CG @7 O21A 797 DOCMDS B PRINT PRINT HEADING FOR LIST GF ENTRIES 
730 * TWO TYPES OF DATA ENTRIES RECOGNIZED EANCLUDE-~ % 1233 4) 1233 7968 DC XL if 4n4 
731 ~* = 1234 C7 1234 799 OC ILit7e 
732 % i. -Q@QCC- WHERE Q2 - @ CODE OF COMMAND. % 1235 19FA i236 aoc DC ALZELEST? 
733 ~=% CC - CONTROL CODE OF COMMAND. * : 1237 EOQ00 1238 801 OC KL 2°E0008 
134 © ® 1239 C2 OL iF EO 802 iA ETABLE,XRI i OAD BASE ADDRESS 
735 ¢ Ze ~OXXK~ O - POSITION OF SWITCH 1. a 123D iC O1 LFST O1 803 GETNXT MVC CMDSAVE 2) 410 eXRE? LOAD COMMAND FOR UNPACKING 
736 ¢ KAX ~ DELAY COUNTY EN MIELE SECONDS. & L242 36 O1 L825 804 A THOe KR ENCREMENT. TABLE PCENTER 
737 «8 m 1246 CO 87 OZLE 805 8 UNP SEK CONVERT ENTRY FOR PRINT ING 
736 @ ENO OF ENTRY ES SIGRALED BY -O000- IN THE SWITCHES. = 124A G2 124A 806 DC TL ieee 
739: % @ 1248 LEST 4124C 807 Oc AL2 €CHDS AV) 
T40 &@ BEFORE EXECUTING THE STRING OF UP TO 20 ENTRIES, THE PROGRAM * 124D 19FE 124E 608 DC AL2ZCEL? ST} 
7&1 4% PRINTS & LIST GF THE ENTRIES. * L1é4F CO $7 S214 809 B PR ENT PRINT GUT ENTRY 
742 @ % R253 Ol 1253 816 oc XLL*®o.e 
743 CSEREREECSESHELS SATE SSS SLTSEKELISMERS CRAKS RE KS SE TRERVE SKERRRE SE REIHRASEEEE 1254 G4 1254 All oC Ego G8 
1190 Of LISD) 674& RIRCE OC KLE ees ROUTINE NUMBER £255 LOFE 1256 Bie OC ALZGEL EST & 
£19£& 66 1I9E 7&5 OC ALL? Sos FLAGS ~- MANUAL INYTERVERT ION 4257 465 01 OL 1821 eis Cec 142 ¢XR1 $8. ZERG CONT BAJE Tf NEXT ENTRY NOT -6000- 
LiOr €FFE LEAG T&S DC KL2*FFEF * LAST ROUTINE EN SECTION 225 CG O1 1235 Bis ONE GETH XT 
747 SOE SSH SESSES AOS SOS ERRRS SSS SHORES SS AKEHEAKE SESS ASRSEKSE RES SERKE EKA BAERH EK 1260 CC &7 G28A 8L5 5 PRINT SPACE PRINTER 
LL4L CO 87 G2eba 748 6 PRIN PRINT ENSTRUCTEONS 1264 15 1264 816 DG XLE% 2S? 
RiAS 4) $345 749 oc ALE fPGye 1265 €2 O1 1FS0 Bi? SOTHRU La ETABLE, XA L LO4D ADDRESS OF CORMAND TRELE 
DATE 2 5AUGOS BIOC TES 28NG VES O2MAR 7C CLNOVIS ISNOVT! PROS I0 CEOI-3 DATE 25AUG 69 3100 T4s 2 BNOVES GZ KARTO CLNCYTG Lo NOVT I PROG 1D . cE Qi-3 
LG Nl. G9 46845 BlSS29 SlLE542 2268534 Bl Foe SLSSTT PAGE & EC NO. 816686 Si6529 BLS5ae BLiéeah BS FSS Gi BG 7F PAGE &a 
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£013 


ERR LOC 


1269 
1260 
1271 


1275 
1279 
1270 
12éh 
1285 
1289 
128F 
i295 
1258 
129F 


12A3 
L2AT7 
12AB8 
i280 
12B4% 
i2b9 
128C 
128F 
i2C2 
ke€5 
i2cs 
12Ck 


L202 ° 


1206 
L209 
2200 
Le OF 
§2t} 
AZES 
12t8 
Leta 
A2ZEC 
l2k2 
12ts 
12F9 
L2éC 
1300 
1305 
1308 
i 30€ 
1312 
3317 
1318 
DSle 
1323 
1325 
1327 
1320 
1331 
1334 


OatTt 


EC 


NU o 


5203 LENE PRINTER FUNCTION TESTS 


OBJECT 


30 EO 
CO 87 
CO 87 


F2 10 
OD O01 


25 AUG 
BL64ss 


COLE ADOR STMT SOURCE STATEMENT 
1F A2 818 SNS —s- RECT R 4X * EO" SET EXPD LINE CNT .TO ACTUAL 
1243 819 8 C KC MD GG EXECUTE STRING OF COMMANDS 
1265 826 & GOTHRY 
ee SES CSREES CESRERER SAREE S SERA EES TGS EHS EASES RE SELES SL ACRSRS RATHER ES RASS 
823 © wAIY FOR M4 THEN DELAY S*UBROUTINE * 
B24 PREGES SSS ERIS REE EHS EEL SEASESERSERE EA AERAS THERESA EKSTAGRAESASRS RASS HE 
12A2 825 PGCEL ST MEX IT 435 ARR SET RETURN 
1F BF 626 GETIM SNS  STAT2,X*E2* GET TIMING 
lFfer 827 TBN STAT2,6°1° HAMMERS IN MG 
1279 828 BF GET IM 
1F9D 829 MVE RSECS,.xX*288 &0 MSEC DELAY 
C800 0800 830 WAT CLO LPLC256),i Pi DELAY i MSEC. 
cecc caoo 834 CLE = LPT (60) pL PI 
1—9D 1823 832 SLC MSECSt1) ,GNE DECR. DELAY COUNT 
1289 833 BR WAT 
0000 834 MEXIT 8 * a RETURN 
835 
$36 42 ¢ 44K ta8 BSRKRAKRES 
a37 * CKCMD CRCK AGERE KREUK ESAS HSS LESERASILAAAT ELA SARRKKEALEASRE ARR CKOCMD 2 
838 FE R2SS70% SKERWEKSE HK 
839 * * 
840 * SUBROUTINE ISSUES CCMMANDS FROM TABLE IDENTIFIED BY XRI UNTIL % 
: - 841 *- ZERO ENTRY FOUND. ‘THE PRINT GATA FOR A PRINT COMMAND INCLUDES * 
842 * AN INDICATION OF THE TYPE OF PRINT PLUS THE SPACE OR SKIP * 
843 * OPERATIONS BETWEEN IT AND THE NEXT PRINT COMMAND. 
844 * * 
B45 SH eae Rea EHH BRESRKKLHAH HSE MSHA MKSAKLA HK SKA SKA PSARSARRALAHKKS HKSAR HS, 
1283 846 CKCMD ST CCGO+ 3, ARR SET UP RETURN ADDRESS 
1FAO 647 MVI  LUINOS Ay X* FR* ZERO LINE CTR. SAVE AREA 
01 1821 848 CKDCNE CLC 1€2—XR1}eZERG EXIT ROUTINE IF -0000-— ENTRY 
0006 849 CCGO BE a-% 
L3AF O01 850 MVC = DOX FOZ yg LE gXRGD SET UP EXECUTE 1/6 
00 851 TBF = CL. g KR1D g X*F GF DO NOY EXECUTE COMMAND IF DELAY 
EB B52 JT DOCMD 
00 853 TEN O%sKRL} xX * O25 BRANCH IF THIS IS NOT PRINT 
ES 854 JF DOCKD COMMAND 
1370 855 MVI = SAVCMOE+4,1 
1-97 Gi 856 MYC  CMDSAYVE25 91 (a XRER 
LFeD 85? SNS STATO, X*EQ# GRAB THE LINE COUNTERS 
C209 858 TBA «= SBYTE1,S5SKO8 RIGHT CARR. 
OB 859 JF CBLLEIC 
1369 860 8 Cv D CONVERT RIGHT LINE COUNTER 
12DE 661 DC ALZESTATO) FROM 
L2EC 862 oc AL ZEDASHS TS 
08 863 J SAMASH 
1389 864 COLLIC 6B cw PUT LENE NO. IN PRINTOUT 
}Z2ES 865 oC AL 2¢STAT* 1} FROM 
1ZEB 6866 DC ALZ (DASH) TO 
LFA) 1FAO 867 SAMASH CLC  LICTRIV}-LENOSA LINE COUNTER NOT MOVED 
07 868 JHE  LALPD 
1-99 889 CLI FINDEX,x* £6" PRINT AREA ADDR.FULL 
12 870 Jt ON TRE S 
O86F 87i LALPC LA LPD419,KR2 LOAD START ADDR. 
00 1876 872 MVC 0€20,XR2) ,PRTOP PUT LINE NOSEPRINT IN DATA FIELD 
1FAO 1FAL 873 MYC LINOSACLD,LICTR SAVE PRINT LINE NO. 
c9 874 J cocaco 
182F 875 DNTRES & TWLVE ,XR2 ADD 12 TO PRINT AREA ADOR< 
CC 1876 S76 MYC) =—-O02 2, XRZ}, PRIOP 
1348 877 COCOCO #vi SPMOVE41 510 SET MOVE LENGTH TO 11 
1369 878 MYT SKMOVE?*1,1C€ SET MOVE LENGTH TO 11 
1389 879 CCGCC 8B Cvd CONVERT CONTROL CODE TO DEC. 
1324 88c DC AL2(CMDSAV) FROM 
1326 881 oC AL 2(SKL INO) To 
1882 166 882 MVC = SPOP (1) 4SKLINO MOVE COUNT INTO SPACE MSG. ALSO 
196 883 TAN = CMDSAV-1,X" 048 
30 884 JT ISSKIP 
1F97 1FAS 885 CLC = CMOS AVI2) ¢ SPACEO~2 THIS A PRINT NO SPACE 
9 310CT6S 28NOVS9 O2MAR 70 OINCV7S LONOV7} PROG 30 0€01 -3 
810529 81654? 816631 815744 818677 PAGE 7 
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£013 
ERR LOC 


1334 
1320 
1340 
4343 
1347 
134C 
4352 
1358 
1356 
1361 
1364 
2368 
1360 
1373 
1379 
137€ 
1382 
1388 
1388 
138F 
2393 
1397 
139A 
139€ 
LZA2 
13A6 
13AA4 
1 3AE 
i3—a¢ 
1364 


140A 
140E 
1414 
141A 
1410 
1421 
1424 
1428 
142A 
142E 


DATE 
EL NO. 
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BLANK € SIGN 

ADD 12 TO PRINT AREA ADDRE 
PUT SFACE IN MSG 

ADD SPACES TO LINE COUNT 
LINE COUNT UP TG 112 


RESET COUNTER 


ADD 12 TO PRINT AREA ADDR< 
PUT SKIP IN 


PICK UP NEXT COMMAND 

SAVE PRINT AREA ADOR. 

GQ OO XO IF THIS 1S LAST 
COMMAND IN TABLE 


BRANCH IF THIS 1S DELAY ENTRY 


GO EXECUTE STRING GF COMMANDS if 
THIS IS PRINT 

SET MOVE LENGTH TO 12 

SET MOVE LENGTH TO 12 

PRINT AREA ADDR ALMOST FULL 


GO ISSUE COMMAND 


INCREMENT TO NEXT COMMAND 
GO LOOK AT NEXT COMMAND 


FERSREAS RES SRALORERSRELSAH AS LAS EKE TE RRERKLELES SEEKS EER EEERETKED REREREEER 
* CONVERT 1 HEX BYTE TC ZONEG DECIMAL SUBROUTINE 


AKER SSELELEALSRHAALLSS AREER AGRE RS EHRHS ECL AR ERE RAL SHE SEE PARSEERERRE EERE 


ADD 1 TO GET 1ST PARAMETER 
INSERT THE FROM ADDR. 

ADO 2 GET 2NO PARAMETER 
INSERT THE TO“ ADDR. 

INSERT THE TO ADDR. 

ADD 1 MORE FER RETURN 4DDR, 
SFF RETURN ADDR. 


PUT BYTE EN WORK AREA 
ZERO THE TO AREA 
DECREMENT THE HEX BYTE 
EXIT IF BELOW 1 
INCREMENT THE DEC. COUNT 


RETURN 


FESSSPIGSESTALAS SHAS GRS LAS SASSESERERAG IRA SHRRG SG HARES LESS CEREESS SK EEERE 
& CHECK FOR SUSY AND DELAY SUBROUTINE * 
CHER ERELRS THESES OT SERRA GLE SL ERARERRERE SSE SRECRRE SEEGERS HES EERRNEEEDEEEES 


LOAD RETURN ADDR. 
STORE DELAY COUNT 


TRY FOR 7.5 SEC. 
TO CLEAR 
BUSY 


RETURN 
Reese? 


* XIO SE TSSSSS ORE TSEIOHT OSS SESH ST PGHE THESE SY ERESTR ARES ERO ERSDEEESES xIG @ 


OB JECT CODE ADOR STMT SOURCE STATEMENT 
F2 01 06 886 JNE NOZO 
BC 40 60 887 MYI OisXRZ},C* 8 
F2 87 30 888 J INCCND 
36 02 182F 869 NOZO A TWLVE, XA2 
eC OA CO 1882 890 SPMOVE MYT 911 9XR23 » SPOP 
O€ OO LFAl 1F97 891 ALC LICIRCi?,CMOSAY 
0D 00 1FAl 1841 892 cLe LICTR{1},FCLG 
F2 04 18 e932 JNH INCC MD 
OF OO 1FAl 1841 894 Sic LICTRi 1), FOLG 
F2 87 OF 895 J IACCHRO 
36 O2 182F 896 ISSKIP A TWL VE » XR2 
8C CA OC 188E 8397 SKMCVE MYC O (11, XRZ}, SKL ING 
CC O00 iFAl 1F97 8se MYC LICTR{1) eCMDSAV 
O€ 00 1370 1825 89S INCCMD ALC SAVCHD44¢ 1), 780 
10 01 1F97 C1 990 SAVCMD MYC CMOSAV(I2 2 ell eXR1) 
34 O2 1F99 9Or ST FINDE X,XR2 
0B 01 1F97 1821 902 CLC CMDS AV(2}, ZERO 
F2 81 1F 903 JE DGCMD 
39 FO LF96 904 TRF CMOSAY-1,X*F O85 
Co 10 1373 905 8T INCCKO 
38 O02 1F96 906 TBN CMDSAV-1,x* 02° 
F216 1C 307 JT cocmMD 
3C 06 1348 908 BYE SPMOVE42 12 
3C OB 1369 309 YI SKMOVE4#1,12 
30 FO 1F99 916 Cul F EINDEX 9X ° FO? 
CO 62 1231F 921 BL cc ore 
CO 87 1432 9i2 COCHE eB XI 
Q000 R3SAF 6 6$13 DGXIC of Xi2°O3 
36 O1 1825 914 A THO s XR i 
CO 87 12A4B 915 8 CK OONE 

S16 

917 

$18 

919 
oo 12BS 920 HXBYT OCC XL1°OQO? 
36 08 1823 921 CD A ONE, ARR 
34 08 130A 922 ST FROMt Se APR 
36 08 1825 G23 A THO, ARR 
34 08 13£0 924% S3T TYBOTSS ,ARR 
3% 08 13&6 925 sf BYORZ45,4RR 
36 08 1823 S26 & ONE» ARF 
3@ 06 1409 S27 ST TI XE* 3, ARR 
OC O1 13EC coce 928 FRO HY C FROBYY 4512), t-@ 
OC 01 i3FF coce 929 TYBOT YC TORYT#3 (2 3 ,%-% 
OC 01 13FO 0006 $30 OFORZ BYC ZRO 104 34 25 gH 
© 90 £388 o0co S32 FROBYT MYC HE BYT Ga be 3-% 
0% 20 9000 1853 $32 ZROT PAZ e-* (33 sDECZRO{1 } 
GF 00 1388 1823 933 DECCAN Sic HXBYT€ 29 ,ONE 
F2 82 CA $34 3. TIXE 
06 20 0000 1852 $35 TOBYT Az @-*(3) »DECONE (1? 
CC 87 13F3 936 5 DECGAN 
CO 87 OCO0 937 TIXE B t—+ 

938 

339 

94C 

941 
34 08 1431 942 BROUT ST SSEX L743 ,ARR 
OC 02 IFAS 1838 943 SDC MYC 8USUBd3) .BUSCTE 
OF 02 1FA5 1823 944 FLOO® SEC BUSUBE 33, ONE 
F2 81 07 $45 JZ TOLCNG 
Ci & 1414 $4& Tio FLOOP »BUSY 
F2 67 OA 947 J BSEXET 
CO 87 0222 $46 TCLONG 8 MALT 
E011 1429 949 DC XiL2°EO22¢ 
CO 87 140E 950 B $oc 
CO 87 9000 951 BSEXIT 8B t-® 

952 #8329994 

953 
25 AUGE? 21GCT6S 28NGY¥ 89 O2Mar 7O OINGYTC 
8145485 22652S BiS542 816623 BiGTSES 


RONOYVT 
818667? 
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18 MAINTENANCE OLAGNOSTIC PROGRAM PARTY NO, 2589953 iBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589953 
PAGE 8 PAGE 6A 
£013 5203 LINt PRINTER FUNCTION TESTS £013 5203 LINE PRINTER FUNCTION TESTS 
ERR LOC OBVECT COBE ACCR STMT SOURCE STAT ERENT ERR LOC OBJECT CODE AOOR STHT SOURCE STATEMENT 
954 eeveses See RE 1523 GOD OG 156F CODD 3G22 LICOSA CLC CHND*201),9-4 LINE CIR. SSME AS CHO.C.Ce 
$55 4% > 1529 £2 81 47 8023 Je ESBUSY 
$56 * THIS RGUTENE ISSUES AND CHECKS AN EXECUTE §£/0 COMMAND &S % 352€ Ci ES 1573 1024 TIG 2SBUSY,BUSY PRINTER SHOULD SE BuSY 
$57 * SELECTED BY THE MAINLINE PROGRAM. LINKAGE 10 THIS SUBROUTINE * 1530 3A Gi LF88 1025 SBN  TAGS,TAG? SET 15ST LINE PRINT ORLY 
958 2 tS AS FOLLOKS- * 1534 0 GG 1780 £553 1026 MYC HLTIO€1}) > NOBALT PUT HALT ID IN MSG 
959 * * 153A CO 87 L7ZE 1027 8 ASTERR GO PRINT STATUS 
960 * 8 x10 * 153E CO 6&7 O21A 1028 8 PRINT PRINT NCY BUSY MSG 
561 * DC 29X*Q CODE & CONTROL CODE OF COMMAND? * 1542 @1 1842 1029 DC KL1°61¢ 
962 * * 1543 10 1543 1030 DC Witezge 
963 SSERPSREKHSRSKKSKSCERSSKERSSSSSESEKHSLSEKKS KKK SRK SKEKES SACKS SEKRERFESLSEKE RE ER 1544 1837 1545 1031 oc &L? «{NGBUSY } 
1432 GCC O01 14€2 1858 964 x10 MVC FRMLE#3(2),ADFOLG PUT IN 112 FORM LENGTH ADDR. 1546 CO 87 O21A 1032 B PRINT PRINT PRINTER MAP CHART NO. 
1438 36 08 1623 965 SKIXIO A ONE ,ARR 154A 85 154A 1033 OC XL2 Sse 
1430 34 CB 1455 966 ST LOCMO+5 ,ARR LOAD PARAMETER POINTER 1548 CA 1548 1034 DC 112 °108 
1440 36 08 1823 $67 A ONE sARR 154C 1801 154D 1935 OC AL2UMAP) 
1444 34 08 164F 968 ST EXIT4¢3,ARR SET UP EXIT 154E €O 87 0222 1036 & HALT *IF NOT, HALT ON ERROR 
1448 34 G1 1651 969 ST SAVWUN XR1 SAVE REG. i 1552 E016 1553 1037 NOBALT OC XL2* E01 6* NOT BUSY HALT 
144C 34 02 1653 $7C ST SA VTUU » XR2 SAVE REG.2 155% 38 10 O20A 1038 TBN SBYTE 2, SSW13 SSH- 13 ON (NO ALT.PRTR.) ? 
1450 OC O21 150F O00c 971 LOCHD MVC 3 CMND4+2¢2), #-* SET UP COMMAND FROM PARAMETER 1558 F2 $0 18 1039 JF ISBUSY 
1456 CC 01 LF9D 150F 972 MVC MSECS (2 5» CMND42 IF ENTRY IS -OXKX—-_ GO DELAY 1558 OC 00 1566 1LF990 1040 MVC CMODE(1) -ERTI-1 SET CMD.CODE IN HALT 
145C 39 FO 150E 973 TBF CMND41, xX*FC# 1561 CO 87 0222 1041 8 HALT DISPLAY CHD.CODE 
1460 F2 10 19 974 JT wT 1565 EOCO 1566 1042 CMGDE OC XL2® EOOO® 
1463 38 40 O20A 975 IBN SBYTE2,SShI1 BRANCH IF SSW1l OFF 1567 OC 00 1572 1F91 1043 MVC) = CNCOC 1) SER TI SET CONTROL CODE IN HALT 
1467 £2 90 03 976 JF CSSWOA 1560 CO 87 0222 1044 8 HALT DISPLAY CONTROL CODE 
1464 FO 7C 18 $77 HPL = X®1B" sx *7C8 HALT ON E46 1571 EOQOO 1572 1045 CNCO DC XL2*E GOO* 
146D 38 20 020A 978 CSSWOA TBN SBYTE 2,SSwl2 DELAY BETWEEN CHDS. 23573 OC O02 1FAS 1838 1046 ISBUSY MVC BUSUB(3),BUSCT 
1471 F2 90 2€ 979 JF TIOCHK 1579 OC O1 15D4 185A 1047 MVC DELAY #3(2),ADSU BY PUT IN LOOP ADDR. 
1474 30 00 1f9D 980 SNS MSECS,x#oe READ DATA SWITCHES FOR DELAY 157F 3C 12 1606 1048 MVI SUALT »X*12¢ SET BUFFER BUSY ID 
1478 3B FO 1F9C 981 SBF MSECS-1,X®FO® TURN OFF HIGH ORDER & BITS OF DELAY 1583 OC O7 1B44 1B6A 1049 MVC BUMSG(83, BUFF MOVE SUFFER MSG 
147€ OC FF 0800 C800 982 WT CLC LPI (256) ,LPI 1 MILLISECOND DEL AY 1589 Ci E2 158 1050 BUBY TIO BSYLP,PBBUSY PRINT BUFF BUSY 
1462 O£ 38 0800 0800 983 CLC LPIC6C) LPI 158D 30 OC 0a03 1051 CLI RNUM,X*OC® THIS THE RIPPLE PRINT ROUT. 
1488 CF O1 1F SD 1823 984 SLC MSECS,ONE(2) 00 FOR DESIRED NUM OF MILLISECS 1591 F2 01 08 1052 JNE  SKIDO 
1468E CO 84 147C 985 8H wT 1594 6C SF SF SF 1053 FRSMY MVC $5€ $6 yXR1) 995 ¢ »XR2} RIPPLE MOVE 969120¢0R 132 CHAR.ENTO 
1492 39 FO L50E 986 TBF CMNDe1, Xt*FOF DO NOT EXECUTE COMMAND IF DELAY 1598 6C 00 00 60 1054 SNOMY MVC O€1,XR1)99El_ XR2) THE DATA AREA FROM PFIELD 
1496 CO 10 1644 987 BT XEOEXT 1590 CO 87 0212 1055 SKIDO 8B TEST GO READ DATA SWITCHES 
149A Cl EO 14A1 $88 TIOCHK TIO ERNRDY,NRDY BRANCH IF NOT READY 15A0 OC C1 15D4 185C 10 56 MVC 8 3=—s- DELA¥#342) -ADCABY PUT IN LOOP ADDR. 
149— F2 87 12 989 J $ 100K 15A6 3C 13 1600 1057 MV I BUALT,.X*13° SET CARR-HALT ID 
14A1 CO 87 1656 990 ERNRDOY B STERR BR TO CHECK STATUS 15AA OC 07 1844 1B5A 1058 MVC =©BUMSG(8) , CARR MOVE CARR.MSG 
214A5 CO 87 1732 991 8 PSTERR 60 PRINT STATUS GR 1ST LINES 1580 Ci OO 15C5 1059 CABY TIO BSYLP,%~+# CARRIAGE BUSY 
1449 CO B87 0222 992 B HALT *PRINTER NOT READY 1584 OC 01 1504 185E 1060 MVC 3=—s-d DELAY 43. (23g ADP IBY PUT IN LOOP ADDR. 
14AD E010 14AE $93 DC XL2*EC1C* NOT READY 10. iSBA 3C 14 1600 1061 MVI  BUALT,X*14° SET PRINTER BUSY HALT ID 
14AF CO 47 149A 994 B T IOCHK 15BE OC O7 1844 1862 1062 MVC BUMSG(6},PRIN MOVE PRINTER BUSY MSG 
1483 CO 87 140A 995 SICOK B BRGUT 15C& Cl E6 15C€8 1063 PIBY TIO 8SSYLP,BUSY PRINTER BUSY 
1487 31 & 18646 996 L100 CLPIAOR,LPIAR LOAD LSR ADDRESS REGISTER 15C8 F2 87 36 1064 3 CHRDY 
146B 31 £6 184A 997 L1G LPDADR,LPDAR 15CB CF 02 1FA5 1823 1065 8SSYLP SLC 8USU8S(33,0ONE TRY FOR ABOUT 3 SECONDS TO 
14BF 31 EO C000 S98 FRMLE LIO *-*,LOFCLG LOAD FORMS LENGTH 1501 CO 01 C000 1066 DELAY BNZ +—-% CLEAR BUSY 
14C3 38 80 0209 999 TBN S8YTE1,SSWOS PRINT ON RiGHT CARR. 1505 CO 87 1656 1067 B STERR CHECK FOR STATUS ERROR 
1407 F2 90 04 1060 JF NCTRIT JUMP IF NOT 1509 CG 87 16C69 1068 8 SDEHF 
146CA 3A 08 150E 1001 SBN CMND+1,8°1C00: SET MOD.BIT 150D 3A 01 1Ff8B8 1069 SBN TAGS,TAGT SET PRINT 2ST LINES ONLY FLAGS 
14CE OC C1 1F91 15S0F 1002 NOTRIT MVC ERT 1029, CMND42 15€1 OC OO 1780 1600 1070 MVC «HLT ID(1), BUALT PUT HALT 10 IN SG 
1404 38 08 150E 1003 TBN. C&ND4t1, £° 10008 THIS CMD.FOR RIGHT CARR. 15E7 CO 87 1732 1071 8 PSTERR GO PRINT STATUS OR IST LINES 
14608 F2 90 11 1004 JF SKRICA SKIP TO SET LEFT CARR. 15E8 CO 87 O21A 1072 B PRINT PRINT BUSY MSG 
14DB 3C EC 1581 1005 MvI CABY +41 ,RICABY SET TO CHECK RIGHT CARR.BUSY 1S5EF 81 15EF 1073 cc XL1°81° 
14DF 3C €8 1FAA 1006 MVI SPACE O~ 42 X"EB* SET RIGHT CARR.SPACE 0 15FO 18 15FO 1074 Oc ILit27e 
14E3 OC O1 1528 1860 1007 MVC LICDSA+5( 2), STOAD PUT RIGHT CARR.CTR.IN COMPARE L5F1 1852 L5F2 1075 oc AL 2(8UTOLO? 
14ES9 F2 87 21 1008 J C#ND i 15F3 CO 87 C21A 1076 8 PRINT PRINT PRINTER MAP CHART NO. 
LetC 3C Ee 1582 1009 SKRICA MMVI CABY4¢1,CABUSY SET TO CHECK LEFT CARR. BUSY 15F7 85 15F7 1077 oC xL1¢ese 
14FO 3C EO 1FAA 1010 wi SPACEO-1,X*EO? SET LEFT CARR.SPACE O 15F8 CA 15f8 1078 DC 1L1°10* 
14F% OC O1 1528 1862 1011 MVE LIC DSA45(2),STOM PUT LEFT CARR.CTR.IN COMPARE 15F9 1801 15FA 1079 oc AL2 (MAP) 
14FA 30 09 OAD3 1012 CLI RNUM,X*C9OF IS THIS HET PRENT ROUTINE 15FB CO 87 0222 1080 8 HALT BUSY HALT 
14FE F2 01 CC 1013 JNE  CMND 15FF E000 1600 1081 ®BUALT OC XL2* £900 ¢ 
1501 30 E2 1LFBE 104 WAHOL SNS  STAT2,X*E2* GRAB TIMINGS 1601 Cl €0 163C 1082 CHROY TIQ NRDVER,NRDY 
1505 38 O1 iF8E 1615 TBN STAT2-1,841° WAIT FOR HOME LATCH 1605 CO 87 1656 1083 B STERR BR TO CHECK ERR STATUS 
15C9 CO 90 1501 1016 BF WAHL 1609 CO 87 1732 1084 SDEHF B PSTERR GO PRINT STATUS OR LST LINES 
1500 F3 00 00 1017 CMND SIO x®O%,xece COMMAND LOADED OURING EXECUTION 160D 3D 0D OA03 1085 cul RNUM, X®CD* IN UNPRTABLE CHAR TEST 
1510 OC O01 1801 1800 1018 MVC 8=—- MAP (2: Dy CHT 17 PUT CHART NO. IN MSGe 1611 F2 81 3C 1086 JE XIOEXT YES » GET QUT 
1516 OD 0} 150F 1FA8 iC19 CLC CMND+ 22) ,»SPACEO DO NOT CHECK FOR BUSY IF THIS WAS 1614 38 O02 1F93 1087 TSN STAT6,6715° UNPRTABLE BIT ON 
1S51C F2 Bl 54 1020 JE ISBUSY SPACE WITH ZERO CONTROL CODE 1618 F2 90 29 1088 JF XIOEXT 
1S1F 36 EO 1F 8D 1021 SNS = STATO »X* EO? GRAB THE LINE CTRS. 1618 CC 87 C21A 1089 8 PRINT PRINT UNPRTABLE CHAR SKIPPED 
DATE 25AUGO9 310CT69 28NOV ES O2MAR 70 OINOV7O 19NOVT71 PROG ID 9E01-3 DATE 25AU G69 310CT69 28NO VES C2MAR7C OINCYZC LONOVTE PROG 10 O€01-3 
EC NU. 616485 616529 816542 816631 816766 818677 P AGE 8 EC NOe 816485 816529 816542 816764 818677 PAGE 8A 
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PART NG. 2589951 186 MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 258995} 
PAGE 9 PAGE $a 
£013 5203 LINE PRINTER FUNCTION TESTS EOi3 52C3 LINE PRINTER FUNCTIGN TESTS 
ERR LCC OBJECT CCE ADDR ST&T SOURCE STATEMENT ERR LOC CBJECT CODE ADDR STMT SOURCE STATEMERT 
1Qkf Ci 161F 1090 BC RLE¢C 1? 16F5 F2 87 06 1158 a O1Vvio 
620 10 1620 1091 oc ILi sage 16F8 OF 06 1FOS 1933 1359 GODEC SiC STAIMG 1)» THYHUN CECREAKENT 21 PRINT POS AT TONS 
1621 1950 1622 1092 DC aL? EDEPP) 16FE 3C 06 iF 94 1166 Ovid MSVI STAIX—1,X*0G* 
1623 EGOC 1624 1693 oc XE 2°ECOC? UNPRTABLE CKAR HALT 1702 CF CO 1F95 1829 116i SUBGAN SLC STAIX(L 2 FOUR OlvVIbE 
1625 tC G2 1803 1808 i094 YC MAP E2), CHT 16 PUT CHART NO.IN MSS. 1708 F2 62 O&A 1162 Ji AWDWY BY 
1628 CC B87 O21A 1095 8 PRINT PRINT PRINTER MAP CHART MOD. 1708 OF GO 1F94 1823 1163 ALC STAIX~1 (12 ,ONE FOUR 
162F 85 §162F 1096 oC XL 2°858 i711 CO 87 17G2 3164 B SUBGAN 
1é3C OA 1630 1097 oC 111*108 1715 CO 87 1389 21165 A80UN 6B cvo MAKE HAMMER NG. PRINABLE 
16321 1801 1632 1098 DC ALZU RAP} 1719 1F94 IFIA 11466 CC AL2 (STAIX~i3 FROM 
16433 CO 87 C222 1099 8 HALT *UNPRINTABLE CHAR SKIPPED BIT ON i718 IBILA 17iC 1167 oc AL2ERANQ) Ta 
1637 £00C 1638 12100 oc KAiL2* €00C* UNPRT ABLE CHAR HALT 1715 F2 e7 Cé 1168 J RESto 
1639 f2 87 08 13201 J XIOE XT 1720 GE 01 1720 1829 1169 FGADD ALC STE XI 793422 -FOUR AOD TO RETURN ADDR, 
le3C CO 87 1656 i23O2 ARDYER B STERR BR YG CHECK ERR STATUS 1726 35 O1 1655 1176 RESTG L STSAle XRi RESTORE REG. i 
1646 CO 87 1732 1103 5 PSTERR GO PRINT STATUS OR 1ST LINES 172A CO 87 COCO 117i STEXIT 8 % -& EXT 
1544 35 01 1651 1394 XIGERT & SA VWUN » XR i RESTORE REG.i ii72 
1648 35 02 1€53 2465 t SAVTUU » XR2 RESTGRE REG.2 1173 SSSSPHESISERHSSSSEAKRRS SSLSSACASTL SS SCAR K SHS SHHEE SHEET HSES ARES HRS RETESEE 
1646C CO 87 00006 2306 EXIT B t~% EXE? SUBROUTINE 1174 * PRENT STATUS ERR AND EXECUTE HALT SUBROUTINE 
i6SC 0000 1651 1107 SAVWUN DC ii2?G8 L175 SERRSSELELSSSLEFEERERSSSRTRABLGAS SHERI KEAKKEAASSKEKSS KAT SEK GE HGS ERS RRSEHRS 
1452 0060 1653 1208 SAYTUU BC 112° OF 172E 30 £3 1F93 1176 ASTERR SNS STAT6 oX2E38 GET STATUS 
1309 1732 34 C& 181F 1177 PSTERR ST PRE Xi 1+ 3,ARR SET RETURN ADDR. 
AL10O Vassseres SRERKEEER 1736 OC 0&4 i411 1874 1i78 MYC NACHDE 5), FFEL PUT LEFT IN MSG. 
T2LL = STERR RESTS RKSHEKRKSASRSSRHSEKLY FKEKLAESHESILACRHEPMSEMRKERKRSKBAE BAS STERR i73C 38 68 1°90 117¢ Tan ERTI-1, 8° 10002 HAS CHO.TO RIGHT CARR. 
LLA2 Seeeanees RERSHES RE 1740 F2 90 G6 1280 ad F SKREG 
2213 % * 1743 OC 04 1AlL1 iB6F 118i MYC NACMD(5 Fo THGIF PUT RIGHT IN MSS. 
R14 # CHECK FOR STATUS ERROR 1749 CO 87 1389 1182 SKRIG B CVO CONVERT CONTROL CODE 7a DEC. 
2215 % * 3740 1 FOL L¥éE 21183 DC ALZIERTL} 
LLLG PHSRSSRERSSAKSY SER ESE GHREHARLA TARAS ERS RSSE SRY ASHHARSESLERHKSAHBRR SRB ATHEED 174F 38683 - 750 1184 oc AL2 2OSKPGP) 
1254 G000 4655 2127 S75A1 oC XL 2tge 1753 GC OO 1845 1883 1185 MYC POP SUBLET) -.DSKPOP PUT CC INTO SPACE MSG.ALSE 
3218 R757 OC 10 1423 1L8aAas 1286 wy C LSCMND C17}. DUSPOP PUT PRINTESPACE IN MSG, 
1656 34 O08 1720 LLG STERR SF STEXIT*#3, ARR ACAD RETURN ADDRESS 1750 38 02 1FSC Li87 TBN ERTiw1,@8%i0° THES A&A PRINT 
465A 34 O1 1655 1320 ST STSA Le. KR] SAVE RES. 1 176i F2 iC 06 4188 JT SETFSK 
PG6ESE 3C £3 LEQ R224 SNS STATS, K*ER!® SENSE THE STATUS BYTES 1764 © 95 iAL& LA?29 2389 BY C LACMND-Lil6 FRNA & BLANK BUY BRINT 
Gé2 39 Fé LES? 2222 TSF STATO-4h GRP LLLICLIC# ANY STATUS ERRS IN EB2 L?7G6A 38 04 1F90 1190 SELF SK TBR ERTIn-2 <Bt 2 5G¢ THIS A SKB 
1666 F2 9G 07 2123 JF YESER L762 F2 90 G& 1393 AF SOMUST 
669 39 £0 1#93 Li24 7 BF STATG; BLE NODODe AHY ERRS IN EEG 1772 OC OA 1824 1883 i192 MYC LACRNOGLE’ -DSRKREOP PUT SHEP IN MS6¢ 
‘sol F2 1O @80O 1225 Ji F OAOD L777 CO &7 CZia 1iS3 GDMCS7T B PRINT PRINT LAST CMD. ESSUES 
ls?O 38 G2 FER Li26 YESER SEF TAGS; T AGO SET ERR INDICATOR GFF 1778 Ci LITE L194 BC MELLeci? . 
26374 C2 OF LAS 427 LA STATAB-19, XRL LO8D TABLE ADDR. A777 25 77 1195 BC ELLIS 78 
Lev& Oe O1 23 i286 NGERR Lan 2Gi p RRA}, XRG ADD 19 L770 1823 LTTE 1196 of AL CEL ACMND } 
167B VO FF OO 32293 cL OTeARL } oX FFES ALL MASKS CHECKED L77F €000 4780 £397 HLTIS oc KL2* €O0G* 
is7E F2 @1 OF 4236 JE F GADD 378i CO 87 G2iE 4198 8 UNPAC K MAKE STATUS PRINASLE 
1682 1€ 00 168C OG Lis: MYC STECK 121,08 Le KR 33 PUT ERR MASK EN ES2 BYTE 1785 C2 L785 1149 BL EL i428 
1656 1 CO 169C 0} Ri Be MYC STECKZ 19h C2 ,XRE? PUT ERR BASK IN EBL BYTE i786 1F93 1787 i200 DC hl2 (STATG6) FROM 
1688 39 GO LF92 2233 STECK] TBE STAT6~3 8 CHECK EB? BYTE 4788 LA3a 1789 120i Oe AL?Ze YBATS) TO 
ASF 39 60 1F93 4134 STECK2 TRF ST ATG, B-# CHECK EBL BYTE 178A CO 87 G21A i292 & PRINT PRINT STATUS BYTES 
2693 CO 10 Lé78 1135 Pi NCERR 378E 81 A78E 1203 of xXi2* gre 
1697 1C OO 1780 a2 1336 YC HLF IDC 13,20, xXR1) PUT HALT CODE IN MSG. iver il 278F 1204 DC WLiey7? 
1o9C 1C OF ASE 12 hia? ave IBEP€16 9,184 ,XR1) PUT NAME IN SG. 1790 1A3A L792 1205 OC AL2 t¥ BATS 3 
16Al 3A O02 1F88 1138 SBN TAGS, TAGS SET ERR INDECATCR ON 1792 38 O1 iFfa8B i120 YON TAGS 5 TAG7T AST LINE ONLY PRINTED 
16A5 30 £6 1#95 139 SNS STAIX, X*E6?! GRAS LPDAR 1796 £2 10 TF 4207 Jt TESER 
L6A9 OD 01 1F95 1644 1140 Cic STAIX(2),LPOAOR D.AeR. ADDR. TOO LOw 1799 CO B87 O2Z1A i206 8 PRINT PRINT PRIORITY ERR STAT. 
LGAF F2 82 O9 2442 JL DABOT i79D 81 1790 1209 oC xXLIesze 
1682 00 O1 1F95 1846¢ ai42 CLC STAIX(2 2, DADEND DokeR. ADDR. TOO HIGH 179E 24 L79E 1210 oc 3L1°36? 
16B8 F2 04 09 4143 JNH SAB TR L79F ASE 17AQ 1211 DC AL2Z(IBEPS 
OBB OC O04 LBI1A IDEA 4344 DABOT HVC HANOCUS) ys INVE~9 PUT IRVALIO IN MSG. 17Al 39 Co 1°93 i2i2 TBF STATGsB*1LECOSOCCE CHAIN SYNC € INCR SYAC GEF 
16C 1 F? 87 62 1245 J RESTO L7A5 F2 96 1C 1213 JF DOGHALT s 
i6C4 OF 00 1F95 18644 1146 SABTR SLC STATXC1) ONTUTR SUBTR.TO GET PRINT POS. 17A8 39 10 1F92 1214 TBF STA TS-1 4B*100G0# INCR FAILURE CHK. OFF 
16CA 3D 18 1F95 1147 Cui STAIX,X*las PRT.POS. 24 GR LESS 17AC F2 90 15 1215 JF DOKALT 
L16OCE F2 84 27 1148 JH GODET LTAF 38 04 1LF92 1216 TBN STAT6>-1 gE 1008 HAMMER ECHO CK. 
160) 3010 195 1145 cil STAIX, X*10¢ PRT.~POS. i6 1783 F2 90 OE 217 JF DOHAL T 
1005 F2 B84 17 1150 JH AC1O7 GO ADD 107 IF HIGHER 1786 CO 87 O21A 1218 8 PRINT PRINT HAMMER NO. 
1608 30 00 1#95 1151 Cli STAI Ke X* 0D? PRT.~PCS. 13 178A 81 17BA 1219 oC xL1*° 81% 
160C F2 02 07 1152 JNL ADi19 GG ADD 119 IF EQUAL OR HIGH 17B8B 16 1788 12206 DC Ik 1°16? 
1oODF 30 04 1FS5 1253 Cui STAIX 9X 90@2 PRT .POS. 4 17BC 1B1A i7BD i221 DC Ai2 CHANT) 
16t3 F2 8& OF 1154 JH ADOT GO ADO 107 IF HIGHER 178E OC O1 1817 1A29 1222 MYC HA MNO! 23 eKNALB BLANK OUT *3%, "N® JUST IN CASE 
d6te CE OO LFOS 1843 1255 ADLICO ALC STAIX(1 9,UNITIN AOD 119 17€4 GC O01 1801 1805 1223 OOHALT MYC MAP (23_ CHT 22 PUT CHART NO. IN MSG. 
léEC F2 87 OF 1156 J DI VID 17CA CC 87 O21A 1224 B PRINT PRINT PRINTER MAP CHART NO. 
LoFF Of OO 1f95 1842 1157 ADIO? ALC STA IX€13, UNOS YN ADD 107 17CE 8: 17CE 1225 oc ML iter? 
DATE 2 5AUG 6S 3100749 28n0ves O2 MARTO OLNGDV7IS ISNCY TI PROG 1D OE 01-23 DATE 254 UG 69 SiOcTses ZBNOVSE® G2 HARTO GIMOVTO 2OMOY 74 PROG ip % Oi< 5 
tC NL. 814485 816529 #18542 BLoeap #16764 Si BET? PAGE 9 EC NO. 626485 616529 816542 Bis631 616764 BLGH77 PAGE $a 


[BM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NG. 2589651 
PAGE 10 
FOL3 $23 LENE ORIRTER FENCTICN TESTS 
eRe LUC OBJECT CODE ADDR STHT SCURCE STATEMENT 
LTCE OA LICE 1226 pc FLL PROP 
i?70S 160g, 1701 1227 DC ALZEMAPE 
17D? CO 87 O21A 1228 8 PRINT SPACE 5 
Le 15 17O6 1229 Dt XLECLS? 
1707 Of OL LTE2 L¥eC 1236 MVC PUIDINE 2) #HLTEO PUT 15 INTO RALT 
L7DO CC BI C2z2 1231 a HALT 45TATUS ERRGR HALTS 
iTEL €O00 L7E 2 1232 PUIDIN DC ¥L2°ECOCt 
1763 38 10 0208 1233 TEN  SBYTEZ,SSW23 S$Se ~13 ONING ALToPRITRe} 7? 
L7ET £2 90 2E 1234 JF TESER 
L7TEA 38 04 1F92 1235 YBN STAT@-12e3*100* HMR. ECKO CHK? 
LTEE F2 90 27 1236 SF TESER 
L7FL 3C OA LIFE 1237 MVI BUTENSL -X* Oat PuT 
17F5 30 OA 1F94 1238 BUTIN CLI STAIX-2,*0A? HAMMER 
LIFES F2 62 iC 1239 Jk MOwIT NUMBER 
L7FC CE OO ifS4 162A 1240 ALC STAIX-EGLP SEX INTO 
1802 OE 00 L7F6 1820 1241 ALC BUTINGL EL) eXTEN THE 
1808 CG 67 1TFS 1242 8 BuT IN HALT 
1B0C OC 00 1817 IF 94 1243 MOWIT MVC MLESEDELD»STAIN-2 LIGHTS 
1812 CO B87 0222 1244 8 HALT DISPLAY HAMMER NG. 
L816 £900 1817 1245 FLES IG OC KL2*E00S* 
1818 38 OL 1F 68 1246 TESER SBE TAGS, TAG? RESET iST LENE ONLY FLAG 
16LC CO 87 GODO i247 PREKIY 6 tn RETURN 
DATE 254UG8S 3100 16S 28NOVES G2MARIO OLNEVTIG LONOVTL PROG IO OE 01-3 
bE ONG. ELGG HS & 16529 826542 816631 816764 818677 PAGE 4 


IBM SAINTERANCE GIAGNOSTIC PROSRA 


EQI3 


ERR LEC 


LEE 
622 
1824 
1826 
1826 
2&24 
1626 
1625 
LE2ZE 
2830 
4832 
L834 
£836 
L&3$ 
L83c 
1@3E 
1846 
£842 
Les 
1 BA4 
LES 
1847 
i 843 
3 846 
1840 
1 B4F 
185i 
1852 
bess 
1855 
1857 
L&59 
1858 
2850 
185F 
1861 


1863 
1867 
166A 
1668 
1873 
187? 
187F 
1883 
1888 
1388) 
186F 
1894 
1897 
18SE 
LBA4S 
18A6 
18Aa9 
8880 
L854 
188C 
18C4 
Lec? 
iscd 
1805 
32806 


DATE 
EC RO. 


PART NO. 
PAGE 


2589951 
Loa 


#® CONSTANTS SRKEESHSESS CHKGERSESHLLRELLESSSEARA SHS SRS RSE SCESH HSS LK SE ERE YS 


FORM LENGTH 42 
FORA LENGTH 85 
FORM LENGTH Ele 


JHSGE #ODR. 


DATA ADDR. 


RIGHT CARR.CTR. ADDR. 
fEFT CARR. CTR. ADDRC 


* PRINTOUTS KESERERAESESSSERESRSEBRERESK ES HHKLS SHES HBEKRKS SRE KRESS ECE SHE 


CLIS®NO STATUS CHK. BUT * 


CL2Q*CARR.LINE CTR-IN ERR S 


STMT SOURCE STATE ME RT 

L24G FRREREPECKESE 

1259 

L251 set akeseegrey 

1252 ZERG oc Bia? OF 

253 ONE oo mh 2eat 

1254 TO DE Le2*2° 

1255 YREE BC gL2ess 

2256 FCUR oc BL ate 

2257 SEX oC EL2° && 

3256 ERGHT Of IL 2°s* 

4259 ATEN oc KLECEGS 
226C FHYE DC FE2*G2t 
1261 SYNTEN Of Ta 2*ntt 
1262 THYWUN OC IL2*2t* 
1283 THYSIX DC IL2°28? 
R264 @eUscr OC Xi 3° 800° 
L265 BUSCTE OC XL3° 4000G¢ 
1266 FL4&2 oc XL Z* 2h 2h F 
1267 FLES BC KiL2 &5555* 
1268 FOLS Of RL 2° 7a7O® 
1269 UNOSYRN OC TILES LOTS 
LZ7G UNI TER OC ELLtEESS 
k27i ONTUTR DC FL E*2i23° 
i272 LPEADR BC KL2Z * B06 
1273 TuForRe OC KLZ* G2F 
L2?4 LPDADR DOC XL 2°eec? 
1275 DACEND OC Rie SSFre - 
12276 SIADD 6¢ XE Z* LF OGE 
1277 SFHYU bc fe. 2?* 75660" 
i278 GECZRE OC DLie 8 

L279 BDECONE OC OLESE* 

1280 ADFL42 GC AL2 CFL&2 5 
2261 ADFLE5 DC ALZCFLE5E 
4282 ADFOLG OC AL 2UFOLG: 
1263 ADBUBY DC AL2 € BUBY 3 
1284 ADCABY DC ALZ¢CAB YS 
1285 ADPIBY BC ALZ(P IBY) 
1286 STOAD OC ALZ(STATO} 
1287 STOM:i DC AL Z2ESTATO- LE 
1288 

L28¢G CHSRERHSERAKS 

1296 

129] SHSAKSREKSSERS 

1292 oC Ci 4*LiNne® 
1293 DC cis * . 
1294 DASH DC cti® # 

1295 PRTOP OC CLiz*/ PRINT 
1295 

1zgé SPOP oC CLi2z*s SPACE 
1296 

12S7 oc CiLLO* /SKIP TO 
1297 

1298 SKLINO OC ci2* §& 
1239 dC CLS*LINE ° 
1300 BC cL3°* : 
i301 oC CLT */ PRINT E* 
1302 oc CLS®SPACE * 
1363 POPSUD OC Ct2* >? 
1304 DusPoP OC CiL3? . 
1305 OC CL?*SKIP WF 
1306 OSKPGP OC cis’ : 
1307 oc 

1307 

1307 

i308 #ICH BC cLéé 8 
1309 LICOER OC 

1309 

4309 

Z£ENOVES Ge MARTO OLNOVEG 
816542 BiGE3i BLEé 766 


$203 LENE PREARTER FURCTIOR TESTS 
ORSECY CODE ABBR 
OGGG 482k 
OOOL L623 
Ooc2 1825 
6083 L&27 
O0cs £829 
Cé& 1&2A 
COE 18 2C 
ig 1820 
ooce 1&2F 
OOLL i832 
OO1s 1833 
GOLA 1635 
C1s6éT0 3838 
C6000 L838 
2 82 & 2835 
5555 4 83F 
FO76 186k 
és 1842 
?F L843 
78 1844 
GEO L846 
O82F 1848 
oer LEGA 
O8FF 284C 
LEGG L84E 
LB4C 4856 
FO 36513 
FL 1852 
1830 1854 
LB3F 1856 
184) 1858 
158% L854 
150 LE5C 
154 L&5E 
1F8D 1860 
1Fec 1862 
03C905C5 1866 
404040 1849 
46 286A 
614040D7C9C9D5E3 1876 
40404050 
614040E2D7CIC3C5 188< 
40404040 

S1EZD2C90 740E 306 2188C 
4046 

4040 188E 
D3C9U5C 540 1893 
404040 1896 
610 709C SD 5E350 1690 
EZD7C1iC3C540 18hk3 
£040 R&AS 
£04040 LBA 6 
£2 02 C9 C740 £3 D6 RSAF 
40404040 18B3 
DSDO40EZESCIESES 1K 6 
E246C3 C& 024 8C2 E* 

E 3404060 

404040 404040 1ecc 
C3CLOSTI4BD3C9DS LBEO 
C540C3E 3D 948C 905 

405 09 09 

£58 UG 6S ZEOC TSS 
816485 816529 


LSNCY TE 


PROG 50 OE Gi- 3 
PAGE 
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ee Fa “ge ese “fio asi i! a ne mee “tun? 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589951 3BM HAENTERANCE DIAGNOSTEC PROGRAM PART NG. 2589951 
PAGE 12 PAGE RGA 
EQ13 5203 LINE PRINTER FUNCTION TESTS £013 5203 LINE PRINTER FUNCT ION TESTS 
ERR LUC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
18E1 €060C6D6D9D440D3 18EE 1310 DC CLL4°--FORM LENGTH ? LASB C8C1DSC4C5D94005 LAAA 1344 oc CLIO *HAMMER ECHO CHK. ? 
18E9 CSD5C7E 3C 840 1316 RAAS CHC 8D 64K 3C D248 1344 
LBEF 406066 18fi £311 LNGTH OC cL3t ® 1AAB 020008 LAAD 1345 DC XL 3*C2COOA® ANY HMR GN CHK. HALT O08 
SBF 2 £3E 363 18F4 1312 TEES oc CL3*TTT? RAAE CID5SE840C 8C1D4GD4 1ABD 1346 DC CLIG® ANY HANMR ON CHK e 
1BFS 7OCR5O0E3TDSGONIDS 19046 1313 TITLS DC CLIG***HETS*® PRINT TESTE LAB6 0940D6D540C 3C 8D2 1346 
18FD C9DSE34CE3C5E2 £3 1313 1 ABE 002007 1ACO 1547 oc % 3°O02007" HAMMER UNIT THERMAL CHK. ,HALT O7 
1905 DICLIDOICS5DS460E 205 1937 1314 THTia OC CLI9* PAPER SETTLING TEST® 1AC1 C 804D94BE3C 86509 1AD0 1348 oc CLIG*HMR.THERMAL CHK. & 
190L £3£3D3C9D5C740E3 12314 EACS €4C1D340C3C8D248 1348 
1915 C 5E2E 3 1314 1AD1 80c001 1AD3 1349 oc XL3°soocolt CARR SYNC CHK sHALT 02 
1918 E6D6D9E 205400 X01 21920 1315 THTLB DC CL21° WORSE CASE PRINT TEST? LAD4 C3C1DSDS4BE 2E8D5 1AE3 1356 oc CLI6®CARR.SYNC CHK. % 
192€ £2€54 007 DICIDSE3 1315 LADC €340C3 C8 D24 84040 1350 
1928 4OE 3C SE 2E2 1315 1A4E4 400002 RAEG 1351 DC XL3 "400002 ° CARR .SPACE CHK.sHALT 02 
192D 09C907D0703C540D7 1938 2316 MSGC DC CLI2*RIPPLE PRENT® LAET C3CLOSDS4BE2D7C1 IAFE 1352 DC CLIG*CARR. SPACE CHK. * 
1935 D9CSD5E3 1316 1 AEF C3C540C3CBD24840 1352 
1939 £3C5E2E340C6DED9 1940 1317 DC CLE°TEST FOR® IAF? 200003 LAFS 1353 cc KL3 "200003 * FORMS JAM CHK HALT 63 
1941 40E4DSC7L9ESCIAC2 194F 1318 UNCSK DC CL15* UNPRTABLE CHAR® LAFA CO6DS09D4E240DICL 1809 1354 oc CLIG*FORNS JAM CHK. ¢ 
1949 03C54CC3C 8C1D09 2318 2802 D440C3C 8024 24660 1354 
1950 4OC9D540C4C1E3CE 1955 1319 DEPP DC Cil4? IN DATA FIELD i80A FF IBOA 1355 oC XLLi FFE 
1958 4O0C6C9C5 03C4 1329 1808 C8C104£4(5094005 1827 1356 HAMNG 0C CLi3*HAMMER NO. 8 °¢ 
195E 400 2C SE340D5D6E3 1964 1320 Oc CLIi3Z3* BIT NOT SEY ? 1613 0648404040 1356 
1964 40€2C05E340 1326 2818 404040 RGIA 1357 HANG OC Ci3* ® 
196B E6CIESCB84CE4D5S D7 197D 1322 WUDF OC CLI9*HWITH UNPRTABLE DATA® 1818 FSF2FOF34CD5D6E3 1828 1353 oC CL14*5203 NOT SUSY ? 
3973 O9E3C1C 202C 54004 1321 2823 40C2E4E2E 84C 1358 
L978 CL€3C} 1323 1829 CICS ESCSCO4OCEZCO 1837 1359 NOBUSY DC CLIS*AF TER SIO ACP TD? 
L976 C5D05E 305094600709 1948 1322 IAS) DC L46°ENTER PRIR.CMO.CODE GR DELAY TIRE iN ADOR. Swe? se 382i DO4SKCIC3BDFESLS -. BBS9 
1986 ¢3094BC 3204C 4480 3 1322 4638 FSF2ZFOF340 iB3C 1360 OC Ct5*S203 § 
LOBE D6C4C546008 0946064 1322 1830 4040404040406060 1844 1361 BUNSS oC cL e# a 
1996 C5D3C 1E £45£ 3C9D4 1322 1845 4CC2E4E CE B40E S06 1852 1362 PUTOLS 0 CLi¢* BUSY TOO LONGé 
1SSE C54009D5400 10404 2322 1845 Ce4CC3DEDSC? 1362 
15A8 DOGBEZES7DE2 1322 1853 C3CLDSNSCOCICTCS 1G84 1363 CARR eC CLE *CARRIAGE® 
LYAC D9CSEZC5E340C BC 1 1&6 1323 BC CL27* RESET HALT--REPEAT FOR mORee 1658 DIOSCSOSERCSOS4C IBGZ 1364 PRIN omc CLG* PRIATER © 
1966 OFL3IGGSOLOCS OILS 1323 2863 4002 &% (6C6C50940 Lboak 1265 BUFF oc CL&* BUFFER * 
L9OBC CLE 34 0C 6D6D940D46 R322 LBéS8 COO 7C BER EBSOF 2366 YHGIR ne CiS * RIGHT $ 
2904 D&D9CS 4323 ; LB7G B3C5C6E340 1874 1367 TFEL oC CLS* LEFT *¢ 
2907 G060C5SE5E3C5O960 IVES 23246 INS2 OC CL31°--ENTER-O0CO-TO BEGIN EXECUTIONS LEYS C206C44BC4C5C3D6 1864 1368 REDOP OC CL 1G*CMO.DECODE ERRORS 
LOCF & OF OF OF GHOE aDSe0 2324 LBW C4CS54ccC 50 90 sD 4D 1368 
i9D7 C2C5CTCIDS4OC5E? 1324 4385 C4CiDZCS540FS5FZ2FO 1892 14€S RORK ae CLIS*RAKE 5203 8 
15DF CSC3ESE3CSBEDS 1324 iB8D F 340404040 1385 
I9€6 CSDSESDIC 4480 3D% L9OF3 1325 TKVE oC CLiS* INVLD.CMD XMMK? 1892 4O0D9C5C IC 4E8 IBS? 2370 MANGRE OC CLé* READY® 
LSEE COSOEVETET ET 1325 L898 FSF2FOF340C9E240 iBAD 1371 TGN OC CL 22*5203 1S ADY,SHD.8E NOTE 
1S? 4 C SDSE 300 OC 5E2 1SFA 1326 LIST cc CLT*ENTRIES® 1BAO DOC 4E BSBE2C BL 445 137% 
IGFB ETLIETL7 $9FE 2327 ELEST OC CLS? XKEKE LBSS C2C54005D8E3 i3?h 
19hF G3C1E2E340C3DED4 LAOC 1328 oC CLIS*LAST COMMAND~~° LBAE 40D9C4E8 ABEL 1372 CORINS OC cL4* RDV® 
LAO? D4 1D SC 4eC6C 1328 LBB2 F 5F 2F OF 340C 2E4E2 LBBB 1273 DC C110°5203 BUSY § 
LAOD O3C5C6E340 IAL1 31329 NACHO OC CLS*LEFT ? 1BBA E840 1373 
LA12 40D50615C5404040 21423 1330 LACMND OC CL1e* NONE s 1BEC ESCTSC5O540D050653 1 8C7 1374 BABUSY OC CLi2*#wHEN NOT ROY? 
LALA 4040404(404C4040 1336 18C4 4009C4E8 1374 
1A22 4040 1330 LBCe 07&30946C3C8E348 1601 1375 mae a CLIO*PIR.CHT. = « 
1A24 40406C4C4040 1AZ9 1331 KNALB OC cLé? a IBDC 4040 1375 
1AZA E2E3CIE3E4E 24002 1A26 1332 DC CLi3"* STATUS BYTES # iBD2 FLFO 1BD2 1376 CHT10 oC CL2710° 
1A32 £8E3C5SE240 1332 1BO4 FIFI 1B05 1377 CHTLI aC CiL2*1i3? 
1A37 40406040 1A34 1333 YBATS OC Chee 8 RBOG F1F3 1BD7 1378 CHT13 oC cL2e13° 
1A3B CTCOCSDSLOCSESZES 1AGE 1334 PEBI OC CLZO*PRIGRITY ERR BIT IS * 2BC& FIF4 LEDS 1379 CHT14 DC ClL2*14* 
1443 400 50S0940C2C9E3 1334 180A FLFS6 18DB 1380 CHT16 GC CL2*16? 
PAGB 40CSE24C 1334 180C FiF? IBDD 1381 CHTL7T DC Ci2*i7? 
LAGF 40404040404604040 1ASE 1335 IBEP oC CL ie? 8 1BDE F1FS iBDF 1382 CHT29 OC CL 2*ige 
LA57 4040404040406 040 1335 1BEO F 5F 2FCF340C9E240 IBEF 1383 oc CL16°5203 IS ACT RD, ° 
1A5F 1336 STATAB EQU  # 1BES D506E340D9C 4E 668 1383 
LASF COB004 LAG 1337 oc XL 3*0080048 CHAIN SYNC CHK. sHALT 04 1BFO E2C8C448C2C54009 18F9 1384 SNIROC DC CL10"SHD.BE ROY* 
YAG2 C3C BC IC 9D540E 2EB LAT 1338 oc CLI6*CHAIN SYNC CHK. ¢ 1BF 8 C4E8 1384 
1A6A 05034003C8024B40 1336 1BFA F5F2F0F340 18FE 1385 DC CL 5*5203 * 
1A72 CC&COS LAT4 1339 oc XL3*0040C5* INCR SYNC GR SLIP CHKe sHALT 05 LBFF 40404(4040 103 1386 RRAC 0C cL5* ® 
1A75 CS05C3D940E 2E 805 1AB4 1340 DC CLIO'INCR SYNC/SLIP * 1€04 4040404040404040 1C0C 1387 PBCA DC ci.9* e 
LATE C361 E2£3090740460 1340 1COC 40 1387 
1885 10CCOe LA87 1341 oc XL3*100006* INCR FAILURE CHK. HALT 06 1CCO C9E240C 2E4EZ2E 868 1022 1386 REBUSY DC CL227 2S BUSY,NO CMO.ISSUED? 
1A88 C905C30940C6C1C9 LAD? 1342 BC CLIG*°INCR FAILURE CHK 1€15 D50640C304C 44B8C 9 1388 
1A90 03£4DSC54CC3C 802 1342 1C10 £2 €2E4C5C440 1388 
1A98 C4C00S IAQDA 1343 oc XL3* 0460093 HMR ECHO CHK.» HALT 09 1023 40C 4C 1E3C1 1027 21389 ATAD DC Ci5* BATA® 
DATE 25AU609 310CTS9 28NDVED O2MAR TO OLNOY 70 ISNOV71 PROG ID O£01-3 DATE 25AU G69 310CTE9 ZENO VO9 O2MAR 7D OINGWTO LONGV TL PROG 1D O€O1~-3 
EC NG, 816485 616529 816542 91663; B1STH% 8iSéet? 


PAGE 1k EC NG. 816685 816529 16542 816633 Bl6Fk4 616477 PAGE lia 


iAM MAINT EMANCE GLAGNOSTIC PROGRAS 


PRAY NO. é€S8Sest LEo¢ MALHTENAKCE OF 2GNOSTigc FRECKAR FRY fot. 2 SB9SSE 
PASE 82 PAGE Lge 
£024 D€G3 LING PRINTER FUNCTION TESTS EGLS S263 LENE PRIRTER PUREE EON TESTS 
ERK LOL CBYECT COLE ADDR STMY SOURCE STAY ERENT ERR LOC GBYEC FY COBE &DDOR SPRY SGURCE STATEMENT 
O28 CSC4CiCrcs 1C2C 13966 EGARE BC CLS*k MAGE * £443 
1028 40406(€4046 C3 230) LEBAL of cise & 1FES 24646 SPSE EOu $ 
RCSe &OL1C&C 40548065 1042 1397 ARWAL OC CLEF® AGOR.REG.LIG ERRE LFCSR E4246 aFCS 1445 BE XEZtE S288 SKIP FO LEME 42 
RC3Aa €74803090640C5 De 31392 LFCA EOC RECE £446 Bc KtLZ2*EGCLE SPACE 2 
iC&2 OS 13¢2 EFCC €455 RBFOD 1447 Ot RL2* ESSSe SKEP TG LENE &5 
1C43 CSE240 1C45 3393 oc CL3eEs & LECE E002 LFOP 1468 oC xL_ 2 FE GOL? SPACE i 
C45 £64040466 iC49 1394 CIRIS OC CL 46 @ LFDG £470 LFOL 1449 oc XL2* £470 & SKEF TG LINE ie 
ICSA 4OE 20 & 448C 20540 105] 1395 OC CiLsS* SHO.BE * LFS EOGL FDS 1650 oo KL2°E OE! SPACE 2 
1052 404904040 2055 13966 DIRSB Dt Ci4e 4 LFB4 E002 BFDS 14514 5c KL 2 *EQO2t SFACE 2 
1056 O50660D60740L03Cl 1077 1397 NOPLIO OC CL34*WO-OP LATCH SET BETH NO SIG ESSuEGE 1F06 E663 LFOF 1452 ac KL2*°E0038 SPACE 3 
CSE E3C3C 640E 2C 56340 1397 £FOS £0650 LFDO 3455 oc M% 25ECOCE SPACE 0 
1C66 £6CS9E3C64005 0660 1397 1454 
ICSE E2C9D64CL SEZ EZ ES% 2397 1455 #eeeeeeeege 
1CT6® C5C4 1397 i456 * EQUATES SLRKFEKSE SSSLHSESESKTEK SECSRE SASS SKSSKE TEKKES SHES TE AKER SKE S RESETS 
RC78 C3C8C1C9D5460C3CB 1C9C 1398 CHACHE OC CL37*CHAIN CHK. IMAGE & CHAIN DO NOT AGREE* 1457 +#teaeeeees 
1060 0248 48C904C iC 705 1398 7 O0O8 3458 ARR EQU xe gt ADDRESS RECALL REGISTER 
1C8B 4050400 2C8C1C905 1398 0001 1459 XR} EQU X87% INDEX REGISTER 1 
21090 400406400506 £340 21396 0002 1460 xXR2 EFQU Kees INDEX REGISTER 2 
ic9e8 CicTosc 5c45 iase O60C 1461 LPI EQU X*®soge LINE PRINTER IMAGE AREA 
13969 OS2F 1462 ATETUF EQU X*S ZF ® END OF 48 CHAR. IMAGE 
1400 4886849604489 F24858842 OS7C 1463 LPD EQu X* 87C* LENE PRINTER DATA AREA 
1401 % RESERVED STORAGE 4426246089465 46884¢05EH45 A3RSRERERESAERESSSERESEAL O8T7T 1464 ATSYNS EGU X&*erze END OF 120 CHAR. IMAGE 
14602 €846¢965442249888568846 O678 1465 UCSFLGE EQU X®*87eé 
1F 60 1403 CRG X*) F660 * OC8C3 1466 DASTU EaU X* secs 
YW6C 1404 ETABLE EQU % C8DB 31467 ATEFIV EQU X *s0se 
L1F6EG O000CGD000000000 1LFES 1405 oc XL42°Q° O808 24666 AYEATE EQu K*808* 96TH POS IT ION 
1F66 COcCOoOcecCCCCOOGOCE 1405 : O8FF 1469 PRDAT EQU X* GFF ¢ 
L1F7O aNd0COOCKCaCON0DO 1405 LE77 i476 EBDIRAG EQU X°LeT7ze 
LF78 OOCOCHOCOOOCOCCDO 3605 : 1F8S 1471 PFIELD Eat X* LF RSe 
1FBC CCCOCCOCOCOODNGO 1495 OOEO 1472 LOFOLG EQu K®EQ*t 
1f88 OCOOS 3405 OO£F4 1473 LPIAR EQU Ke &Gs 
LfBA FF L°BA 1406 oc XL LPFFE OOE6& 1474 LPDAR EQU RTE SE 
LF sea O00 1F68 1407 TAGS oc Xipeos PROGRAK FLAGS 0212 i475 TEST EQU K*#2228 ENTRY TG OCP READ DATA SHES ROUT. 
LFBC 1F8D 1408 STATO OS Cl2 0216 1476 LINK EQU X*216% ENTRY TG OCP CHAIN ROUT INE 
LF Gt FEF 1409 STAT2 ODS CL2 O2iA 1477 PRINT EGU X#*2kat ENTRY TO DCP PRINT ROUT ENE 
1#90 1f 912 1416 ERTL DS Ct2 O21E 1478 UNPACK EQuU X®Z21Ef ENTRY TO DCP UNPACK TO EBCOIC RYN 
1 FO? 1F93 1411 STAT6 OS Ct 2 OZ22 1479 HALT EQU X®222¢ ENTRY TO OCP ERROR HALT ROUTINE 
1-94 1F95 1412 STAIK DS Ct2 022A 1486 LOAD EQU K®22a¢ ENTRY TG OCP TERMINATE SECTIGN 
196 1F97 1423 CHMBSAY OS Cct2 OOEC 1461 NRDY E€QuU Xe Ee 
198 1F99 1424 FINDEX DS cL 2 ° QOES 2482 BUSY EQU XE St PRINTER BUSY 
LF 9A FOB 2415 SINDEX DS Cr2 COE4 1483 CABUSY EQU XSESE LEFT CARR.BUSY. 
1F9OC 1FSD 1416 MSECS OS Ctl2 DELAY TIME AREA OOEC 1484 RICABY EQuU X® EC? RIGHT CARR. BUSY 
LF OE LFOF 1417 WORK oS Cle OOE2 1485 PBBUSY EQU X*E 2@ BUFFER BUSY 
1FAO GO FAQ 1418 LINGSA OC XLL* OF LINE NO. PRINTED SAVE AREA 1466 *% ENDICATOR FLAGS. 
lFAl GG TFAL 1439 LICTR OC RL IFO? LINE NO. COUNTER OGO2 1487 TaGe EQU Xt ZE STATUS ERR INDICATOR 
LFA2 CC \FA2 1420 RICTR OC XLItGO¢ RIGTT LINE RO. COUNTER 0002 1488 TAG? EQU xeze PRINY LST LINES ONLY FLAS 
LFAR OO0006 LFAS 1421 BuSUB DC XL34°O8& 1489 »* SENSE SH#ITCH EQUATES. 
1422 @ 0208 1490 SBYTEO EQu x*2088 DCP SENSE SWITCH AREA 
1423 ** TABLE OF PRINTER CCMMANDS 0209 1493 SBYTE] EQuU K€ 2096 DCP SENSE SWITCH AREA 
1424 & O204 1492 SBYTE2 EQU X*2G at SECT ION SENSE SWITCH AREA 
1FAG 1425 CMOTAB EQU % 1493 * CONTROL PGH SENSE SWITCHES 
1FAS E4C1 IFAT 1426 oc X§2* E4018 SKIP TO LINE 1 G004 1494 SSwosS EQU KtG* PRINT BESSAGES ON AL TePRIR- 
LFAB E206 LFAS 1427 Oc x 2°*E 2008 PRINT OceoO 1495 SSwoe EQU x* eoe USE 5203 RIGHT CARE. 
TFAa EOOC 1FAB 1428 SPACEO CC XiL2 * C0068 SPACE OC 4496 ® SECTION SENSE SI TCHES. 
IFAC EZ00 IFAD 1429 oc XL2*E20C? PRINT CO40 1497 SSWil EQU xX#40¢ HALT BETWEEN COMMANDS 
LFAE EOOL _ LEAF 1630 DC XL2 E0018 SPACE i 6020 1498 SSei2 EQU x?208 DELAY BETREEN CHDS. 
1FBC E2CC 1FB1 143% DC XL2°€200¢ PRINT 0010 1499 SSW13 EGU xfiQF SECONDARY HALT OP TEGR 
LFB2 EOC2 FBS 1432 OC ML 2°*E 002? SPACE 2 
LFBS E2CC LFBS 1433 oc XL2*® E2008 PRINT 
RFBGE £003 1FBT 1434 OC xL2* EQG3E SPACE 3 ‘ 
RFPS EZO1 EFRS 1435 Oc RL Z°E 201° P/SPACE 1 
LEFBA E262 1FBB 1436 oc XL2°E2028 P/SPACE 2 
RFBC E203 LFBD 1437 oc KL2°%E 203% PRENT & SPACE 3 
BEBE E200 LFBE 4438 oC XL ZF 265% PRINT/NO SPACE 
FTO E4Rh WFC. 2639 DC XLZt*ESiE® SEP TO LINE 17 
3 FC2 €616 RECS 2446 DC ML 2tEGLSE PRENT & SKIP TG LINE 22 
1FC& ESSE LFCS 1461 oc KXL2 * E6615 PRINT & SKIP ¥O OG: ant 
Lele OGG VEC? 442 oC XLZ* OF DONE 
a TE 25 BUGS 32 0CT69 26NOVE9 O2MARTO GINOV76 LOO TL PROG 26 GEO1~3 DATE 25 AUGES 3L0CT6S 28NOV ES C2MAR 70 GING YTG RSNOVTL PROG FD oe 
PERG 16465 816829 816542 Bleeai 816764 Si 8677 PAGE LZ EC NO. 816485 816529 816542 816631 BLSTES BL8677 PASE : 


‘ : . i 


ee@eoeodoeaoeaoeseoeoeoeoeeoeeedeneoeeee0e8 80800808086 6 


IBM MAINTENANCE GIAGNCSTIC PROGRAN 


£013 


ERR LOC OBJECT CODE ADOR STMT 
1501 
1502 
2503 
1504 
1505 
1506 
1507 
1508 
1509 

* 1510 
1511 
1512 
1513 
1514 
i515 
1516 
1517 
1516 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 


PART NOL 
PAGE 


2589951 
3 


5203 LINE PRINTER FUNCTION TESTS 


SOURCE STAT ERENT 


* CCMNENT CAROS 


SOSREEHSSE SECTION EQ] RGUTINES 8448S S289 44S HE SHSETELEREREE SEAS S EGRESS 


* ROUT.C1 - SENSE CMD TEST 

# ROUT.O2 - TIO NOT RDY TO NOT ROY PRIR. 

* ROUT.03 - TIO BUSY TO NOT ROY PRTR. 

* ROUT.04 - TIO NOT RDY TO RDY PRTR. 

* ROUT .05 ~ TIO BUSY TO RDY PRTR. 

* ROUT.06 - LIO*S TG ROY PRTR. 

# ROUT.O7 - CMOS TEST. 

% ROUT.CB - CARRIAGE SPACE/SKIP TEST. 

# RCUT.O9 - *H & T* PRINT TEST. 

# ROUT.OA - PAPER SETTLING TEST. 

* ROUT.OB - WORSE CASE PRINT TEST.» 

* ROUT.OC ~ RIPPLE PRINT TEST. 

* RGUT.GD - UNPRINTABLE CHAR TEST. 

* ROUT.OE - ENTER YCUR OWN CMDS TEST .(KUST BE REQUESTED BY OPERATOR) 
SRRESSEARAKESSSAMSRERLLELKSE SES REAKEE SHE KHSKAAK KS HE KK TERSSALHERSSE SKATER 


* SSW OPT IGNS 

SHEHEKESEASERHCKES SS LHKSOLSESSRSESILTESHSHAKSSEAHELK SERS HH LSSLSSSHEKERLARL IRS HS 
* SSH-1L - HALT BETWEEN CMDS (VALID IN ROUTINES 79829,08,;0C & CE} 

* SSW-12 - DELAY BETWEEN CMDS (VALID IN ROUTINES 748,9,0B,0C & OF} 

® SSW 13 - SECONDARY HALT OPTION {DIAGNOSIS OF ONLINE ERROR DATA } 
BHSHHSRSSHSEPRALESASAKHALSSRAKRSE RRL HEHSRLS ELK GE KSFS SESS LH ERRRSPHES SIFEHES 


1527 * &OTES - 
1528 * 1.RESTORE CARRIAGES) BEFORE STARTING THES SECTION. 
1529 *€ 2.CARRIAGE FORMS HUST BE LEFT ALIGNED IN PRINT POSE TION 2,£ VEN IF 
1520 * THE RIGHT CARRIAGE TS BEING TESTED. 
1531 @ 3.SET C.EeSHITCH TO GVERRIOE IDLE CONTROL BEFORE RUNNING THIS TEST. 
1532 HECRERLGRHESRERKH SRA SH CSF IES FESHTHEHFHSFHAEHF SAAT HS SRS RRS FRRSS SS SSS TTS TTS 
1533 
FFFF 2534 ENG 
1 
DATE 2 5A UG $5 310C 76S 28NGVSS G2 MARTO OINCVTO 19NOV72 PROG 10 CE 01-3 
EC NO. 816485 816529 816542 816631 816764 818677 PAGE 13 
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E013 


SVMBOL 


AC BU BY 
ADCABY 
ADDATE 
ADFL42 
ADFL85 
ADFOLG 
ADPI BY 
ADTUSX 
AD1L07 
ADLLS 
ARR 


ARKRAL 
ASTERR 
ATAD 
ATEA TE 
ATEF IV 
ATETUF 
ATSYNS 
AWOIN 
BABUSY 
BACGO 
BAOC KD 
BERALT 
SROUT 
BSEXiIT 
BSYLP 
BUALT 
BUBY 


RUSE 


wwe 


BUNSG 
BUTT 
BUSCT I 
BUSLE 
BUSRI 
BUSU 8S 
BUSY 
EUTIN 
BUTCLD 
BWHER 
BzZ00P 
CABUSY 
CABY 
CARR 
CCGo 
CHAC HE 
CHRDY 
CHT1C 
CHT1i2 
CHT13 
CHT1 4 
CHTL6 
CHT1L7 
CHT19 
CKCMD 
CKOONE 
CKOU NT 
CKSKIP 
CLINK 
CMDSAYV 


CMOTAB 
CMND 
CMODE 
CNCO 
cococo 


DATE 
EC NC. 


5203 LINE PRINTER FUNCTION TESTS 


T 


A 
é 
4 
A 
A 
A 
A 
A 
A 
A 
C 


A 
A 
A 
Cc 
c 
C 
c 
A 
A 
A 
A 
A 
A 
A 
A 
A 


A 
A 
A 
A 
A 
A 
A 
& 
Cc 
a 
A 
A 
A 
c 
A 
a 
A 
A 
A 
A 
& 
A 
A 
A 
r 
A 
a 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


LEN V 


C02 
062 
001 
oc2 
002 
002 
0C2 
004 
006 
006 
002 


Civ 
C04 
005 
col 
001 
002 
oc1 
004 
Ok2 
004 
005 
cc2 
G04 
004 
006 
a02 
C04 
008 
008 
003 
003 
906 
co6é 
003 
0c1 
GO 
O14 
C04 
00% 
00} 
CG% 
GOs 
004 
O37 
004 
002 
002 
C62 
G02 
002 
002 
002 
004 
cos 
006 
003 
004 
0062 


001 
003 
0C2 
002 
004 


25AU G6 
816485 


ALUE 


185A 
1s5C 
1CF4 
18654 
1856 
1852 
185E 
1i2c 
ié6EF 
16€6 
o008 


1042 
172E 
1027 
C8DB 
oeDs 
082F 
ce77 
17i5 
186.7 
OD1C 
LFS 
OBFB 
140A 


142E. 
iste 


1600 
1589 
1BEA 
1 B44 
1838 
1838 
eacs 
O8DB 
LEAS 
GOES 
L?F5 
1852 
11i4F 
OF AA 
ODES 
15BC 
185A 
128C 
icsc 
1601 
18D3 
1805 
1807 
1BD9 
1808 
16006 
1BDF 
1283 
12A8 
OL69 
1213 
OE76 
1FS7 


L FAG 
1500 
1566 
1572 
1317 


9 


DEFN 


1283 
1284 
0661 
1260 
1281 
1282 
1285 
0683 
1157 
1155 
1458 


1392 
117é 
1389 
1468 
1467 
1462 
1464 
1465 
12374 
0353 
C777 
0224 
0942 
0951 
1065 
2081 
1056 
1365 
1361 
1264 
1265 
0212 
O215 
2421 
1482 
1238 
1362 
C693 
0544 
1483 
i059 
1363 
0849 
1398 
1082 
i376 
1377 
1378 
1375 
1380 
1381 
1382 
0846 
0848 
0374 
0789 
0441 
1413 


1425 
1017 
1042 
1045 
O877 


310CT69 
816529 


REFERENCES 
1647 
1056 
06844 CéES7 
C384 0385 
0390 0391 
6394 0395 
1060 
0672 0598 
2150 2154 
2152 
0825 0846 
C967T* O58 
0256 90286 
2027 
0282 
0532% 0533 
C533% 05495 
6631 
0635 
1162 
Ci2zs 
C419 
O77G O772 
@203* O209% 
0244 0531 
G942% 0947 
i165C 1059 
10483 iC57* 
4283 
€20B 149 
1049% 1058 
1046 
0943 
G2 05 
C206 
0943% 0944 
0122 0191 
1237% 1241% 
1075 
Céece 
C542 
0205 0537 
1005 10094 
0211 0215 
0846% 
0065 
1064 
6104 171 
1223 
0046 0246 
0433 
0708 1094 
013i ©0225 
0067 
0337 6819 
0915 
C376 C28é* 
0774 
C418 
0354% 0368 
0691 CA9G 
0336 
0971* 0972 
104C* 
10439. 
0874 

26N0 V69 

816542 


CROSS~RE FERENCE 

0699 

6386 

0392 

0396 0566 

0921% 0922 09234 0924 0925 0926% 0927 0942 0965 0966 
1119 1177 

0548% 0549 

0790 792 

0213% O217% 6230 

£995 

1063 

1@61% 1670 

1062% 

1046% 16659 

0199 0542 0946 1024 1563 

1242 

1009 

1284 

1¢58 

1018 

9392* 0396 , 

0373 0381 O777* 076C 0803* 0807 0856* 0880 
0906* 0902 0504 0906 

0973 0986 1001*% 1002 1003 1008 1013 1019 
O2MAR70  @ANGV70 LONOVTI 

816831 816764 8128877 


PART 
PAGE 


4G a 


0883 0885 


1022 


PROG 
PAGE 


io 


2589951 
isa 


SEO1-3 
i34 
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EO 13 5203 LINE PRINTER FUNCTION TESTS £023 2203 CINE PRINTER SUNCTION TESTS 


CROSS -REFERENCE CRESS -REFERERCE 


S¥YMBOi YT LEN VALUE DEFR REFERE RCE S SYMEGL FT LEM VALUE DEER REFEREE RCE S 
COLLIC A OO4 2PES O864 O859 GRALT & SC6 SGASA GOEL 0645 
CGRINS & 06% BBL L372 OF G2 ' GRED & 604 i121 0686 C675 CéTE 
CSSHOA A O0G 1460 O978 CS76 HALIT & GO& GéBS OTe O06: 
Cc vo & C04 138° C921 0359 0363 0367 397 0860 S864 O879 i6S 31282 HALT © GGi 0222 i4?s CCSi 8072 GLOS O1326 O176 O2321 O27 G204 0326 0436 G526 6546 
CABOT A OOG I16BB 4144 LL&i Of713 09468 6992 1036 iCé1 1044 1386 1699 2232 L2@e 
CACEND A O02 16840 1275 1142 HAPNC 4&2 O13 BEF 1356 222% 
DA SH A OO 186A 1264 C36i 0365 0366 O862 0886 HANG A CC& CFTL 9530 0522 0528 
DASTU € GOl C8CS 1466 CS575* CS7E CST6" HAND & 0032 iLBlA 2357 04681% 0483% 0486 11443 £167 1221 
DECGAN A GO& 13f3 64933 0936 HLTED A O02 27860 Lis? O422% 1026% LOTTO 131362 1239 : 
DECONE A OOL 1852 1279 0483 0935 HOMANY & 00% 2153 0694 C673% OCSTEF 
CECZRO & O01 1851 1278 0481 6922 HXBYF A OOL 1388 6920 O93 09334 
DELAY A CO& 1501 1066 1047 1656* 1060% IBEP A 016 1LASE 1335 1137* 12i1 
CEPP 40146 1950 1319 1092 IMALT A O04 OC72 G274 G251 
DIRIS A 004 1C49 1394 0261 0292 INCCMO A O66 1373 O899 O8&& 90853 6895 09065 
OIRSB A OOF 1€55 4396 0265 6269 6295 0299 ENS? & 046 IL9AB 1322 O751 
CIVID AOOe I6FE 1166 2156 61158 FAS2 £031 OES 1324 G75é6 
ONTRES A 004 13CE 0875 6870 INVC A014 3163 1325 C781 O785 i144 
DOCHD A 00% 12AA O912 C652 0854 0Oc03 ¢9CT ESBUSY &£ 006 1573 1046 1020 1023 1024 1639S 
COCMDS 29004 Leer O797 0766 0795 IStAS &£ 003 OCEZ5 O41? 0413 0449 
DOQHALT A COS 17€4 1223 4213 2235 2217 ESSKIP A 004 1384 Cass C684 
CORIPL A004 ICA? 0637 0634 ITSASP A004 OLCDT 0397 O37¢ 0387 0393 
DouT & 004 21192 O7135 0679 G€S5 ITSLEF A 00O& GF3E OS14 650s 
DOKIO A CO2 IL3AF O913 085ce SEXT A CC4 O0A54 0C54 6653 
DOIl2 A006 OLCS 0394 0389 JIVE & 004 O842 0166 6162 
OSKPOGP A 004 18683 1306 3186 2185 1192 JUMRES &4 063 ODTE 0378 O375 
BUSPOP A OG3 ILB8AB 14304 1186 ' JUSALT AOC6 OCOA 6230 C229 . 
EQGIMAG C 001 if?? 1470 05348 05325 C5354 KNALB A OG6 3A29 1331 0155 0202 ©0426 1189 1222 
FGAM! A COS iC2C 1390 0252 LACMND A G18 4423 3339 1186 L1L89F 1192% 2196 
EIGHT 46902 182C 1258 0696 LALPD £0064 32FC OB8Tfl C&8éée 
ELEST A&A 004 I9FE 3327 C808 06812 LALT & 004 OQCEC 9326 063106 
ENTLRC A OC4 LIB? OF58 O796 & CML 4 001 OE&5SB 0431 C425% G42 ae 
ENTER] AO0G3 LiCS OFf63 C758 Gé0* C761 OFé2% LOCMG AO06 1450 O971 G966% 
ERNRDY A COS 146A 0990 O39 88 LEBAL & 005 1€313 1392 O252% O282% 
ERR4) A CCS CBEL O176 Ci 65 CERLIC A006 GOEL6 O414 0409 
ERRS1 & 006 OB76 0193 0191 LiCDSA A G06 1523 1922 1007* i011% 
ER Tl A&A GC2 2F9l 14106 00219 1002 1040 10643 Li?79 2163 2167 1129 LICGER A 020 18F0 1309 0432 
ETABLE AOOL 21F60 1404 C75? c¢eC2 C&i7 LICTR AGOl ILFAL 14:19 C335* 6351% C373* 6374 O377# O381* 0412 9415 O867 GETS O891% 62892 
Exa? A006 164C€ 1106 0966% 0894% 0898% 
EXPi2 A OC2 CACE 0C27 0035* 0C37 LINK C 002 G26 1476 0074 Clil 61238 176 0233 0322 0338 0443 6492 GS58 G596 06654 ae 
£013 A601 OAOC 0063 LEINOSA AOOl LFAO i418 O847% O867 08734 
FINDFX A O02 LF9S 1414 0460* 0471% 0474 O517* 0552 C554% 0574* C590 05928 0691% 08692 0694 CEST A&A COT LSFA 1326 oscc 
C863 O901*% 0916 LENGTH A OO3 I18F1i 1311 0399 C4oi 
FINFFEF A004 OF92 0466 0489 LOAD € 0O1 O22A 1480 O7i7 
FLOOP A OC6 1414 0944 0346 LOARR A 003 CAB2 O0S5 cose 
FL4&2 4002 1830 1266 1286 LOFOLGE €C 001 GOEQ 1472 C996% 
FLaS A002 183F 1267 3281 LPD C 0Cli C87C 1463 0355 0479 0580 O587* 0637 C639* 0681 C&TE 
FOADD A OC6& 2£72C 2169 1125 £1336 LPOADR A O02 i848 1276 O27é 0278 0294 O9¢7 1160 
FCLG &O0O2 184i 1268 C376 €8S$2 0864 i282 .POAR COO OOE6 1474 C276* O9S7s 
FOLIC & COG CCCR 0306 6279 LPI C O01 O800 1462 019% 90194 90195 0195 0579 0830 C830 06833 O831 6982 o¢82 2983 
FOUR & O02 1826 1256 0482 22162 2169 C983 
FRADD & 002 OCDC 0398 0365% 0391% 63958 LPIADR A O02 1846 1272 0245 6248 0264 0996 
FRANG A GO% CO3F 0363 0356 LPTAR C€ O01 OCE4 1473 O0245* €539% 0996% 
FRMLE AOO%& 148F o99s 03848 C3S0* C3S4e 6564s LSRFT AOGO& OCC2 0304 C28} 
FROBYT A 006 1387 G93} 09 28% LUKE & 002 OE?71 6439 O21 
FROM A 006 1305, 0528 C922% MANORE & 006 1897 1376 C033 «0259 
FRSKY & 004 2598 1053 C&23% CE25% C6408 O641® COSE* CbRT# 0450 MAP &AO1G i851 1375 0046* GO5G OC67* OC71- ClOS* OLO8 OLBE® O135 O171% 0175 02252 6229 
GETAH 2 O0C% OFFE OSTS 0593 0246* 0273 0303 0319 0433 0437 O706* Q712 2018" 1035 1079 10949 
GETiK A&A 006 1279 ©6826 C628 1098 4223% 1227 
GETMXT & 005 236 C803 C814 MEXIT A006 129F 02834 08 25% 
GETOLT A CC& OF OR 499 OOTF MLESIO A OO2 L817 1245 1243% 
GICDAP & G04 OC22 0245 MODASH A OCS OD47 0366 6362 
CCCEC A 006 I6FB 3159 2146 MOOM & G0& CFCi 0487 0465 
GOLIG A O06 CC78 O276 0274S MOWIT A806 180C 1243 1239 
GOMUST 4&4 OO& $777 12393 EIS} MSECS A CO2 LFSD 1416 O193% O196% O0629% 0832% 09728 G980* CUBIS 9984s 
GOM4 & 006 OF66 0529 O5 1G Hibs ty sh ae Be ele ' SGC &AOlL2 1938 1316 C617 
GOTHRY & OCH 2268 Cal? C620 BUSTU & 004 OEF30 904206 G4iZ 0416 
CATE 25 8UGES 3LOCTES 26NOVES C2MAR TO GINOV7G LONGVTI PROG 10 CEOI-3 ' BATE 25AUG 6S 3LGC TES ZENOVES G2NAR70 SLRCVTO LONOY TE PROG FE OF O13 
tC NUs 816485 $165 29 816542 616631 816764 81677 PAGE 14 EC NG. 816485 816529 816542 816632 _ BEG FES Qi 8677 PAGE 1ah 
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ECi3 


Sy OL 


MADEL 
WACHEL 
NAD UN 
NE ARR 
NE XC AR 
NE XL EN 
NEXT 
NIGEB 
NOBALT 
ROBUSY 
NOCGR 
NOERR 
NCPLIC 
NOTRIT 
RCZ65 
NROY 
NRCY ER 
CCOCet 
OGOG 
Cky DOK 
ONE 


ONTUTR 
G TOR Z 
PaBUSY 
PBCA 
FEB] 
PFIELO 
PIBY 
PoPSub 
PRDAT 
PREXIT 
PRFECU 
PRIN 
PRINT 


PRARDY 
PRIGP 
®S$$i 01 
PSSIN2 
PSTERR 
PUIDIA 
PUTSUM 
RAELTC 
REBUSY 
RECAS 
REDOP 
RESETI 
RESET2 
RESTO 
RICABY 
RiICTR 
RUM 
ROCON 
RERN 
RPLOOP 
RRAC 
RSouNT 
RINOA 
RT @ 
RINOC 
RTNOD 
RIN E 


DATE 
€C NO. 


S2C3 LINE PRENTER FUNCTION TESTS 


=f 


PrPppe Oyen rn PP PD yD nw DP BP 


OprPrPArnrpraArnpoarrn 


rPabpP pe be PbO PDP PP b> PPP EP PF a BD BD 


LEN VALUE 


004 
905 
604 
G04 
ou3 
603 
004 
004 
G02 
015 


004. 


003 
034 
OG6 
004 
C02 
Oc4 
004 
004 
004 
002 


001 
006 
001 
009 
C20 
001 
90¢ 
002 
ool 
C04 
004 
oos8 
001 


004 
O12 
003 
oc3 
004 
002 
OC2 
904 
022 
OCs 
016 
G04 
004 
G04 
ocl 
001 
oo: 
004 
013 
004 
G05 
00% 
001 
8G1 
ool 
oc) 
801 


1275 
RALI 
100E 
OEEA 
1134 
ODAA 
1221 
OA1E 
1£53 
2837 
SEAS 
1676 
icv? 
14CE 
1343 
CCE O 
163C 
A3LF 
Or 44 
OABF 
1623 


1844 
1361 
O00E2 
1coc 
RAGE 
1F84 
154 
1e8A5 
O8 FF 
181C 
GAED 
1862 
O21A 


OF64 
1876 
OFSC 
OF 9C 
1732 
17E2 
CDF 8 
0895 
1C22 
lics 
1 884 
iCcRS 
10B9 
1726 
OCEC 
iF A2 
Oac3 
GEBS 
889i 
10C$ 
icod3 
Ov78 
OF 14 
OFES 
104C 
ices 
1190 


2500669 
816485 


DEFN 


0825 
1329 
0581 
6482 
C685 
0386 
0793 
0036 
1037 
1359 
0466 
1128 
1397 
1002 
0889 
1481 

1102 
0879 
0517 
0074 
41253 


i271 
0930 
1485 
1387 
1334 
1471 
1063 
1363 
1469 
1247 
0124 
1364 
1477 


0526 
1295 
0536 
0540 
1177 
1232 
0406 
0199 
1388 
C762 
1368 
0640 
0641 
1170 
1484 
1426 
O016 
C469 
1369 
0644 
1386 
0377 
04939 
0565 
6610 
0663 
OT44 


310C T69 
816529 


CROSS~REF ERE NCE 
REFERENCES 
0468 ©5255 
178% 211819 
c5ea6 
6486 
o7o0o 
0383 
0768 0776 
0034 
i026 
1031 
0475 
31135 
0314 
1060 
C886 
0686 0096 0151 0162 ©0530 0538 0o9288 
1082 
6911 
6513 
0os9 
0196 0471 0544 0554 0592 0646 0647 
C933 €94%4 0965 0967 0984 1065 1163 
1246 
925% 
C053 C204 1£€50 
0201% 0208% C2112 6215% 
0631* C£32 06324 0635% 0636 0636* 0638 
1285 
11 45% 
0669% 0470 O470% 048C# 0485 
11772 
Ci22 
0201 1062 
0044 Of47 0062 0068 0090 0099 0105 
C220 0226 6253 0266 60270 0283 02 96 
6454 0490 0503 0556 0569 0594 0614 
C753 C782 ©0797 0809 0815 1028 1032 
1202 «3208 #41218 #+%4122¢ 1228 
0530 0538 
C872 O87é 
05109 95148 
0$i12¢ 05168 
0422 C€SS52 1071 1¢C84 2103 
12308 
06044 
0198 
0223 
c7s9 
0044 
0621% 0627% 
C622* Cé2 ae 
1145 1168 
- C206 1005 
caice 
1012 1051 21085 
0459% 0467 O476 C4764 
0089* 0155 
6651 
O202% O212% 0216% 
0376 
6452 
cSo2 
0567 
C612 
0665 


26NCV69 O2 MARTO O1NOV7O 19NOV72 
826542 816631 816764 818677 


1082 


0648 


0639 


0126 
0300 
0652 
1072 


0649 


0132 
0311 
0667 
1076 


0832 


0156 
0316 
o703 
1089 


PART NO, 


PAGE 


0921 


0166 
0429 
0709 
1095 


0926 


0172 
0434 
0748 
1193 


PROG 1D° 


PAGE 


258995) 
15 


GE 01-3 
5 








IBM MAINTENANCE DEAGNOST;C PROGRAM 


E0i3 5203 LINE PRINTER FUNCTIGN TESTS 


SYMBOL T 


RINL 
RTNZ 
RTN3 
RIN 

R INS 
RTN6 
RT WN? 

R INS 
RTN9 
RINRDY 
R2BUSY 
R2EX IT 
R4CH K 
R4EXIT 
R4NR OY 
RSEXIT 
ROEX IT 
SABTR 
SAMA SH 
SATCH 
SAVC MD 
S AVTUU 
SAVW UN 
SBUSY 
S$ B8YT EO 
SBYTEL 
SBYTE2 
soc 
SOEHF 
SEFILD 
SEIFSK 
SESTAT 
S FH 
STADD 
SINDEX 
S ECOK 
SIOST 
SIX 
SKIDO 
SKIXIO 
SKLIND 
SKMO VE 
SKRICA 
SKRIG 
SNDMY 
SNIROC 
SPAC £0 
SPALT 
SPMOVE 
SPOP 
SP SK 
SPUDT 
SSkO5 
S$Swos 
SShl 2 
$Sl2 
SSwW13 
STAI X 


PAOAAMOAOp Er, Ee Pp rrrePrPrnrPrrnrrrPrPnye P PrPrreOAA rPaprrrPrnrnrPrrprrrpr arp Pb hb P py YP yp D 


STATAB 
STATO 
STAT2 
STAT6 


S » » » Pp 


STSE P 


DATE 


LEN 


601 
0023 
col 
001 
cdl 
001 
001 
001 
001 
004 
004 
G04 
004 
004 
003 
004 
004 
006 
006 
006 
005 
002 
002 
004 
001 
001 
002 
006 
004 
006 
004 
004 
002 
002 
002 
004 
604 


601° 


004 
004 
062 
005 
004 
004 
004 
010 
002 
004 
005 
012 
oo 
003 
001 
001 
001 
001 
001 
002 


C01 
002 
G02 
002 


004 


VALUE 


OAOF 
6493 
GAE2 
0816 
Geées 
OC iA 
OCFS 
ODCA 
oE8O 
GADE 
oB cc 
OB612 
CB3B 
OB67 
0838 
0C16 
OCF2 
16C4¢ 
L2EC 
OFBS 
1379 
1€53 
1651 
CF 9OC 
0208 
0209 
G20A 
140E£ 
1609 
1088 
176A 
OA 5F 
1850 
184E 
1F 9B 
1483 
OF48 


1B2A:* 


159C 
1438 
168E 
1368 
14EC 
1749 
1598 
1BFS 
LFAB 
CASO 
1347 
1882 
FCS 
OAOC 
0004 
ocsc 
C040 
0Cc20 
001U 
1F95 


LA5F 
1F 8D 
1LFEF 
1F 93 


OES2 


25AUG69 


EC NOG. 816485 


OEFR 


Qo29 
0082 
0118 
0147 
6187 
0240 
0331 
0345 
0450 
O211 
0136 
0138 
0162 
0176 
0161 
0233 
0322 
1146 
0867 
0548 
0300 
11¢€8 
1107 
0537 
1490 
1491 
1492 
0943 
1084 
0631 
1190 
0057 
1277 
1276 
1415 
0995 
0518 


1257 


1055 
0965 
1298 
0897 
1009 
1182 
1054 
1384 
1428 
0053 
0890 
1296 
1444 
0020 
1494 
1495 
1497 
1498 
1499 
1412 


1336 
1408 
1409 
1411 


0428 


310C 769 
§16529 


REFERENCES 
ccie 

0031 

0084 

C120 

0149 

0189 

0242 

0333 

0347 

0086 06096 
6125 

0123 

0152 

0163 

0154 

0192 0200 
0308 

1343 

0863 

0543 

0855+ GB99% 
c970* 1105 
0969% 1104 
CS511* 0515« 
0039 oCé60 
0357 0408 
0975 C978 
C950 

1068 

0620 0626 
1188 

0055 

€193 

0539 

C584* 0585 
c989 

0525 0555 
1240 © 

1052 

0402 0405 
0369 C370 
0878* 09094 
1004 

1180 

0624% 0630 
0169 

0885 10068 
co38 

0877* C908 
03704 0372 
e352 

0033 C461 
0039 0060 
0357 0408 
0975 

0978 

1038 1233 
0036* 0037 
1147 1149 
1240* 1243 
1127 

0356% 0360 
0463% 0464 
0057 0058 
1134 11762 
0424 

28NOV69 
816542 


aa 


sig 


adage Pe itt 2 on 


CROSS-REF ERENCE 


0537 


oc87 COST - 


0508 0858 
1038 1233 


O38C C881 


0642%* 06434 


401C* 1C€19 


0882* 0890 


0466 0518 
0087 0097 
o5c8 o68s8 


0247* 0248 
1252 «61153 


C3é4 «6040 7e 
0826* 0827 
0306* 0307 
1200 1212 


O2KARTO 
816631 


0124 0153 0164 0218 
0399 


0882 0897 
O€48% 06463 
O41S$ G625 O674 0677 


Gi24 0153 0164 0218 
6999 


0260 6277* 60278 0250 


“hea” Oe 


vo ment 


PART NG. 2589953 
PAGE ISA 


0250 0286 0309 = 2 5 8 fv oas 





0250 6280 6309 


1139 1140 1142 11464 


2i55® 1157* 1159® 11608 1161% 11639 1166 1238 


O11 8615 0857% 0861 
2Ci4* 1615 

0520* 0521 0689 1067 
121% 12136 1235 


OLNGVTO 19RNOVTY 
616764 818677 


0865 1021* 1286 1287 
112i* 1122 1124 1233 


PROG 10 OEOi~3 
P&GE ISA 








18% MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 25899512 EBM MAINTENANCE DIAGNOSTIC PROGRAN 


PART NO. 2589951 
PAGE 16 PAGE LOA 
£013 $203 LINE PRINTER FUNCTION TESTS £013 5203 LINE PRINTER FUNCTION TESTS 
CROSS-REFERENCE CROSS-REF ERENCE 
SYMBOL T CEN VALUE ODEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
STECKi A 00% 1688 1133 1231 S583 0584 0638% 0672* 0679% 0680 O871¢ 0872 O875¢ 6876 887 d0889% 
STECK2 A CO* ESF 1134 1132¢ C890 C6896* 0897 0502 O970 1053 i054 1105 
STERR A004 1656 1L11¢ 0890 1067 1083 1102 XTEN A GOl 182D 1259 1241 
STEXIT A O04 LIZA 117% 1119% 1169# YBATS A 004 ABA 1333 1202 =61205 
STHL A OC& CBSC 0203 cCis¢s YEGQW A O02 OCI5 0232 0230 
SISAL A 002 1655 1117 1L20¢ 1170 YESER A 004 1670 1126 1123 
STOAD A OC2 186€C 1286 1007 - ZERO AOGO2 1621 1252 0541 C765 0813 06848 ©0902 
STom1 A OO2 1862 1287 1011 ZIGOUT A004 1043 0594 0591 
SUBGAN A 006 1702 146} 1164 ZRGTO A 006 13€D 0932 09308 
SUNERD A 004 CEAF 0468 0462 . 
SVATEN A OO2 1831 1261 0400 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
TAGS & COL 1668 1467 0420# 0423 1025% 1069* 1126% 1138% 1206 12462 
TAG € C01 0002 1487 C423 1126 1138 
TAG? COOL 0001 1488 0420 1625 1069 1206 i246 
TALT A COS OCADB C109 co9s8 
TECHBE A004 OAE3 0058 CO56*% 
TEES & GO3 18F4& 1312 0548 
TEGAN A GO4 OFA3 0542 0545 
TePLU A 004 OBEB 0218 0207 0210 0214 
TESER A COS 13818 1246 1207 1234 1236 
TEST C00 O212 £475 1055 
TEEL «=A OOS «1874 1367 0252 0414 1178 
FHOIR & 005 IBEF 1366 C216 O41C 1181 
THROUT A 006 OFCB 0556 0553 
TIOCHK & 004 1454 6988 0979 C994 
TITLA AO}D 1917 131346 C506 
TETLB 4021 192€ 2315 0572 
TITLG A G16 1904 1313 0457 
TIXE £004 1406 0937 0927% 0934 
THERP A 064 GE56 0429 0627 
TOBVT &£ G06 13FC 0935 c929% 
TGLONG & 004 1424 6948 0945 
TON & 022 1BAD 1371 0089 
TREE AGS2 1827 1255 0582 
TUFORF A 002 1848 1273 05 8&5 rs 
TH  $$$& 006 CBI 0194 C197 
TwtvVE A002 182F 1260 0371 ©0875 C8B9 CESS 
' Two & 002 1825 1254 0353 0581 0793 0804 0899 0934 0923 
THYSIX & GO2 1635 1263 C683 
TWYWUN A OO2 1833 1262 1159 
T¥BOT A OC6 1308 6929 C924* 
TY 8S A004 0621 0153 C152 
UCSFLG C 001 0878 1465 0054 0633 
UFERR & 006 O8BB 0208 0204 
UNCSK A025 i94F 1318 0670 
UNITIN A 001 1843 1270 1155 
UNGSVN A OO) 1842 1269 1157 
UNPACK C O01 O21E 1478 0258 0262 0288 0292 O77@ 805 1198 
UPCER A 004 116€ O701 0690 
WAHOL A004 1501 1014 1016 
WAT A 006 1289 0830 0833 
WHIHLT A COG 1228 0796 0788 . 
WICH A006 18CC 1308 04104 04149 0426 
WORK & 002 LFS 16137 
wT &006 1470 0982 C974 CS85 
BUDF 4019 1970 1321 o706 ‘ 
WUNTH A O04 113C 684 C682 : 
x10 & 006 1432 0964 ©0349 C441 0472 0487 ©0523 0550 0577 0588 0644 0685 O701 O715 
0912 
KIOEXT A O04 1644 1204 6987 1C86 1088 1101 
KA C001 O001 1459 €336¢ €252% 0353* C354 C378 C382 0388 0404 0417 0541% 0544 0580 
O0582* 0583 0637% 06814% 0683* 0685 O0&88 0691 0696 O757* 0764 0765 
C76? C769 O77) C773 O775 OT7T OF89 GI9i 07934 0794 O802* 0803 
0804* 0823 0817% 0848 O85C C851 6853 ©6856 C900 0914* 0969 1053 
$056 1104% 1120 21278 2128 1128% 1129 1131 2132 1136 1237 1170* 
XR2 € OG! 8002 1460 C355* C366 O0371¢ 0372 0380 0400* 0402 0479% 0482% 0484 0579% 0581 
NATE 25AUG69 310CTe9 28NCV49 O2HARTO OINOV 76 ISNGV71 PROG 1D O£01-3 DATE 25AUC69 31OCTEéS 28NO VES C2MAR 70 O@iNCV7TC LONOVTL PROG 10 oe 
‘ EL NO. 816485 $16529 816542 81663} 816704 818677 PAGE 16 EC NG. 816485 816529 £16542 816631 81676% 818677 ~ PAGE 16 
i 


: Z we, 2 orn 
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‘ LQ > ~ re oe. fr: oie z é s frre SAP eS Pa 
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18" MAINTENANCE OFTAGNOSTIC PROGRAM 


£013 


THE CHARACTER 


5203 LINE PRINTER FUNCTION TESTS 


OBJECT CARD LISTING 


Ct 1 THROUGH 16 CL 17 THROUGH 32 Cl 33 THROUGH 48 


Te-¥3:6AC sc B-@ 


T#-25< GAF DS 506 


T#-DO1U2*8 8<¢ J? 


Te-, ,6 | As8$eG-8_8 


T¢-2WIL-C -T 2UAT 
¥4#-_/D OBFIDERSB 
T#->*/0OHSBAC /0H 


T¢-? PAL O< F6H< AAO 


Te-OKsY EC 89CA_ 


Te-l CHD OH®BE-Q 


Te-2H8C . /O43 /= 


Te-30¢ IBBIHE<-0 


ie-3= S.-(CCTE9< 


T4#-49 JEWOH*KY SEB 
Te-S4FE, 2/01 /1¢ 
a e 
T#-67-CE5SC 0 ~YE 
1#-7DC DAO//CC D 


Te-G Veer G Cle € 


Te-9- G -E960H*9 
T@-2 $4J 2R OH*BF YM 


T¢-s0DTC SG888 y= 


DATE 
EC NC. 


25A0G69 
£16485 


sUj;A& DA & HU3- 


G /DAB/? JOH® BH> 


SFO" /OHE~EY $4 #2 


8A HHaZ QOH*®BF 20 


/OHEQUQSI= 2 OD 


G /Z7AD1>P84+60~ | 


OAG <F&GWB7$2/: 
CFSUaDE? #03H 2 aG 
EC &* 1_71W.=3- 


CL$ /1EH<sEQU-0 


NGOX /OH3 //FGEP 


OG C#lABRG /,AE/} 


8 J=KeZ ~+ CBBIH 


G /QH = OHEMN<OE 


SGBOQEYOG A/DGH* 
3 & @ZALT & FHB 
(7A/0C CL$7/0aY* 


4166 


O8 A= (4H 
(GCOYAGBZ< AS CXG 


HE °G /ONSBC] 708 


AB-32D GQ Y+<+t 


O03; HENCT™BGT2 &6 


G S.-C&BG /Q8- , 
EF #G- <ECAF *D$4aB 


$457) OH*BF YDHF *G 


e 


AB _BaYev+ EBBIH 


< J=)FE ("0- 8B 


* e 


UBaTA# 2$3Y90C + 
D -T2UAT /OHE OK 
AF *D$53CUGOM( J= 
” (OWE -5<*NBG /D 
BBCL /OH$ /=NGCX 
EDBG /,AH/178C3 


Al D=Y*HAGAQ6 J- 
L>J=PFH8< ASBFHE 
< A=/G9)*H-C2 JM 
KC DMO//OC DUTA/ 
BBAHED- COF<%$204 


41*2¢ H~S*HECLC 


VOH*M<> BOH* BE-U 


CL 49 THROUGH 64 


~ VE4 AGO MHC? HAIL- 
a+fZT <+<- 3-DG9| 
S03 H7T-D -T2UA 


G /DAB/?2JOH*BH> 


JOH S8C. /OHOAH 


GF<EG /¢AF/298A 
(40- Bf J=)FBI 
#CA_DIC*.="HGHOO 
*H> C D$4J7) 0H* 
NED$2-La8A HHaZ- 


AB/ ?JOH*BH> 2=<3Q 


/OHs //HGEP /OH 


/OHE- EY$49BG S. 
VG D-VOGB -SC<+ 
6 /-21 % FHHE A= 
eo aeece eaenke 


QC O($//QCHS DE 


G 84+ Y~HAGS-=HGC 00 


—~C VE<ASTCFSX2/06 


CLL SOHEE/ 


RAS 
f@ZAR@L HCIHE ACB GOXKG T@’CHCHY-T  "C- sWwU-TOHSM<ODH 
ZIOCTES 28N0 VES O2MAR 70 OLACVIC 19NOV71 
816529 816542 816631 816764 818677 


PART NO. 


2589951 


PAGE 17 


INDICATES A BLANK COLUMN AND TEE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 65 THROUGH 80 
D -T2UAT /OHEOU 
2DBM8A HHaZ QOH* 
< 12ST J0HEE SC 
1OH#BE-~< BIS A9~» 
-EaG-B262/1Y8A H 
< J?JF*t /OHE-EY 
"7 _gav® 0:0.x18 
GG 0$0-006 <$)CO0 


BEYDHF'D< ONB™? 
2C &*<JOZOH*BFRD 
OKTCWGOME J=NFDs 
E-J<#N#BG /DAB/? 
-1<BG /QG 4HI OD 


aTLS -x2U 2? /14 
1694 A=/FDG2A 0 
< &5>FEL 2/25"NEG 
"FID6 /-1TA FIG 
DF<%$) 4 G80.Y5H 
aF-9S0H*BFYD Fe 


1<-+_C?7™G9U9< Y 


Al JU-W* ACD-*80: 


PROG ID 


CL 81 THROUGH 96 


$/+ 436€0130001 


BFXD MC 4E 0130002 


$V= MRHEO1L30003 


~a@Y* 3 ,-£0130004 


HeZ =30E0130005 


$4*%  sRYE0130006 


3-0 6/8F 9136007 


8B"% KR8E0130008 


/0H Es %E0130009 
OGOH *THEO130010 
2-La 29 £0130011 


JOH* MYQEC130012 


~Y*H OK8E0130015 


9684 414E0130014 


< £4 QDDE0130015 


2 JM R1ME 0130016 


/1& &28E0130017 


AB74 $08E0130018 


e o 


< J2 KZMEO 130019 


<a/) = M0*E 0130020 


e 


4@YD 5ZME 0130021 


0E01-3 


PAGE 17 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


£0 13 
CL 1 THROUGH 16 


T+~a JK33TC5LB -/ 
Te*°< /QH "UOH* 
T+~= GDA808/=L+ D 


T4#-"B)/*6G67~38 G 


| -T#-"'6ZBGEC.S L4 


T+#/ 8B<1 /1628-G 
T+/A3C~ -WJ-TOH* 
T+/B >C}HEDC 175. 
T+ /CZCHCH™1=D [Ea 
1+/DU1*BG /YKOH* 
T#/ E+0-DthHGACQ 


T+/FEDIL UADZI 
T4/GNHE +-]""0H* 
T#/HE0GXO [HEIGT 
T#/1./1/9 &C UAG 
T4/HEV1X=0H*BF-O 
T4/.AG94("0- B 
T#/. aaZCVI DL~yO0 
T#/<7 -SITAC FGO 
T#/(2G:x2 bEae C 


T4#/+_C- L~J-VG D 


Tes ¥ 6 J-VCH* 
CATE 25AUG69 
EC NO. 816485 


CL 17 THROUGH 32 


21D H"-&EF1YQMLQ 


BFUHLFU~- CS -X 
mU"HEE@BGEC. S <B 
AS =603 IRCGUFO# 
MGOX2 -EY+ A=RFBI 
B -~ 0-DH; 30BFBM 
[ "£56 /YKO'N*BE-0 


0) 18 : |G*NVT1SERZ 


NVLIARER*S AOR! 
BE- ( AFJOH*BFUH 
AFCM@ JC4-18 OH? 


&*<B8GDLL /1&28 G 


BFUD>FE?-:%BG /Y 


- |HEDXUE [HECGU 
53P AOHEJS*LQAFBN 
DF39( &DQH* ADT7 


(+o 8B | A=)FBI 


° ee 


AGO#AC+ ATLS ~-X 


< A=-6:62/0U6 /- 


e © e 


2/3 6 4-277 Y FH 


~WOD4 /=RCED-V1- 


5203 LINE PRINTER FUNCTION TESTS 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


BFBUFDAZEFEH< 6 
2U a:B =4+4-- JULY 
GC4T /OHS8AC2/0L 
38- 5 J-/0;Q{D2H 
"70 *HOH*BF/. /0H 
6 J-xX$ H CEBG9R 
“DIP /OHEE-OR++ 
<. 1 =DBBa<M1* HGBE 


NWZBGEC.S &@ ERM 


PFM"- <HBDKOa@=1E 


M<>H D0) + HAUMH 


/CHEOL4R+3 =C DB 
E+ /XVO-D~0C4 "D4? 


E [HEIGGD =He.AO 


"O.2-EL SIF TCH 


/OHEE*HAG6 O8A= 


” JAI OH® CED 2< 
2U 2 /149G840E7H 
91 % FGOSB/ tH! Y 
+ A=/G9%{ A=/FDG 


fAYOrt—~ ~VZ EDTK< 


CL 49 THROUGH 64 


SFT5 BI# -E#00H* 
HC972/00#B =++0- 
"711503 [R<BGE Y 
CCTQAFB]  &=TOH® 
OBO &<BG /ZBEJU 
( gesFoT -s #10- 
” + G0HC [HEI32C0.0 
© "0/8a-D<CGF/ / 
Ql a ER*QHOB ERU 
M4 HHCIHEC3330NE 
&1 3EAG91)* 6J=ROHD 
$4 J? SOH*BFY MHF" G 
2 &*a$aG.aY #01 Ca 
AG9* AOH*BG~ H-~V1X 
BFUDGF~»~ <HAGG. 
SOH* KY@BGDWM4 BAH 
a"1=-LEDAFBG -& 
GB<BGDSU-T A/ DCE 


LE*BGD#U-V1S+C 


chA- | A=/F0G2/08 


8 /=08/ &{ ZLKCO 


KDO 6BA-T{ -L61TQ HFBM4BAl-( -LOTQ HFB<@BAEIC DL# 
3210CT69 28NGOV C9 O2MAR 70 OINOV7C 19NOV71 
816529 816542 816631 816764 818677 


PART NO. 
PAGE 
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PART NG. 2589953 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. = 2577953 
PAGE ; Pace La 
£025 5203 LINE PRINTER FUNCTION TESTS E025 5203 LINE PRINTER FUNCTION TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
2% LAST CHSZOL 27 75 0A90 7D FF 00 70 CLl Ole XRLDXSFFSE CHECKED ALL CMOS 
3 DECK 4 0A93 CO 01 OAT4 7 BNE SENEXT 
4 SEQ oO OA97 38 20 1628 72 TBN TAGSeTAG2 ALL CMDS.CORRECT 
0a00 5 UVWXYZ START x*aqoe OA9B CO 90 OAAA 73 BF AL BAD 
é TREP OASF 38 40 1628 74 TBN YAGSeTAG1 
7 FSPESRSEEE TREE EA EEEEEENE EEE EEAEREREEE ERE SEEN ESAEEERS REEDS SE ORRERCER ERAS 0AA3 CO $O OCAO 75 BF SYNARA 
ge * OAAT? F2 87 60 16 J WEROM 
Gg « SYSTEM/3 5203 LINE PRKIATER FUNCTION TESTS * 77 SEAESEEEEEE ES AESESESEHSEEEEE EE ESE SHES SE SEK SEE SEECETERENIEEOEECESERRESEED 
10 * * 76 * ALL SENSE COMMANDS FAILED * 
LL FEROS ER FERRE REESE ESKER ELEN ES ELAN REESE RARE EE ERRRETE EES EERED ERED EOREEE TG MENSA CAESERERESE EEE SEES SEE TSSEESCESEHS ESTES OEE SOTE TOS 22800464 88E306 
12 * SECTION 2 ~ ROUTINES 1 & 2 * OAAA 30 F2 1520 80 ALBAD MMVI WCHEB,X*F2° PUT EB2 EN MSGe 
13 FERSERERERENE ERE ESE ATED REE EEEKEEE MERE HERD ERESOE EERE OREEDENERE EORERS D OAAE 30 00 1629 81 Cil €BLERC,xX*00" ANY EBL ERRS 
OA00 £025 CAO] 14 oC XL2¢EO 258 PROGRAM IDENTIFICATION OAB2 F2 81 1C 82 JE SKIBIT TF NOT 
0402 00 OA02 15 oc XL1°O! FLAGS OABS5 3C Fl 1529 83 MVI WCHEB,X*FLS PUT EBL IN MSGe 
0403 01 O0A03 16 RNUM 0G XL180 CURRENT ROUTINE NUMBER OAB9 3D 00 162A 84 CLI EBZERC,xX*008 ANY EB2 ERRORS 
0404 0000 OA0S) 17 OC XL2*0* RESERVED OABD F2 82 11 85 JE SKIBIT 
OA06 0A10 OAO7? =18 DC ALZ(RTNL} ADORESS OF FIRST ROUTINE PREFIX OACO 3C 41 OCLA 86 MVI —-IDALT» X*41° SET HALT IG 
0A08 1630 oAc9 = ig DC AL2(ERTL) ADDRESS OF ERROR RECORDING TABLE OAC4 CO 87 O2I1A 87 B PRINT PRINT ALL SENSE CMDS FAILED® 
OAQA E04000 OAOC 20 SPUCT oC XL3"E04000* UNIT DEFINITION TABLE — PRINTER OACB C2 OACB 88 oC XLL'C2° 
OAOD 101000 OAOF 21 SPUTA Dit XL371020008 PRINTER KEYBOARD OAC9 15 OACS = 89 oC ILie2ne 
22 SH RSEREREN EER EEE SES EERE ERAS EEE ERERE RE RERR ERA R ERE SE CREE REREREERES RERTED SE OACA L5LF OACB 90 oC AL2Z(ALSCF? 
23 « * OACC £041 OACD 91 DC XL2°EO41° 
24 * ROUTINE 1 ~ SENSE COMMANDS ANALYSIS TEST * OACE F2 87 54 92 J CUTLOG GOLOG OUT ACTUAL EEXPECTED BYTES 
25 »* * OADL 3C 42 OCIA 93 SKIBIT MVI IDALT.x*4@2¢ 
26 MESSRAGRSEERERERE EH ERE THES O44 SEES ERE ARR SHEE CEAERAEKETRS RHEE CREE ERR EE OADS CO 87 O214 94 8 PRINT 
OA1O O1 OALO 8 =27 RTNE DC XLL*Z? ROUTINE NUMBER OADS C2 OADS = 95 OC XL1°C2° 
OA11 80 OAL] 28 DC XL L* B08 FLAGS — MANUAL INTERVENTION OACA 34 OADD =—- SE oC IL1*52° 
OAL2 OCB1 CALZ = 29 DC AL2¢RIN2} ADDRESS OF NEXT ROUTINE PREFIX OADB 153E OADC 897 ce AL2(CNLBYT} 
30 PROM ERERAEHR AE CERES REG REERA EERE RASS ERRARTE ACER E RES RGAE EE ER READ ORR ER OADD £042 dACE $8 OC XL 2 *EC42° 
OAL4 38 04 0203 31 TEN —- SBYTEGs SSROS TEST FOR ALTERNATE PRINT DEVICE OADF F2 87% 43 $9 J CUTLOG GO i0G QUY 
OA18 F2 90 12 32 JF SKALT LOO SEXE PSHE EOE NS EEE ELE ORGIES CHEESE SHH SSIES AOROKEE KEKE OSD SEE ORERSS ERED 
OAlB CO &7 O21A 33 B PRINT PRINT *SENSE CMDS ANALYSIS TEST? 10L * ACTUAL DCES NOT MATCH EXPECTED - 
OALF 42 OALF 34 oc XL1°42e LO2 FHSS SR. SHAK AAEH OLS SHES ESEES SES CEKSEEES RESCSTHRISAETSRE SY THLE SEASOREESES 
OA20 18 CA20 35 oc IL1* 24° GAE2 6D 09 Gi oO} 103 ANERR CLO Leb eXREDe RE eXRZ2 1S THE EBL BYTE IN ERE 
OA21 12C3 OAZ22 36 oC ALZ(TITLEL) OAEG F2 81 OD 104 JE FUSBTU 
0423 EQE2 OA24 = 37 OC XL2°E0E2Z¢ * QAES OF OO 162% 1267 105 ALC EBLERC(14,ONE ADD TO EBE IN ERR 
OA25 CO 87 O21A 38 8 PREIKT PRINT *JMPR A-BLESOLG TO A~B1D2S05, OAEF 6D 00 CO 06 1c CLC OCD OXRE DEOL oXR2Z9 IS THE €82 BYTE IN ERR 
OA29 OL QA29 39 oc XLE*OT? RESTORE CARRE AGELS), PRESS CHK QAF3 F2 81 06 107 JE ANBAD 
OA2ZA 54 OA2A 40 oC TL1*84° REStT, THEN RESET HALT® OAF6 OF OO 162k 1267 1G8 MUSBTU ALC EBZ2ERC(1L3,ONE 405 TO EB2 IN ERK 
OATB 150A OA2C 41 IC AL2(RELORE) OAFC 38 40 1628 109 ANBAC TBN  TAGS-TAGL ANY ERRG YET? 
OAZ2D FO 7C Te 42 SKALT HPL X*76°%,xK*7C8 HALT E22 PREPARE PRINTER 0800 F2 90 O07 120 JF SEEF 
OA30 3D FF 0878 43 Cuil UCSFLGyX* FF? 120 CHAR. SET OR93 3A O& 1628 ill SEN TAGS» TAGS 
OA3% F2 O1 04 44 JNE = MARCS O80? F2 87 09 112 J aNYGUD 
0A37 3C 00 129A 45 MVE «EXPD3,x*Q08 PUT "00" IN STATUS BYTE OBOA 3A 40 1628 L132 SEEF SBN TAGS,TAGA SET ERR FLAG 
OA3B 39 O1 Oacc 46 MARCS TBF SPUDT,X*O]L® DUAL FEED CARR. OBOE 2C O1 1548 69 114 MYC = EDOC (29 BL XRZA PUT CMDSCOOE IN MSG. 
OA3F F2 10 08 47 Jt DOENSE 0813 CO 87 OA8B 115 ANYGLO B GORG AN 
OAS2 3C O01 129% 48 MVI EXPDIeX* OL? PUT *OL® IN RIGHT CARRIAGE LOCATION 0817 3C 43 OCIA L1é WEROP amv TIDAL T.X*43? 
0446 CO 87 0212 43 8 TEST READ DATA SWITCHES OB81B CO 87 O21A 117 8 PRINY PRINT THE SENSE CODE fm ERR 
50 PER SPOERE SERS SSE SEEEE SEER ETHER OEE ORES THEE AERETER EGE ED EREORESEEED SEREOEE OBLF C2 OBLF 118 BC XL2°C2° 
51 2 DO FOUR SENSE COMMANDS * 0820 14 0820 119 oc IL 1*20° 
52 CRS POS OUSSSEEPRE STE SH EERE S TES REREHES CHEE HREKEKERERETRSERS EEE RO RE ERE EE ES 0821 1552 0822 12C¢ oc AL2(¢SCGIE) 
GA4A 30 £0 1290 53 DOENSE SNS  SENSO,X*EQ# GET LINE LOCATIONS 0823 £043 O824 121 oC XL 2°E043° 
OAGSE 30 €1 129F 54 SAS SENS1L eo X*E1® GET INCRMLE CoCeCTR.e 122 POSSESS HOSES S HFS OS SOTHLSESEHTVTASSHSY SESE ESSETIES EEESSEOREDESEESES 
OA52 30 E2 L2Al 55 SNS SENS2,X*E2" GET TIMINGS 123 * {0G QUT ALL COMMANDS WITH ACTUAL AND EXPECTED BYTES 2 
OA56 30 E3 1243 56 SAS SENS3-X* £3? GET STATUS L124 PRORSLHSTTSEMS 284 EE FHHTT SCORES EOSOAOKERESSESEEESEESEOEES SOOEEESESOESERES 
OASA 3B 31 1240 57 StF SENS2—1,B8*110001° IGNORE CHAIN EMIT,sPSS—1 & HOME LATCH 0825 C2 O1 1293 125 QUTLOG LA EXPTABe XR} LOAD TABLE A008, 
OA5E 39 O1 1243 58 SBF SENS3,B°1° IGNORE CE SENSE BIT OB29 C2 02 129¢ 126 LA SEMTAB XRD LOAD TABLE ADOR. 
OA62 C2 01 1293 59 LA EXPTABsXR} LOAD TABLE apoR. 0820 2C 01 1564 09 127 SCARD MVC) LFYICOD(2),94,4R2) PUT CMD.CODE IN MSG 
OA66 C2 02 129¢ 60 LA SENTAByXR2 LOAD TABLE ADDR. GB32 2C O1 156F 08 128 MYC = RYTCGDO 23 cA AE KARZ) PUT CMDeCCOE IM NSG 
OA6A OC O1 162A 1263 61 MVC) -EBZERC (2) ¢ZERO ZERO ERR COUNTERS 0B37 34 01 0841 129 ST LEX2 XR 
OA7TO 38 68 1628 62 SBF = s-~ TAGS »X 86a! RESET A CMD CORRECT & CHD-ERR FLAGS 0838 CO B7 O21E 130 B UNPACK 
OA74 6D 01 01 O21 63 SENEXT CLC 1 2eXR1) oll oXR2I ACTUAL SENSE MATCH EXPECTED OB3F O1 O83F i431 oc TLacue PUT LEFT EXP.EB2 IN MSG. 
OATS F2 01 67 64 JNE = ANERR 0840 0000 084% 132 LEX2 OC AL2(9-@) FROM 
OATS 3A 20 1628 é5 S8N TAGS »TAG2 SET A CMO. CORRECT FLAG 0842 1540 OB42 1233 oc AL 2{LEXEB25 To 
OATF OD O12 162A 1263 66 CLC = EBZERC12),ZERO ANY BYTES IN ERR YET OB44 36 Cl 1267 134 A CHES XR AOD 1 TO TAME ADOR. 
OABS F2 U1 aF 67 JNE = WFROM IF NOT KEEP GOIN® 0848 34 01 0B52 135 ST LEXI XA STORE FROM ADDR. 
OABS 36 O1 1269 68 GORGAN A TWO, XRE ADD THC FOR NEXT CMDe OB4C CO 87 O2LE 136 B UNPACK PUT CEFT EXP.EBL IN NSGo 
OA8C 36 O2 1269 69 A TWO, XRZ AOD TWO FOR NEXT CMD. 0850 O1 OB5C 137 oc teas 
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£025 
ERR LOC 


0651 
0853 
0B55 
0859 
0850 
0B6] 
0B62 
0B64 
OB66 
OB6A 
OBOE 
oB8T2 
OB73 
0875 
OBTT 
O87B 
OB7F 
0883 
OB 84 
OB 86 
OBB8 
OB 8C 
0890 
0894 
0B95 
0897 
0B99 
089D 
OBAL 
OBA5 
OBA6 
OBAS 
OBAA 
OBAE 
OBB2 
OBB6 
OBB? 
OBB9 
OBBB 
OBSF 
CBC3 
OBC6 
OBCA 
oBcD 
0B8D1 
OBD2 
0803 
oBC5 
OBDB 
OBDC 
0600 
OBDE 
OBEO 
OBES 
OBES 
OBEG 
OBES 
OBEC 
OBED 
OBEE 
OBFO 
OBF4 
OBFS5 
OBF6 
OBFS 
OBFB 
OBFF 
oCc05 


DATE 
cc NO. 


: 7 


5203 LINE PRINTER FUNCTION TESTS 


OBJECT CODE ADDR 
0000 0852 
15A3 0B54 
36 O01 1267 ‘ 
34 02 O0B63 

CO 87 O2Z1E 

01 0861 
0000 0B63 
15A8 0865 
36 O1 1267 

34 01 OB74 

CO e&7 O21E 

Ol 08 72 
0000 OB74 
L5SAE 0B 76 
36 O1 1267 

34 02 0885 

CO 87 OZ1E 

01 0883 
0000 OBSS5 
15C0 CB8T 
35 O02 1267 

34 O02 CB96 

CO 87 O21E 

Ol 0B 94 
0000 OB 9€ 
15C3 OBS8 
36 02 1207 

34 02 OBAT 

CO 87 O21E 

Ol OBAS 
cooo OB AT 
15CB OBAS 
36 02 1267 

34 02 OBB8 

CO 87 O21E 

01 OBBE 
0000 OBBS 
15CE OBBA 
36 O02 1267 

38 20 OAOE 

F2 10 12 

38 04 0208 

F2 90 08 

cO 87 O21A 

al OBD1 
78 OBD2 
L5CE OBD4 
F2 87 20 

CO 87 O21A 

61 OBOC 
1c oBDD 
156F OBDF 
CO 87 021A 

81 OBE4 
1) OBES 
1S58F OBE? 
CO 87 O2Z1A 

81 OBEC 
ic uBEC 
15AE OB EF 
CO 87 O21A 

82 OBF4 
ic OBFS5 
1SCE OBF? 
‘TD FF 00 

cO 01 082D 

OC O01 14A6 1482 

CO 87 021A 

310C%6S 28NOV69 
816529 816542 


STMY SOURCE STATEMENT 


13€ 
139 
140 
141 
142 
143 
144 
145 
14€é 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
15t- 
158 
15s 
160 
161 
162 
163 
164 
1é5 
166 
167 
166 
169 
17C 


172 
173 
174 
175 
17E 
177 
178 
179 
186 
181 
1&2 
162 
184 
185 
18é 
1&7 
188 
18S 
190 
191 
192 
193 
194 
195 
156 
1397 
198 
iss 
206 
201 
202 
203 
204 
205 


tExi 


REXK2 


REX] 


LAC2 


tAcl 


RAC2 


RAC} 


PR4LT 


ALCOP 


D2MART0 
816631 


oc 
oc 
A 
ST 
B 
OC 
oc 
cc 
A 
ST 
B 
oC 
OC 
BC 
A 
$7 
B 
OC 
oc 
DC 
A 
ST 
8 
oC 
oc 
oc 


A 
ST 
B 
oC 
DC 
OC 
A 
ST 
8 
Oc 
oC 
oC 
A 
TBN 
JT 
TBN 
JF 
B - 
oc 
bc 
OC 
J 
B 
OC 
OC 
oc 
B 
oc 
oC 
OC 
B 
DC 
OC 
cc 
8 
oc 
oC 
oC 
cul 
BNE 
MYC 
B 


LI¥AYTO 
816671 


AL2(@*#) 
AL2(LEXEBL) 
CNEeXR) 
REX2—eXR1 
UNPACK 
TLaea3¢ 

AL 2 (S~2) 
AL2(REXE82) 
CNEsXR1 
REX1.XR1 
UNP ACK 
ILa*1* 

AL 2(%—-#)} 
AL2(REXEBL) 
CNE -XR1 
LAC2eXR2 
UNPACK 
IL2b*2° 

AL2Z (4%) 
AL2(LACEB2) 
ONE, XR2 
LACI,XR2 
UNPACK 
ILieye 
AL2(#-*%) 
AL2(LACEB2) 
CNE,XR2 
RAC2_XR2 
UNPACK 
gezere 
AL2(#-#) 

AL 2(RACEB2) 
CNE eXR2 
RACIXR2 
UNP ACK 
ILE*2°* 
AL2(##) 
AL2(RACEBL) 
GNE.XR2 
SPUTA-1,B* 100000° 
PR4LI 
SBYTEO »SSwOS 
PR4GLI 

PRINT 
xLi¢81* 
IL1*123° 
AL2(RACEBL) 
ALCCP . 
PRINT 
xL1*81° 
IL1*2g¢ 
AL2(RYTCOO) 
PRINT 
XL1*°8i* 
IL1#29°8 
AL2(BTES) 
PRINT 
XL1°*8}° 
IL1*28° 

AL 2(REXEBLI 
PRINT 
XL2EB2t 
IL1°*28* 
ALZ2(RACEB1L) 
Os XR1),X* FEE 
SCARD 
MAP(2),CHT13 
PRINT 


O1NOV70 
816764 


19NOVT71 
818677 


PART NO. 


2589953 
PAGE 2 


FROM 
TO 
ADD 1 TO TAS&LE ADOR 


PUT RIGHT EXP.EB2 IN MSG. 


FROM 
To 


ADD 1 


PUT RIGHT EXP.EB]l IN MSG 
FROM 

TO 

ADO 1 


PUT LEFT ACT. EB2 IN MSG 
FROM 

To 

400 1 

PUT LEFT ACT.EBL iN MSG 
FROM 

To 

ADO 1 


PUT RIGHT ACT.EB2 IN MSG 
FROM 

TO 

AOD i 

PUT REGHT ACT.EBL IN MSG. 


FROM 
TO 


PRINTER KEYBOARD ASSIGNED 
PRINT ON ALTERNATE DEVICE 


PRINT CMD CODES AND ACT.EEXP.DATA 


PRINT SENSE CODE NAMES 


PRINT SENSE CODE BYTES 


PRINT EXPECTED SENSE INFO 


PRINT ACTUAL SENSE INFO 


ALL & CMDS PRINTED 
PUT CHART NO.WIN MSG. 
PRINT PRINTER MAP CHART NO. 


LSFEB7TS 
572250 


PROG ID E02-5 
PAGE 2 


IM MAINTENANCE DIAGNOSTIC PROGRAM 


£025 
ERR LOC 


oco9 
OCOA 
OcosB 
OcoD 
Ochi 
oci2 
0c13 
0c15 
oci9 
0c 18 
oclF 
OC 22 
0C26 
0c29 
OC 2D 
0c30 
0C34 
0C36 
0c39 
OC3D 
0c40 
0C44 
OC46 
0C49 
OCc4D 
ocs0 
0C54 
OC56 
oc59 
ocsD 
océl 
OC 64 
0Cc68 
OcéB 
OC 6F 
ocT3 
OC 76 
OCTA 
.Oc70 
ocal 
ocss 
ocss 
oc sc 
ocsc 
0c 93 
ocs7 
oc9B 
oc9D 
OCAO 
OCA4 
OCAS 
OCA6 
OCA8 
OCAA 
OCAOD 


ocs8l 
ocBb2 
ocB3 


ocss 
ocB9 
OCcBrF 


DATE 
Ec NO. 


OBJECT CODE 


81 
12 


14AE 


of) 
85 
oD 


87 


15€9 


co 


&7 


€000 


38 
F2 
30 
F2 


co 


19 
90 
43 
Ol 


87 


€000 


F2 
co 
41 
18 


8&7 
87 


L5E9 
£000 


FO 


7 


O21A 


0222 
O20A 


OCLA 
81 
1628 


0222 


71 
1548 
cg 
0222 


61 
154B 
a9 
0222 


Si 
Oc 3c 
1548 
1S 
162A 
2c 
ocgc 
16293 


ocec 
lA 

ocec 
162A 
OF 

ocec 
1629 
04 

oc9ec 
0222 


GA 
O21A 


57 


CO 87 0216 


02 


80 
FFFF 


3C €2 OCEE 


OC 04 1602 1470 


Ck €0 OCC6 


310CT69 
816529 


28NV 69 


5203 LINE PRINTER FUNCTION TESTS 
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ADOR STMT SOURCE STATEMENT 
OCOS 206 oc xLaeeie 
OCOA 207 oc tress 
ococ 208 OC AL2CENT) 
20S B PRINT PRINT ‘REMOVE JUMPER® 
ocil 210 oc XL1°85°* 
Ooci2 211 oc a*ase 
0C14 212 oc AL2(OKSEN) 
213 ZALT 8 HALT SENSE ERR HALT 
OC1A 214 I0ALT OC xL2*°€000° 
215 TBN SBYTE2 »SSwi3 SSu -13 ON (NO ALT.PRTRAL) 7? 
216 JF LEAVIT . 
2i7 cul IDALT,X*43° WAS THE ERR A 943° HALT ? 
218 JNE TIVA 
219 Ten TAGS, TAGS tS ONLY 2 SENSE IN ERR 
220 JF JUSUN 
221 B HALT KCRE THAN 1 SEASE CODE 
0Cc35 222 oc XL2*E083°* IN ERROR HALT 
223 J Tiva 
224 JUSUN Cil €DOC,C*2* IS ERR CODE E2 7? 
225 JRE AVIC 
226 8 HALT SENSE CODE "E2* FALIcED 
0C45 227 oc XL 2*°EOBA® 
228 J Tiva 
229 AVID cul epac,c*3* IS ERR CODE €3 7? 
230 JNE SNOTIT 
231 8 HALT SENSE CODE €3 FAILED 
ocs55 232 oc . kXL2°E€08C® 
233 J TIVA 
234 SNOTIT avi KORP,X* B4* PUT IN €B1 ONLY HALT 
235 cul €Dac.C*o* 
236 JRE MUBEUN 1F NOT,MUST BE CODE El 
237 cul EBZERC .X*00° ANV Ea2 ERRS 7? 
238 JE PORK IF NOT,EGL ERRS ONLY 
239 MVE KORP.X* B5* PUT IN E82 GNLY HALT 
24C cul EBLERC eX*00* ANY EB] E®&RS ? 
241 JE PORK If wWOT.EB2 ERRS ONLY 
242 MMVI KORP »X* 86* 1F SCeEBL & EB2 ERRS 
243 J PORK 
244 MUBEUN AVI KORP,X*87* FUT IN EBL ONLY HALT 
245 cil EBZERC eX*00* ANY EB2 ERRS 
24E JE FORK IF NCTJEB1] ERRS ONLY 
247 MVI KORP»X*886* PUT IN E82 ONLY HALT 
248 cul EBLERC.x*00°* ANY EBL ERRS 
249 JE PORK IF NOT,MUST GE EB2 ERRS ONLY 
25C VI KORP,X* 89° IF SO,EB81 & EB2 ERRS 
251 PORK 8 HALT €O OR E1 FAILEC MALTS 
ocesc 252 KORP o¢ xL2"E000* 
253 J Tiva 
254 SYNARA B PRINT PRINT "SENSE CMDS OK, REMOVE JUMPER® 
OCA4 255 oc XL1°4)° 
OCAS 25€ cc w2°27¢ 
OCAT 257 oc AL 2(OKSEN) 
OCAS 258 oc xL2°E000* 
259 TIVA HPL x°*57°,x*7ce HALT E3: REMCVE JURPER 
260 LeAVIT 8B LINK 
2é 
ec; SEKESCSSES OESTS FES ESS SOS OSEKRES SHOTS STS HESS ESSE SOCSS SSSSSSSESSSSESKESEHSSSOSS 
263 @ s 
204 % RCUTINE 2 ~— SENSE TIMING BITS (CODE E2) TEST 2 
265 *# 
266 SHTHSCKESSSS SS FERKSOST ES STEHT SSCSES SETTLE CHEESHES HESS CSHEHSSHTSESSSESESCHSHLSSSSSESS 
OCBL 267 RTN2 oc xXLif2e ROUTINE NUMBER 
OCB2 268 oc *L1°80° FLAGS - MANUAL INTERVENTION 
OCB4% 269 oc XL 2° FFFFE : LAST ROUTINE 
270 FOFOSESHEETES ESSE SS TEESTSS 19583 SSSTSEOTTEHHESTHS SHES SESESSOESSSHHOSLSS SHSSOSS 
271 4VI WICAR~12 9X*E2® 
272 MvC LRCARCSI,TFEL PUT LEFT IN MSG. 
273 Tra BAPRT sNRDY 
O2MARTO LLMAYTO OLNOVIZO L9ONOVTL LSFEGTS PpaoG 10 E02-5 
816631 816671 816764 818677 §72250 PAGE 2a 


816542 
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PART NO. 
PAGE 
€025 5203 LINE PRINTER FUNCTION TESTS 


€025 5203 LINE PRINTER FUACTICN TESTS 
ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT ERR LOC OQBJECT CODE ADOR STMY¥ SOURCE STATEMENT 
OCC3 F2 87 14 274 J PTITL ODAF 38 10 12628 342 TEN TAGS eTAG3 HAS AN ERR BEEN PRINTEO VET? 
OCC6 38 04 0208 275 BAPRT TB8N SBYTEO,SSWOS PRINT ON ALTERNAT € OCB3 F2 10 1F 343 JST SKIHED . 
OCCA F2 90 OA 276 JF JALT , EVE een terre ODB6 3A 10 1628 344 S8N TAGS» TAG3 SET ERR PRINTED FLAG 
OCCD CO B87 O21A 277 B PRINT PRINT MAKE READY ETC. ODBA OC 00 163C 1614 345 4eYC ERT 1-101) ,GFBYTE SAVE RYTE 
OCD1 46 OocD1 278 oC XL 1 %462 OO0CO OC 00 OEO9 OD6E 346 MVC NOBE T4141), TB8ONe1 SAVE 6IT 
OCO2 1F 0CO2 279 DC LU"3i¢ OOC6 2C OC 163D 00 347 MYC ERT1¢1)-00,XR2) SAVE BIT IN PRINTABLE OEC. 
O0CD3 149C OCD4 280 oC AL 2CRESALT} OccCB CO 87 O2ZLA 348 8 PRIAT PRINT SENSE CODE 
OCOD5 E01 OCD6 281 OC XL2°EOE1° OCCF Cl ODCF 349 oc XLiecie 
OCD? FO 7C 03 282 JALT HPL X*03°, K27C8 ODDO IF ODDO 350 cc 1°3.¢ 
OCDA CO 87 O2LA 282 PTITL 8 PRINT PRINT TITLE Q0D1 1608 0002 351 oc AL2¢SENCO) 
OCDE 42 OCOE 284 oc XL1L*429 ODD3 £0465 0004 352 oc XL2°E045* 
OCOF 16 OCDF 285 oC TLi*22¢ 00C5 CO 87 O21A 353 SKIHED 8 PRIAT PRINT BIT AND BYTE FAILED 
OCEO 1209 OCEL 286 OC AL2ZCTI%M 2) OOD9 81 O0DS 354 oc XL1*°81° 
OCE2 E000 OCE3 2&7 OC XL2*EO00* OODA 17? ODDA 355 oc ILi*23¢ 
OCE4 OC OE 088A 12F4 Z€& SNIRP MVC LPD414¢155,POPSUD SET LINE OF PRINT ODDB 161F ODDC 356 oc ALZ(FAILED) 
OCEA CO &7 OEFES 289 B x10 ISSUE PRINT AND SPACE 1 o000 CO 87 0073 357 8 KI TNOC 
OCEE £201 OCEF 290 wICAR OC XL2°E261° ODEL OC OL 1446 °482 358 STALT *#*VC MAP (2),CHT13 PUT IN MAP NO} 
OCFO OC 03 1631 1265 291 MVC = BTSGFF (4) yEFFS SET SAVE AREA*S TO ZERGS E FPS OOE7 CO 87 O21A 359 8 PRINT PRINT MAP NO. 
OCF6 OC OL 163F 1282 292 MYC MSECS(2) e¢UNSEC SET LOOP COUNT OF 7200 COEB 81 ODEB 360 OC xXL2i°81° 
293 *8* THE FOLLOWING IS A 140 USEC. LOOP ODEC 12 ODEC 361 oc ILL®18° 
OCFC 30 E2 1637 294 SEGAN SNS STATZ,X*EQe SENSE TIMINGS ODED 14AE ODEE 362 OC AL2(ENT) 
Ob00 OC OC ODOD 1637 295 MVC OREBIELCL) »STAT2 PUT EB1 IN OR IASTRL GuEF CO 87 O2Z1LA 363 B PRINT SPACE 6 
OCO6 OC 00 001? 1636 296 MVC = OREB2*+111),STAT2~2 PUT E682 IN OR INSTR. ODF3 96 ODF3 34 oc XL1°96° 
900C 3A 90 162F 297 ORES! SBN BT SON, *-* OR EBl INTO ON SAVE AREA OOF4 CO 87 0222 3€5 8 eALT SENSE TIMING BIT FAILEC HALT 
0D10 3A 00 162E 298 OREB2 SBN BTSCA-1 ,» #—* OR €B2 INTO ON SAVE AREA ODF8 E945 ODFS 366 oc Xi 2°EO45* 
0014 OC O01 1633 127E 299 MVC CMPLNT(2),SFFE SET ALL BITS ON ODFA 38 10 O20A 367 TSN SBYTE2sSSwl3 SSW - 13 CNINO ALT.PRTR.) ? 
OD1LA OF O1 1633 1637 3co SLC CMPLAT(23,STAT2 GET THE COMPLIMENT OF THE SENSE ODFE F2 90 40 368 JF SE TFDF 
0020 OC 00 0020 1633 301 MVC ANEBI4¢1(¢1).CMPLAT PUT EB1 COMPLIMENT IN AND INSTR. OE01 3D F2 163C 36S cul ERTI-1,C*%2* 1ST ERR IN EB2 
0026 OC 00 0031 1632 302 MVC ANEE2+101),CMPLNT-1 PUT EB2 COMPLIMENT IN AND INSTR. O£F05 F2 O1 OF 37C JNE = SEBUN 
OD2C 38 00 163i 303 ANEB1 S6F BISCFF, *—# AND EBL INTO SAVE AREA O£EO8 78 O00 00 371 AQOBET TEN OC sKR19 ,o—8 SaME BIT IN =81 ON OR OFF ? 
0030 3B 00 1630 304 ANEB2 SBF 8TSCFF-1 »*—* AND E€B2 INTO SAVE AREA OEOB F2 10 26 372 JT SEBTU 
003% OF 01 163F 1267 365 SLC PSECS(2),0NE DECR. LOOP COUNT OEFOE CO 87 0222 373 8 HALT SAME 65IT FAILED IN EBA & EB2 
0034 CO 01 OCFC 3Cé BAZ SEGANK OE1L2 EO2A OE13 374 oc Xt 2°E€02a8 
307 oSESRESESSSERAES SEE EEEERESEEAEES A SEEESOEASEE REED ROSE ORES REENESER REREAD O£14 F2 87 37 37§ J SELFOF 
308 * CHECK FOR ANY BITS NOT GN AND OFF * OEL? 3C 1F O€30 376 SEBUN AVI BUNALT ,X*1LF® START HALT CODES FOR E81 
3cs FERSSRERECER EDEL ESSE EERE EEEEEE SHEE SEES EE NOEED OES EEN O EEN OREDEEE SOkERES QE1B GE OG OE30 1267 377 pORP ALC BUNALT (1) ,ONE INCREMENT HALT CODE 
OO3E 3B 10 1628 310 SBF TAGS» TAG3 RESEY ERR PRINTED FIAG O£FE21 OT 00 1630 1284 378 $2 ERTIC1L) »eDECCNE(L) DECREMENT GIT WO] 
0042 3C 7€ CDeD 311 MVE TBCNs X*°78* SET TO CHECK FOR BITS ON OE€27 CO O02 GELB 379 BNL = OORP 
OC46 3C 16 OEOS 312 MVI NOBET,X* 78° ee se se es ee es GE2B CO 8&7? 0222 380 8 HALT GIVE EBL BIT HALT 
OCGA C2 01 1620 313 LA BY SCN-2,XR1 LOAD SAVED BITS ADDR. OE2F ECONO OE30 381 BUNALT DC XL2°*EO00* 20 THRU 27 POSSIBLE: 
OD4SE 3C F2 1614 314 TRAM mvEI  OFBYTE,C*2* SET MSG.FOR E82 BYTE OE€31 F2 87 1A 382 J SEIFOF 
0052 3C 04 CD67 315 MVI «= COCOD41 » x* 048 SET TC SKIP BIT 5 GF EB2 OE34 3C BF OE4D 383 SEBTL MVE BOTALT,X*8F° START HALT CODES FOR EB2 
OD56 36 O1 1267 316 DOEB1L A ONE. XR1 ADO 1 TO SAVE ADDR. GE-8 CE 00 OE4D 1267 3864 PROD ALC ROTALT(1) ,ONE INCREMENT HALT CODE 
OD5A 3C 01 OD6E 317 aVI TBON41,X*O18 SET INSTR«TO START AT BIT 7 OE3E OF OO 1630 1284 385 $2 ERTACLIeDECONEE LD DECREMENT BIT NO. 
OOSE C2 02 1lolF 318 LA TABBIT~1-xXR2 LOAD BIT NO.ADDR. OE44 CO 02 0£38 3&6 BNL =PROO 
OD62 36 02 1267 219 TENXT A ONE »XR2 ADD 1 TO BIT NO.ADOR. O€&48 CO 87 0222 387 8 HALT GIVE €82 BIT MALT 
O0D66 3D 04 ODGE 320 COCGD CLI TBCN4+1,X°O4° SKIP BIT 5 OF EB2 OEF4C E000 OE40 388 BOTALT SC Xxi2* E0008 90 THRU O9TLEXCEPT 95) POSsIALE 
OO6A F2 81 06 321 JE NITNOC OE4E 38 C1 OAOC 389 SEIFOF T8N SPUDT,X*G2* DUAL FEED Can ie 
OD6éD 78 CO OO 322 TBCN TBN OU sXR1) ,o-8 IS BIT ON OR OFF O€52 F2 90 15 390 JF CLIAK 
OD70 F2 90 37 323 JF BIBAD O£€55 3D EA OCEE 391 cul WICAR—1,xX*EA® OUAL FEED BEEN TESTED 
0073 OF CO OD6E OD6E 324 AIYNCC ALC TBCN41(1),T80N41 DOUBLE TO MOVE MASK SIT LEFT 1 POS. O£€59 F2 61 OE 392 JE CLIAK 
0079 CO 82 ODé2 325 BL TENXT BR TILL 8 BITS CHECKED OESC 3C EA OCEE 393 MVE WICAR—1,x*Ea® SET CPO.FCR OVAL FEED 
OD7D 30 Fl 1614 326 CLI CFLYTE,C*®1° E81 BYTE DONE YET ? OE60 OC 04 1602 1478 394 MVC = LRC ARE 5D eo THGER SET PRINT QUT FER RIGHT CARR, 
0081 F2 81 OC 327 JE CHOFF ts OE66 CO 87 OCES 395 8 SNIRP 
OD84 3C Fl 1614 328 MVI CFBYTE.C* 1? SET MSG.FOR EB) BYTE O&6A CO 87 0216 396 CLINK 8B LINK 
0088 3C 00 OD67 32S MVI COCOD¢1,x*00" SET TO CHK.BIT 5S OF EBL 397 FOOSE SS SESE S O09 SS O89 FE OEEDdD ESE LEDES SE SESLORES ES SE EeOESeeCeEREREETSES 
OD8C CO 87 OD56 330 e COEB1 BR TO START EBL 358 * CGNVERT 1 HEX BYTE TG ZONED DECIMAL SUBROUTINE 2 
0090 38 10 1628 331 CHOFF TBN TAGS » TAG3 ANY ERRS BEEN PRINTED? 359 OFF OOO ESOT SESSESSS POSTS TEREST ETS OTESESSSOSESOESESESSES2 EC EELS ERDESEORS 
0094 F2 10 4A 332 JT STALT IF YES,GO HALT OE6E OO OEFE 4CO HXBYT OC XL1*00* 
0097 30 75 oDpeD 333 Cul TBON,X'79# CHECKED FOR BITS OFF YET OEGF 36 O8 1267 401 CVO A CNE ARR AOD 1 TO GET 1ST PARAMETER 
OC9B F2 81 BO 334 JE SELFOF OE73 34 08 CE90 402 ST FROM4S, ARR INSERT THE FROM ADDR. 
ODSE 3C 79 ODED 335 VI TBCN,X*798 SET TO CHECK BITS OFF OE77T 36 O08 1269 403 A TRC ARR ADD 2 GET 2NO PARAMETER 
ODA2 3C 79 CEO8 336 MVI NOBET,X* 798 SET TO CHECK BIT OFF CE7B 34 O08 OE96 404 ST TYBOT?*5 sARR INSERT THE TO actOR. 
OD46 CO &7 ODsE 337 TRAM OE7F 34 08 OE9C 405 ST CTGRZ25,ARR INSERT THE TO ADOR. 
33¢ SOSSSS OOOO EE SENSES AER EERSE EES EOE EETERES SEES SESE ER ESE EES SE RRSOREREEEEES OE83 36 O08 1267 406 A CNE,ARR ADD 1 MGRE FER RETURN ALOR. 
339 * PRINT SENSE TIMING BITS FAILING * OES? 34 08 OEBF 407 $T TIXE*3, aRR SET RETURN ADOR. 
340 SEE SEREGAEE SEEGER SEE NES OOEES EE RES SEEEE ESTES ORE ERE SONG RENEE EEREERESEEEES OE88 OC 01 OEA2 0000 4C& FROM MVC FROBYT#+5(2) ,2~—8 
ODAA 2C GO 1600 oO 341 SIBAD MVC BADBIT (13-0 yXR25 PUT BIT NO.IN MSG. OES91 OC 01 OEBS 9000 409 TYBOT MVC TCE YT#3(2), 2-8 
DATE 310CTéS 2 8NO0V69 O2MAR70 LIMAY 70 GlNCV7O LONGV71 1SFE875 PROG 10 E025 DATE Z1i9DCT6S 28NO0V59 O2MAR7ZO LIiMAvTO CiNOVI7G ASNOVTI I5FEBTS PROG 10 ES2-5 
EC NOw 816529 816542 816631 816671 815754 818677 572250 PAGE 3 EC NO. 816529 816542 816631 816675 816764 318677 572250 PAGE 3A 
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E025 5203 LINE PRINTER FUNCTICN TESTS £025 5203 LINE PRINTER FUACTICA TESTS 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OE97 OC O21 OEA6 0000 410 CTORZ MVC ZRCTO*3(2),%-8 OFT9 31 E€ 127C 47€ LIQ = =6LPDADR»LPDAR 
OE9D OC 00 OF6E 0000 411 FROBYT MVC HXBYT(1),#—# PUT BYTE IN WORK AREA OF7D 32 EO 0000 - rh 479 FRMLE LIO %#,LOFOLG LOAD FORMS LENGTH 
OEA3 04 20 0000 1283 412 ZROTC 2AZ = #3), DECZRO(1) ZERO THE TO AREA OF81 38 80 020% 480 TBN SBYTEL»SSWOS PRINT ON RIGHT CARR. 
OEAD OF GO OESE 1267 413 CECGAN SLC HXBYT(.1), ONE DECREMENT THE HEX BYTE OFES F2 90 04 "481 JF NOTRIT JUMP TF NOT 
OEAF F2 82 OA 414 Jt TEXE EXIT IF BELOW 1 OF88 34 O08 OFB9 482 SBN CMND¢1,B8°1000° SET HO0.BET 
OEB2 06 20 COOU 1284 415 TOBYT Az *-* (3) ,DECONECL) INCREMENT THE DEC. COUNT OFBC OC O1 163D OFBA 483 NOTRIT MVC ERT102),CMNDO2 
OEB8 CO &7 OEA9 416 8 DECGAN OF92 38 O& CFB9 84 TEN CMND@1,8°2000" THES CMO.FOR RIGHT Care. 
OEBC CO 87 0000 417 TIXE 8B + 4% RETURN OF96 F2 90 il 485 JE SKRICA SeIP TO SET LEFT CARR. 
18 SEE CEEN SS EE EE EEN SEES EKEEEEE EEEEE HEED EEEEEEEEREEESERE REESE RRR RG REE REARS OF99 3C EC 1032 4&6 MVI = CABY*1,RICABY SET TO CHECK RIGHT CARx BUSY 
419 * CHECK FOR BUSY AND DELAY SUBROUT INE * OF9D 3C EB 1291 4&7 AVI SPACEOQ—1 6xX* EB* SET RIGHT CAaARR.SPACE O 
420 MUREORESFSEOE EEE ESES ERED RES ELEEETESEEOREREEHRERERERESEREEER ER RER ROR ORS OFAL OC O01 OFD3 128E 488 MVC = LICDSA*5(29¢STOAD PUT RIGHT CARR.CTReIN COMPARE 
OECO 34 08 OEE7 421 BROUT ST BSEXIT#3,ARR LOAD RETURN ADDR. OFAT F2 87 3E 489 J CMNE 
OEC4 OC OZ 1620 1273 422 SDC MVC =BUSLB(3),B8USCTI TRY FOR 7.5 SEC TO CLEAR ANY BUSY OFAA 3C E& 1032 490 SKRICA MVI CABY¢1,CABUSY SET TO CHECK LEFT CARR. BUSY 
OECA OF O2 1620 1267 “22 FLOOP SLC 6USUB(3),0NE OFAE 2C £0 1291 491 MVI = SPACEO—1,.Xx*E0* SET LEFT CARR.SPACE 0 
ODO F2 B81 07 424 Jz TGLCNG OFE2 OC O1 OFD3 1290 492 MVC = LICCS A@S12),STOPL PUT LEFT CARR.CTR.LIN C SMPARE 
O£03 Cl E6 CECA 425 TiG FLOGP,BUSY OFBB8 F3 00 00 493 CMND SIO xK*O®&,x*Q# COMMAND LCGADED OURING EXECUTION 
OECT F2 87 OA 426 J BSEXET OFBB OC O1 14A6 1486 49% MYC = MAP (2), CHT17 PUT CHART NOs IN MSGe 
OEDA CO 87 0222 427 TOLOKG 8 KALT *ERROR - PRINTER BUSY OFC] OD O1 OFBA 1292 495 CLC CMND#2(2).SPACEO OC NOT CHECK FOR BUSY IF THIS WAS 
OEDE E011 OEDF 428 Dc XL2°EORLS BUSY ID. OFCT F2 81 35 496 JE ISBUSY SPACE WITH ZERO CONTRCL CODE 
OEEO CO 87 OECS 429 B SOC TRY AGAIN . OFCA 30 EO 1635 491 SAS —- SYATO*eX*E0* GRAB THE LINE CIRS. 
OEES CO 8&7 0000 430 BSEXIT B *—% RETURN OFCE 00 00 OFBA 0000 4S$6 LICDSA CLC CMNDO2(1),9—2 LINE CTR.SAME AS CMD.C.C. 
43] *eeeees eOeSERS OFD4 F2 81 26 4SS JE ISBUSY 
432 ® x10 FESCERE SEH OOEEEENEREREESE EE OEEEEEREEESERERS CEEREKEERSEEE KER ER X10 * OFO? Cl E6 OFFF 500 TIG iSBUSY » BUSY . PRINTER SHOULD BE BUSY 
433 teeneee eeeeens OFDB 34 01 1628 501 SBN = TAGS TAG? SET 1ST LINE PRINT ONLY 
434 * * OFDF OC OO LAF? OFFE 502 MVC) = HLTID(1)eNOBALT PUT HALT 10 EN MSG 
435 * THIS ROUTINE ISSUES AND CHECKS AN EXECUTE 1/70 COMMAND AS * OFES CO 87 11A5 503 8 ASTERR GO PRENT STATUS 
436 * SELECTED BY THE MAINLINE PROGRAM. LINKAGE TO THIS SUBROUTINE * OFES CO 87 O21A 504 8 PRINT PRINT NOT BUSY MSG 
437 * IS AS FOLLOnS- * OFED 81 OFED 505 oc XLL°ais 
436 * OFEE 1D OFEE 50€ oc IL1°29° 
435 # 8 XI * OFEF 1440 OFFO 507 oc AL 2(NOBUSY) 
440 ® DC 2+X*Q CODE & CCNTRGL CODE OF COMMANDS * OFF1 CO 87 O21A 508 8 PRINT PRINT PRENTER MAP CHART NO, 
441 * * OFFS 85 OFFS 55 oc KL1°85° 
442 OVERS SSERES SLES SESEE EEHRESEREE REESE TREES SEES ESEEEEEEDESEE ORE ERROR ES OFF6 OA OFF&é 510 cc we2*° 210° 
OEES8 OC O1 OF8O 1286 443 X10 MVC = FRMLE#3(2),ADFCLG PUT IN L12 FORM LENGTH ADDR. OFFT 14A6 OFFS 511 oC AL2(MAP) 
OEEE 36 CE 1267 444 A CHE, ARR OFF9 CO 87 0222 512 8 HALT ®1f NOT, HALT ON ERROR 
OEF2 34 O& CFOB 445 ST LOCMD45 ARR LOAD PARAMETER POINTER OFFD £016 OFFE 512 KOBALT OC XL2*EO16® NOT BUSY HALT 
OEF6 36 CE 1267 446 A CNE, ARR OFFF 3D 02 OA03 514 ISBUSY CLE = RNUM,X*02* IN ROUTENE 2 
OEFA 34 O& 1C0D4 441 ST EXIT4#3,ARR SET UP EXIT 1003 CO 81 10C5 515 BE XICGEXT 
OEFE 34 01 1006 448 st SAVWUN p XR} SAVE REGe 1 1007 OC O2 162D 1270 516 MVC 6USUB(3),B8USCT 
OFO2 34 02 1008 449 ST SAVTUU» XR2 SAVE REG.2 100D OC 01 1055 1288 517 MVC = DELAY*312), ADBUBY PUT Eh LOOP ADOR. 
OF06 OC 02 OFBA 0000 450 LOCPD MVC  CMND4#2(2),4-% SET U? COMMAND FROM PARAMETER 1013 3C 12 1081 518 MVI—- BUALT,X*128 SET BUFFER BUSY ID 
OFOC OC O1 163F OFBA 451 MVC = MSEC S(.2) ¢ CMND¥2 IF ENTRY IS —OXXX—» GO DELAY LOLT OC OF 1440 1473 ‘51S MVC =: BUMSG(.8} «BUFF MOVE CUFFER MSG 
OF12 39 FO CFB9 452 TBF ©CMND41,X*FO8 1010 Cl E2 104C 520 BUBY TIO B8SYLP,PBBUSY PREAT BUFF BUSY 
OF16 F2 10 1S 463 JT nT 1621 OC OL 1055 128A 521 MVC = DELAY #3(20, ADC ABY PUT IN LOOP ADDR. 
OF19 38 40 O20A 454 TBN SBYTE2eSSW1l BRANCH IF SSW1l OFF 1027 3c 13 1081 522 MVI BUALT,X*33° SET CARR.HALT 10 
OFID F2 90 03 455 JF CSSWOA 1028 OC 07 144D 1463 §23 MVC BUMSG(8) CARR MOVE CARR.MSG 
OF20 FO 7C 18 456 HPL sx 1B®,x°7C8 HALT ON E4 1031 CL GO 104C 524 CABY TIG BSYLP,e-2 CARRIAGE BUSY 
OF23 38 20 020A 457 CSSWOA TBN SBYTE2sSSW12 DELAY BETWEEN CMDS. 1€35 OC 01 1055 128C $25 MVC = DEL AV43(22,ADPIBY PUT IN LOGP AOOK. 
OF27 F2 SO 26 458 JE TIOCHK 103B 3C 14 1081 526 MVE —- BUALT.X* 1a? SET PRINTER BUSY HALT £9 
OF2ZA 30 OO 163F 45S SKS MSECS,X*08 READ DATA SWITCHES FOR DELAY 103F OC O7 144D 1468 527 MVC SUMSC( 8) PRIN MCVE PRINTER GUSY BSG 
OF2E 38 FO 163E 460 SBF MSECS~1,X*FOF TURN OFF HIGH ORDER 4 BITS OF DELAY 1045 Cl E6 2O4C S2@ PIBY TIO BSYLP.BUSY PRINTER BUSY 
OF32 0D FF C800 0800 451 wT CLC = LP (256) ,LPE 1 MILLISECOND DELAY 1049 F2 87 36 52S J CHRDY 
OF38 OD 3B O&00 0800 462 CLC LPI&60)yLPI 104C OF 02 162D 1267 530 BSYLP SLC @USUB(3) eCNE TRY FOR ABOUT 3 SECONDS TO 
OF3E OF OL 163F 1267 463 SLC = SECS, ONEE2) DO FOR DESIRED NUM OF MILLISECS 1052 CO 01 0000 531 OELAY BAZ #-s CLEAR BUSY 
OF44 CO 84 CF32 464 BH wT 1056 CO e7 1CDB 532 8 STERR CHECK FOR STATUS ERROR 
OF48 39 FO OFB9 4ES TBF CMND41lex*FOF DO NOT EXECUTE COMMAND IF DELAY 105A CO €7 108A 533 8 SOEHF 
OF4C CO LO 10C5 466 BT XLOEXT 105€ 3A O1 1628 534 SBN TAGS»TAGT SET PRINT 1ST LINES ONLY FLAGS 
OF50 Cl EO OF57 467 TIOCHK 710  ERNRDY »NRDY BRANCH IF NOT READY 1062 OC OO LIF7 1081 535 MVC = HLT 10013, BUALT PUT HALT 10 IN MSG 
OF54 F2 87 12 468 J TICOK 1068 CO &7 1149 536 8 PSTERR GC PRINT STATUS OR LST LINES 
OF57 CO 87 1C6D8 469 ERNRCY B STERR BR TO CHECK STATUS 106C CO 87 021A 537 8B PRINT PRINT BUSY MSG 
OF58 CCG e7 1149 470 B PSTERR GO PRINT STATUS OR 1ST LINES 1070 81 G70 538 cc xinesi° 
OF5F CO 87 6222 47} 8 KALT *PRINTER NOT READY 1071 18 1071 535 oc TL1¢27* 
OF63 E010 OF64 472 oc XL2*E010! NOT READY ID. 1072 1458 1073 540 cc AL 2(BUTOLO) 
OF65 CO &7 OFS5O 473 B TLOCHK 1074 CO &7 O21A 541 8 PRIAT PRINT PRINTER MAP CHART ™0. 
OF69 CO 87 OECO 474 TICOK 8 BROUT . L078 85 1076 $42 oc XL1°85° 
OF6D CO 87 1008 415 B STERR BR TO CHECK STATUS 1C79 0A 1079 543 oc rL2°10° 
OF7L CO 87 1149 416 B PSTERR GO PRINT STATUS OR 1ST LINES 107A 14A6 107B 544 oC ALZ(MAP) 
OF75 31 E4 127A 417 LIO LPIADReLPLAR LOAD LSR ADDRESS REGISTER 107C CO 87 0222 545 8 hALT BUSY HALT 
DATE  310CT6S = 28NOV69 = O2MAR70. ~—s«~LLMAY70.~—SsOOLNOV70.~—Ss«LONOV72.~—sAS FEBS PROG ID Eo2-5 DATE =— | 3LOCT6S = 28NOVG9 =O 2MARTO ©=— ss LEMAY70.«=—«-s«OLNOW70.—=— «1 9NDVTI. 1SFEBT5 PROG ID EG2-5 
EC NG. 816529 816542 816631 816671 816764 818677 572256 PAGE 4 EC NO. 810529 8.6542 816631 816671 £16764 816677 572250 PAGE “A 
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TBM MAINTENANCE DIAGNGSTIC PROGRAP 


PART NO. IBM MAINTENANCE OTAGNOSTIC PROGRAM 


PART NO. 2589953 
PAGE pote PAGE SA 
€025 5203 LINE PRINTER FUACTICA TESTS £025 5203 LINE PRINTER FUNCTICN TESTS 
ERR LOC OBJECT CODE ADDR STMY SGURCE STATEMENT ERK &tGC OBJECT CODE ADDR STWT SOURCE STATEMENT 
1080 £000 1081 546 BUALT OC xXL2*€000° 115A F2 & 09 614 JH AD107 GO ADO 107 IF HIGHER 
1082 Ci €O 1080 547 CHROY TIC ARDYER eNRCY 115D O€ OO 1636 1277 615 ADIIG ALC STAIXGLISUNITIN ado 119 
1086 CO 67 1008 548 B STERR BR TO CHECK ERR STATUS 1163 2 €7 OF 616 J DIVID 
108A CO 87 1149 549 SDEHF 8 PSTERR GC PRINT STATUS OR IST LINES 1266 OF 00 1638 1276 G17 ADLOT ALC = STAEX(1),UNCSYN ADD 107 
108E 3D CD 0A03 550 CLI RNUMeX* O08 EIN UNPREABLE CHAR TEST 116C F2 &7 06 618 J CivI0 
1092 F2 81 30 551 JE XIOEXT YES » GET OUT 116F OF OO 163B 1260 61S GODEC SLC STAIXO1D, TWYWUN DECREMENT 21 PRINT POSITIONS 
1095 38 02 1635 552 TBN STAT6,B'1G# UNPRTABLE BIT GN L175 3C OO 163A 620 DIVID MVE STAI X-1,X%"00* 
1099 F2 $0 29 553 JF XIOEXT 1179 OF GO 1638 1268 621 SUBGAN SLC STAIX(1),FOUR OIVIDE 
10SC CO &7 O21aA 554 B PRINT PRINT UNPRTABLE CHAR SKIPPED 117F F2 82 OA 622 Jt AWDUN BY 
10A0 Cl 10A0 555 DC XLifCae 1182 O£F 00 163A 1267 622 ALC STAIX—101),0NE FOUR 
1CAl OC 10A1 556 oc IL1°12¢ 1188 CO 87 1179 624 B SUBGAN 
1OA2 12E5 10A3 557 oc AL2(DEPP) 1i8C CO &7 OE6F 625 AWOUN 8 Cvo MAKE HARKER NOPRINABLE 
10A4 E0OC 10A5 558 OC XL2*EO0C* UNPRTABLE CFAR HALT 1190 163A Li9l 626 oc ALZUSTAIX-1) FROA 
10A6 CC O1 1446 1484 559 MVC = MAP (2), CHTLE PUT CHART NO.IN MSG. 11S2 14i€ 1193 627 oc AL2 (HAN) To 
10AC CO £7 O21A 560 B PRINT PRINT PRINTER MAP CHART NO} 1194 F2 &7 06 628 J RESTO 
1080 85 1080 561 9c XL1°865! LI97 OE OF LILA 1268 675 FCADD ALC STEXIT4#3(2),FOUR ADD TO RETURN ADDR. 
1081 OA 10B1 562 DC IL1L¢10¢ 119D 35 01 10DA 630 RESTO t STSAL,XR1 RESTORE REG. 1 
1082 14A6 1083 563 oc AL2(MAP) 11Al CO &7 GOLO 621 STEXIT B o—* EXIT 
108¢ Co 87 0222 5&4 8 HALT *UNPRIATABLE CHAR SKIPPED BIT ON 622 SEKSCHESSESEER ESTES RESERENSCAESOEESSCHOSCSESHHSESHSEOOEEESETE ORES EREEOEEREE 
1088 £00C 108S 565 oc XL2*EOQC! UNPRTABLE CHAR HALT 633 * PRINT STATUS ERR AND EXECUTE HALT SUBROUTINE e 
108A F2 E7 08 566 J XIGEXT E34 SERHSEHSSSEEEDSAESES ESSERE SLSSEASESSCESSOTSHEHRERSE OESTSSHEEEESEESEREESEEAS 
10BD CO 87 1008 567 NRDYER B STERR BR TO CHECK ERR STATUS L1A5 30 E3 1639 635 ASTERR SNS  STAT6sX*E3* GET STATUS 
JOC1 CO €7 L1A9 568 8 PSTERR GO PRENT STATUS OR IST LINES LIAS 34 08 1261 63€ PSTERR ST PREXIT#3,ARR SEY RETURN ADDR. 
10C5 35 01 10D6 56S XICEXT L SAVRUN 5 XR) RESTORE REGel L1AD OC 04 1315 1470 637 MVC = =6NACMD(5),TFEL PUT LEFT IN MSG. 
10C9 35 02 1008 570 t SAVTUU,s XR2 RESTORE REGo2 1183 38 O& 163C 638 TBN = ERT1-1,8*1000° WAS CMD.TO RIGHT CARR. 
10CD Co 7 0212 571 8 TEST GO READ DATA SWITCHES 1187 F2 $0 06 635 JF SKRIG 
100i CO &7 0000 572 EXIT 8B +—% EX{Y SUBRCOUTIAE L1BA OC 04 1315 1478 64C MVC  NACMD(5),THGIR PUT RIGHT IN MSG. 
1005 0000 10D€ 573 SAVWUN DC TL2°0° 11C0 CO &7 OE6F 641 SKRIG 8 Cvo CCAVERT CONTROL CODE FO DEC. 
1007 0000 10D8 574 SAVTUU DC IL2¢08 11C4 163D 11C5 642 oc AL2(UERTL) 
575 s¢eenenest SEKSSERED LicsS 1302 11C7 643 cc ALZ¢CSKPOP) 
S76 © STERR FPO Sede ee EKER ER EEREREE AS RRESEREE ESE OKEREEEEERES SEREE STERR * 11€8 GC OG 12F4 1302 644 MVC POPSUD(1) .DSKPO® PUT CC INTO SPACE MSG.ALSO 
577 *eeeenees kes EREEE LICE OC 10 1327 1267 645 MVC = LACMAD(17),DUSPOP PUT PRINTESPACE IN MSGe 
578 * * 1104 38 02 163C 64E TaN ERT1I-1,+B°10* THIS & PRINT 
579 8 CHECK FOR STATUS ERROR * 1108 F2 10 06 647 JT SE IF SK 
580 » * 1108 OC O05 131C 1320 648 MVC = LACMND~- 1166), KNALB BLANK OUT PRINT 
581 CORORRSEAAESAEERESE SESE SEES EEEEE SERA TEAE EER ESAS RERSESEKS SEERETOSTRORS ES LlEL 38 04 163C 6439 SEIFSK TBA ERTI~1,8°1008 THIS A SKIP 
1009 0000 10DA 582 STSA} OC xXL2*68 1LES F2 SO 06 650 JF GOMOST 
10CB 34 08 1lA4 5€3 STERR ST STEXIT#3 ARR LOAD RETURN ADORESS 1LE8 OC OA 1327 1302 651 MVC) = LACMAD(119, O0SKPOP PUT SKIP IN MSG< 
10DF 30 £3 1639 5B4 SNS —s- STAT64X* E38 SENSE THE STATUS BYTES LIEE CO 87 O21A 652 GOMOST B PRIAT PINT LAST CMD.ISSUED 
1OE32 38 O2 1628 5&5 SBF TAGSs TAGE SET ERR INDICATOR OFF LiF2 Cl 1IF2 €53 oc xtiecie 
1OF7 34 OL LODA SEG ST STSA1,XR1 SAVE REG. 1 L1F3 25 11F3 654 oc Li¢37e 
10EB C2 01 1350 SET LA STATAB-19,XR1 LOAD TABLE apoR. 1164 1327 LIF5S €§5 OC AL2(LACMNC) 
10EF D2 01 13 S88 NCERR LA 19 oXR1) oXR1 ADD 19 11F€ E000 LiF7T 656 FLTID OC xL2°E000° 
10€2 7D FF GO 589 CLE = Ge HRD X*F ES ALL MASKS CHECKED 1lF@ CO ET C2LE €57 8 UNP ACK BAKE STATUS PRINABLE 
1OF5 F2 81 9F 590 JE FOADD L1FC 02 LlFC 6658 oc Las2e 
10F8 IC 00 1103 90 591 WVC = STECK11,0(1,XR1) PUT ERR MASK IN EB2 BYTE LIFD 1639 LIFE 659 oc AL 2(STATS) FROM 
10FD 1C 00 1107 O1 592 MVC =—- STECK24191019XR1) PUT ERR MASK IN EB2 BYTE LIFF 133€ 120C 660 oC AL2(YBATS) TS 
1102 39 00 1628 593 STECK] TBF STAT6-1,#-« CHECK £82 BYTE 1201 CO @7 OALA 661 & PRINT PRINT STATUS BYTES 
1106 39 00 1639 594 STECK2 TBF STAT6,*—* CHECK E81 BYTE 1205 81 1205 662 oc xL1°61° 
110A CO 10 1LOEF 595 BT NOERR 1206 11 120€ 663 oc 1L2°3 78 
L1OE 1C 0O LIFT 02 556 MVC) =—- HLT 10(2952€»XR1) PUT HALT CODE IN MSG. 1207 133€ 1208 664 oC AL2Z(YBATS) 
1113 1C OF 1362 12 5$7 MVC =—s« IBEP(16)518¢,XR1) PUT NAME IN MSG. 1209 38 01 1628 665 TEN TAGS eT AG? AST LINE ONLY PRINTED 
1118 3A 02 1628 598 SEN TAGSsTAG6 SET ERR INDICATOR ON 1200 F2 10 4A 666 JT TESER 
111C 30 £6 1638 5$5 SAS —_ STAIXyX"E6! GRAB LPOAR 1210 CO 87 O21A 667 8 PRINT PRINT PRICRITY ERR STAT. 
1120 00 O21 1638 127¢ 600 CLC ~° STAIX(2),LPOADR DoA.R. ADDRe TOG LOX 1214 81 1214 668 OC xtLaesie 
1126 F2 82 C9 601 Ju DABCT 1215 24 1215 66S oc 1L1°36¢ 
1129 00 01 1638 1280 602 CLC STAIX{2),DADEND DeAeR. ADDR. TOO HIGH 1216 1362 1217 670 oc AL2CIBEP) 
L12F F2 04 C9 603 JNH  SABTR 1218 39 CO 1639 671 TBF STAT6~8*12000006* CHAIN SYNC & INCR SYNC OFF 
L132 OC 04 141E 1423 604 DABCT HYC HANOG(5),INVC PUT INVALID IN MSG. 121C F2 90 1C 672 JF DOHALT . 
1138 F2 &7 62 605 J RESTO 1Z1F 39 10 1638 $73 TBF STAT6-1-,8°10000° INCRFAILURE CHK. OFF 
1138 OF 00 1638 1278 606 SABTR SLC STAIX(1LIsONTUTR SUBTR.T" GET PRINT POS. 1223 F2 90 15 674 JF DOHALT 
1141 3D 18 1638 607 CLI STAIXsX*18- PRT.POS. 24 OR LESS 1226 38 04 1638 675 TBN = STAT6—258° 100° HAMMER ECHO CHK. 
1145 F2 84 27 6CE JH GODEC 122A F2 90 OE 676 JF DOHALT 
1148 3D 10 1638 609 CLI  STAIX,X*10° PRT POS. 16 1220 CO &7 021A 677 8 PRINY PAINT HAMPER NO. 
114C F2 84 17 610 JH AD107 GO ADD 107 IF HIGHER 1231 61 1231 678 dC xLi°6i° 
114F 3D OD 1638 611 CLI STAIX,x*OD" PRT.POS. 13 1232 10 1222 6756 ls TLi*26° 
1153 F2 02 C7 612 JAt = -a0219 GO ADD 219 IF EQUAL OR HIGH 1233 141E 1234 68C oc AL 2(HANO) 
1156 3D 04 1638 613 CLI = STAEX,X*04! PRT -POSe. 4 1235 OC O01 1418 1320 681 MVC HAMNOL2),KNALB BLANK OUT *8*, *N® JUST IN CASE 
DATE 310CT69 28NOV69 O2MAR70 L1MAY70 O1NCV70 L9NOVT71 1SFEB75 PROG ID E02-5 DATE 310CT69 2 8NUVE9 O2MARIO LLMAYTO OLNQVTO LONE VTi iSFEB7S PROG 10 E02-5 
EC NO. 816529 816542 816631 816671 816764 818677 572250 PAGE 5 EC NO. 816529 816542 81663) 826671 816764 818677 572250 PAGE 5A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 2589953 IBM MAINTENANCE DIAGNOSTIC PROURAW PaeT nO. 2589953 
£025 5203 LINE PRINTER FURCTICA TESTS £025 5203 LENE PRINTER FUNCTION TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADCR ST#T SOURCE STATEMENT 
1238 OC 01 14A6 1480 682 DCHALT MVC = WAPL2),CHTLB PUT CHART NO. IN MSGe 12DE “0E2D2C9DTD7C5SC4 12ES 746 DEPP OC = CL 8*_-SKEPPED® 
1241 CO 87 021A 683 B PRINT PRINT PRINTER MAP CHART NGe 12E6 ©1D7D9C905E350 12EC 747 OC CLT*/PRINTES 
1245 @i 1245 684 DC xL1*e.? 12EC E€207C1C3C540 12F2 748 oc CLO*SPACE ¢ 
1246 OA 1246 685 oc It1*10° 12F3 4040 L2F4 745 POPSUD OC cL2* ° 
1247 14A6 124€ 686 OC AL2 (MAP) 12F5 404040 i2F7 750 CuSPCeP OC CL3¢* ‘ 
1249 CO 87 O21A 687 B PRINT SPACE 5 12F8 E2D2CSD740E306 12FE 751 oc CL7*SKIP Toe 
1240 15 124D 6€e oc XL1°iSe 12FF 40404040 1302 752 OSKPCP 0c CLae ‘ 
124 OC OL 1259 LLF7 689 MVC =—- PUTDIN(2) gHLTID PUT ID INTO HALT 1303 03C1E2E340C306D% 1310 752 oc CL14*LAST COMMAND--°* 
125% CC 8? 0222 650 B HALT *STATUS ERROR HALTS 1308 C4C105C46060 753 
1258 —€C00 1259 691 PUIDIN DC XL2*E0008 1311 O3C5C6E340 1315 7&4 NACMC OC CLS*LEFT © 
125A 3B O1 1628 692 TESER SBF  TAGS»TAG? RESET 1ST LINE ONLY FLAG 1316 40050605C5404040 1327 755 LACMAD CC CL18* NCNE ® 
125E CC &7 0000 693 PREXIT 6 *—% RETURN L3LE 4040404040404040 755 
694 1226 4640 755 
O95 SOFFPO SOE eee O Es EEEESEAEAEE RES ESSEHESERS SESE EERE BEERS SERRE REREAD ERED ERE 1228 4040406464040 1320 756 KNALA OCC CLO® ‘ 
696 * CONSTANTS : 132E E2E3CLEZE4E240C2 133A 757 oc CLIZ"STATUS BYTES * 
CST FORE OESEEHHE SSS SORE EEEEEREREEESRERESEREES HES EREEESERESEES SEER REE ERRORS 1336 E&ESCSE24C 757 
1262 0000 1263 668 ZERO DC 1L2*0O8 1338 404064040 ~.33E TSE YBATS OC Ce.4e e 
1264 OBFF 1265 635 EFFS oC XL2°*CBEF® 133F DTDSCS9D6D9C9E3E8 1352 755 oc CL20°PRIORITY ERR BIT IS * 
1266 0001 1267 7CO CNE oC xL2*0001° 1347 40C509D940C2C9E3 759 
1268 0002 126$ 701 Two DC XL2°0002¢ 134F 40CSE240 15S 
126A 0004 1268 7C2 FOUR oC IL2*4® 1353 4040454040404040 1362 76C IBEP oC CL16® ° 
126C 0015 1260 703 TWYWUN OC 1e2*2i¢ 135B %040404040404040 760 
126£ C1Le@8cOo 1270 704 BUSCT Dc XL3°018800" 1363 761 STATAB EQU ® 
1271 040000 1273 705 BUSCII OC xL3"400008 1363 C08004 1365 762 oC XL3°008004° CHAIN SYNC CHKesHALT 04 
1274 7070 1275 706 FOLG OC XL2°70708 FORM LENGTH L12 1366 C3CE8CICSD540E2Z2E8 1375 763 Oc CLI6*CHAIN SYNC CHK. * 
1276 68 1276 707 UNOSVN DC 1L1°207¢ 136€ 05C340C3C 8024B4C 763 
1277 77 1277 2GE UAITIN OC IL1*1198 1376 004005 1378 764 oc XL 3*004005° INCR SYAKC CR SLIP CHK.,HALT 05 
1278 78 1278 70S CNTUTR OC 1L1°123° 1379 CSD5C30S40EZE805 1388 765 oc CLI6"INCR SYNC/SLIP * 
127$ 0800 127A 710 LPIADR OC XL2°800* IMAGE ADDRESS 1361 C361E203C9074040 | 7é5 
1278 O87C 127C 721 LPDADR OC XL2°87C¢ DATA ADDRESS 1389 100006 138B 766 DC XL3"1000068 INCR FAILURE CHK. sHALT 06 
127D FFEF 127E 712 SFFE oc XL2°FERES 1328C C9DS5SC30940C6C1CS 1356 767 oc CLL6®INCR FAILURE CHK® 
127F O8FF 1280 712 DADEND OC XL2°BEF* 1394 03E409C540C3CaD2 767 
1281 1C20 1282 714 UNSEC OC JL2°72008 139C 040009 139E 768 oc XL3"040009* HMR ECHO CHKe HALT 09 
1283 FO 1283 715 CECZRO CC OL1°0° 139F C8CIC4L£4C50940C5 13AE 765 oc CLIG*HAMMER ECHO CHK.* 
1284 Fl 1284 716 CECCKE OC CLLe1e 1347 C3C8CE40C3C80248 76S 
1285 1275 1286 717 ADFOLG OC AL2CFOLG) 13AF 0200CA 1381 770 OC XL3*02000A° ANY HMR ON CHKeeHALT OA 
1287 101D 1288 718 ADBURY OC AL2(BUBY) 1382 CiD5E840CEl10404 13C1 771 oc CL16° ANY HAKMR CA CHK? 
1289 1031 128A 71S ADCABY OC AL2(CABY) 136A 0940066540C3C8D2 771 
1288 1045 128C 720 ADPIBY OC AL2(P16Y) 13C2 002007 13C4& 772 oc XL 3*002007° HMRoUNIT THERMAL CHK.HALT 07 
12eD 1635 128E—E 721 STOAC OC AL2(STATC) RIGHT CARR.CTR-ADOR< 13C5 C804094BE3CB8C50S 1304 773 oc CLIG6G* HMR. THERMAL CHK.¢ 
128F 1634 1290 722 STOML 6¢ AL2(STATO-1) LEFT CARR.CTR.ADDR< 13CC 04C 1034003080248 773 
1291 £000 1292 723 SPACEO DC XL2*E000! SPACE 0 1305 eccoci 1307 774 oc xL3*600001° CARR-SYNC CHK esHALT O12 
1293 724 EXPTAB EQu. # 13M8 C3C1D9D094BE2ZE8D5 1367 775 OC CLIO*CARR.SYNC CHK. * 
1293 0100 1294 725 ExXPOO oC XL2*0100° LEFTERIGHT CARR.LOC.EXPD. 13E0 €340C3C8D2484040 735 
1295 OcTF 1296 726 Dc XL2*OCTF® INCRMENTECHAIN CHAR.CTRLEXP. 13E8 400062 13EA 776 DC = =—s_- XL3*400002° CARReSPACE CHKeeHALT O02 
1297 0401 1298 727 DC XL2 50401" TIMIAG EXPD. 13EB8 C3C1O09D94BE2D7C1 1ZFA 777 oc Cu l6*CaRR. SPACE CHK. * 
1299 0804 129A 728 EXPD3 OC XL2"0804! STATUS EXPD. 13F3 C3C54CC3C 8024840 777 
129B FF 129B 729 oC XLL°FFe 13FB 2000C3 13FC 6778 oc Xt 3"200003° FORMS JAM CtK eeHALT 03 
129C 730 SENTAB EQuU * 13FE C6D6D9D4E24uUD1C1 1400 779 oc CLIG*FCRMS JAM CHK. * 
129C 0000 1290 731 SENSO DC XL2*0° L/R CARR. LINE LOC. 1406 0440C3C 8D24B4040 775 
129E 0000 129 732 SENSI O0C¢ XL2°08 INCREM.ECHAIN CHAR.CTR. 160E FF 1@0E 78C oc XLL°FF® 
1240 0000 12Al 723 SENS2 OC XL2*08 TIMIAG 140F C8C1C404C5094005 1418 7&1 HAMNC OC CLI3Z*°HARMER NO. ° 
12A2 0000 1243 734 SENS3 OC XL2*O# STATUS 1417 0648404040 781 . 
12A4 C5FO 12A5 735 DC CL2°E0* 141C 404040 141E 782 HANG OC ce3ze os 
12A6 CSFi 12A7 736 - DC CL2°EL? 141F C9D5E503C4 1423 783 ENVC oc CL.S* inven? 
12A8 C5F2 1249 737 pc CL2°E2° 1424 FSF2FCF34005D6E3 1431 784 oc CL14*5203 NGT BUSY * 
12AA C553 12AB 738 oc CL2°E3® 142C 40C2E4E2E 340 184 
739 1432 C1CEE3C5D940E2CS 1440 785 KOBUSY OC CLIS*AFTER SIO aCPTo® 
TE FEUSEHEE EEN EE EES EEESEEEN EEE ES SEES EEE SEEEEHE DS 8480986 £900 ES REESE EE ERE RE 143A 0640C1iC 2D7E3C4 785 
T41 2 PRINTOUTS x 1441 FSF2FOF349 1445 TEE oC CL5°5263 °* 
T42 HREERE SEERA EEE REEAEEEERE SRE EEOHKEEER CRS EESEE EEE EEEEEEES OEEEREE SOR EE RRS L446 4040404040404040 1440 787 BUMSG OC crise . 
12AC E2C505E2C540C3D% 12€3 743 TETLEL OC CL24*SENSE CMDS ANALYSIS TEST® L44E 4OC2ZESEZE84CE3D6 145P 7e& BUTOLO DC CL14* BUSY TCO LONG® 
1ZB4 C4E240C 105C1D3E8 743 1456 D640C3D6D5C7 788 
12BC E2C9E240F3C5E2E3 142 145C C3CLOSDSCICIC7C5 1463 786 CARR OC CLE*CARRIAGE® 
12C4 E2C5D5E2C540E3C9 1209 74% TITL2 DC CL22*SENSE TIMING BITS TEST® 1464 D7C9CSD5E3L50940 1468 790 PRIN OC CLS*PRINTER ° 
12CC 04C905C740C2C9E3 744 146C 40C2E4C6C6C50940 1473 791 BUFF OC CL8* BUFFER ° 
12D4 E24CE3CSE2E3 T44 . 1474 O9C9C7C8E3 1478 792 THGIR OC CLS*RIGHT® 
12DA 40€407C3 12DD 745 DC CL4* UPC 1479 03C5C6E340 1470 763 TFEL oc CLS*LEFT © 
DATE 31L0CTS69 28N0¥69 02"AR 70 LLMAY70 O1NCVT7O LSNOV71 1SFEBT5 PROG ID £02-5 DATE 316CT6° 28NOV69 O2"AR70 Llrvay7o OINOVTO L9NOV71 ASFEBI5 PROG 10 E02-5 
EC NO. 816529 816542 816631 816671 816764 818677 572250 PAGE 6 EC NO. 816529 814542 816631 816671 816764 818677 572250 PAGE GA 
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T6M MAINTENANCE OILAGNOSTIC PROGRAM 


PART NO. 2589953 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589953 
PAGE 7? PAGE TA 

E025 5203 LINE PRINTER FUNCTICN TESTS E02" 5203 LINE PRINTER FUNCTION TESTS 
ERR LCC OBsSECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

147E DGCLOZC5S40FSF2FO 1486 794 oc CLO*MAKE 5203° 1609 C2C9E34040 1600 82€ BADBIT OC CLS*sIT ° 

1486 F3 194 160E 4C0D6C640C5C240 1614 829 CFBYTE DC CL7* OF EB * 

1487 40DS9C5CIC4ES 148C 795 Oc CL6* READY® 1615 4O0CSE240C6CIC903 L61F 830 FAILED DC CLI1* IS FAILING? 

148D 6BE3C8C5D540D9C5 149C 756 RESALT OC CL16"%sTHEN RESET HALT? / 261C C9D5C7 830 

1495 €2C5£340C 8C1D3E3 © 796 162C 831 TABBIT ECU 

149D D7E3D094BC 3CB8E34B 14A6 797 MAP oc CLIO*PTReCHT. 1620 FIF6FSF4F3F2FIFO 1627 832 oC CL8* 765432108 

1445 4040 797 833 

14AT7 40CSCSE3DSE840F4 14AE 768 ENT OC CL8* ENTRY 4! ‘ 834 FOSS OEOSEKSES DES 4 EESEEESEES 9ESESSEEEE SES OEREEERESESEESDESRESSSEESSOSEES 

146AF F1F1 14B0 799 CHTI1 DC CL2*118° 835 * RESERVED STORAGE e 

14Bl F1F3 1482 800 CHT13 OC CL2*°13° BIE 9499006809009 905500 05490609048 9FS SE SESESOEEETE DEERE OERDES SRSEESE REFEREE 

14B3 FLF6 1484 801 CHT16 OC CL2* lee 1628 00 1628 837 TAGS oC XLL®0° INDICATORS 

1485 FIFT7 14B6 802 CHT1? OC Ct2*178 1629 00 162S &3€ EBIERC OC xL1°O°* EBL ERRORS 

1487 D104D70S40C160C2 14D2 803 DC CL28°JMPR A-B1E5C10 TO A-BLD2S05,* 162A 00 162A 839 EBZERC OC xL1°0° EB2 ERRORS 

L4BF FLCSFS5C4F LFO4CE3 803 162B 90000C 1620 84C BuSUe OC XL3*0° 

14C7 064CC 160C2FIC4F2 803 162E— 0000 Lo2F 843 BISCA DC xL2°0° BITS CN SAVE AREA 

14CF E2FOFS56B 803 1630 FFFF 1631 642 BISOFF OC XL2‘°FFFFS BITS OFF SAVE AREA 

1403 E3C8C5D54009C5E2 14F5 304 DC CL35*THEN RESTORE CARRIAGE(S),PRESS CHK * 1632 FFFF 1633 843 CMPLAT OC XL2°FFFF® 

1408 €30D609C540C3CLDS 804 1634 1635 844 STATC DS CL2 

14E3 D9CSCIC7C54DE25D 804 1636 2637 845 STAT2 ODS CL2 

14EB 6BDTC9C5E2ZE240C3 804 1638 163S 846 STAT6é ODS ci2 

14F3 C8D240 804 L63A 1638 &47 STAIX DS cL2 

14F6 OSCSE2ZCSE36B40C1 150A 805 RELORC OC CL2Z1°RESET, AND RESET HALT® 1620 1630 €48 ERTL OS cL2 

14FE 05C440C9C5E2C5E3 805 163€ 163F &49 PSECS DS CL2 DELAY TIME AREA 

1506 40CEC103E3 805 850 

1508 C1D30340 1SOE 806 DC CL4e*aLt * C51] FF SOSE OSS SSOESO8SEESEEEESES DOSE SESE SEES EESEEERESETEEOSEOEEEEEESEEROES 

1S5OF E2C505£2C540C3D4 151F 807 ALSCF oC CLI7*SENSE CMDS FAILED? 852 * EQUATES . 

1517 C4E240C6C1C903C5 807 BSF $940 4990 98S 4S SF SS TESSERETES OS SOESE EET EES OER SEFEESEEESHESEDEEONESSEEROR 

151F C4 807 OOG8 854 &RR EQu)  _x*Be ADORESS RECALL REGISTER 

1520 68C2£4E34006D0503 152D 808 WCHEB DC CL14*,BUT ONLY EBX® OOChL €55 xk1 EQU] xf)" INDEX REGISTER 1 

1528 E8404CC5CZET ace 0302 856 xXR2 EQU = xx# ae INCEX REGISTER 2 

IS2E “4OC2EBE3CSE240C1 153E §8C9 CNLBYT DC CL17*® BYTES ARE IN ERR® O800 857 LPI €QU  _x*B00° LINE PRINTER IMAGE AREA 

1536 D9C540C90540C5DS 86S O87C 858 LPD EQU  x*B7C# LINE PRINTER DATA AREA 

153£ C9 8cs O87E 85S LCSFLG ECU x*e7BEF 

153F E2C5C5E2C540C306 1545 e810 oc CLLI*SENSE CODE * COEC &60 LOFCLG FCU xX*EOS 

1547 C4C54G 816 QOE4 B61 LPIAR EQU = xKXtESP 

154A E7E7 154B 811 EDCC oC CL2*xx? OOEG 862 LPDAR ECU x*E6F 

154C 40C90540C509D9 1552 812 SCOIE DC CL7° EN ERR® O2Z12 863 TEST EQuU X*212¢ ENTRY TO OCP READ CATA Sw*S ROUT. 

1£53 40C3D604D4C105C4% 1564 813 LFICCD OC CL18* COMMAND CODE—xx?* O21é 864 LINK ECU X*216¢ ENTRY 1G OC? CHAIN ROUTINE 

155B 4C4040C3D6C4C560 813 C214 8€5 PRINT ECu X*21a* ENTRY TO OCP PRINT ROUTINE 

1563 E7E7 812 O2Z1E 666 UNPACK EGU x®*21E* ENTRY TO CCP UNPACK TO EBCDIC RIN 

1585 40404040C3D6C4C5 IS6F 814 RYTCCD OC ct1li¢ CODE-Xx* 0222 867 HALT EQU = xK*222° ENTRY TO OCP ERROR HALT ROUTINE 

1560 60E7E7 814 i COEC 868 ARDY ECU x®EOF 

1570 404040C2E8E3C5E2 1588 815 Oc CL25* ®B8YTES £B82~EB61 8 OOEG 869 BUSY EQU  x*E6* PRINTER BUSY 

1578 404040404040C5C2 815 OOES 870 CABUSY EQU X*E4e LEFT CaRR.BuUSY 

1580 F260C5C2F140404C 815 COEC 871 RICABY EQU = xX*EC® RIGHT CARR. BUSY — 

1588 40 815 : OOE2 872 PBBUSY EQU  xX*EZe BUFFER BUSY 

1589 C5C2F260C5C2Fl 158F 816 BYES OC CL7*EB2—-EB1* . 873 * INDICATOR FLAGS. 

1590 404040C5E7D7C5C3 15A0 817 LEXEB2 DC CL17* EXPECTED Xx* OO“C 874 TAGL ECU xX®4Q8 

1598 £3050440404060E7 817 0020 675 TaG2 EQU x®208 CNE OR MORE SENSE CMDS CORRECT 

15A0 £7 #17 0010 6876 TAG3 EQU =  xX*20° SENSE TIMING B1T ERR 

15Al 40E7E7 1SA3 818 LEXEB1 DC CL3® xx¢ 0008 e877 TAGS ECU x*O8e MCRE THAN 1 SENSE CODE IN ERR 

15A4 464040404040E7E7 15AB 819 REXEB2 DC cise xxe GOC2 876 TAGG ECU xK*0zZ¢ 

L5AC SO0ETET IS5AE 82C REXEBL OC CL3" xx® OOOL e&76 TAG? ECU xeor® 

15AF 40404040CIC3E3E% 15CO 821 LACEB2 DC CLi8* ACTUAL xxe 680 © SENSE SWITCH EQUATES. 

1587 C10'3404046404040 821 0208 881 SBYTEO EQqu  x*208° OCP SENSE SwETCH AREA 

15BF ETE? 821 02C9 882 SBYTEL EQU x*209° DCP SENSE SWITCH AREA 

15C1l 40E7E7 18C3 822 LACEB1 CC CL3*® xxe O2Z04 883 SBYTE? EQU = x*20A* SECTION SENSE SwIiTCH AREA 

15C4 404040404040E7E7 15CB 6823 RACEB2 DC cas xxe 88% * CCANTROL PGM SENSE SWITCHES. 

15CC 40E7E7 ISCE 824 RACEB1 OC CL3* xx* 0004 8&5 SSWOS EQU  xX*O4G8 PRINT MESSAGES ON MFCU 

15CF E2C505E2C5400304 15ES 825 OKSEA OC CL27*SENSE CMOS OK,REMOVE JUMPER® OO80 886 SSWOB EQU x*308 USE 5203 RIGHT CARR. 

1597 C4E240D6026BD9C5 825 SE7 * SECTICN SENSE SWITCHES. 

L50F D4D6E5C54001E4D4 825 . 0040 &&& SSwll EQU x*eO% HALT BETWEEN COMMANDOS 

15€7 O7C509 825 0020 889 SSWi12 EQU  x*20° DELAY BETREEN CMDS. 

ISEA E2C5D5E2C0540C3D6 1602 826 LRCAR OC CL25"SENSE CODE E2,USING s Cold =89C SSmli3 ECU x*3208 SECONCARY HALT OF 7 1GH 

15F2 C4C540C5F26BE4E2 826 

15FA C9D5C 74040404060 826 

1602 40 826 

1603 40C3C109D948 1608 &27 SENCO 0C CLE*® CARR.* 
DATE 310CT69 28NOV69 O2ma4R70 11MAY7O OLNOV70 L9NOVT71 L5FEBTS PROG ID E02-5 DATE 310CT63 28NOV69 O2*AR70 LLwAv7O OLACVTO 19NOV71 1SFEB7S PROG 10 £02-5 
EC NO. 816529 816542 816631 316671 816764 818677 572250 PAGE 
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PART NO. 2589953 
PAGE 8 


PAGE BA 
E025 5203 LINE PRINTER FUACTICN TESTS 


E025 5203 LINE PRINTER FUNCTION TESTS 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT CRCSS~REFERENCE 
892 e SYMBOL T LEN VALUE OEFN REFERENCES 
893 oe 
894 * COMMENT CARDS % ADBUBY A O02 1288 O716 ¢517 
895 *eeeeeneee SECTION £02 BASES RESES OE EKEEE EE EEEEEEREEKERESS OOO CEREEEE ADCABY A 002 128A 0719 0522 
896 * ROLT.1 — SENSE CMDS ANALYSIS TEST ADFOLG A 002 1286 O727 0443 
8S7 # ROLT.2 - SENSE TIMING BIT TEST ADPIBY A 002 128C 0720 0525 
858 SEER SEEEEEE ESE ONEOENERESEREREERES ERS EREKSERES §£OKEDEEE OD REREDESEEEEEERE AD1LO? A006 1166 0617 0610 O614 
8S9 *® NOTES — AOL1IS A 006 1150 6615 C6l2 
900 * 1.SET SSW-O5 BEFGRE RUNNING THIS TEST.q ALBAC A 004 OAAA 0080 0073 
901 * 2.SET SSW-13 IF NO ALTERNATE PRINTER. ALCOP A 003 OB8F8 0202 0185 
902 * 3.SET C.EsSWITCH TO CVERRIDE IDLE CCNTROL BEFORE RUNNING THIS TEST. ALSCF A OL? 151F 0807 co90 
903 CEES SERSESEEEEER SEE SERESEERENEES EK EEEHRE GC EENE SD ES EEE EREREERR EE REESE EES ANBAD A004 OAFC O109 0107 
904 TREP ANEBL A 004 CD2C 0303 C301% 
905 *eeeeeeeee SECTION E02 WECSSESRESSESSE KE EESEEDSEKOESE OO9E 92K DORE ERERES ANEB2 A 004 0030 0304 C3026 
906 TREP ANERR A 004 CAE2 0103 C064 
907 * ROUT.1 — SENSE CMOS ANALYSIS TEST. ANYGUC A 004 0B13 0115 C112 
906 TREP ARR C 601 0008 9854 0401 0402 06403* 04064 0405 06068 O407T 0421 04448 0445 O4646% 0467 
909 # ROLT.2 - SENSE TIMING BIT TEST 0583 0636 
910 TREP ASTERR A004 LIAS 0635 0503 
911 SESE ARERSEERES EES EEE SEEEGEEE SEES EEES EEE EE O4E8EEENE OE OEES EEEEEEE EE REEKE AVID A 004 O0C49 0229 0225 
912 FREP AWOUN A 004 1L118f 06625 0622 
$13 * NOTES - BADRIT A 00S 1600 0828 03419 
914 TREP BAPRT AOQ& OCC6 O275 0273 
915 @ 1.SET SSwW-05 BEFORE RUNNING THIS TEST. BIBAD A 005 ODAA 0341 0323 
916 TREP BOTALT A 002 OE€&4D 0388 0383% 03642 
G17 2.SET SSW-354513 IF NC ALTERNATE PRINTER. BROUT A 004 OECO 0421 0474 
916 TREP BSEXIT A 004 OEFE4 0436 C4219 0426 
919 * 3.SET C.eE.SWITCH TD OVERRIDE IDLE CONTROL BEFGRE RUNNING THIS TEST. BSYLP A 006 104C 0530 0520 0524 0528 
920 TREP BTES A 007 158F O816 C193 
921 SESRSPESSEESESES EEE EREEEEES O44 OR EEEEE EEE EEEEEEES SE ONEEO EDEEEEE CEES OEE ES BYSOFF A 002 1631 C842 C2912 03038 03048 
FFFF 922 END BYSCN A OC2 162F O841 O297T* O298% 0313 
BUALY A 002 1081 0546 0518% 0522 05262 0535 
BUBY A 0O& 1010 0520 0718 
BUFF. AOvU8 1473 O7S1 O519$ 
BUMSE A 0083 144D 0787 0519% 05232 0527 
BUNALT A 002 0O€30 0381 C3769 O377¢ 
BUSCT A003 1270 O704 C516 
BUSCTI A 003 2273 O705 0422 
BUSUB A 003 16020 0840 04228 04238 05169 0530 
BUSY C 001 OCE6 06869 0425 O£00 0528 
BUTOLC A OlS& 1458 O788 c540 
| = CaBUSY C 001 OGES 0870 0490 
CABY A 004 1032 0524 C486*% C490* 0719 
CARK A 008 14635 0785S 0523 
CHOFF A O0& CD90 0331 9327 
CHROY A 00% 1082 05467 05293 
CHT11 AOO2 1480 0799 C682 
CHT13 A OO2 1482 0800 0204 0358 
CHTL6 A OO2 1484 O8C) 0559 
CHT17 A 002 1486 0862 0494 
CLINK A 004 O£6A 0396 0390 0392 
CMND A003 OFBB 04923 C450% C451 C452 0465 0482* 0483 0484 0489 0495 0498 
CMPLNT A 002 1633 0843 €299% 0300* 06301 0302 : 
CocoD A 004 C6066 0320 03158 0329 = 
CSSWUA A 004 OF23 0457 0455 
CvD A 004 O€6F 04061 C625 064} 
DABOT A OG& 1132 0604 0601 
CADENC A 002 1280 0713 C662 
CECSAN A 006 OEFAQO 6413 0416 
GECONE A OOL 1284 O716 0378 0285 0415 
DECZRC A OOL 1283 O715 0412 
DELAY A 004 1052 Q531 C517% 0521% G9525« 
DEPP A 008 12€5 0746 0557 
CIVID A 004 1175 06206 C6élé 0618 
DOEBL A 00 G056 0316 0330 
DOENSE A UC& OASA 0053 C047 
DOHALT A 006 1238 0682 0672 0674 0676 
DoORP 4 006 O€1B 0377 0379 
DATE 310CT69 28NOV69 O2ZMARZO LIPAV7O OLNCV7O LSNOVT1 1SFEBIS5 PROG ID ED2-5 DATE 310CT6S 28NOV69 O2ZMAR 270 LIMAVTO OLNCV7IO LONOVTL 15FEB7S PROG [0 £02-5 
EC NOw 816529 816542 816631 81667} 816764 818677 $72250 PAGE 8 EC NOw 816529 816542 816631 816671 816764 8168677 §72250 PAGE BA 
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16M MAINTENARCE DIAGNOSTIC PROGRAP 


EO25 


SYMBOL 


OSKPCP 
DUSPOP 
EBLERC 
EBZERC 
EDOC 
EFFS 
ENT 
ERNRDY 
ERT: 
EXIT 
EXPDO 
EX°D3 
EXPTAG 
FAILED 
FLCOP 
FOADO 
FOLG 
FOUR 
FRMLE 
FROBYT 
FROM 
GODEC 
GOMOST 
GORGAN 
HALT 


HAMRE 
HANO 
HLTID 
HxX8YT 
UBEP 
IDALT 
INVC 
ESBUSY 
JALT 
JUSUN 
KNALB 
KORP 
Laceei 
LACEBS 
LACMND 
Lack 
LAC? 
LOCMD 
LEAVIT 
LEXEK] 
LEXEB2 
LEX 
LEX2 
tFTCCO 
LICOSA 
LINK 
LOFOLG 
LPO 

£ POAOR 
LPDAF 
LPI 
LPLAOR 
LPIAF 
URCAR 
MAP 
MARCS 
MSECS 
MUBEUN 
MUSBTU 
NACMO 


DATE 
FC NO. 


5203 LINE PRINTER FUNCTION TESTS 


ad 


OprPPpPrprPrrprprrPrpprbhr PrP Pr PP bP Pr ib 


rPrPPPPrPPPOABANRPOOOAPrP PrP PPP rp PrrPprrpPrPPprperr bP b> Pb 


LEN Vv 


004 
063 
001 
OOf 
002 
002 
006 
004 
002 
006 
002 
062 
ool 
Oli 
006 
OC6 
002 
002 
004 
006 
006 
006 
004 
004 
ool 


0123 
003 
C02 
och 
016 
002 
005 
004 
003 
004% 


002 
oc2 
018 
006 
001 
201 
00). 
C02 
001 
ool 
002 
001 
025 
O10 
004 
002 
004 
006 
005 


310CT6 
816529 


ALUE 


1362 
af? 
162¢ 
1G2A 
1548 
1265 
R&AE 
OFS? 
1630 
1CDi 
1294 
129A 
1293 
i6lF 
CECA 
Lis7 
1275 
1268 
Gr 70 
OE9D 
OE8B 
13 6F 
LLEE 
OAB8 
0222 


1418 
I41E 
LLFT7 
OEGE 
1362 
OCLA 
1423 
OFFF 
Oco7 
0c39 
1320 
Ocgc 
15C3 
15C0 
h327 
OBS96 
0885 
OF 06 
OCAD 
1543 
1540 
9652 
0841 
1564 
OFCE 
0216 
OOEO 


O87C. 


127C 
OOE6 
0800 
127A 
O0E4 
1602 
1446 
OA3B 
163F 
oc7o 
OAF6 
1315 


9 


DEF 


O752 
0750 
0338 
O&83S 
C32 
NESS 
0798 
0469 
Ges 
0572 
0725 
G728 
0724 
08390 
0423 
0629 
0706 
0702 
047 
041} 
0408 
0619 
0652 
0068 
0867 


0781 
O782 
0656 
0406 
O76C 
0214 
c7Te3 
OS14 
0282 
0224 
0756 
6252 
0822 
6821 
0755 
9162 
0156 
0450 
0260 
C8is 
0817 
0138 
0132 
0813 
0498 
QE&4 
0860 
0858 
O71) 
0862 
0857 
0710 
0861 
0826 
o7T9sT 
0046 
0849 
0244 
0108 
0754 


28N0V69 
816542 


FEFERERCES 


C642 
0645 
cca? 
C0618 
31242 
029); 
0208 
C467 
cos 
04478 
C04 8s 
C0458 
6059 
0356 
C425 
6590 
C7i7 
0621 
0443% 
C40ée* 
0462s 
C608 
Cosd 
O15 
0233 
0545 
Cé8iz 
C6042 
O5C2s 
04142 
C597 
CCEGe 
C604 
0496 
O276 
C220 
C648 
0234% 
0163 
0157 
0645% 
Ci5$" 
C1530 
04452 
0216 
0139 
0133 
C135¢ 
Ci292 
Cl27+* 
C4884 
C266 
C479e 
O28 8% 
0478 
CHTER 
0461 
0477 
04774 
C272 
0204*% 
C044 
C2928 
G236 
C104 
C637 


O6ES 
GOS 
OGKkE 
C224 
0362 


C3458 


012s 


O€29 


S221 
0564 


0627 
05352 
C4332 
O47C 
Of93" 
c4g9 


C68) 
239% 


8645 


04922 
0396 


0600 
0461 
Q2949 
0358 


0305% 


Gé40% 


O2MARTIC 
316631 


CRESS REFERENCE 
G653 
9240 d248 


0084 QiC&* 6237 6245 


0223 6235 


C347* 0369 0O376% 02385% C4R2e 9638 


0226 0231 
Gé6é9C 
Oese 
05963 0689 
G116% 0217 
O506 


0242% 0244 02478 02508 


G651* 0655 


0462 0462 


C494* 0511 


0451% 0459 04608 04639 


llLwAY 70 
816671 


0251 0365 0373 


PART nO. 
PAGE 


U642 0646 2549 


0544 0559% 0563 0682* 0686 


O1NOV7TO 
816764 


ISNOV71 
818677 


15FEBTS 
£72250 


6380 O387 GC&23 O471 0512 


PROG 10 
PAGE 


2569983 
9 


E02-5 


ro 


% 


jheas 


fS6 RALNTENARCE GIAGNOSTIC PROGRAR 


EO25 


S¥MBTL 


RI TNOC 
WOSALT 
NOBET 
RUBUSY 
HOERR 
NOTRET 
RROY 
NROVER 
OF BYTE 
OXSER 
ONE 


ONL BYT 
ONTUTR 
ORES 
OREB2 
OTGRZ 
OUTLGG 
PBBUSY 
PIBY 
POPSuD 
PORK 
PREXET 
PRIN 
PRINT 


PRED 
PRELY 
PSTERR 
PTITE 
PULDEN 
RACE E1 
RACE B2 
RACE 
RAC? 
REL ORC 
RES ALT 
aESTS 
REXEG] 
REXEE2 
REXR 
REK? 
RICAEY 
RNUM 
RTNI 
RITN2 
RYTCOD 
SABTR 
SAaVvTuU 
SAVWLUN 
SBYTEC 
SBYTE) 
SBYTE2 
SCARKD 
SCOTE 
soc 
SDEHF 
SEBTU 
SEBUN 
SEEF 
SEGAN 
SEIFDF 
SEIFSK 
SENCO 
SENEXT 


DATE 
EC NO. 


S2U3 LINE PRINTER FUACTICh TESTS 


ag 


br PP OP DP » PR & 


AvpPkrP rP PP OR DP bP PD BP PY 


PrP PP PPParP PPA OOP hr by PrP PRPO PEP FY PH DEPP PD Pr BD wD RP FP 


REN VALUE 
océ 0073 
O02 OGFFE 
603 SEOs 
815 1456 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NGs = 2589955 «7 {BM MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 2589955 
o PAGE i & PAGE iA 
£033 CHAIN CHARACTER COUNTER TEST e E023 CHAIN CHARACTER COUNTER TEST 
a 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
e 2 OECK 4 & OAAL 5C 31 60 32 7G MYC Of 50eXR1) 5500 .XPF1) HIPE SO HORE 
oA400 3 E03 START xX*#AoQg® OAAS OF 00 ODC7 OD4F Fi Sic BLAKNT€1} 2ONE 1550 BYTES BONE? 
hy Re aa ok ache he a ok ak ae he ok oe a ae ah ee RR A a a A a ae Rae Bo a aka a aa oR Re hk a OAAB CO OL OA9D 72 BNZ MCVMOR 
3 5 * * g OAAF CO 87 0D24 73 8 BROUT 
6 * SYSTEM/3 5203 CHAIN CHARACTER COUNTER TEST * OAB3 C2 02 1S9FC 74 LA TWOIN,XR2Z LOAD SAMPLE AREA ADDR. 
7 * + “B? BO E2 01 75 TAKSAN SNS 16,XR2),X°E2S 5 SENSE TIMING BYTES 
9 8 Be MO Re He ae Oe ee a Se ae ae Re HE eR EK ae ak oh a oh ae HR a ae ah He ee HK OR AC He ok a ae OK & OCABA E2 02 ol 76 LA 2 (oXR2) »XR2 2 AOD | TO SAMPL= AREA ADDR. 
beet 9 * SECTION 3 - RGUTINE i * nae OABD BD FF O1 77 CLI 1(.XR2),X"FFE 4 END OF SAMPLE AREA 
pede BD RRR a a a ake a ee IR a OK aE oH fea a aR a EA OR a oa Ra RR hak OR Ee te a wR OACO CO 01 0AB7 78 BNE TAKSAN & IF NOT, Looe 
s OAOO £033 OAOl ll oc XLZ°EO33° PROGRAM IDENTIFICATION @ 79 16 =24.3 USEC.LCOP 
OA02 90 OA02 12 DC XLI'G® FLAGS OAC4 BC CO 00 80 NVI Of,XR2),X*CO8 ZERG 2ND SENSE BYTE 
OA02 O1 OAQ3 13 oc XLAtZs CUPRENT ROUTINE NUMBER BL HR AK ERE SRE EAS SAKTRERE RHEL SRRARLH ASE SAS SCE ELAR ARES HEMHASAERIKEKRAHLS KS 
3 QA04 OCCO OA05 14 oC XL2*07 RESERVED @ 82 % CHECK FOR NO EMITTER PULSES - 
OA06& CAOD CAUT 15 oC AL2(€RTN1} ACDRESS OF FIRST ROUTINE PREFIX 83 FREESE ERASERS SARAR SSSA RH RS KLEE IAG RE RTRRRHEHIRERS SS TRSEKHKSE SEETHER 
OAQE ODC4 OA09 16 oC AL2CERT1) ADORESS OF ERROR RECORDING TABLE OAC? 3C BS OAD6 BS MVI CHEON,X*Be® 
8 OAOA EC5000 OAOC 17 SPUDT oC XL3"®EC5000! UNIT DEFINITION TABLE — PRINTER ® OACB C2 02 19FO as LA TWOIN,KR2 LEAL TIMING AREA ADDR. 
BQ 5 Rea eo ake oe a he FE a ae eae ak ae a a ea ea ae a HE SL ote ob ae a ak ak ae ak a ak oh H ok ak ak ee AS SK HK OACF 3C 28 ODC9 86 PAZZ MVI NGOEM,X*28° LCAD TRY COUNT CF 40 
19 * * OAD3 E2 O02 O01 &7 CHKNE LA 1-XR29gXR2 ADD 1 TO ADDR< 
2 20 * -ROUTINE i ~- CHAIN CHARACTER CCUNTER TEST . * & CAD6 BB 20 90 8& CHEON TBN OC eXR2),B*1000G0" CHAIN EMITTER ON 
ae 21 * * po CADS F2 10 14 89 JT ANYMIS 
22 RRR RR He ee a ae ae a RR RR a ga oe a ae a a oh ae ak ae ak a a aha ahaha ee gab a hok ee eae ROR OADLC OF 00 ONDCS OD4E SO SLC NOEM(1),CNE TRY 40 SAMPLES 
2 OAOD 01 OAC) 23 RTNI oC XLL&i¢@ RCUTINE NUMBER @ OAE2 CO O01 CAD Si BNZ CHKNE 
OAOE 00 OAOE 24 oC XLi"O® FLAGS VAE6 CO 87 0222 92 B HALT HALT NO EMITTER PULSES 
OAOF FFFF OA10 25 DC XL2°FEFF LAST ROUTINE CAEA £051 OAEB 93 DC AL2°EC5i° 
a 26 Sao to to tok tok tok ko ok atk gato dak ado ak ak oR ara ak ak kg ke gaab tek kag okate a Rak tt bette to @ OAEC CO 87 ODODE 94 B GAWAN 
OA11 CO 87 0212 2? B TEST OAFO 3D B9 OAD6 95 ANYMES CLI CHECN, K*BS® TEST FUR BIT CFF BEEA DONE 
OA15 3C 38 OA3BC 28 MVI TECHBI,X® 38? SET FO CHKe48 CHAR.BIT CN OAF4 F2 81 08 96 JE SIMYNA 
2 OA19 OC O2 OD7F ODT9 29 MVC WHAIN(3).FRATE PUT 48 IN TITLE & OAF7 3C B89 CADE 97 MVI CHECN»X*B98 CHANGE TO CHECK FOR BIT OFF 
OAILF 3C 2F ODCB 30 MYI HICHCT,X*®2F? SET HIGH CHAR COUNT FOR 48 CHAR OAFB CO 87 OACE 38 fp PAZZ 
0A23 30 FF 0878 3] CLI UCSFLGsX*FF® UCS FLAG ON QS ARRAS ESAT S ALAA AL RSH E RSH SHIRA EH KS HSKECHSERIAG $F SKSLKSSHARVASKSASHE RK 
B OA27T F2 01 OF 32 JNE SENAT 8 icc # CHECK FOR MISSED EMITTERS * 
ae OAZA 3C 39 OA3BC 33 MY TECHBI,X*®39° SET TG Cike 48 CHAR.BET OFF LC] SESE SRE SEES SHED SESS SRERSES ERE SHS ATHELS LSSLL SS OS ELSES SAREE SEES ERS SESE 
OA2ZE 3C 77 OnCcB 34 MVI HICHCT,X* 77! SET HIGH CHAR COUNT FOR ECS CAFF C2 02 19FO 102 SIPYNA LA THCIN,XR2 LCAD TIMING AREA ADDR. 
& 9A32 OC O2 OOTF ODTC 35 MVC) -WHAIN(3) 2 EXCASE PUT 120 IN TITLE a 0803 3C 12 o0DCc9 103 YASIT HVE  NCEM,17 LOAD TRY COUNT CF 17 OR 10 
0OA38 30 E3 ODC2 36 SENAT SNS STAT35X'E3? GRAB STATUS OBO? EZ G2 01 164 NOBIT LA LiyXR2EgXR2 ADD 1 TQ ADDR. 
OA3C 38 04 ODC2 37 TECHB! TBN STAT3 »B*100* 4@ CHAR. BIT CN OR OFF OBOA BB 20 CO 405 TEN O(,XR2),8*10000G! CHAIN EMITTER CN 
iy OA40 F2 10 17 38 JT GOPRT for OBOD F2 10 18 106 JT GOCDUN 
0A43 38 04 0208 39 TBN SBYTEO,SSWO5 PRINT ON MFCU nes 0B10 OF 00 ODC9 OD4F 107 St€ NCEM(1},0KE TRY 17 GR 20 SAMPLES 
: OA47 F2 90 OA 40 JF UDALT OB16 CO B1 0821 108 BZ MISEM 
OASA CO 87 O21A 41 B PRINT PRINT *IMAGE AND CHAIN CO NOT AGREE? | @ OB1A C2 Ol 0807 209 LA NCBIT »XRi LCAD LOOP ADDR. 
OASE C1 OAGE 42 bc MLitcit OBIE Fe 87 OE lic J CHEND 
OAGF AC OA4F 43 oc ILi*28* CB21 CC 87 0222 i111 MISEM B HALT HALTsMISSED AN EMITTER PULSE 
2 OASO ODB4 OA51 44 ac AL2(ERUDT) | ct 0B25 £052 CB26 112 dC XL2*£052¢ 
: OAS2 ECOE 0A53 45 DC XL2Z"EQOE® ; OB27 CO 87 ODOE 113 8 GAN AN 
CA54 CC 87 0222 46 UDALT 8 HALT UDT ERR HALT | 0628 C2 01 0803 114 GOCDUN LA YVABITsXR1E LCAD AGOP AaboR, 
= OAS8 EDOE OASS 47 OC XL2"'EQOE® : @ OB2F 34 02 ODBE $15 CHENG ST ACRSAV,XRZ 
vA5A 38 04 0208 48 GOPRT TBN SBYTEO,SSWOS PRINT ON MFCU \ 0833 90 01 ODBE ODG4 116 Cic ADRSAVEIZ} aL ASADR ERVIRE FIiELO CHECKED 
OASE Fz 90 OA 49 JF TIPKU { OB39 DS 01 00 117 BNE Oly XRid 
B OAG1 CO 87 0212 50 8 PRINT PRINT *XXX CHARACTER CHAIN CHARACTER | @ LLG SESSA ERSHARAR EAHA SLSR HRS CRAB SKE CTA S SSERHMRSH SAA THR RSME KTH HSL SG SHH a 
OA65 41 OAG6S5 51 oc XL1*41 COUNTER TEST® iit 119 *# SENSE 1550 SAMPLES CF TEMING AND CHAR.COUNTER * 
OAG6 1C GA&S 52 DC ThL1t26¢ | 120 SRRABHAVISE SH GHKVI HHS S KGL HASH PTR SEL ELSA SAMS HERR EGKAALAAG KAR RHE SKSRS HK 
B OA67 0D98 OA68 53 DC ALZ(TITL1YD | @ OB3C 35 32 ODGE 121 L HCDEL »XR2 L040 350 MS SEARCH 
0A69 E000 OQAGA 54 oc XL2*°*ECO0* \ 0B40 36 02 OD6H& 122 HMCOP A NEG1¢eXR2 DECREMENT DELAY 
OA68B 38 20 OADC 55 TIPMU TPN SPUDT,8"10C000* 109-260 LPM DEVICE 0B44 CO 61 0881 123 BZ EMJIN 
® OAEF F2 90 14 56 JF JUMPIT : : @ CB48 30 E2 ODCO 124 SNS STAT2,K°E2® GSPAB TIRING 
OA7T2 3C OA OD55 57 MVI THRTENSX*® CAP ' OB4C 38 01 ODBE 125 TBN STAT2-1,B°1° HOME LATCH ON 
OAT6 3C OA 0804 58 MVI YABIT#1eX*OA# OBS50 CC 90 0840 126 BF HMOOP 
> SATA OC O1 O8D1 0072 59 MYC HICNT+#5(2) sADMAX ; ® OB54 3C 96 ODCD 127 MVI MSECS,156 SET 15C MS DELAY 
OA80 OC O01 OCOB ODTOC 60 MVC LOCNT+45{2),.ADMIN | OBS8 3C 01 OBAO i28 MVI SHLONG41 4X*02} 9 
61 FRRE ARERR LARS HRSA AKS KGL GAGES SHEARS AH HEARST EREESRRRS TH KER OB5C 38 20 OAOC 129 TON SPUDT,8*®1C00CO," 100-200 LPM ? 
2 62 * TAKE 1550 SAMPLES OF CHAIN EMITTER TIMING * | 9 OB60 F2 10 08 130 JT NOUCS 
$3 FERARERK ETERS RHEE SR SSS EKG EKHRTKASSERRS ARSE OKT EEKS HERETE DD ARERR OE tara 0863 3C FF ODCD 131 MVE MSECS,255 
OA86 3C OO ONCE 64 SUMPIT MVI LPOUNT,»X*008 START LOOP CCUNT AT © 1 OB6? 3C O7 OBAD 132 MVI SHLONG4+1,X* O78 
» OABA OC O1 LEFF OD6A 45 MVC ENTUU (2) » OCF | @ OBé6é8 OD FF O800 C800 133 NOUCS CLC LPI(256),LP2 DELAY 1 HS. 
G&¢o0 3C 1FE O0C7 &6 LUGAN MYI BLAKNT,36 SET WIPE COUNT { 0871 OD 3B 0800 O00 134 CLC LPil&EO} gL PI 
CAS% C2 01 1FFD 67 LA SEMID,XRI ENO OF AREA ADDR. 0877 OF 00 ODCD OD4F 135 SLC MSECS(1)sCNE DECR DELAY COUNT 
% CA98 4C 32 O00 IFFE 68 MVC O0(505XR1L} sENTULI-1 WIPE 1ST 50 | @ OB7D0 CO 84 OB6B 136 BH NSUCS 7 
OA9D 36 O1 OD6EC €9 MOVHOR A MIFTYeXR1 DECR.ADOR. BY 50 | 0881 C2 02 19FO 137 EMCN tA TROIN »XR2 LGAD TIMING AREA ADDR. 
6 | e 
DATE 25AUG69 BIOC TES 11MAY70 O1NOV70 LOFEBT PROG ID 0& 03-3 \ DATE 25AUG69 31O0CT69 LIMAY70 O1LNOV7O 19FEB73 PROG 10 OE03—3 
° —£C NOw 816485 . 816529 81667) 816766 838912 PAGE 1 €C NO. 616485 816529 816671 816764 818912 PAGE 1A 
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PART NO- 2589955 TBM MAINTENANCE DIAGNOSTIC PROGRAK PART NO 2585955 
PAGE 2 8 PAGE 2A 
£033 CHAIN CHARACTER COUNTER TEST @ E033 CHAIN CHARACTER COUNTER TEST 
ERR LOC OBJECT CODE ADDR STMY SOURCE STATEMENT ERR LOC OBJECT CODE AODR STMT SQURCE STATEMENT 
# CB85 C2 Oi 13E0 138 LA ONEIN,sXR1 LCAD CHAR.CTR.AREA ADDR. z OC6E F2 C4 2A 206 JNK ISSEG 
‘ 0889 BO £2 OL 139 SLOooP SNS 1(,XR2)5X*E2? 5-SENSE TIMING BYTES cdaeey OC71 7D TF 03 207 ctl SyXRL}eX* TF! 1S 3RO HOM SAP TF 
caec 7C El OL 140 SNS 1(,XRi},X*E1! 5-SENSE CHAR.CTR-BYTE OCT4 F2 OL 24 208 JNE ISSEQ 
# OBBF 5C 00 00 01 Lik MVC OlLsXR] eo LieXR1i} 6-PUT C.C.INTC LO ADDR. S OC77? BB 10 03 299 TBN 3€eXR2)_,0"1LO0CO® 

0893 36 01 OD4F 142 A ONE? XR1 6-ADD FO C.C.ADOR. OCTA r2 10 15 210 JT NCSHFT 
/ OBS7 36 02 CO4GF 143 A ONE .XR2 6-ADD TO TIMING ADDR. oc7D B88 10 04 21k TBN 4(_XR2)5881000C! 

# OB9B 34 02 CDBE 144 ST ADRSAV;XR2 6 & OC8O F2 10 OF 212 JT NOSHFT 

OBSF OD O1 ODBE 0D64 145 SHLGNG CLC ADRSAV(2),LASABR 22 OR 1LO-ADDR.REG.TO END 0c 83 BS 10 05 213 TBN 5(,XR2),B*10000 
a OBA5 CO O01 CBE9 146 BRE SLOCP 4 OC86 F2 10 O09 214 JT NOSHFT 
& 147 * 48-CY. 73 USEC. Loop € Ocs9 CO 87 0222 215 B HALT NO PSS) HALT 

148 * 6C-CY¥. 91-2 USEC LOCP FOR 100-200 oc 8D EC57 OC8E 216 OC XLZ2*EO57§& 

OBAQ 3C OO FFE 149 MV1 ENTUL-1,_X*CO! ZERO 2ND SENSE BYTE OC8F F2 87 7C 217 J GAWAN 
4% LS 0 ea a ee ak he fe ake hea fe fe ake Se ak a a ac a a ae a ak fe ae fe a ee ak a ae a ook ae ak a ae ae ak ae ab ae ak ak a a ok oh eke ag ake ae ee ak a a aa tek € OCS92 CO B87 0222 218 NOSHFT 8 HALT NG CC SHIFT HALT 
eet 151 * CHECK HOME LATCH MISSING * ae oc9é £058 ocs7 219 DC XL2*E058* 

52a a aa a A te a ae aR ae a he a a oR a a a kk a a a a aR a a aR ak ak a a a ak eae ea ok oe ak a ak ae a a teak a a ak ake a Re a ake ak GC98 F2 87 73 220 J GAWAN 
¥ OBAD C2 O2 19EF 153 LA TwOIN-1,XR2 LOAD TIMING AREA ADOR. € oc9B C2 C2 13DE 221 ISSEQ LA GNEIN-5_XR2 SET xXR2 TC & SAMPLES 

OBB1l OC O01 CDC& OD4D 154 MVC SAVSAM(2)9ZERO OC9SF 36 02 ODC6 222 A SAVSAM,XR2 BEFORE HOMSAM 
" OBB7 OC O01 ODB6 OD4D 155 ZERSAM MVC SAMCNT (2), ZERO ZERO SAMPLE COUNTER OCA3 8E 00 CO OD4F 223 ALC O(1,XR2),GNE ADD 1 TO KCMSAM -4 
. oped E2 O02 O1 156 ADWUN LA 1(,XR2),XR2 ATD 1 TO SAMPLE ADDR< $ OCAB 9D 00 00 04 224 CLC OCLs XR2) 040 XR1) -HOMSAM-G4 NCW SAME AS HOMSAM44G 

OBCO B8 Cl OO 157 TBN O(,XR2),B'1* HOME LATCH ON OCAC Fz 01 OS 225 JANE NOSEQ 
a oBC3 F2 10 27 158 JT GCTWUN YES JUMP OCAF CO 87 0222 226 B HALT NC CC RESET HALT 
& OBC6 OE O1 ODBS OD4SF 159 ALC SAMCNT(2),0NE ADD 1 TO SAMPLE CNTR. ¢ 0CB3 EC55 CCB& 227 Oc XLZ*EC55® 

OBCC OD O1 ODBE OD59 160 HICNT CLC SAMCNT(2) ss FEMAX SAMPLE CCUNTER GVER MAX S OCBS F2 87 56 228 J GAWAN 

OBD2 F2 04 11 161 JNH LOADUN JUMP IF NOT OcBs8 4D 00 03 ODCB 22S NOSEQ CLC 341¢XR1L) ,HICHCT WAS 32D HC¥ SAP LESS THAN 2F CR 77 
: OBO5 3D FF 08768 162 Cul UCSFLGsX"FF* UCS CHAIN ] OCBD F2 04 48 230 JNH BACTR THEN ETSA BAC CTR. 

: OBD9 F2 81 OA 163 JE LOADUN SKIP HALT -IF YES Oocco 3C OA ODC9 221 MVI NCEM,X*CA®* LCAO SKIPPED 1 ERR CCUNT 
; oedc CO af 0222 164 B HALT HALT NO HOME LATCH OR 1 MISSINF Occ4 3C 28 OOCA 232 MVI TRICT,X*28° LCAD SAMPLE TRY CCUNT 
: OBEO EC53 OBE1 1€5 DC XL2°*E%53* = cccs 36 02 0053 233 A FOUR sXR2 SET XR2 TC HCMSAM ALDOR. 

OBE2 CO 87 OCOE 166 B GAWAN OcCC 36 02 OD55 234 PLCOP A THRTEN, XR2 SET XR2 13 OR 1C AREAD GF HOP.SAMS 

OBE6 C2 01 IBBD i167 LOADUN LA ADWUN»,XR1 LOAD LOOP ADDR OCcDO 4E 00 03 OD4F 235 ALC 301 eXR1},0NE ACD 1 TG ECUAL NEXT CHAR.COUNT 
t OBEA F2 87 51 163 J CEND ¢ ocd5 90 00 03 93 23¢€ CLC 301_XR2) 930 eXR1) ARE THEY ECUAL NCW 

Y GQ RRR HR He a RR A AR RR ee a a A Ra Ha a a a Oa ea ae a a a oa a a a a ER HE HK at OCD9 F2 81 15 237 JE GUUDY JUMP IF YA 
; 170 * CHECK FOR TCO MANY HOME LATCHES * OcDC 4E 00 03 OD4F 238 ALC 3¢1—eXR1),CKE ACD 1 MCRE 
€ LVL RRR RRR REE RSH A EEA ERRATA EERE ERK ERERSH SL AERKK SRA SEK SX es OCEL 9D 00 02 03 239 CLC 301,_,XR2)930_XR1} 1S IT CNLY 1 AKEAD 

OBED CE O01 ODBEé OCD4F 172 GOTWUN ALC SAMCNT(2),CNE INCREMENT(1) SAMPLE COUNTER OCE5 F2 84 20 240 JH BACTR IF NOT ITSA BAC COUNTER 
e OBF3 20 FF 0878 173 CLI UCSFLGyX*FF®* oa CCE8 OCF CO OSC9 OD4F 241 SLC NCEM(1),ONE DECRSSKIPPED 1 ERR CCUNT 
- OBF7 F2 O01 OC 174 JNE LOCNT << OCEE F2 81 17 242 JZ BACTR GC TC BAD CTR. IF 10 CF °EM 

: OBFA OD 01 OfC6 CD4D 175 cic SAVSAM(2),ZERO OCFL 36 01 Of55 243 GUUDY A THRTENSXR1 

ocoo F2 01 15 176 JNE TOME OCFS OF CO OCCA OD4F 244 SLC TRICT CLD »CNE LCOKEC AT 4C CrAR.COUNTS YET 
€ OCO3 F2 87 2E 177 J SAVIT  ¢ OocrFB CO O01 OCCC 245 BNZ PLCCP LeOP IF NOT 

6C06 OD O1 0386 0057 178 LOCNT CiC SAMCNT(2),.FEMIN SAMPLE COUNTER UNDER MIN OCcFF CG 87 0222 246 B HALT CC ERROR DUE TG EXTRA 

ococ F2 o2 1C 179 JNL LOLPAD : CD03 ECS59 OD04 247 oc XL2*E059¢* EMITTER PULSES HALT 
€ OCOF OD 01 ONDC6 O0D4D 18C CLC SAVSAKRC2),ZERG 1ST HOME LATCH SAVE EMPTY : = ODOS F2 8&7 06 248 J GAWAN 

oc15 F2 81 1¢ 181 JE SAVIT an OD08 CC 87 0222 249 BACTR 8B HALT BAD CC HALT 

oC.8 OD Cl ODB6 0D51 182 TOME cic SAMCNT 42) 2 TWO SAMPLE COUNT FKIGHER THAN 2 ODOC EC5E oped 250 oc XL2*E056° 
€ OC1E CC C4 O8E6 183 BNH LOADUN 3 ODOE OF OO COC8 OD4F 251 GAWAN ALC LPGUNT(1) eONE ACD TO tGOP CCUNT 

oC22 CO 87 C222 184 8 HALT HALT,TGO MANY HOME LATCHES 0014 CO 87 0212 252 B TEST 

OC 26 E054 OcC27 185 BC XL2°EC54* 0018 3D 32 O0C8 253 Cuil LPOUNT,X*32° DCNE A 506 iCCPS 
4 OC28 F2 8&7 £3 186 J GAWAN € ecD1C CO 82 OAIC 254 BL LUGAN BF TO SAMPLE AGAIN 

‘i GC2B OD O01 ObCé OD4D 187 LOLPAD CLC SAVSAM¥(2) 4 ZERG 1ST HOME LATCH SAVE EMPTY op20 CO 87 0216 255 B LINK 

0C21 F2 O01 06 188 JNE ALRSVC NC yTHEN SKIP IT 256 
€ 0C34 0C O1 ODC6 ODES 189 SAVIT MVC SAVSAM{ 2) +SAMCNT SAVE 1ST HGME LATCH COUNT € 257 ERRKEREREAR SRE ER ES SESE AATE EE EASES EARTH HERES ESE SELAH SEHK HSK HERS SRASL SH 

OC3A C2 01 O887 190 ALRSVD LA ZERSAM, XR1 LOAD LOOP ADDR. 258 * CHECK FCR BUSY & DELAY SUBROUTINE * 

OC3E 34 O02 ODBE 191 CEND st ADRSAVsXR2 : 259 KHERKKESAH ARE ARHAEKE AHR HAAAAAT HAKAH KKH RAAT H AHA SPR SE HSE RHE RG RAL SLEAT HS HH 
€& 0C42 0D 01 ODBE OD66 192 CLC ADRSAVE2Z) eALMLAS ALL SAMPLES CHECKED € O0D24 34 08 0D4B 260 BROQUT ST BSEXET+3,ARR LCAD KETURN ACDR. 

0C48 DO Cl OO 193 BNE O(,XR1) LOOP IF NOT 0028 OC O02 ODDO ODS5C 261 SoC MVC BUSUB (3), BUSCTI STCRE DELAY CCUNT 

LOG RERKRARHARHAAK RS KRAAA BAAR AAAKAAAKKHKAEKAAEKREAAKKKAKSHKKSEK BKK KS HKKSEHKESHKEHK SRK HS OD2ZE OF C2 ODDO OD4F 262 FLOGP SLC BUSUB(3) ¢CNE 
€ 195 * CHECK CHARACTER COUNTER RESET * & 0D34 F2 81 O7 263 JZ TOLCNG 
VSG HAM A He Me He ee oR a a He a I ae a eR A ee Re a a ae a a he ae ea ER aa IK ae OD37 Cl E6 OD2E 264 TIO FLOCGP BUSY 

OC4B C2 01 130F 197 LA GNEIN-1-,XR1 OD3B F2 87 OA 265 J BSEXIT 
€ OC4F 36 01 ODCE 1S8 A SAVSAMeXR1 € OD3E CC &7 0222 266 TOLONG 8B HALT 

0C53 C2 O02 19EF 199 LA ThOIN~1,XR2 0D42 ECll 0043 267 DC XL2°EO11* 

CC5S7 36 C2 OfCé 200 A SAVSAM,XR2 9044 CC E7 OD28 268 B SOC 
< O0C5B 70 CO 05 201 CLI 3leXR1)_xX*CO# 3RD HOM SAM OC = 0D48 CC &7 OCOD 269 BSEXIT B —* 

OCSE F2 01 CB 202 JNE HOS 4M3 27C Be a ee ee ah a aR ae a ah ag a aa oe Re ake a ak a a ke a ak a aa a a a ae a i a a ae a a a a eR a ae aa ae we a oe a ea a ae 
es 0C61 4D OC OC ODCB 203 CLO = OL 1 yXRLI eHICHCT HCMSAM 2F OR 77 271 * CONSTANTS : 
* OCE6 F2 81 AS 204 JE GAWAN : q DT 2 RRR EG ER Ra EHR EE RS RR TE EEE RASS EERE EET 
ee 0C69 40 OC 02 ODCB 205 HOSAM3 CLC 3¢19XR1),HICHCT 3RD HOM SAM GREATER THAN 2F GR 77 Coe oD4c 300C OD40 273 ZERO pc IL2*ot 
t e 

DATE 25AUG69 310CT69 LIMAYT7O OINOV7O 19FEBT71 PROG ID OE03-3 DATE 25AUG69 310CT6S LIMAY7O CINOV7O 1SFEB71 PROG ID O£03~3 
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IBM MAINTENANCE DIAGNGSTIC PROGRAM PART AO. 2589955 IBM MAINTENANCE DIAGNUSTIC PROGRA¥ PART AC. 82589955 
PAGE 3 3 PAGE 34 
+ e ewe 
"£033 CHAIN CHARACTER CUUNTER TEST oe > £033. CHAIN CHARACTER COUNIER TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERM LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
rLzye i § COE6 338 BUSY E£QU xXrEES PRINTER BUSY CODE 
ppse. eae? ope eee). ee. aoc. | 0008 339 ARR = FOU ox" ACDR«RECALL PEG. 
ODs2 oc04 0053 276 FOUR pc ligtas 0222 340 HALT QU xF*Z228 ENTRY TO DCP ERRCR HALT ROUTINE 
0054 cOO0D OD55 277 THRTEN OC tiL2*13t g 341 *  C=NSE SWITCH EQUATES 
OD56 O25F OD57 275 FEMIN 0C iL2*6078 0208 342 SBYTEO £QU X*2CE* ; OCP SENSE SWITCH AREA 
0D58 026D O0D59 27S FEMAX DC IL2'6218 342 * CONTROL PGM SENSE SwWITCHES 
3 OD5A 040000 OD5C 280 BUSCTI DC XL3*940900° € 0004 344 SSWO5 EQU xX*04! PRINT MESSAGES CN MFCU 
a OD5D OCO0DD00ND0N0N 0062 281 DC XLOeGr MUST IMMEDIATELY PRECEDE *LASADR®* snes FFFF 345 END 
0D63 1FFE OD64 282 LASADR OC AL2(81990) 
3 OD65 1FFD 0066 283 ALMLAS CC AL2(818¢) G 
OD67 FFFE CD68 284 NEG] DC XL2'FFFES 
OD6S OOFF CD64 285 OGF oC XL2"OOFF# 
3 OD6B FFCE OD6C 286 MIFTY DC IL2*-508 Cc 
OD6D 3A00 OD6E 287 HCDEL OC XL2*3A0C8 
OD6F 0074 ON70 288 ADMIN OC AL2(FEMINN) 
3 OD71 OD76 OD72 289 ADMAX OC AL2(7=EMAXX) C 
0D73 OLDB O0D74 290 FEMINN DC IL2*475# 
OD75 OLE4 OD7é 291 FEMAXX 0C 1L2*4848 
& 292 c 
: ‘ ae 293 TOHRU RC lck tok 2k 30 lotic iat a dai ogc a GaGa aK duke aa gk dk a 
"94 # PRINTOUTS * 
P 295 TOI AGE a 3 3 RR a GIO aGICI a Ca too gar ak aosoi oa gok a a r g ak aot go sok aacgok aa C 
OD77 40F4F8 OD79 296 FRATE DC CL3" 4g 
OD7A FLF2FO OO7C 297 EXCASE DC CL3'120! 
g OD7D 404040 OD7F 298 WHAIN DC cL3t ‘ C 
OD8O0 40C3C8C1D94BC3C8 OD93 299 oC CL20* CHAR.«CHAINsCHAR.CTR* ae 
OD88 C1C9D56BC3C8C1D9 299 
¢ ODSO 4BC3E3D9 299 € 
0094 4PE3C5E2E3 0098 300 TITL1 oC CL5*. EST? 
7 O0S9 C9D4C1C7C540C1N5 ODAB 301 DC CLI6"IMAGE AND CHAIN ° 
i ODAl C440C3C8C1C9D£40 301 @ 
oat ODA C4064005D6E340C1 ODB4 302 ERUDT DC CL12*CC NCT AGREE? 
: OUBL C7D9C5CS& 302 
: 303 € 
304 BREA REE EH RE E REE ERE ERE RAE RE EAE S OE EEE 
o 305 * RESERVED STORAGE * 
2. 306 EREERAGRER EASE EASES EAR SEES HARE ARS ASRS ASS SESE SESS EES ER EESEREE EE € 
ODB5 0000 ODB6 307 SAMCNT DC XL2'*GC! ae 
ODB? occocoooecoN ODBC 308 Dc XLo'ct MUST IMMENIATELY PRECEDE *ADRSAV®* 
€ ODBD ODBE 399 ADRSAV DS CL2 S 
ope" ODCO 310 STAT2 DS CL2 
o0cl ODC2 311 STAT3 DS cL2 
g opc3 O©DC4, 312 ERT1 ODS Ct2 | c % 
ODC5 ODC6 (313 SAVSAM DS CL2 
O00C7 ODC7 314 BLAKNT DS CL | 
¢ ODcé - ODC8 315 LPOUNT DS Cll. C 
odc9 ODCS 216 NOEM DS Cil 
ODCA . ODCA 317 TRICT DS °° CL 
¢ opce COCB 318 HICHCT DS Cul c 
OoCcC '  OQDCD 319 MSECS DS CL2 Pant 
ODCE ODDO 320 BUSUB DS CL3 
€ 13E0 : 321 ORG X*13EC8 C 
13EO 322 GNEIN EQU * CHAR.COUNTER SAMPLE AREA | 
“13E£0 3 19ED 323 OS 31iCL50 
€ L9EE . 19EF 324 DS CL2 1 ¢ 
: 19FO 325 TWOIN EQU ¥* TIMING EB2 SAMPLE AREA i 
19F0 ' FFD 32€ SEMID DS BICL56 i 
¢€ 1FFE 1FFF 4327 ENTUU DS cL2 a. 
: 328 CREE PRARE ERE RES FREESE REHASH EERE TRESS TOES ESE SERRE ERE ORES OR 
329 % EQUATES = oS 
€ 330 SREEEMERRER EASELS ERE SRAR ARES ARES AH RARER EE HE RAR KEES ENES OR REE DETERS EE _ Sy 
eben 0001 331 xR} —Cyu ol INDEX REGISTER 1 eee 
Q©0C2 332 xr2 EQU 2 INDEX REGISTER 2 i 
€ 0800 333 LPI EQU  x*goos LINE PRINTER IMAGE AREA i ¢ 
O878 334 UCSFLG ECU x*s7er | 
O216 335 LINK ECU xX*2168 ENTRY TO DCP CHAIN ROUTINE MS ee 
€ G212 336 TEST EQU = x*2)}28 ENTRY TO DCP READ DATA SW®S ROUT. oe 
“O2Z1A 337 PRINT ECU xX*D]1;A8 ENTRY TO DCP PRINT ROUTINE 
‘i 1 
€ : C2 
DATE 25AUG69 310CT69 .  LIMAY7O OINDV70 1SFEB71 PROG 1D O£03-3 DATE 25AUG69 310CT69 LIMAY7O OLNOV7O 1SFEB71 PROG 10 OE03-3 
c EC NO. 816485 816529. “816671 = 816764 = sa818912 PAGE 3 EC NO. 816485 816529 816671 816764 818912 PAGE 3A 
Sel s : gq, 
2 | i ; 
‘ i ae i 
€ y : : € 
€ : Pe. oP es ‘€ WAsaienyities, Che tri: - gelesen hhc (Sy at he 2 das a eeslinneneet OE RMN ES. aac —eniimR a is i. labial 
nn een er mreenamemerere eee Fe en ee ae <a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


CHARACTER COUNTER TEST 


E033 CHAIN 

SYMBOL T LEN VALUE DEEN REFERENCES 

ADMAX A 002 OD72 0289 0Cc59 

ADMIN A 002 OD70 0288 0060 

ADRSAV A 002 ODBE 0309 0115* 0116 

ADWUN A 003 OBBD 0156 0167 

ALMLAS A 002 0066 6283 0192 

ALRSVD A 004 O0C3A 0190 0188 

ANYMIS A 004 OAFC 0095 0089 

ARR C col 0008 0339 0260 

BACTR A CO& OD08 0249 0230 0240 

BLAKNT A 001 ODC7 0314 6066* 0071* 

BROUT A 004 024 0260 0073 

BSEXIT A 004 0648 9269 0260* 0255 

BUSCTI A CC3 OD5C 0280 0261 

BUSUB A 003 ODDO 0320 0261* 0262« 

BUSY C 001 OOF6 0338 0264 

CEND A 004 OC3E 0191 0168 

CHEND A 004 OB2F 0115 0110 

CHEON A 003 OAD6 0088 0084* 0095 

CHKNE A 002 CAD3 0087 co9gl 

EMON A 004 OB81 0137 0123 

ENTUU A 002 FFF 0327 0065* 0068 

ERTL A 002 ODC4 0312 0016 

ERUDT A 012 ODB4 0302 0044 

EXCASE A 003 OD7C 0297 0035 

£03 4 001 OA00 0003 

FEMAX A 002 Of59 C279 0160 

FEMAXX A 002 OD76 0291 0289 

FEMIN A CC2 OD57 0278 0178 

FEMINN A 002 OD74 0290 0288 

FLOOP A CO6 ODZE 0262 0264 

FOUR A 002 0053 C276 0233 

FRATE A 003 OD79 0296 0029 

GAWAN A 006 ODCE 0251 0094 0113 

GOODUN A CO4 O82B 0114 0106 

GOPRT A 004 OASA CO4B 0038 

GOTWUN A 006 OBED 0172 0158 

GUUDY A 004 OCF1l 0243 0237 

HALT C 001 0222 90340 0046 0092 

HICHCT A 001 ODCB 0318 0030* 0034* 

HICNT A O06 OBCC 0160 00s¢* 

HMCOP A 004 «40840 0122 0126 

HODEL A 002 OD6E 0287 0121 

HOSAM3 A COS O0C69 0205 0202 

ISSEQ A 004 OC9B 0221 02Cé 0208 

JUMPIT A 004 OA8E 0064 0056 

LASADR A 002 O0D64 0282 0116 0145 

LINK C 001 0216 6535 0255 

LOADUN A 004 OBE6 0167 0161 0163 

LOCNT A 006 OCO6 0178 0060* 0174 

LOLPAD A 006 ©OC2B 0187 0179 

LPI € 001 0800 0333 0133 0133 

LPOUNT A 001 ODC8 0315 0064* 0251*% 

LUGAN A 004 OAC 0066 0254 

MIFTY A CO2 OD6C 0286 0069 

MISEM A 004 0821 O111 0106 

MOVMCR A OC4 OASD 0069 0072 

MSECS A CO2 ODCD 0319 0127* O131% 

NEG1 A 002 OD68 0284 0122 

NORIT A 003 OBO7 0104 0109 

NOEM A coi ODC9 0316 O0086* O090% 

NCSEQ A COS OCBA 0229 0225 

NOSHFT A 004 OC92 0218 C210 0212 

NOUCS A 006 O868 0133 0130 0136 

ONE A 002 OD4F 0274 0071 0090 
0244 0251 

CNEIN A 001 13£€6 0322 0138 6197 

DATE 25AUG69 310CT69 11 MAY7O 

EC NO. 616485 816529 816671 


CROSS~REF ERENCE 


0144* 0145 0191* 0192 


0242 


0097 


0149 


0166 0186 C204 ©6217 0220 0228 


0111 
02¢c3 


6164 0184 C215 
0205 0229 


0218 0226 


0183 


0134 
0253 


0134 


0135*% 


0103* 0107* 0231* C241* 
0214 
0107 0135 0142 0143 0159 


0262 
0221 


0172 


OLNOV7O 
816764 


19FEB71 
818912 


PART 
PAGE 


NO. 


0248 


0246 0249 0266 


0223 0235 0238 0241 


PROG 10D 
PAGE 


2589955 
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0E03-3 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO 2589955 
@ PAGE 4A 
‘ - €033 CHAIN CHARACTER COUNTER TEST 

CROSS-REF ERENCE 
@® <YMBOL T LEN VALUE OEFN REFERENCES 
ooF A 002 OD6A 0285 0065 
@® PAzzZ A 004 OACF 0086 0098 
PLOCP A 004 OCCC 0234 0245 
PRINT C€ 001 O21A 0337 0041 0050 
@ RTNl A OCOL OA0D 0023 0015 
SAMCNT A 002 ODB6 0307 0155* 0159* 0160 02172# C178 C182 0189 
SAVIT A 006 0C34 0189 0177 0181 
@ SAVSAM A 002 ODC6 C313 0154* C175 0180 0187 0189* 0198 0200 0222 
SBYTEO C 001 0208 0342 0039 0048 
SDC A C06 0028 0261 0268 
3 SEMID A 050 FFE £326 0067 
SENAT A 004 O0A38 0036 0032 
SHLONG A 006 OB9F 0145 0128* 0132* 
@  SIMYNA A 004 OAFF 0102 0096 
SLOOP A003 OB89 0139 0146 
SPUDT A 003 OACC 0017 0055 0129 
$  sswoS C 001 0004 0344 0039 0048 
- +> §TAT2 A 002 ODCO 0310 0124* 0125 

STATZ A 002 ODC2 0311 0036* 0037 
@  TAKSAN A CO3. OABT 0075 0078 

, TECHBI A 004 OA3C 0037 0028* 00334 

\ TEST C001 02232 0336 0027 0252 

' @ THRTEN A OC2 ODSS C277 0057* 0234 0243 

TIPMU A 004 OA6B 0055 0049 

TITL1 A CCS CD98 0300 0053 

. @Y TOLCNG A 004 OC3E 0266 0263 

TOME A C06 OC18 0182 0176 
TRICT A OOl ODCA C317 0232* 0244* 
@ two & 002 0051 C275 0182 
"77" TWOIN A COZ 19FO 0325 0074 0085 0102 0137 0153 €199 
UCSFLG C 001 0878 0334 0031 0162 0173 
S UDALT A 004 0A5S4 0046 0040 
WHAIN A 003 OD7F C298 0029* 00354 
XR1 C 001 0001 0331 0067*# 0068 O0C69* 007C 0070 C109* 0114* 0117 0138* 0140 O142 0141 

. g§ 6142* 0167*# 0190* 0193 01978 0198* 0201 0203 ©O2C5 C2C? 6224 0229 

0235 0256 0238 C239 02438 

XR2 C OCL 0002 0332 OC74* 0075 0076 O07E* CO77 0080 0085* OCB87 CO87* CC8B O1C2* 0104 

: @ 0104* 0105 O115 0121* 0122* C137* C13S 0143* C144 C153*% C156 0156* 

i 0157 0191 0199* 0200* 0209 0211 0213 0221% 0222* C223 0224 02334 

2234* 0236 0239 
@ YABIT A 004 0803 0103 0058* 0114 7 
"717 ZERO A 002 OD40 0273 0154 0155 0175 0180 0187 

‘. ZERSAM A 006 OBB7 C155 0190 

TOTAL STATEMENTS FLAGGEC IN THIS ASSEMBLY = 0 
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leace 

: - DATE 25AUG69 310CT69 LIMAYT70 OLNOV70 19FEB71 pros 1p ac02=) 

: EC NO. 816485 816529 816671 816764 818912 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


E033 CHAIN CHARACTER COUNTER TEST 


THE CHARACTER 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 4S THROUGH 64 


T+-¥:8C< & B-4 
T+-Z50T-DC*. 2DA* 
T+DO] Y.A OAB#D 
T+» CKLB /XOS+H 
T+-ZWOH*(CT69B_$ 
T+=_/OH* (CZHABO< 
T+#->#BC3"C#4aA0> 
T+~?PC$8( E6=COL 
TOK 31HABZBG S. 
T4-1(CM72-JOl 66 
T4-2H73QAC#$B/X 
T+~—3COH*BH>APAY ) 
T#-3= | B-(2TQECN< 
T+~490H*BH>ARaYS 
T+~54.7HGBEBG S. 
T#6? 35 "1T1a7A 
TC 6a0*-R10H 


ESM tH ETe= ADC PHS 


A Ee IE LO EN EEE RS A I AR POP Re NEY cE SEES ae 


DATE 25AUG69 
€C NG. 816485 


(14ag Dee yon 
8A HhaZ HOH*BFZD 
{#-OAC 30860 C8 
A8-HA?-2A0 DF_#0 
2-§-@>6, COH*HI aH 
4 -6=CED(7-5U4 D 


-CxaH - CLEH = 
"aot aegHBesa 
-MABGCE#B &>*aY) 
6CNG A ?WOH*BHDA 
2I-HU1X4 @HABDS 
30 H*BH> AQ@Y )30-H 
6 -5NL- CCM=) < 
FOH*BHDADC- (25 


—-D*BGCKT 7/0 


&DA OaTAEM?C2<G 


@eaeeenenesvennece 


eee eee eo 


=" 7MEF | { c 


OBJECT CARD LISTING 


KIC-HI OBCPat3LO 
*C$L-CZBG S.—CT- 


< J""COYaG~-7G6-D 


C28B_$B /X0(/8- 
BF~ QDE7IB—HADB 
(&H(STQBCOT -&> 


CO (365]/0HE. Eat 


< &TFCM4< E66CM7 
JC-B(_-5] |-7aHs JH 


MaY=TCED (1-5 (a-D 


Te@YFVLE CC#? 


LO3QBC*E+ (194 


CaYONi- CCM=) < 


[CH*BDT42C*#T —-D 





310CT69 LILMAY79 CINGVTG 


816529 816671 


2C*Z""0/8a-De ICU 
D -T2U » /OHEE&J 


=~"MOL AW=(-D($EO 


(23HB $-— (HEE 2 


"as $CO (2851 OHD 
Recimecneee 
BF-CB J |—Z+HA*4D 
S -Fa EC2DB%+ &6 
AC 4AC#Q(L=HAESH 
FC D(1-660-D. _36 
24BZ*+012 KKED | 
2" ex” /oNSBEP 


CayYé&-CO (2E5/ayD 


G&OH*BETEHCMZ< -7 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 65 THROUGH 80 


HICL7C#R< -5"CRO 
(w+ 4B HCIHEECO 
1 CHI 7GCN" €D 
“c#utLa ABI /0H 
«H#HABO52/0# /0H 
"{1Q¢3LOAB: 8H Y 
AP LOACMae -5 
Chal E66CNX2AAD 
Ge-4ACSQUN"HBG 4 
BCS8( E6=COSE EC 
2DA08D L2D =8D P 
2/5R( <2" HDKCO 


P(-D(NES C*#Y(LO 


ECNO| -7ECM"2-E- 


PART NO. 2589955 
PAGE 5 


CL 81 THROUGH 96 


0804 ~Q<E0330001 
HCNM *KHEO330002 
JOH* 1L3E0330003 
S8ED =23E0330004 
S8EH "820330005 
<a/ R1*£0330006 
1( H 1ROE0330007 
'=0- $HME0330008 
AC#Q 91UE0330009 
B J< 1:¥£0330010 
2D U a&a€0330011 
HC*U 3260330012 
AC<0 J8DE0330013 
AS-4 3L8£0330014 
6 )% LA<E0330015 


084 +2:3QE0330016 


*$Z£0330017 


219715 .HEO330018 


&B & CEI~ W4 D aM/M 8 NNg mmee (1 5 
I5027C2<GRKB{ TEM? T13.TZ)LALGN OP DE<LHOFXNE<LOEIP 
oo een een s eee eee cnc0aoeeone @aeeeoe 
FZ ASC RA SO Q 20280202710 
w-- LAST PAGE ~—---~--—~-~-——----------- 
19FEB71 
816764 818912 


PROG 19 OEC3-3 
5 


PAGE 


kewego ete 


Saseiparany dorm Avi os ecemianamiiges 


TEED har RR eee peice serene oto 


t 
| 
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ea 


eoseeeeeeneneeaesenaeneanenenenoenenoeneanenenoeen2 eee ee 8 @ @ 
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©een0002080080000808088088080800808080808 808080868 O COCO 6 


IBM MAINTENANCE OIAGNOSTIC PROGRAM 


 LDSO 


ERR LOC 


9000 


0000 
G04 
6008 
0008 
OOOE 
ool 
0014 
0017 
OOLA 
SO01D 
02020 
GG23 
0026 
029 
G92C 
O02F 
0632 
0035 
9038 
0630 
0040 
0044 
0047 


GO4B 
GO4E 


0052 
0053 
aGs5 
9057 


0059 
0061 
0069 
OO7} 


9100 


" PaTe 
€C NO. 


3340 STANDALONE MICROCODE LOADER MOD 12 - 3741 


OBJECT CODE 


C2 
C2 
F3 
71 
70 
Te 
BO 
78 
00 
F3 
71 
72 
F3 
D1 
F3 
70 
79 
DO 
8c 
E2 
5F 
DO 
co 


0275 
01 
0159 


FO 
DO 


5D 
08 


0200 
OO7F 
0000 
4000 


40D 70540F SFLF3F2 
FTF 7F 44040C 5C 340 
FSFTFLFSF7F44040 
40404040E7 


15JUL76 
571874 


ADDR STMT 


0052 
0054 
0056 
0058 


0075 


Vonerus why 


PART NO. 
PAGE i 
SOURCE STATEMENT 
+ LAST CHG 19MAY7E 
" -TREP 
DECK 4 
SEQ Oo 
* com THIS PREVENTS GENERATION OF OBJECT DECK } 
LOS START X*08 
RRRARAHKB SAKES KSAR HEAR EREKEFKKEKE ERESSKAKKEKKKACKEKSERESSESHSSESKEEEESKKASEKSS 
* BOCTSTRAP - FIRST RECORD a} 
REKEKERKAKAKKEKKERAAKSEKEKSKERRAKEHKAKKSEREKVEKESKRHKAKERRERRERISTRSSSERESKESKEKKAAK 
RRR KK RAR AA REE KKKSKRERASEASRAKKAAGCSARKEARSKSSESERESGESERSEKASSSESRSEKASYRKEREEERK 
* LOADER FOR 3741 «} 
THIS PROGRAM IS CONTAINED IN THE FIRST RECORD ON THE DISKETTE % 


* 

* USED TO LOAD THE 3277 MICROCODE. IT 1S READ INTO CORE STARTING * 
* AT LOCATEON 0000 BY INITIAL PROGRAM LOAD. TH. BOOTSTRAP ROUTINE 

* READS THE NEXT THO RECORDS ENTO CORE S7ARTING AT LOCATION 512 AND #* 
* BRANCHES TG THIS NEXT ROUTINE. * 
* 
* 


*) 


RARER RRARLKKKMERRERHERERAKKM KKK KEKERKKKSKKKKSKEARETKAKSKSSSEKAKKETKKRKASE RSE 
USING BOOTS ,XR1 
USING BOOTS,XR2 } 
BOOTS LA 0, XR1 LOAD BASE REGISTER 
LA 256 eXR2 LOAD BASE REGISTER 
BOOT? SIO X*08*,X'43! NORMAL RESPONSE TO 3741 } 
L10 FUNBT1(¢eXR1L),X#41° LGAD FUNCTION REGISTER 
BOOTIA SNS  SNBYT1¢,XR1),X'435 SENSE 1/0 TRANSFERR LINES 
TBN SNBYTI-1(,XR1}-X'OS* TEST FOR GN-LINE BIT ON } 
BF BOOTLE(sXRL) GO GIVE AN HS HALT N 
TBN SNBYT1-1(,XR1),X®02* TEST FOR READ BIT ON 
BF BOOTLA(, XR1L) LOOP UNTIL READ BiT IS ON } 
S10 = X¥#08*,x*438 NORMAL RESPONSE TO 374} 
LIQ BOOTI1L(,XR1} ,X*442 PUT READ ADORESS IN DSAR 
L100 LENCT1¢,XR1),X*428 PUT 255-LENGTH IN LC REGISTER } 
SIO OexX*41* READ THE NEXT RECORD 
TIG *€,XR1L)-,X*42" TEST UNTIL 3741 NOT BUSY 
SIO X*08*,xX*435 NORMAL RESPONSE TO 3741 } 
SNS = SNBYT1(0,XR1)4X442° GET THE STATUS BYTE 
TBF SNBYT1-1(9XR1}.X*OA* PARITY READ ERRGR GR LCR OVFL CHECK 
BF BOOTLE( ,XR1) GO TO THE ERROR HALT 
MVC =-:11701189XR2).629 PUT DATA INTO CORE 
LA 118 oXR2) XR2 INCREMENT POINTER FOR NEXT RECORD 
SLC BOOTS#5(1,XR1) eBCOTS+1(,XR1) DECREMENT RECORD COUNT 
BNZ  BOOTIA(sXR1? CONTINUE WITH A SECOND RECORD 
B NEXTC GO TO DIAGNOSTIC LOADEP. 
BOOTLE HPL H5,HH 3741 NOT READY OR ERRGR 
B BOOT1 (¢XR1) GO TRY AGAIN ’ 
BOGT11 DC AL2(512) 
LENCTL DC XL2*O07F® 
SNBYT1 DC XL2*08 ; 
FUNBT1 DC XL2'4000° 
cc CL29* PN 5132774 EC 571874 xe REH ) 
) 
* ACTUAL VALUES ARE IN ACTUAL CARD.} 
ORG 256 
REKKKEEKERKERHEKAEKSE SEK EAT KK AREAS CEERAREKEKEEEEKEESESESEESERKRESEERKESERE 
* MICRO CODE LOADER * 
SEEERAEREREKAE EERE RE SERAESKHATHRAR ESSERE RS EEEKEEEEETERES ES EE EESEKESES4444% } 
BEEK AKESEKEKEKEKKARARRAAEKEKREESEEHKEREREEREKEEEAKEREKKEREEEREAEEREREEERE 
x 


* 
* THIS LOADER IS ENTERED INTO CORE AND BRANCHED TO BY THE PRECEDING *) 
* BOOTSTRAP LOADER. THIS LOADER LOADS THE ACTUAL MICRO CODE LOADER * 
* AND BRANCHES TO IT TO BEGIN LOADING THE MICRO CODE. THE SUBROUTINE* 
* TO READ RECORDS FROM THE OISKETTE WHICH IS WITHIN THIS LOADER IS *) 


PROG ID LDS-0} 
PAGE 1 
) 
) 


LOSO 


0100 
0104 


6108 
0108 
O10E 
0113 
0114 
0117 
O1LA 
0110 
0120 
G123 
G126 
0129 
Gi2c 
O12F 
0132 
0135 
0138 
0135 
O13E 
0141 
0144 
0147 


Oi4B 
O14E 


Osi 
0153 
0155 
0157 


0159 
015D 


0163 
0167 
O16A 


016D 
017] 
0175 
0178 
0170 
0181 


DATE 
EC NO. 


c2 
c2 


B4 
BO 
B8 
EO 
88 
EO 
F3 
Bl 
Bi 
F3 
EL 
80 
BS 
F2 
F3 
89 


F2 
BS 
EO 
F3 
co 


FO 
ES 


O7F 
0000 
0091 
FFFC 


3c 
oc 


40 
FE 


co 
7D 
F2 


87 
cs 
81 
9C 02 
00 
01 
00 
87 
87 


D2 
ic 
co 
co 


JERR LOC OBJECT CODE 


Gore 
o886 


4E 
58 
57 
4F 
57 
OF 
08 
OB 
56 
oc 
2A 
58 
57 
19 
os 
58 
57 
09 
58 
39 
og 
0000 


55 
OF 


O8FF 
O8FE O8FF 


0100 
00 
14 


TF 03 
80 O01 
04 

ooae 00 
0163 
0200 


1SJULT6 


571674 


) | 
5132775 EBM MAINTENANCE DIAGNOSTIC PROGRAM 


ADOR STMT 


OCFC 


c107 


0152 
0154 
9156 
0158 


67 
68 
69 
7O0 
7i 
72 
73 
74 
75 
7é 
77? 
78 
7S 
80 
82 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
°8 
99 


3340 STANDALONE MICROCGDE LOADER MOD 12 - 3761 


PART N93. $132 775 
PAGE ia 
SOURCE STATEMENT 
* USED BY THE MICRO CODE LOADER TO READ THE DISKETTE RECORDS. 2 


¥ 


FSSSSKSSHKSESTSSRHEAKGE HESS SHAEREHKSEKES SH SSSSSKSSSSSSSHRERESKSEKKSKSKSTR SSS OBESE 


= 
ae 
3 


SUBROUTINE 


TO READ ONE CARO. 


USING COREAD-4 -.XR2 


COREAD LA 


&ENPUT 


doSIO 


EQJCHK SNS 


CDEXIT & 


200 . 


101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
1%2 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 


ERR 


LENCTZ 
SNBYT2 
N> 

NEG4S oc 
NEXTC MYVI 


RVC 


NEXTR 8B 
CLI 
JE 


: MYC 
LPTGNE MVC 


MOVE MYC 


8 
CKREP 5B 
* ECOM 


CORE AD—4 »XR2 

INPUT. XRi 

*—} 
COEXIT434—XR2},ARR 
SNBYT2{¢ KR2}_.X*438 
SNBYT2—1 (¢XR23—-X*04" 
ERR( »XR2) 
SNBYT2~10_,XR2Z}_ X*02° 
DOS TOC .XR2} 

X*O8* .X* 438 

AINPUT( ¢XR2),X*44* 
LENCT2Z2( eXR230X*42? 
OoX?4:8 

i eXRZ),X*42° 
SNBYT2(sXR23 0X 428 
SNBYT2-1(5XR2) ,X*OAt 
ERR 

X*O08*,x*43* 
SNBYT2(9XR2) 5X*438 
SNBYT2-10-XR2) -X°O2* 
CDEXIT 
SNBYT2 € e¢XR23-X%* 08 # 
EGJCHK( »XR2) 

X#08* 2X43? 

#u~% 


HS, HH 
DOS 1G0,XR2} 


XL2*OO7F® 
XL2°08 

XL2*0001! 
XL2* FFFC* 


X?BFFE,C® § 
X*SFE* (255) @X*SFES 


COREAD 
O(,XRI} sC*E® 
CKREP 


LOAD BSASE ADDRESS 
SET 


SET UP RETURN ADDRESS 

SENSE 1/0 TRANSFERR LINES 
TEST FOR ON-LINE BIT ON 

GO GIVE AN H5 HALT 

FEST FOR READ BIT ON 

LOGP UNTIL READ BIT IS ON 
NORMAL RESPONSE TO 3741 

PUT READ ADDRESS IN DSAR 

PUT 255-LENGTH IN LC REGISTER 
READ THE NEXT RECORD 

TEST UNTIL 3741 NOT BUSY 

GEi THE STATUS BYTE 

PARITY READ ERROR GR LCR OVFL CHECK 
GO WALT IF EITHER CONDITICN EXISTS 
NORMAL RESPONSE TO 3742 

SENSE 1/70 TRANSFERR LINES 
CHECK FOR READ BIT ON 

GO ON iF MORE TO BE READ 
CHECK FOR END OF JOB 

KEEP ON CHECKING 

NORMAL RESPONSE TO 3741 
CONTINUE ON PROCESSING 


#93741 NOT READY OR ERROR 


GO TRY START 1/0 


CLEAR PRINT FIELD 


GO READ & CARD 
If THIS IS END CARD, 
(LOADER-CHG) 


GO GN 
CKREP 


MOVE4+3(35XR2)-030—eXR1} SET UP TO MOVE TEXT DATA To COKE 


MOVE4+4(1,XR2) -O1€ -XRE} 


04(¢XRLPXRL 

#~# (RE) e—*( XRD) 
NEXTR 

x*200° 


INSTRUCTION TG MOVE TEXT DATA | 
CONTENUE LOADING, GET NEXT RECORD 


BEGIN GENERATING TEXT CARDS 


PROG ID 
PAGE 


&OS-0 
1A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 
PAGE 


LDSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 3741 Loso 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC 
124 * 
O1FC 125 ORG xX*O1FCE 0288 
O1FC 0100 -Q1FD 126 LDADDR DC AL2(CDREAD) PICK UP ADDRESS OF READ SUBROUTINE 
127 * 0288 
0200 128 ORG x*02008 
L129 SESEREKEERESLERESEKAREKREAKAKKASEEEKERE REESE SESEREKSERSEKEKHEKRASEKSERASKETATSESEKKEKRE 
é 130 * * 
131 * 3340 MICROCODE LOADER * 
132 * . 028F 
133 SERRE EKESEKAKKKKKKKESKEKSEKSEKCKKKKKKEKKKEESKSEKKESCKKKEKKSEKKKKKKKKKKKHEKKELE 
134 * 0293 
0200 C2 01 1000 135 LOADER LA  UCODE»XR1 POINT TO MICROCODE STG AREA 0297 
136 * | 
0204 7C 80 00 137 CLRSTG MMVI Ol,XR1),X"80" FLAG ALL 0290 
0207 D2 01 03 138 LA  —- 3 €gXR1)9XRI UM: SED CONTROL O2A0 
020A,34 01 0940 139 ST  WORKN»XRL STORAGE AREAS 0243 
O20E 38 40 093F : 140 TBN  WORKN-1, BIT2 AS DATA AREAS 
0212 CO 90 0204 142 BF - CLRSTG O2A6 
142 * O2AC 
ac ee 
144 * READ GNE MICROCODE RECORD 0282 
145 * 
0216 35 01 O1FD 146 READER L LDADDR, XR1 SETUP LINKAGE 0286 
O21A 34 01 0225 147 ST  READ143,XR1 TO CARD READ 
O21E 34 01 023F 148 ST —_—- READ#3yXR1 SUBROUT INE o28¢ 
149 * 02C0 
0222 CO 87 0000 150 READI B +—* RD FIRST CARD OF SECTION FAO 
| 151 * 
0226 OC 03 0933 O&8DF 152 MVC SEG(4) , INPUT#+95 INITIALIZE CARD 
022C 3D E7 0880 153 CLI INPUT,C*X! SEQUENCE CHECK AND . 
0230 F2 01 OD 154 JNE CKCARD BRANCH IF 96 COLUMN CARD 02C4 
| 155 * 02C& 
0233 OC 03 0933 O8CF 156 MVC SEQ( 4)» INPUT#+79 INITIALIZE CARD SEQUENCE 
0239 F2 87 04 157 J CKCARD CHECK FROM 80 COL COMPRESSED CD o2cc 
158 * 0200 
023C CO 87 0000 159 READ B +-* RD NEXT CARD OF SECTION FAO 
160 * 0203 
0240 £2 01 0880 161 SKCARD LA INPUT eXR1 POINT TO CARD READ IN AREA 
162 * 
0244 7D €7 0G 163 CLI OL » XRLD oC EXE BRANCH IF NOT 
0247 F2 OL 04 164 JNE CKID 80 COLUMN COMPRESSED FORMAT 
165 * 0207 
024A 5C 07 SF 4F 166 MVC —- 956. By XRL) 9 790 pXR1} POSITION ID AND SEQ FOR CHECKING 02D8 
167 * 
O24E 4D 02 SA 092F 168 CKID CLC 90(3~XRL),FAOID BRANCH If O2DF 
0253 F2 O1 23 169 JNE  IDESR WRONG SECTION ID O2E5 
170 * 
0256 3A 80 0926 171 SBN _ IND, SEQCK INITEATE CARD SEQUENCE CHECK ING 02€9 
172 * 
025A 4D 03 5F 0933 173 CLE 9514, XR1), SEQ BRANCH IF o2ED 
O25F F2 01 26 174 JNE  SEQERR INCORRECT CARD SEQUENCE 
175 * | O2F1 
0262 06 30 0933 0912 176 AZ SEQ(4),DICL) INCREMENT SEQUENCE CHECK NUMBER O2F4 
177 * 
0268 7D ET 00 178 CLI OU pXRL) oC X* BRANCH IF COMPRESSED O2F7 
026B CO 81 02C4 179 BE CKTYPE FORMAT MICROCODE OBJECT CARD 02FD 
180 * 
026F 7D Dé 00 181 CLE OC »XR195C8ME BRANCH IF 96 COLUMN 0301 
0272 F2 81 1A 182 JE CMPRS MICROCODE GBJECT CARD 
183 * 
0275 CO 87 023C 184 B READ GO TO READ ANOTHER CARO 
185 * 
0279 FO 6F 03 186 IDERR HPL  Hl,HO *** HALT OL #es 
187 * 
027C 38 80 092C¢ 188 TBN IND, SEQCK BRANCH IF SEQUENCE CHECKING 
0280 CO 90 0222 189 BF se READ. HAS NOT YET BEEN INITIATED 
190 * 
0284 CO 87 023C 191 8 READ GO TO READ ANOTHER CARD 
DATE 15JUL76 PROG ID LDS-O pate 
EC NO. 571874 PAGE 2 EC NOs 


OBJECT CODE 


FO 6F 76 


co 


c2 


oc 
70 
F2 
OE 
OE 
36 
OE 


30 
co 


25 
co 


35 
F2 


co 


30 
co 


oc 
co 


C2 


02 
E2 


OF 
co 


co 


87 


01 


oo 
00 


dO 
01 
2a 


00 
00 


0} 
00 


54 
B82 


cs 
81 


E3 
&1 


87 


60 
81 


01 
87 


G2 
02 


02 
02 


00 
01 


87 


023C 


08 D4 


O2A7 
O2AD O2A7 


00 
03 
00 


08D4 0804 
G8D4 08D4 


0911 
O2AT 0905 


O2A7 
0297 


0881 
0305 


o88i 
04 


023C 


0886 
023C 


093C O88¢ 
O6FS 


O88A 
02 02 


G3 
G3 


0886 OS09 
OzED 


623 


15 JUL76 
571874 


513277518M MAINTENANCE OIAGNOSTIC PROGRAM 
2 


ADDR STMT 


192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
203 
210 
2il 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
24h 
242 
243 
244 
245 
246 
247 
248 
249 
250 


3340 STANDALONE MICROCODE LOADER MOD 12 - 3741 


SOURCE STATEMENT 


* 
SEQERR HP 
* 


toe ole. 


* 


* 
CMPRS 
* 


CMPOL 
* 


* 
+ 


CKTYPE 


* 


* 
TEXTOL 
* 


L H2,HO 

REAO 
LA RECN, XR1 
evI Al41,.0 
MvC A241(1) ,Al¢l 
CLI QO »XR2).X*DO® 
JNE Al 
MVE GCeXRLFX*2A® 
ALC RECN(*—®) ,RECN 
ALC RECN(#-*), RECN 
A NEG, XR1 
ALC Al¢#1(¢1).O0NE 
Ctl A141, RECN-REC 
BL CHPOl 

i a re a ee ee ee ee ee 

cLi REC4+1.C *E* 
BE REPFAO 
Cti REC+1,C*T® 
JE TEXT x — 
8 READ 
CLI REC+6,0 
BE READ 
MVC CSAR(2} ,REC*O 
B GENADR 
LA REC+10,XR2 
MVC 8-203 eXRED020eXR2) 
LA 3( »XR1L}eXRI 
LA 30¢XR23,XR2. 
SLC REC+ 6, THREE (1) 
BNZ TEXTOL 
B READ 














PART NO. 5132775 
PAGE 2a 


#e8 HALT 02 #4 
GO TO READ ANOTHER CARD 


eS ee AE ED OU ne OE EE SD ES NED HD ON GND AE SD SNE 


COMPRESS ONE MICRO-CODE RECORD 





POINT TO MICROCODE RECORD 


SETUP BYTE COUNT 
IN ALC INSTRUCTIONS 


CHANGE ANY HEX 'DO* 
BYTE IN MICROCODE 
RECORD TO HEX *2A° 


SHIFT OFF TWO UNUSED BITS 
FROM EACH BYTE EN RECORD 


UPOATE RECORD POINTER 
UPDATE SHIFT BYTE COUNT 


LOOP UNTIL ALL UNUSED BITS HAVE 
BEEN SHIFTED OUT OF RECORD 





ee Ee ne mee 





ae 


CHECK MICROCODE RECORD TYPE 


eo CAE OE NI ESE SE OE ED CE ET END STS 


BRANCH IF 
END RECORD 


BRANCH IF 
TEXT. RECORD 


GO TO READ NEXT RECORD 





ee ALE SAEED OD St On 





PROCESS MICRO-CODE TEXT RECORD 


BRANCH IF NO DATA . 
BYTES IN TEXT RECORD 


SETUP CONTROL STG ADDRESS 
GENERATE POINTER TO STG AREA 


POINT TO DATA AREA OF RECORD 
STORE MICROWORD 


AOV ANCE 
POINTERS 


DECREMENT DATA BYTE COUNT 
BRANCH IF NOT YET ZERO 


GO TO READ NEXT RECORD 


PROG ID 
PAGE 


LOS-0 
2A 





ae 








. , TBM MAINTENANCE OIAGNGSSEIC PROGRAM PART NO. 5132775 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 5132775 
ee PAGE 3 PAGE 3a 
“LDSO 3340 STANDALONE: PMICROCODE LOADER MOD 12 - 3741 LDSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 3742 
* ERR LOC OBJECT CODE ‘ADDR STMT SOURCE STATEMENT 7ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 
ete ot 252 ERRSEKEEEEESESRAEKESSREEEESLESERESERARESESEE SES SS EREAT EERE SEER EERKTESS SHY 03B1 CO 90 0309 320 BF eran PATCH AREA 
253 * *. 321 * 
254 * MODIFY CONTROL STORE IMAGE WITH PATCH AREA DATA + 
255 * ‘ 
Me A. 256 SAEKKEKEREKKSEEKEKSERKSEKKKSEKESCESEHKHKEKESK SESE SKSSSEKSERKSSRSVRKEKSSERHKSHSRESHEKRBWSEKRSE | 
Bg 257 * : 
; °0305 C2 02 7600 258 REPFAO LA PATCH,XR2 POINT TO PATCH AREA 
259 * 
0309 BD FF 00 260 REPO] cul Ol »XR2) > X*KFP BRANCH IF PATCH 
O30C f2 81 97 261 JE REPX TERMINATOR BYTE 
262 * 
O30F 2€ 01 093C 01 263 REPO2 MVC CSAR 6112 5XR2) SAVE CONTROL STGRE ADDRESS 
0314 CO 87 O6F9 264 B GENADR GENERATE POINTER TO STG AREA 
265 * 
0318 E2 02 02 266 LA 2 eXR2) s XR2 ADVANCE PATCH AREA POINTER 
267 * 
O31B 2€ C2 093A 02 268 REPOS MYC JPREGe263,XR2) GET CONTROL STORE DATA 
269 * 
0320 38 80 0938 270 TBN C eBITO BRANCH IF 
0324 F2 90 4F 271 JF REP12 MICRO-INSTRUCTION PATCH 
272 * 
0327 38 80 093C 273 TBN CSARD,BITO BRANCH IF 
032B F2 90 08 274 JF REP O6 LEFT CONTROL STORE PATCH ! 
275 & 
QO32E 1C 00 0939 O21 276 MVC CRyl(1eXR1) RETAIN LEFT DATA BYTE 
0333 F2 87 05 277 J REPOT7 SKIP NEXY INSTRUCTION ‘ 
278 * 
0336 1C GO 093A 02 279 REPOS MVC Y¥e2(15XR1) RETAIN RIGHT DATA BYTE 
280 * 
033B OC O1 O93E O93 4: 281 REPOT MVC WORK 4102)-Y OATA BYTES TO WORK AREA 
282 * 
0341 GE 00 O93E O93E: 283 REPOS ALC WORK41(01}3 ,WORK41 GENERATE 
0347 F2 20 06 284 JNOL REPOS RIGHT DATA 
O34A OF OO 0938 OSOTY 285 ALC C(1).TwS PARITY BIT 
0350 CO G1 0341 286 REPOS BNZ REPOS : 
287 * 
0354 3B FD 0938 288 SBF G,X* FD* RESET UNUSED BITS 
28a *& 1 
0358 OE 00 093D 093 290 REP10 ALC WORK (1). WORK GENERATE 
O35E F2 20 06 291 JNOL REP11 LEFT DATA 
0361 GE 0O 0938 0900) 292 ALC C1) -EIGHT PARITY BIT 
0367 CO 01 0358 293 REP11 BNZ REP 10 . 
294 * 
036B 38 F5 0936 295 SBF CeX*F5* RESET UNUSED BITS 
O36F 3A 90 0938 296 SBN CeX*90° SET DATA AND PARITY BITS 
297 * 
6373 F2 87 1E 298 J REP15 GO TO SAVE CONTROL STORE DATA | 
299 * 
O376 OC O02 0940 O093A\ 300 REP12 MVC WORKN (3). TPREG CONTROL STORE DATA TO WORK AREA 
301 * ' 
O37C OE DO C938 0916; 302 REPi3 ALC C(1),X%10 GENERATE 
0382 OE G2 0940 094@ 303 REP14 ALC WORKN(3 },WORKN MICRO-WORD 
0388 CO Aad 037C 304 BOL REP1L3 PARITY BIT ' 
o38C CO 01 9382 305 BNZ REP 24 
306 * 
0390 38 £0 0938 307 SBF C+X*E0* RESET UNUSED B:TS : 
308 *# 
0394 4C 02 02 O93A 309 REP15 MVC 243 eXR1),OPREG SAVE PATCHED MICROWORD 
310 * t 
0399 D2 O01 03 311 REP16 LA 34 oXR1L) e XR ADVANCE 
O39C E2 02 03 312 LA 3l_eXR235XR2 POINTERS 
313 * i 
039F BD FF 00 314 CLI O( eXR2) pX* FF* Looe UNTIL 
O3A2 CO O01 0318 315 BNE REPOS TERMINATOR FOUND 
316 * 
O3A6 E2 02 O01 317 REPX LA 1(¢XR2)-eXR2 Loop 
O3A9 34 02 0940 318 ST WORKN »XR2 UNTIL ude 
O3AD 38 08 O93F 319 TBN WORKN-1,B1T4 END OF i 


DATE LSJULT6 PROG 1D LOS-O'DATE 15 JUL76 . PROG 10 LOS-0 
EC NOw 571874 PAGE 3 EC NO. 571874 PAGE 3a 


es 


4 





TSM MAINTENANCE DIAGNOSTIC PROGRAM 


LOS | 





3340 STANDALONE MICROCODE LOABER MOO 12 - 3741 


ERR LOC OBJECT CODE 


0385 


0388 
O38C 


03C9o 


0304 
o3cs 


3cc 
6300 


0304 


0306 
6300 


O3£1 
O3E5 
OSES 
OSED 


O3FO 
O3F3 


O3FT 
O3FB 
OSPF 
6403 
0407 


0490 
0412 


0415 
0419 


0419 
0421 


0425 
0429 


6431 
0435 


BATE 
EC NO. 


: 3 ' : 


31 
31 


3c 
3c 
co 
Of 


co 


C4 


c5 
c5 


ol 


60 


co 
87 


cs 


OL 
87 


c5 
cs 
cs 
OL 


FF 
01 


86 
80 


3T 


20 
96 


82 
&0 


06 
87 


20 
87 


a1 
BF 


87 


TE 


6730 
0734 


0917 


0938 
093A 


0939 
6677 


0749 


0934 
OoT7 


O73E 
OT5A 
OT44 
02 


o6 
O3CC 


0938 
O939 
O93Kh 
8563 
6939 


OS39 
9403 


6938 
6935 


G93A 
0663 


6939 
C663 


939 
O93h 


6663 


IS SUL FS 


571 8% 


61 


O9GB 


ADDR STMT 


323. 
324 
325 
326 
32T 
328 
329 
336 
332 
332 
333 
334 
335 
336 
337 
338 
339 
340 
342 


342 


343 
344 
345 
346 
36T 
348 
349 
356 
352 
352 
353 
354 
35S 
356 
357 
358 
359 


SBURCE STATEMENT 


= 











PART NO. 
PAGE 


i 


é 
F 


Loso 


€RR LOC 
SEHLERLSEGAS SERS SHAS ERE SSA GS SHERS ELS SEKKERTERSEKELGL FSS SEESEEES SSK SRAER SES | 


( 


* 0439 
* MICRO-PROCESSOR INITIALIZATION 0430 
= 
Se Se KKCKEKKSSERKS KES TSSKESACSKAKEKEEKKERSCSERAKEKEKLESEHRESKSASEKESRTESKE 0441 
& : 

* HALT MICROPROCESSOR 0447 
* 0448 
MPHLT S10 X*TE®sX*C4e RESET AND DISABLE 3340 INTRPS 
« 
LI10 KO4exX*C5* SET KO AND K4 (HALT IOP) 
LIG K034,x"C5* SET K3 (CLOCK RESET) 
* O44F 
a nn nn = Tn rn ae ee 0453 
* RESET EXTERNAL REGISTERS 0457 
= 
LA EXTBL,»XR1 PGINT TO EXT REG ADOR TABLE 0458 
= 
MVI c,8 CLEAR OP REG O45F 
“VI ¥20 C ANDO Y FIELDS 
* 0465 
EXTRST MMVI CRO CLEAR OP REG CR FIELD 0469 
8 Loe LOAP OP REG~~—~ 
* \ 
LIO =LEXTZ,X*C5* R4—-R7 ao: SA VERHAL ZONE REG 
ES 
MVC 3 =- ¥91 (2 XR} EXT ADDR & DATA -——> OF CR EY 0466D 
B Lop LOAD OF REG 0471 
* 0475 
L1G LEXTAR,X*C5* R3-R7 --> EXT. ADDR REG CEXTAR) 0479 
L110 LALUD,X*CS* OP REG Y --> A REG ==> D REG 
LIG LEXT,x*C5® D REG -—> EXTERNAL REG 047D 
* 0481 
LA 2( 9 XR1L} eXR1 ADVANCE EXT ADOR TBL POINTER 
* 0485 
CLI = Ol oXRLIEX* FES LOOP UNTIL 0489 
BNE EXTRST END OF ADDRESS TABLE 
* O46D 
aren een a en an ane eae re eam en ae ees om emcee 0491 
* RESET MODE BUFFER 
* / 0495 
MYI CeX*06! BUILD 6499 
MVE CReX* S80? *SMODE* ‘ 
AVI YX? sot MICRG-INSTRUCT ION 4 
= 4 

| BRST B LXOP EXECUTE *SMHODE*® INSTRUCTION i 

* i 0490 
ALC} =CROE1} FC ADVANCE MODE BUFFER ADDRESS - O4AL 

Fs 
TEN CR»BIT2 LOOP UNTIL ALL MODE BUFFER | O4AS 
BF MBRST LOCATIGNS HAVE BEEN RESET O4A9 

S 
Bora ee on re rn rn rene O4AD 
* INITIALIZE ADDRESS LOCAL STORE (ALS 0451 
* 0485 
MVE CeX*02¢ BUILD *SABt® 0489 
MYI CRexX*8O" MI CRO-INSTRUCT ION O4BD 

= 
&i SEB HVE ¥20 SET EVEN ALS LOCATIONS TG X*¥0": oO4C€14 
B Lxop EXECUTE *SABI* INSTRUCTION 04E5 

* 
SEN CReBIT2 BUILD "SADE*® MICRO-IXSTRUCTION . o4c¢ 
B LxoP EXECUTE *SADIE® INSTRUCTION O4CD 
O4D1 
S8% CReBITT SETUP GDD ALS ADDRESS '  O4D5 
MYT ¥,X*Bee SET OOD ALS LOCATIONS TO X*BF< 04D9 
8 Lxoe EXECUTE °SADI* INSTRUCTION 04DF 

PROG ID LOS-O DATE 
PAGE 


4 €€ NO. 


OBJECT CODE 


38 
co 


OE 


338 
cc 


3c 
3C 


co 


O€ 


38 
£0 


3c 


3c 
co 


31 
31 


co 


32 
3t 


31 
31 


3i 
36 


39 
co 


3h 
31 
31 
31 
30 


30 
co 


3k 
30 
31 
30 


oD 


mat 


20 
87 


00 


20 
90 


03 
80 
00 


87 


20 
30 


60 
60 
BF 
87 


cS 
cs 


60 
87 


cs 
cs 


c5 
cs 


Cc? 
Cc? 


FT 
OL 


cs 
cs 
Cs 
C7 
C7 


Al 
3 


CF 
CF 
C7 
Cc? 


01 
Ol 


0939 
0£63 


0939 


693¢ 
041) 


0938 
0939 
O934 


0663 
0939 


0939 
0458 


0938 
0333 
093A 
0677 


O75A 
0752 


0934 
O&77 


O75A 
O7438 


0730 
O72C 


O72E 
0340 


0940 
6466 


GF3Z 
6756 
0734 
0736 
0940 


G40 
GSE 


OF42 
GS3E 
6736 
0940 


093F 
O4EB 


LSJULT6 
S72ST4 


0905 


os05 


6903 


5132775 IBM MAINTENANCE DIAGNOSTIC PROGRAM 
4 . : 


391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
461 
4 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
422 
422 
423 
424 
425 
“426 
427 
428 
42S 
430 
&34 
432 
433 
434 
435 
£36 
437 
438 
439 
440 
441 
442 
443 
ty Sely 
445 
446 
G47 
&26 
443 
450 
452 
452 
453 
454 
455 
456 
457 
458 


e 
SBF 
8 
* 
ALC 
© 
TEN 
GF 
* 
Siar ems n eee 
= 
© 
MVE 
MVI 
uvE 
s 
zsid—s#B 
+ 
ALC 
+ 
TBN 
BF 
* 
ee 
s 
z 
uVI 
HVE 
MVE 
8 
& 
Lid 
i10 
* 
MvI 
8 
+ 
LI 
Lio 
BS 
LIO 
LIO 
+ 
Slee ne 
& 
* 
L1G 
SNS 
s 
CLE 
BNE 
= 
LI 
Lia 
LEO 
L1G 
SNS 
& 
Cll 
BNE 
* 
LI 
SNS 
LTO 
SNS 
* 
CLC 
BNE 
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ADDR STMT SOURCE STATEMENT 

CReBIT2 
LxoP 
CR(2) ONE 
CR -BIT2 


aLSLO 











PART NO. 
PAGE 


5132775 
#n 


BUILD *SABI* MICRO-TNSTRUCTION 


EXECUTE *SABI* INSTRUCTION 


ADVANCE ALS ADDRESS 
LOOP UNTIL ALL ALS LOCATIONS 


HAVE BEEN INITIALIZED 


PEER IRITLT 











INITIALIZE ZONE LOCAL STORAGE (22S) 


Se2X*O3¢ 
CR,X* SG" 
¥ex®O0* 
LxoP 
CRU} -ONE 


CR,8IT2 
2LSLD 





SUILD 
*szre 
' MICRO ENSTRUCTI ON 


EXECUTE *SZ2E* INSTRUCTION 
ADVANCE ZLS ADDRESS 


LOOP UNTIL ALL ZLS 
LOCATIONS HAVE BEEN RESET 





INITIALIZE INDEX, CSAR~» AND ADDRESS COMPARE REGS 


Cee 
CRO 
¥oX*BE® 
Lop 


LALUD.X*C5* 
LINDEX »X*C5°® 


¥20 
Lop 


LALUD »X*CS5* 
LC SADR »X*CS® 


KO4exX *CS* 
RSPTR,X*C5* 


a 











x*oc® -——> OP REG C 

X*00* ——> GPREG CR 

INDEX VALUE ~-> OP REG V 
LOAD OP REGISTER 


Y REG --> A REG --> D REG 
DO REG -——> INDEX REG 


x*00* -——> OP REG Y 
LOAD OP REGISTER 


Y REG ——-> A REG —-> D REG 
K*9000* ==> CSAR & ADDR COMPARE 


RESET K2 
RESET PCR LATLM AND X REG me 


Ae RI AEe a 





i a are ti 





CHECK FOR SUCCESSFULL INITIALIZATION 


SIOLE,x*C7* 
WORKN ,.X°C7e 


WGRKN . X* FTE 
IOPERR 


KC24_ X*E5° 
SVACC eX*CS* 
K034,XK*CS5* 
SPTR,X*C7® 
WORKNX*CFe 


GREEN» X* ALS 
ZOPERR 


SAL SB »X°CT* 
WORKN-2Z eX *CF® 
SINDEX oX*CF* 
WORKN eX*CT* 


WORKN~1 (23 eRULES 
LOPERR 


SENSE IDLE STATUS 

GO TO ERROR HALT IF 
INCORRECT IOLE SENSE 

SET K2 SERVICE MODE? 

SERVICE ACCESS CYCLE 


SET K3 (CLOCK RESET) 
SENSE ACCESS POINTER REG 


GO TG ERROR HALT IF 
ENCORRECT ACCESS POINTER 

SENSE ALSB 

SENSE ALSD & INDEX REG 


GO TQ ERROR HALT IF 
INCORRECT MIAR VALUE 


PROG 10 


Los-0. 
PAGE 4a. 


x 


ia 
& 


(ff f[([ coc Se 


? 
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PART NO. 5432775 
PAGE 5 


PAGE 5A 
LOSO 3340 STANDALONE MICROCODE LGADER MOD 12 - 3741 


DSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 3742 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


iRR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 





459 * S68 SAHRESTST SSHESSEALESRESSRERESESKSSSKSAKESSERS REALE SAAS HERS HES HSS ESRKEESERERE 
O04E3 3D BF 0940 “60 cLi WORKN «X*BF¢ GO TO LOAD CONTROL STORE iF 469 ¢ s 
O4E7 CO 81 O4F2 461 BE LOCSs SUCCESSFULL INITIALIZATION “7G LOAD CONTROL STORAGE WITH ATTACHMENT MICROCODE * 

462 * 471 ® * 
OGEB FO 6F 1B 463 IGPERP HEL t14,HO Se HALT 04 ¥*% S72 SORRSESKESESKKSISKS SSERSSLALSKTSHSESSRSESSHKSSEAKSHERSHSHSSSKSSOKRGEREKEDESERE 
464 * 473 * 
O4EE CO 87 0385 465 8 HPHLT GO TO RETRY O4F2 OC 91 O93C 0503 474 LDCS MYC CSAR(2),NULLS INITIALIZE CONTROL STORE ADDR 
466 * : 475 * 
G4F8 CO 87 OCSF4 476 LOCSOi 8 LCSAR LOAD CONTROL STORE AOOR REG 
477 * 
O4FC 7B 60 00 478 SBF O( eXR19eX*S0° RESET UNUSED BITS 
&79 * 
O4FF 78 80 00 480 TBN O( »XR1),B1TC BRANCH IF NOT 
0502 F2 90 2E 481 JF LDCSO02 COMTROL STORE DATA AREA 
482 * 
0505 OC 02 093A 0903 483 MVC OPREG(3) »NULLS MOVE ZEROS PATTERN TO OP REG 
484 * 
O50B CO 87 O61C 485 8 WRCS WRITE ZEROS TO 
OS5S0F CO 87 0630 486 8B ROCS CONTROL STORE AND READ BACK 
487 * 
0513 OD 02 093A 0936 488 CLC OPREG(3), IOPING2 BRANCH IF 
0519 F2 01 82 489 JNE LDC SOS CONTROL STORE ERROR 
490 * 
O51C OC 02 093A 0915 491 MVC OPREG(3)eX3FFF MOVE ONES PATTERN TO OP REG 
492 * 
0522 CO 87 061C 493 B wRCS WRITE ONES TG 
0526 CO 87 0630 494 5 ROCs CONTROL STORE AND READ SACK 
495 * 
052A OD 02 093A 0936 496 CLC OPREG(3) ,1OPI a+2 BRANCH IF 
0530 F2 01 68 497 JNE LoOcsos CONTROL STORE ERROR 
498 ¢ 
0533 1C 02 093A 02 499 LDCSO2 MVC OPREG(3) 420 .XR1) GET MICROWORD FROM STG AREA 
0538 3B EO 0938 500 SBF C,x‘*eo* RESET UNUSED BITS 
501 * 
053C CO 87 O061C 502 B wRCS WRITE MICROWORD 70 
0540 CO 87 0630 503 i} ROCS CONTROL STQRE ANO READ BACK 
504 * 
0544 OD 02 093A 0936 505 CLC OPREG (3), 1OPING2 BYPASS ERROR CORRECTION 
CS4A F2 81 11 506 JE Locso3 IF NO CONTROL STORE ERROR 
507 * 
054D 78 80 00 506 TBN O(+XR1).81TO BRANCH IF ERROR 
0550 F2 10 4B 309 “T Loc sos IN DATA AREA 
510 * 
0553 7A 20 00 511 SBN O(,XR1)581T2 
0556 3A 20 0938 512 SBN CeBIT2 SET INVERT BIT AND 
O55Aa CO 87 O61C $13 8 WRCS RE-WRITE CONTROL STORE 
514 * 
O55E OE 00 093C 0905 515 LOCSO3 ALC CSARD(1) -ONE ADVANCE CONTROL STORE ADOR 
516 * 
0564 38 80 093C 517 TBN CSARD,. BITO LOOP UNTIL ENTIRE 
0568 CO 90 O4F8B 518 BF Locso1 BLOCK HAS BEEN LOADED 
519 * 
C56C 38 80 ©093C 520 SBF CSARDsBITO ADVANCE CONTROL STG 
0570 OE€ 00 0938 0905 §21 ALC CSARB (1) ONE ADORESS TO NEXT BLOCK 
522 2 
O576 38 2060 0938 523 TBN CSARB,BIT2 LOOP UNTIL ALL 
OS7A CO 96 O4F8 524 BF LOCcSO1 BLOCKS HAVE BEEN LOADED 
525 * 
OS7TE OC O01 093C 0903 526 MYC CSAR(2 De NULLS INITIALIZE CONTROL STORE apborR 
S527 * 
0584 CO 87 CSF4 528 LOCS04 B LC SAR LOAD CONTROL STORE &4D00R REG 
529 * 
0588 iC 02 093A O02 530 MYC OPREG(32-20 XR} GET MICROKORD FROM STG AREA 
0580 38 CC 0938 531 SBF CoX* Cot IGNORE UNUSED BITS 
532 * 
0591 CO 87 0630 §33 8 RDCTS READ CONTROL STGRE 
534 * 
0595 OD 02 093A 6936 535 CLC GPREG(3) -1GPINe|2? BRANCH FF NO 
DATE I5SJSUL 76 PRGG 10 LDS-C DATE L5JUL76 PROG ID &DS-0 
fC NO. 571874 PAGE 5 EC NO. 571874 


PAGE 5A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


LDSO 


3340 STANDALONE MICROCODE LOADER MOD 12 - 3741 


ERR LOC OBJECT CODE 


0598 F2 81 OT 


OS5S9E 
O5SAl 
O5A5 


OSAB 
OSAF 


6583 
0587 
' 6580 
OsC1 


er. 


a) 


“ 


, SATE 


ri 


EC NO. STILE 


FO 6F 57 


co 
OE 


38 
co 


38 
OE 


38 
co 


87 
06 


80 
90 


80 
00 


26 
96 


O4F 2 
093C 6905 


o9ac 
0584 


093¢ 
GO938 8605 
0938 
0584 


1SIULTS 


ADOR STMT 


536 
537 
538 
539 
546 
541 
542 
543 
544 
545 
54E 
547 
548 
549 
550 
551i 
552 


SOURCE STATEMENT 


* 
LOCSO5 
* 


x 


LOCSO6 
* 


LOCSO6 
H3,HO 

Locs 
CSARD(1} ONE 


CSARD ,BITO 
LDC S94 


CSARD -BITO 
CSARB(1) » ONE 


CSARB -BIT2 
LDC S04 


f 
* 
. 


ERR LOC GBVECT CODE 


PART NOs 
PAGE 6 
LDSO 
CONTROL STORE ERROR 
#*% HALT 03 #** ; 
GO TO RETRY : 
ADVANCE CONTROL STORE ADDR O5C5 
0509 
LOOP UNTIL ENTIRE O5CD 
BLOCK HAS BEEN TESTED 
0501 
ADVANCE CONTROL STG 
ADDRESS TO NEXT BLOCK 0sSD7 
o50D 
LOOP UNTIL ALL O5E1 
BLOCKS HAVE BEEN TESTED O5€5 
' 959 
O5€D 
1 SEO 
! 
1 
; 
4 
t 
' 
t 
i 
: 
a 
" 
i 
i 
’ 
1 
' 
' 
j 
PROG 10 LDS—-O lpaTE 
PAGE 


{. 
t 8 
@eeeaeonv0@0a2e00e2080808808806880 80 @ 


} 
| 
i 
! 


3i 
31 
31 


oc 


co 
30 
38 
co 


FO 
co 


cs 
cs 
cs 
01 
01 
cs 


01 
10 


87 


074T 
O72E 
O74A 


0940 
0940 


O4EB 
6935 


0905 


0905 


0935 — 


oS07 


OSED 


LSSUL 76 
6 EC NO. . 571874 
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ADOR STHT 


$54 
555 * 
556 * 
557 * 
558 
559 * 

560 GO 

561 

562 

563 * 

Sé4 

565 * 

566 GULP 
567 

566 

569 

570 

571 * 

572 ENDHLT 
573 

574 * 


L195 
Lio 
LiG 


avCc 


ALC 
BOL 
SNS 
TBN 
BT 


HPL 


SKTERKSKSSRESSRKSS: 


3340 STANDALONE MICROCODE LOADER MOD 12 - 3741 


SOURCE STATEMENT 


PART NO. 
PAGE 


START MICROPROGRAM EXECUTION 


ERERESEEESE BEESEESSESESSERTERESNETSESBES SESE SSO ESE 
4 


INACC »X°C5* 
RNMODE, X*CS* 
RUNIOP,X*CS® 


WORKNI2) ONE 


WORKN (2) » ONE 
IGPERR 


IOP IN41eX°CS* 


LOPING1 -B1T7 
GOLP 


HEHE 
ENDHLT 


INITEAL ACCESS CYCLE 
RESET &K REG (RUN NODE) 
START MICRO-PROCESSOR 


INITIALIZE TEMER COUNT 


LOOP UNTIL 
HICRO-PROCESSOR 
STARTS OR TIMER 
COUNT OVERFLOWS 


eee HALT EE eee 
*ee SUCCESSFULL COMPLETION *** 


PROG 10 
PAGE 


§132775 
oA 


heb dEOEEEESHEESESESDOTESESEEESESEESRESE TES SECS SEESS ISS 


® 
& 
= 


SESSSSAESSESRESSSSESSECSS 


LDS-0' 
OA: 


4 


Cpe ena RO A Rete omen 


Keren 












































ab... sone 
PERC RALIMIERARCE: DERENOS TTC ERUGE AR Pace 7292775 rem MAINTENANCE DIAGNOSTIC PROGRAM | PART NO. 5132775 
| PASE 7A 
Bs St ge ar gt en ee ene LDSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 3742 | | 
: - j , ¢ 
ERR LOC OBJECT CODE AES STRE SOURCE 2 VATERENY (ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | 
‘* ae ae & SEKAASESSKSESASKKASRSKHKSELKSESESKSSSARKSSSEKSE STE 
oe een ere ® 0673 CO 87 00C0 644 LXOPX Bott RETURN TO CALLING ROUTENE 
578 * SVP INTERFACE CONTROL SUBROUTINES e! Bre decieto, _ 7 4 = . 
579 * * ye 
580 rT er ene eee ree See ee Cea ee nee ee eee es Meee CSO e ee ene ONS, ae : LGAD oP REGESTER 
bare LOAD CONTROL STORAGE ADDRESS REGISTER (CSAR) GOTT 24 06 “OeAac oe? <P ST LOPK*3 ARR SAVE RETURN ADDRESS 
| 650 * 
naa } 0678 32 C5 0732 651 LI0 «=. K024, A" ES * SET K4 (SERVICE MODE) 
, | 652 * 
OSF4 34 08 0618 585 LCSAR = ST LCSARK#3, ARR SAVE RETURN ADDRESS Bi Oiae hee aan Pe ia Gnateaswas pieioneve 
| 0683 OC 00 093F 0938 654 MVC —- WORKN—EER Ee | INTERFACE CONTROL 
O5FB 3C 00 0938 587 MVI C40 X*00" --> OP REG C FIELD , 
O5FC OC 00 0939 0938 588 MVC -CROL)sCSARB CSAR({B) VALUE --> OP REG CR £1D 9689 31 C5 0940 ce PAD: -MOMKMss "eS" EERO IOE RECHC 
0602 OC CO 093A 093C 589 MVC = -¥({1)4CSARD CSAR(D) VALUE --> OP REG YFLD , 060 3, 0) oun ee een wiee See 
: 0691 OC 00 093F 0939 658 MYC = WORKN-LELPeER INTERFACE CONTROL 
een gene an = “a perenne | 0697 31 C5 0940 659 LIQ} — WORKN.N°E5* LOAD GP REG CR 
660 * 
O60€ 31 C5 O75A 593 LIG = LALUD,x*Cs* OP REG Y --> A REG —-> D REG | 
0610 31 C5 0746 594 LIO  LDCSAR,X*C5* CS ADDR --> CSAR 0698 3A 01 0940 661 SBN = WORKNSBETT GUILD SVP 
con-@ 069F OC 00 093F 093A 662 MVC MORKN-IELD oY INTERFACE CONTROL 
0614 CO 87 06F9 596 B GENADR GENERATE STORAGE AREA POINTER | OAS 31 C5 0940 oa ‘ LIG = WORKN SX ES LOAD OP REG Y 
597 + 
0618 CO 87 0000 598 LCSARX 8 + RETURN TO CALLING ROUTINE pe SOR RP P0000 | ta . ces RETURN TO CALLING ROUTINE 
* 
BO se ee ae = o67 + 
601 WRITE CONTROL STORAGE ’ | ae SEucE ae Sx 
670 * 
OP Fe Sees Veer cee RE SRN Z ARK ae ee ee eeen ees 06D 34 08 0600 671 SOP ST  SoPxe3, ane SAVE RETURN ADDRESS 
: ' 672 * 
pesoouiee chen. as a ee ome Ge ere 0681 31 C7 0738 673 LIO © SOPC »x*E Te SENSE OP REG C 
, Ss 
0624 31 C5 0754 607 LIO = WACSL»XSC5* WRITE CONTROL STORE LEFT i; gees ayer ace . tra. MenpCR wees ‘ ae ‘ 
0628 31 C5 0756 608 LIQ WRCSR,»X*CS* WRITE CONTROL STORE RIGHT 068? he ei . oe ae Ee ch Ane 
ease G6BD 30 C7 0935 676 SNS IOPENSh.x°C? 
: ; tn% ; GR 
SEER Bee Oe Oe oo eer oer arene neve aMe 06C1 OC 00 0936 0934 678 MVC: FOPIMOZ ELD TOPIN MOVE VALUES SENSED 
ae it et  . VOSET OE 005 055%: DOK8 679 MVC —- LOPERE LD pWORKN TO INPUT HORK AREA 
f 680 * 
oe * 
ws aoe READ CONTROL STORAGE 1 06CD Co 87 0000 681 SOPX & a RETURN TO CALLING ROUTIKE 
0630 34 08 0662 615 RDCS ST ——- RDCSX #3, ARR SAVE RETURN ADDRESS o6e:* 
616 + 
0634 31 C5 0738 617 LIO = LPC x*C5¢ RESET OP REG C 
0638 31 C5 073A 618 LIO  LOPCR,Xx*CS* RESET OP REG CR 
063C 31 C5 073C 619 LIO Gr. 4X" C58 RESET OP REG Y 
0640 31 C5 O74E 620 LIG CSACC,x*C5* CONTROL STORE —> OP REG é 
621 * 
6644 CO 87 O6AD 622 B sop SENSE OP REGISTER ) 
623 * 
_ 0648 39 20 0938 624 TBF CC, BIT2 GO 10. 
_ G64E_- 39 20 0934 625 TBF  LOPIN,BIT2 EXIT IF 
0650 F2 10 0C 626 JT —- RDESX NO INVERT BITS ON 
3 «627 * . 
0653 38 20 0938 628 TEN C.BET2 ADJUST FOR i 
0657 38 20 0934 629 TEN 0PIN,BIT2 HAROWARE INVERSION OF ) 
0658 CO 90 06D1 630 BF os INVERT OP REG BITS IF REGUIRED 
631 * 
O65F CO 87 0000 632 RDCSX —B *-« RETURN TO CALLING ROUTINE ' 
633 + 
O34 Bonn nnn nnn nnn nnn nnn nnn 
635 +* LOAD OP REG AND EXECUTE MICRO-INSTRUCTION 
636 * : 
. 0663 34 08 0676 637 LxoP ST —_ LXOPX434 ARR SAVE RETURN ADDRESS ‘ 
638 + 
0667 CO 87 0677 639 B Lop LOAD OP REG 
640 © | 
0668 31 C5 0730 641 LIQ —K04,x*CS* RESET K2. (SERVICE MODE) ' 
O66F 31 C5 0758 642 LIO = PROC. X*C58 SERVICE PROCESS CYCLE 
643 * 
DATE  155UL76 PROG ID LOS-0 
EC NO. 571874 PAGE TA 


} % 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


LOSO 


ERR LOC OBJECT CODE 


06D1 
06D5 
0608 
O6E1 
O&E5 
OSES 
O6EF 


O6F5 


O&F 9 


Oé6FD 
oTos 


eTee 
oreo 


OTL 
GTS 
O7 18 
OTLF 
O723 


CT27 


c 


V8 


. ae 
ey 


_ DATE 


od 


@eeoeoeoeoeedede0e0e0808080 0 


3340 STANDALONE MICROCODE LOADER MOD 12 - 3741 


34 


OF 
38 
38 
Of 


co 


34 


6c 
OE 


c2 
34 


3G 


co 


08 


02 
G2 
EC 
LF 
00 
ol 


87? 


OB 


Of 
80 


G2 
aL 


G2 
sO 
16 
G1 


ST 


COFS 


0940 
9940 
O93E 
0934 
0934 
9936 


9600 


OF2A 


O946 
0940 


i660 
6940 


093€ 


$940 
O93E 
O7i5 


093F 


6600 


, ISSUL76 
£C NO. STLB%4 


O911 
0936 


O93E 
0940 


693C 
6940 


0945 


ADOR STMT 


684 
635 
686 
687 
688 
689 
690 
692 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
734 
705 
796 
70? 
7¢e8 
709 
710 
T1i 
712 
713 
714 
715 
716 
TT 
718 
T19 
720 
T2l 
722 
723 


SOURCE STATEMENT 


j PART NO. 
PAGE 8 


KELKERKESLEDERSLRERSS CKACHRE TE SRESEASHS EAPERHERHERSKELELSLK ECT ELSES SKERSREL ESE | 


s 
* 
* 


= 
* 


* 
INVERT 
= 


GENAX 


ST 


MVC 
ALC 


LA 


AVI 


ALC 
TEN 
BT 


«| 
DATA PROCESSING SUBROUTINES *. 
*: 


SREEKERASESERESEE REL EERERE SEER EKER SEAR RERREEREAGECEREEEEEL SHAT SSE SESEKSERERE | 


ADJUST FOR HARDWARE INVERTED OP REG BITS 


LDSO 


0728 
0720 
IVRTX4+3, ARR SAVE RETURN ADDRESS 
O72F 
WORKN(3) ¢NEG1 0731 
WORKN(3) pLOPENG2 RESTORE 0733 
HOR KN-2,X "EG ¢ HARDHARE o735 
IOPINSX°1F® INVERTED 0737 
IOPINCL) »WORKN-2 OP REG BITS 
TOP IN42(2) eWORKN 
0739 
ak RETURN TO CALLING ROUTINE 
0738 
$a nnn ew ee ee nnn en nn en enn ne nnn nn nn eee een een nee 0730 
GENERATE MICROCODE STORAGE AREA ADDRESS 073F 
OT41 
GENAX 43» ARR SAVE RETURN ADDRESS 6743 
0745 
WORKN(2} ¢CSAR CONTROL STG ADDR TO WORK AREA 0747 
WORKN (13, WORKN DROP LEFT/RIGHT SELECT BIT 0769 
6748 
UCODE »XRI POINT TO MICROCODE STG AREA O74D 
WORKN, XR1 ADD ADJUSTED CONTROL STORE ADDR oO74F 
O7Si 
WORKN~2 ¢X*FEt SETUP SHIFT TERMINATOR 0753 
0755 
WORKN (3), HORKN SHIFT CONTROL STORE 0757 
WORKN-2 ¢ BITO ADDRESS LEFT UNTIL RIGHT 0759 
GENALP JUSTIFIED ON BYTE BOUNDARY 
WORKN-1 »XR1 ADD ADJUSTED CONTROL STG ADOR 
++ RETURN TO CALLING ROUTINE 
i 
t 
i 
i 
1 
PROG 1D LOS-O ‘DATE 
PAGE 


ERR LOC OBJECT CODE 


0001 
0092 


8802 
A802 
9802 
e005 
0068 


CODA 


o0O8 
oooc 
OLOC 
0600 
$200 
oecd 
ecen 
eoce 
OCGE 
OEGE 
SEOE 
8BOE 
AEOE 
CEOE 
OOOF 
O20F 


IS SULTS 


8 EC NO. 571874 
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ADDR STMT 


o72c 
O72E 
G72E 
0730 
O732 
0734 
736 
O738 
O738 
0738 
O73A 
O73A 
o73Cc 
O73E 
0740 
0742 
8744 
0746 
O745 
GCT4A 
O74C 
O7T4E 
o750 
O752 
O7S4 
0756 
O756 
ST7SA 


725 
726 
727 
728 
72S 
730 
732 
732 
733 
734 
735 
736 
737 
138 
139 
740 
741 
742 
743 
T4& 
745 
T46 
747 
748 
749 
756 
WSi 
752 
753 
TS4 
755 
756 
757 
758 
759 


3340 STANDALONE MICROCODE LOADER MOD 12 - 3741 


SOURCE STATEMENT 


PART AC. 


5132775 
PAGE 8A 


EACESESHAESKERESHSESESESSOES SKLKSHSSSSESOHSLSE SL GSSRESHHLS HOS SESHESSSL GSS 


* 
* 
* 


SVP INTERFACE CONTROL CONSTANTS * 


s 


¢ 


EKERSRERARSSLESHSESHTESERESSERESEE SSE STARESSTSSSROSSSESSSIESSSSSESERHSH HSS 


+ 
RSPCR 
RHODE 
SIOLE 
KO4 
KO24 
KO034 
SPTR 
LoPc 
soPCc 
SINDEX 
LOPCR 
SOPCR 
LOPY 
LEXTAR 
LEXTZ 
SALSB 
LEXT 
LDC SAR 
LCSADR 
RUNI GP 
INACC 
CSsacc 
SVACC 
LINDEX 
WRE SE 
HRC SR 
PROC 
LALUD 
+ 


oc 
oc 
EQu 
oc 
OC 
oc 
oc 
oc 
EQU 
EQU 
oc 
EQU 
oc 
dC 
oc 
oc 
oc 
oC 
Ge 
oc 
oc 
oC 
oc 
oC 
oC 
oc 
oc 
oc 


xL2°O001° 
Xi2*o002* 
RNHOCE 
XL2°6802° 
XLZ* ABO2* 
XL2*9802° 
XL 2*0005°* 
XL2*9008* 
LOPC 

SOPCc 
XL2°OO0A* 
LOPCR 

XL 2° OOOB* 
XL2°QO00C* 
XL2*O10C* 
XL 2°O00D* 
XL2*O20D* 
XL2*OsoDd® 
Ki 2° OCOD* 
RL2°OOOE* 
XL2* OCOE* 
XL 2° OEDES 
KL 2° BEGE* 
XL2° 8B0E * 
XL2* AEGE* 
XL 2 *CEGE * 
XL2*OOOF * 
XL2* O20F * 


RESET PCR LATCH AND X REG 
RESET K REG (RUN MODES 

SENSE IDLE STATUS 

SET KO AND K4 (HALT IOP) 

SET K2 (SERVICE MODE} 

SET K3 (CLOCK RESET) 

SENSE ACCESS POINTER REG 

LOAD OP RES C 

SENSE OP REG C 

SENSE INDEX REG 

LOAD OP REG CR 

SENSE OP REG CR 

LOAD OP REG Y 

R3-RT --> EXT ADDR REG (CEXTAR) 
R&-R7 —-> EXTERNAL ZONE REG 
SENSE ALSB 

G REG --> EXTERNAL REG 

LOAD CSAR 

LGAD CSAR AND ADDR COMPARE REG 
START MICRO-PROCESSOR 

INITIAL ACCESS CYCLE 

CONTROL STORE --> GP REG 
SERVICE ACCESS CYCLE 

LOAD INDEX REG ° 
WRITE CONTROL STORE LEFT 
WRITE CONTROL STGRE RIGHT 
SERVICE PROCESS CYCLE 

OP REG Y -—-> A REG --> D REG 


proc 10 LOoS-0 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5132775 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. $232775 
PAGE ; 9 PAGE 9A 
LDSO = =63340 STANDALGNE MICROCODE LOADER MOD 12 - 3741 LDOSO0 3340 STANDALONE MICROCODE LOADER MOD 12 ~ 374) 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC GBYECT CODE ADDR STMT SOURCE STATEMENT 
761 FERESHEESEESERS LASS SEEKS ESA GSKRKS SERS SOSSESASRATSESRESESLESAESSRRRRERSELER 7648 FFEFEREEFESEFERE 820 
762 * * 7650 FFEFFFFFFFEEFFEF 820 
163 * CONSTANTS AND RESERVED STORAGE AREAS © * 7656 FFEFFFFEEFFEFEEFE 220 
764 * * 7660 FEFFFFREFFFFEFFE 820 
165 FESEAAEEESEREREERASERSEERERRE SREKESKERELES EA SESE HRERESLAELSSERESEROSKRETEE 7668 FFEFFFEEFESEEFFE 820 
766 * : 7670 FEFFFFEFERFEFEFE 820 
0880 767 OGRG = X*O8B80° RESERVED FOR ; 7678 FFEFFEFEFEFESEFE 826 
0880 768 INPUT EQU * CARD READ IN AREA 7680 FFFEFFFFFFFEFFEFE 820 
0880 O8FF 769 DS XL128 7688 FFFFFFFFFFFFFFFF 820 
770 * 7690 FFFFFFFFFFFFEFEF 820 
0900 00000000 0903 771 NULLS DC 4XL1*008 7698 FEFEFFFEFEFREFFF 820 
0904 0001 0905 772 ONE oc ThL2*2? 76A0 FFFEFFFFFFFEEFFEFE 820 
6906 0002 0907 773 TWO oC IL2'25 76A8 FFEFFEFFEFEFEFFEFE 820 
0908 0003 0909 774 THREE oC rL293¢ 7680 FFFFFFFFFREFFFFE 820 
090A 0004 0908 775 FOUR Doc IL2*4? 76B8 FEFEFFFEFFEFEFFEE 820 
CS0C 0008 090D 776 EIGHT DC IL2*8¢ 76CO FFFFFFFFFEFFFFEFF 820 
O90E FFFFFFFF 0911 777 NEGL oc IL4*-1?° 76C8 FFFFFFFFEEFEFEFE 820 
778 # 7600 FFFFFFFFFREFEFEE 820 
0912 Fi 0912 779 D1 DC cCLitie : 7608 FFFFFFFEFFEFFEFE 820 
780 * T6EO FFFFFFFFFECFFEFF 820 
O913 O3FFFF 0915 781 X3FFF oc XL3* O3FFFE® CS DATA AREA TEST PATTERN 76E8 FFEFFEFFFFEEFEFF 820 
916 10 0916 782 X10 oC XLi°10" 76FO FFFFEFFEFEFFFFFE 820 
783 * ' 76F8 FEFFFFFFFFEFEFFF 820 
0917 784 EXTBL equ + EXT ERNAL 7700 FEFFFFFFFFFEFFFFF 820 
0917 2080 0918 785 =TR oc XL2*2D80* REGISTER 7708 FEEFFEFEFFFEFFFEF 820 
OS19 2b06 OS1A 786 DC XL2*2B00° ADDRESS 7710 FFFFFFFFFFFFFEFE 820 
OS1B 2F00 O91C 787 SCN oc XLZ*2F00* TABLE . 772.8 FEFFFFEFEFFFEESE 820 
0910 3300 O91E 788 DXC oc XL2°3300° 7720 FFEFFFEFFEFEEEFE 820 
O91F 2500 0920 89 FTG oc XL2*2500 ' 7728 FREFFFFEEFEFEEFEFE 820 
0921 238F 0922 790 DST oc XL2°238F8 7730 FFEFFFFFFFFEFEFE 820 mS 
6923 2300 0924 791 oC XL2* 23008 7738 FEFFFFFFESEFFEFE 820 
0925 2780 0926 792 FHF oc XL2*2780°* i 7740 FFEFFEFFEFFEFEFFE 820 
0927 2700 0928 793 oc XLZ2*2766° 7748 FEFEFEFFEFFEFFEFE 820 
0929 3F00 O92A 794 SBO oc XL2*3F00° 7750 FFFFFEFFFEFEFEFEF 820 
0928 FF 0928 795 oc XLI* FES TERMINATOR ' 7758 FFEFFFFFEEFFFEEFE 820 
796 * 7760 FRFFEFFFRREFFFFEFE 820 
o92C 60 092C 797 IND oc XL1°68 PROGRAN INDICATORS 7768 FFFFEEFFFEEEFEFE 820 
798 * : 7770 FFEFFFEFFFFEFFFFFE 820 
092D CéClFO 092F 799 FAOID DC CL3*FAO® MICRGCODE SECTION 1D 7778 FEFFFFFEFEFEFFEE ' g20 
3 800 * 7780 FFFFFFFEFREFFFEFF 820 
0930 0933 801 SEQ OS CL4 CURRENT CARD SEQUENCE NUMBER 5 7788 FFFFFFEFFEFEEFFFE 820 
802 * 7790 FRFFFEFRPFEFFFFE 820 
0934 803 IGPIN EQUuU) * COMMON IGP SENSt 7798 FFFFFEFFEFFFFEFEF 820 
0934 0937 304 oS XL DATA STGRAGE AREA ' 77AO FFEFFFFFEFFEEFFEE 820 
805 * 77A8 FFFEFFFFFFEFFEFFE 820 
0938 O93A 806 GPREG DS XL3 GP REG DATA STORAGE AREA 7780 FFFFFEFFEFFEEFREEF 820 
8938 807 C EQU) OPREG-2 GP REG C BYTE ' 7788 FFEFEFFFFEFFEFEE 820 
0939 808 CR EQU  OPREG-1 GP REG CR BYTE 77CO FREFFEFFFREFFFFF 820 
093A 809 Y EQU GPREG OP REG Y BYTE 7708 FEFFFFFFFFFFFFFF 820 
810 * ' 77DO0 FFFFEFEFEFEFFFFFE 820 
0938 093C 811 CSAR oS XL2 CONTROL STORE ADDRESS 7708 FFFFFFFFFFFEFFFE 820 
0938 812 CSARB EQU  ~CSAR-1 CSAR BLOCK BYTE T7EO FREFFFFFFFEFFFFE 820 
O93C 813 CSARD EQU  -CSAR CSAR DISPLACEMENT BYTE ' 7768 FFFFFFFFFFEFFFEF 820 
814 * 77FO FFFFFEFFFFFFFFEFE 820 
- 093D 815 WORK EQU GENERAL PURPOSE T7F8 FFFFFFFFFFFFFEFE 8206 
oe o93D 0940 816 HORKN os XL4¢ WORK AREA i 
817 * 
- 7600 818 ORG X*7600* 
: 7600 339 PATCH EQU MICROCODE PATCH AREA t 
7600 FFFFFFFFFFFFFFEFFE T7FF 820 oC S12XL1‘FF« { 
7608 FFEFFFFFFFFFFEFE 820 : 
7610 FFFFFFFFFFFFEFFEF 820 t 
7618 FEFFFFFEFFFFEFFE 820 i 
7620 FFFEFFFFFFEFFFFE 620 
7628 FRFFPFFFEFFEEFEE 820 \ 
7630 FFFFFFFFFFFEFEFE 820 
7638 FFFFFFFFEFEFFFRE 820 
7640 FFEFFFFEFFEFFEEE 820 j 
DATE LSJUL76 PROG ID LOS-0 ipaTE 15JUL76 PROG £6 i0s-0: 
EC ND. 5S71874 PAGE 9 €C NG. 571874 PAGE 
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18M MAINTENANCE DIAGNGSTIC PROGRAM _ PART NO. 5132775 BM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 5132775 
PAGE 10 s, : PAGE 10a 
LOSO 3340 STANDALONE MICROCODE LGADER MOD 12 - 3742 “LDSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 3741 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT > CROSS-REFERENCE 
B22 FREERSELSSERERLSSASLHSLEARLELEREES ELH SSESESSHERESESSERGOLS > SEESHETOSREREL EES SYMBOL T LEN VALUE DEEN REFERENCES 
823 * 
824 * SYMBOL DEFINITIONS * AINPUT A COL 0107 0077 0085 
825 * * ALSLD A 004 0410 0381 0398 
B26 EERE EHSELSERSSAK EEK CHEESEKEHERATERHAEKSRKSEKESE KEATS ERGR SST SERSEAEEAEERERES Jarre C 061 o0o08s 0832 oo7e 0585 0603 06615 08637 0643 0671 0692 OT706 
827 * Ai A006 02A6 0209 0202 0203 08206 0214* 02136 
828 * LOCAL STORE REGISTERS A2 A 006 O2AC 0210 0203* 
829 * )BITO C 001 0080 0854 0270 0273 0480 O50& S517 9520 0544 0547 OT1T 
0001 830 xR} eQU  X*O2F INDEX REGISTER 1 BIT C 001 0040 0855 0140 
0002 831 XR2 EQU = X*02° INDEX REGISTER 2 BiT2 C 0OL 0020 0856 0372 0384 0392 6397 O41 OS11 0512 0523 0550 0524 0625 0628 
0068 832 ARR EQqu = xtost ADDRESS RECALL REG {CURRENT LEVEL) } 0629 
833 * BIT4 C O0OL 0008 0857 0319 
B34 Bann mn mr nn en nn nn ne nnn BIT6é C 0OL 0002 o85s8 0657 
835 * HALT IDENTIFIERS JeItT7 € 002 0601 0859 0387 0569 0661 
836 * BOOTS A O04 0000 0022 6020 0021 0042 0062e 
O06F 837 HO EQU =X"6FT , BGGT1 A OO3 0008 0024 0047 
0903 838 Hl EQU = x*03 JBOOTIA A 003 OOOE 0026 0030 0043 
0076 839 H2 EQU = x* 76! BOCTIE A 003 0048 0046 0028 0039 
0057 840 H3 EQU) -X*57¢ . BOOTL1L A 002 0052 0049 0032 
CO1B 841 H4 EQU = xX®1B 3¢ A 003 0938 6807 C270 0285* 0288* 0292% 0295% 0296% 0302¢ 0307¢ 0341% 6364% 03782 0403% 
0O5D 842 HS EQU = xK*SD® : 0417* 0500* 0512* 05318 OS87# 0624 0628 0654 
0038 843 HH EQU) sx * 3B . CDEXIT A 004 6147 6099 0078* 0095 
O07 844 HE EQU ss X®7C# JCDREAD A 004 0100 0075 6074 O075 6112 0126 0866 
845 % CKCARD A004 0240 0161 0154 0157 
846 %#—+—-—----—~— Fn ran enn nnn erenmnancnenennerenevanen mammnan me ammnenanemenmmmn CKID A 00S O24E 0168 0164 
847 + PROGRAM INDICATORS JCKREP A&A C04 0181 0121 0114 
848 * CKTYPE A004 O2C4 0222 0179 
6080 849 SEQCK EQU = xx* 808 CARD SEQUENCE CK INITIATED ~CLRSTG A 003 020% 0137 C141 
850 + ZCMPRS A 004 O28F 0200 0162 
B51 Hamm nn nn nn nn en nnn CMPOL & 006 0297 0203 0217 = 
. 852 + BIT POSITION SYMBOLS cR A 003 0939 0808 OZ2T6* 0344% 0365% O370* 0372 O379% 0384¢ O387Te 03926 0395¢ 0397 94049 
Ad 853 * - @409% 0411 0418 05889 0656 
6080 854 BITO EQU = x*6O0' CSACC &£8 002 O74E 0752 0620 
5 0040 855 BIT1 —QU = x*40" CSAR A002 093C 0811 0236* 0263 0474% 0526¢ 0708 0812 0823 
eo 6020 856 BIT2 EQU) = xX*20* ECSARB A 002 0938 0812 0521* 0523 0548* 0550 0588 
GOO08 6857 BIT4 —EQU = x08? CSARD A002 093C 0813 0273 0515* 6517 0520% 0542% 0544 054¢7¢ 0539 
a 0002 858 BITS £QU = =x*02* DCSIG £003 0108 0079 0083 0102 
- G001 859 BIT7 EQU = X*O1* . Jost A 002 0922 6790 
860 * DXC & 002 O91E 0738 
861 +-—~--—— nner mane ae ee arene te nen ae ann ae ae eae neem ALY AO0Ol 0912 O779 0176 
862 * OTHER REFERENCES EXTERNAL 7O THIS SECTION }EIGHT A 002 0900 0776 6292 
863 * ENDHLT A 003 OSED 0572 0573 
0880 864 REC EQU INPUT LOAD SUBROUTINE INPUT AREA EQJCHK A003 0135 0693 0097 
08D4 665 RECN EQU REC+84 END OF MICROCODE TEXT RECORD Derr A 003 0148 O1O1 008: 0091 
COFF 866 LDWORK EQU  CDREAD-1 TEMPORARY STORAGE LOCATION EXTBL A OO1l 0917 0784 0339 
2 867 * EXTRST A004 O3CC 0344 0359 
i 100G0 868 UCODE EQU x*1006° ATTACHMENT MICROCODE STORAGE AREA REH Draco A 003 OS2F C799 0168 
869 * FHF A 002 0926 0792 
ee 870 * FOUR & 002 O90B 0775 0370 
he 871 * FTG A 002 0920 0789 
872 * NOTE * NOTE * NOTE * NOTE * NOTE * NOTE * NOTE * NOTE * NOTE * NOTE * ETR A 002 0918 0785 
a 873 * FUNBT1 A 002 ©0058 0052 0025 
. 874 * FIXED LOCATION X*1FFA* AND X*LFFB* HUST CONTAIN X*0200? Doenane A 004 O6F9 0796 0237 6264 9596 
875 + BECAUSE FE0(1442) AND FDO(2560} LOADERS PICK UP THE GENALP A 906 O725 O716 o718 
see 876 * STARTING ADDRESS OF THIS PROGRAM(WHICH IS *0200°) FROM THESE GEWAX A 004 0727 0722 o706¢ 
o 877 * LOCATIONS. Der. A 00% O5CS 0560 
87a « GOLP A 006 O5D7 0565 0570 
Z 1FFA 879 ORG = X*LFFAt HE COOL O07 0844 OS72 0572 : 
aes 1FFA 0200 1FFB 880 BC XL 2°0206° Bun COOL 0938 0842 6046 0201 
. eel + Ho C GOL GO6F 0837 GCi86 0193 0463 0538 
FFFF 8&2 END Hi C 001 0903 0838 186 
Buz € 001 0076 0839 0193 
H2 C 001 0057 0840 0538 
as H4 C O01 8018 98461 0463 
Xj Dus C O81 C05D 0842 0046 0101 
. . IDERR A 003 0279 0186 0169 
r " INACC A 002 O74€ 0751 0560 
. F4 7 | , Hino A 001 092C 0797 0171+ 0188 
. BATE ISMATS PROS ID Los-oDoate 15g. 76 PROG ID i9S-8 
EC NO. STLGM PAGE 10 €C NO. 571874 PAGE ida 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5132775 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5132775 
ms PAGE, 11 - PAGE 1a 
: : , 1 
LOSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 3741 LOSO 3340 STANDALONE MICROCCDE LOADER MOD 12 - 3741 
CROSS-REFERENCE } CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES ,Symeoe T LEN VALUE DEFN REFERENCES 
INPUT A 001 0880 6768 C076 0152 0153 0156 0161 0864 REPO7 A006 0338 0281 0277 
INVERT A 004 O06D1 0692 0630 : REPOS A 006 0341 0283 0286 
.. IOPERR A 003 O4EB 0463 0441 0450 0458 0567 REPOS & 004 0350 0286 0284 
IOPIN A OOL 0934 9803 0488 0496 0505 6535 0568* 0565 6625 0629 O0676* 0678 66783 D06E7C% REP1O A006 0358 0290 0293 
0695 0697* 0698* 6699+ . REP11 A 004 0367 0293 0291 
IVRTX & 0604 O6F5 O70! 0692* REP12 A 006 0376 0300 O272 
K024 A 002 0732 0735 0443 0651 REP13 A 006 O27C 0302 0304 
K034 A 002 9734 6736 0334 0445 REP14 & 006 0382 0303 0305 
KO4 & 002 ©0730 0734 0333 0431 0641 REP1S A 005 0394 0309 0298 
LALUD A 002 O75A 6758 0353 0422 0428 0593 . REP16 A 003 0399 0311 
LCSADR A CO2 0748 0749 0429 RNMODE A 062 O72E 0732 0561 0733 
LCSAR A 004 OS5F4 0585 0476 0528 RSPCR A002 O72C 0731 0432 
LCSARX A004 0618 6598 0585+ RUNIOP A 002 O74A 0750 0562 
LDADDR A 002 O1FD 0126 0146 SALSB A 002 0742 0746 0452 
LOCS A 006 O4F2 474 0461 0540 isBO A002 OS92A 0794 
LDCSAR A OG2 0746 0748 0594 SCN A 002 091C 0787 
LOCSOl A 004 O4F8 6476 0518 0524 , SEQ & 094 0933 0801 0152* 0156* 0173 9176% 
LDCSO2 A 005 0533 06499 0481 ISEQCK C001 0080 0849 0171 0188 
LOCSO3 A 006 O55E ©0515 0506 SEQERR A 003 0288 0193 0174 
LDCSO4 A 004 0584 0528 0545 0551 SIOLE A 002 O72E 0733 0437 
LDCSOS A 003 O59E 0538 0489 0497 0509 ISINDEX A 002 0738 0740 o454 
LDCSO6 A006 O5A5 6542 0536 SNBYT1 A 002 0056 0051 0026+ 0027 0029 C037T# 0028 : 
LOS A 601 6000 ©6007 SNBYT2 A 002 0154 0105 0079* 0060 0082 0689% 0990 0093% 009% 6096 
LOWORK A 004 OOFF 0866 isop A 066 O6AD 0671 0622 
LENCT1 A 002 0054 6050 0033 soepc a 002 0738 0739 0673 0740 
LENCT2 A O02 0152 021046 0086 SOPCR A 002 O73A 0742 0675 
LEXT A 002 0744 6747 0354 'sOPX A 004 O6CD 0681 0671¢ 
LEXTAR A GO2 O73E 0744 0352 SPTR A 002 0736 0737 0446 » 
LEXTZ A GCO2 O740 0745 0347 SVACC A002 0750 0753 0444 
LINDEX A 082 C752 0754 0423 TEXT A 004 02D7 0233 0226 
LOADER & 004 0260 6135 TEXTO] A G04 O2ZED 0241 0247 
top A 004 0677 0649 0345 0359 0420 0426 0591 0695 0639 THREE A002 0909 0776 0246 
LOoPC) = A OZ «60738 «09738 0617 0739 Itwo A 002 0907 0773 0285 
LOPCR A OG2 O73A 8741 0618 O742 uCODE C 001 1000 0868 0135 O711 
LOPX A 004. G6A9 0665 0649* WORK AOOl 093D 0815 0281* 0283 0283* 0290 0o29¢C8 
LOPY AOO2 O73C 0743 0619 WORKN A 004 0940 0816 0139* 0140 0300% 0303 0303* 0318* 0319 0438% 0440 0447% 0449 04536 
LPTONE A 004 O171 6117 0455* 0457 0460 0564 0566% 0653¢ 0654* 0655 06577 0658% 0659 06614 
t*GP ££ 804 0663 0637 0368 0382 0385 0390 0393 0407 06624 06€3 6674* 0679 0694* 0695* 0696% 0698 0699 O0708* 0709 079094 
LXOPX A 004 0673 G646 0637* ’ 0712 0O714* 0716 0716 0717 0720 
MBRST A 906 0403 0368 0373 WRCS A 004 O6iC 06603 0485 0493 0502 0513 
MOVE A005 0178 O119 0116* O117% WRCSL A 002 O754 0755 0607 
MPHLT A 003 0385 0331 0465 WRCOSR & 002 0756 0756 0508 
NEG A 004 G91L 0777 0212 0694 WRCSX A 004 062C 0610 0603% 
WEG A O02 0158 0107 XR1 C 001 0001 0830 0020 0022+ 0025 0026 0027 06028 0029 0030 0032 0033 6035 0037 
NEXTC £904 O159 @109 0044 } 0038 0039 0042 0042 0043 0047 O076* 0115 0116 0117 0118 0118 
NEXTR A 004 0163 90112 0120 i 0119 0135* 0137 0136 0138% 0139 0346* 0147 0148 0161% 0163 0166 
NULLS A 6D1 0993 O77T1 0457 0474 0483 0526 : 0166 0168 0173 O178 0181 0200* 0295 0207 0212* 0241 0243 0243% 
NI A002 0156 0106 } 0276 0279 0309 C311 0311* 0339% 03469 0356 0356 0358 0%¢78 0480 
ONE #& 002 0905 6772 0214 0395 0409 0515 0521 0542 0548 0564 0566 Bs a TS 0499 0508 0511 0530 O711# 07128 0720% 
BDPREG A CO3 90934 0806 0268* 0300 6309 0483% 0488 0491% 0496 0499% 0505 0530* 0535 oO8c7: XR2 C 001 0002 0832 002i 0023* 0040 06041 00414 0074 0075* 0078 0079 oO080 soa: 0c82 
oses 07809 } 0083 0085 0086 0088 0089 0090 0093 609% 0094 O097 O02 O1L6 
PATCH A OGL 7600 6819 0255 . 0117 0239% 0241 0244 0244% 0258% 0260 0263 0266 0256* 0268 0312 
PROC A GO2 O758 O757 0642 G312* 0314 0317 0317* 6318 
ROCS A 004 0630 0615 0486 0494 0503 0533 3x10 A G01 0916 07682 0302 
RDCSX A O04 O65F €632 0615* 0626 - X3FFF A 003 0915 0781 0491 
READ Af 006 023C 9159 0148¢ 0184 0191 0195 0228 0234 0249 Y A 003 093A 0809 C279% 0281 0342* 0349% 0366* ©3819 0289% 04605% 0419% 0425¢ 0589% 0662 
READER A GG4 G216 0146 WZLSLD A 004 0458 0407 0412 
READ] A 004 0222 O15@ 6247* 0189 
REC A 001 6880 06366 0216 0222 0225 0233 0236 0239 0246*% 9865 TOTAL STATEMENTS FLACGED IN THIS ASSEMBLY = 6 
RECN A O01 O8BD4 6965 0200 0209 0209% 0210 0627104 0216 } 
REPFAO A 004 6305 0258 6223 : 
REPX A GOB O38 0317 0261 : 
REPOL A 003 0309 0260 63206 y 
REPO2 A OSS O230F 0263. ‘ : 
REPOS A GOS O318 O268 6315 . ; . 
REPOS A 905 0336 oO279 0274 } 
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LDSO 3340 STANDALONE MICROCODE LOADER MOD 22 - 3741 


LDSO 3340 STANDALONE MICROCODE LOADER MOD 12 - 3742 


sd 


THE CHARACTER 


CSJECT CARD LISTING 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


P 
, 


CL 1 THROUGH 16 


CL 17 THROUGH 32 


+ 


OBJECT CARD LISTING 


CL 32 THROUGH 48 


Ci 49 THROUGH 64 


CL 65 THROUGH 80 


Ct &2 THROUGH $6 











CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 . e = ee ° e * e ® © ° * 6 
T4+-N4BL FT /OQ*0H* FC 4BBLYI( 7HADPS THEKTY= CrY~-BLT fOQ*C- If UECH 1i<B&Al-@- Ualt- 1e+0uU 6 01.0S60021 
GBK GBD PN 51 32774 EC 571874 3340 STANDALONE LOADER ~ 3741 &42aa84aa LDSO0000 $T+-O7AL——BL? Ui BC OL} UCOHFE*AO BBLYB+a 1+<BGAT ( ~US BLS2-£~085- fO0L2C— 1 VECH Ti< 32010800022 
o ee © e 2 e - © e e © ® © - ¢ e e nt ° ee = 
T+- :0~D <HB &C 360/1LEN/OESRBAEP EUD_S VPEU 8360/ LJEFIEVLSEECSESX SEC/OEVROBVPEUD> <}PM JTYLDS00001 3T+~POU O78 Ff 8 BL&EIAL--BL? U O O<*KGLCGEAZE116} HC DIE VEC-OIE U EOH O:3CEBLNS EU SOA 7H*LDS000Z3 
T+- AS XPS XR~  A& DTOHTAD~ #P3>B GBH Ga BD Siw~ NEfPLA"N.7°"S EXP CELP7a~T7'DA EDA &+* OE *LDS00002 3T+-OVA)+0-63 fOP _( ~FF30 BL~< U S9BLEC UBL /OR 7<@MGOTGEASS 40$ SOH*® CEHAS® SOR 7<eM ®,*LDS$000246 
T4+-D2 0-H @"CHABHB 4BD: OESS8AE+-UD= §& Vw @3E0S15 > LEVS3EEC/ESDOEVS SBVAZUAX3SEO0SOESS) 8 V*® 694LDS00003 )T+-R-AS E116) OOH* CEHAKHILESB<8H «6GtTGEASOLLES+OH* F»LU-Bi-SH USO/ <+8 14C-——BLL US$ JOH*® S#OLOS00025 
T+~ESa/ I> /081- 984<HOH* "i ePr8 GCOA® =~"3iD H®O3=B/BH"ABG GEA "1EC2-JK* XaCX B MoO LDS00004 }r+-Es 48 R60H* F)3GEA3 116 :Q0H* CEHADD11E*2 | - 6 0 BLAECCGEBM s—-v C FGue<eM TECY SZOLDSCCOZE 
C4 eee eed «e e @eeeaoeoe ee *eSBeEeC ese eOoeeoeoeoanee Sseeaeeeaeeaeceee cee @eeeeaeaeceeoeoeoeeoa ae ce @e@geve e « e eo @e@e s e e e e 22° * < = 
TC<FD &&* <B 6 Of /OH 50 LOSGOGOS 3 T+~$0 £¥ C LOU <<*¥M1E<BG “B $ E<*tGeCCGBM 110% 2<<#1/160 BLOII 0 BLEIE<BG 48 $ 6C H &JHLDSOOO2ZT 
T &G* & #¥HLDSO0006 Br+-sJ8M IDEe8BH 1(T?—BL8 €G0U4C— if U=C Dift-¥ Ont CEHA2ZY< EV BLO + Vv BMCB J (-0 FECO *2: 410500026 
 TeeH2O-D& G2 (CH A BEABM BE UFGI BACMA ~44 EHVE D 81aBG < 0U3B(@ "90S @DIC <I<OT {fay O-ULDSO0007 B T+— <®—U=C-HIE Vv +H EZ GALM6 EU *FOHE & HH p- BK H AGH Y 80 <€ eC CEH(B 4<CéE <¢ 8 eyeeneere 
oe e * s e « e « es ec o @ eceeaeceea se ceoeeceotsece es SOCCHHOSESSOHEHSBE SSCSSECHHESHOOSES eooee 
 TH-ISACBG CB ES 75% Q-DOP )-L44 BG-U7B-—DT+¥ 1.D4 CPOU33-DWAT I<OU K-3* GHDBIG7M IH AFZ LsZLOS00008 FICEdEC—s+CYZe,—# +C- | -a */<LDS00030 
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£043 | 5203 CYCLE STEAL & HAMNER ADDRESSING TESTS 


Eee Loc OBJECT cope 


face 


OACO 
CA02 
| GaAC3 
ORCK 
CRO6 
OaA08 
OAOA 


Sa9D 
QAOE 
OACF 


CA11 
eats 
CA18 
SAIC 
OA1D 
OA1TE 
OA2*" 
OA22 
CA26 
OA29 
OA2D 
OA30 
QA38 
0A35 
0836 
0238 
CA3A 
®A3D 


OAu1 
Oa4S 
OauO 
AnaD 
0250 
5a54 
0A58 
CASB 
DASE 
CA62 
OA66 
OAGA 
0A70 

OaR78 

0A76 

OA7A 

CATE 

CAB 

on85 

CAS? 


PATE 
EC NO. 


E043 
00 

01 
6000 
CAOD 
0D36 
£95900 


01 
on 
OBB? 


38 Ou 
F2 90 
co 87 
42 

10 
e501 
E000 
ci £0 
F2 87 
38 94 
F2 90 
ce 87 
44 

F 
CD30 
EOE1 
F9 7c 
3c 00 


31 
3c 
39 
P2 
39 
28 
F2 
F2 
co. 
3c 
3¢ 


EE 
7F 
30 
10 
E2 
02 
10° 
87 
87 
Te 
4&0 
0c 8&3. 
co 87 
E201 
30 36 
3D 90 
F2 81 
Cc 87 
£063 
F2 87 


- 25AUG6 


816485 


0298 


O24A 


9429 
1 
0208 
OA 
021A 


C3 
0037 


OcEs 
OA7B 
OAOC 
OE 

0D 32 
0D31 
08 

oa 

0B89 
SATB 
OS FP 
O8PE 
0c5pD 


p34 
0D3a 
09 


0222 
a 


Ms 


OAO1 
OAC2 
0493 
CA05 
SANT 
9499 
OAdC 


NAD 
OACE 
9419 


CAIC 
CA1D 
CAF 
OA 21 


O34 
0A 35 
0437 
0A39 


O8FrF 


0a75 


Oaeé 


TISAY70 


816671 


ADDR STMT SOURCE STATEMENT 


DECK 4&4 

SEQ 0 
UVWXY2 START K*a0Q®# 

TREP 


RERRERERSAEEE EERE RE He HEREEES ERLE RARERAEEEA AH EKEREE AEH EEEE OO OE EEE REE EE 
* * 
* SYSTEM/3 5203 CYCLE STFAL & HAMPER ADDRESSING TESTS * 
* * 
REAR ERERA AERA AER Ee ERS RRS EE AEE RED ER ARR EERE DEERE REE EE SO RENEE Ee 
* SECTION & |= ROUTINES 16 2 * 


12 SERRA EESEEREREREEA A TARA RES RARER EERE ARES ER ERS EERE RENE OR ER RE RRR ED 
43 bc XL2*E9438# PROGRAM IDENTIFICATION 
14 be XL1*98# FLAGS 
15 pc XLi¢1# CURRENT ROUTTNE NUMBER 
16 DC XL2*0° RESERVED 
17 pce AL2Z{RTN 4) ADDRESS OF FIRST ROUTINE PREFIX 
18 oe AL2(ERT1) ATDRESS OF ERROR RECORDING TABLE 
19 SPUDT pC XL3°FOSOCC# ONIT DEFINITION TABLE - PRINTER 
20 SPRAER REET EERE AER HE SAE EE aE ERARA EHR RES EES OR REE EERO RRE Eh EK ERR EEE EE 
27 * * 
22 * ROUTINE 7 - CYCLE STEAL TEST * 
23 * * 
24 SEREREEEERAEEREERERERA AER ERAEERE SEERA RERER EERE RRE REREE EEE ER ER EERE EE EE 
25 RIN dc XL1t yt ROUTINE NUMBER 
26 pe XL7*O°® FLAGS 
z7 de AL2(RTN2) ADDRESS OF NEXT ROUTINE PREFIX 
23 CREREGERAAER RARE RE EHPREREES REARS ES EEKEAEEENR ERASE FOES RRREE EE ED EEE SEE 
29 TBN SBYTEO, SSROS PRINT ON MPCU 
30 JF WRTIO 
37 B PRINT PRINT TITLE 
32 pe XL4*42* 
33 dc ILT*16°¢ 
34 pc AL2(TITL1} 
35 pec XL2*EOOO? 
36 NRTIO TIO BAPRT, NRDY PRINTER READY 
37 J TOGOON 
38 BAPRT TBN SBYTEO,sSSw0s PRINT ON MFCU SW. ON 
39 JF MRALT 
40 B PRINT PRINT MAKE PRINTER k EADY 
a4 pc XLi# aie 
42 Doc i11*318 
43 Bc AL2 (MAKADY) 
ay pc XL2t*EDEVS 
4S MRALT HPL X°03*, x*7c# HALT £1 
4&6 TOGOON MVI LPOUNT, X*C98 ZERO LOOP COUNT 
a7 SRSA S ERAS REE EEE EE ORKE EEE ES ON EE EEE EEE ERAN TAREE REE EOE AL REE REDE 
4B * ISSUF PRINT AND SPACE WITH SLANK DATA FIELD * 
49 RSREEE EERE EE RARER RES ORES HEHE RE EE REE EAE REE EERE EE REE RESO 
50 KZANGO LIO WEDADP, LPDAR LOAD DAR WITH WRONG ADDR. 
54 MVI FORCE¢1,X* 7F# 
52 TBP SPUDT, B*1100008# 100 LPH? 
53 JT SUNE®D 
54 SNS STAT2,X*E2?* GRAB TIMINGS 
55 TBN STAT 2-1,5° 108 HSRS.IN POS. 8-1 
56 JT LOBLWK 
57 3 SFOGR 
58 SUPERD B MODEL 
59 SFOUR MMVI FORCE¢1,X* 7c® 
60 LOBLNK MVI PRDAT, x*ace PUT A BLANK IN PRT. AREA 
61. mVC PRDAT- 1(132) ,PRDAT 
62 B NEXIO GO DO A PRINT & SPACE 
63 pc XL2* E201* 
64 ~~ SNS STAT6, X*EG6e SENSE DAR 
65 FORCE CLI STAT6 , *-* DID DAR FORCE CORRECT ADDR. 
66 JE GETIS 
67 8 HALT DAR WRONG HALT 
686 pc XL2* EQ61# 
69 J GAWAN 
O4NOV70 28nN0V75 PROG ID OE 04-3 
816768 572259 PAGE 1 
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E943 
ERR LOC 


CASA 
OAGE 
0a92 
0295 
0A99 
OA9B 


OASE 


CAA2 
CAAS 
ORAY 
OAAB 
OARE 
OAB2 
CABS 
CABS 
OABB 
OABE 
©AC2 
Nacs 
Oac9 
SACB 


OACE 
NAD2 
DADE 
Mane 
OADE 
ORE? 
CARE 
DAES 
OAFD 
OREF 
OAF2 
NAPE 
CAFS 
OAPD 
CAFF 
0802 
OB06 
oBe9 
OBOD 
OBOF 
0F12 
OB16 
0B19 
OBID 
OBIF 


©B22 
CB26 
0B2¢c 
0B30 
9B32 
9B36 
OB3A 
SB3D 
OBa4 
OB43 
0B46 
OBOR 
OB4D 
0B51 
oBS3 
0B56 


DATE 
EC NO. 


OBJECT 


30 £2 
38 10 
F2 10 
cO 87 
£062 

P2 87 
39 08 
F2 10 
co 87 
£063 

F2 87 
39 04 
F2 1¢ 
co 87 
E64 

F2 87 
39 92 
F2 10 
co 87 
ECES 

F2 87 


3C FP 
Oc 83 
Cc. 87 
E201 

39 22 
38 1¢ 
F2 10 
co 87 
E066 

F2 87 
38 08 
F2 30 
co 87 
E067 

F2 87 
39 94 
F2 10 
cd 87 
£068 

F2 87 
39 92 
F2 10 
Cc. 87 
£069 

F2 87 


3c c8 
0c 83 
cO 87 
E201 

30 £2 
38 19 
P2 1C 
co 37 
EC6A 

F2 87 
38 08 
P2 19 
cO 87 
E96C 

F2 87 
38 O48 


25a066 
816485 


PART NO. 2589957 
PAGE Wa 
5203 CYCLE STERL & HAMMER ADDRESSING TESTS 
CODE ADDR STMT SOURCE STATEMENT | 
0D 32 70 GETIS SNS STAT2,X*E2* SENSE TIMING BYTES 
0D32 71 TRAN STAT2,B* 100008 Pci ON . 
9 72 JT CHPC2 
9222 73 B HALT PC1 NOT ON APTER BLANK FIELD 
OAR 74 pec XL2*EC62¢ ERR HALT 
DS 75 J GAWAN 
0D 32 76 CHPC2 TBP STAT2,B°10008 PC2 OFF 
C9 77 oT CkHPC3 
0222 78 B HALT PC2 NOT OFF AFTER BLANK FIELD 
OAAA 79 o¢ XL 2* £06 3° ERR HALT 
cs 80 J3 GAWAN 
9D32 681 CHPC3 TBF STAT2,B8* 1008 PC3 OFF 
09 4 JT CHHSL 
0222 83 B HALT PC3 UOT OFF APTER BLANK PIELD 
OABA 84 pc XL2*E06a# ERP HALT 
B5 85 J GAWAN 
9D32 86 CHHSL TBF STAT2,B*10* HAMR.SET LATCH OPP 
09 87 JT UPCPP 
0222 88 8 HALT HAMR.SET LATCH ON AFTER BLANK FIELD 
OACA a9 DC XL2* £065! FFR HALT 
aS 90 J GAWAN 
91 FESRASKSEERERARSS HS EHOH ES SEESG HOOK AS EAHSRS EERO ESE SENS CRERE RA ER EER EEERE 
92 * ISSUE PRINT AND SPACE WITH UNPRINTASLE DATA FIELD * 
93 RARRK ERRERERERARE AEDES KEE CHEESE RAR REREES CREED cee EEREEES SEEKKAS ES hESSEEEE 
OS Pr 94 UPCPF NVI PRDAT, X*FF* INSERT AN USPPTABLE CHAR. 
O8PE O8FF 95 MYC PRDAT~-1 (132) ,PRDAT PILL PRINAREA WITE U.LP.C. 
0c59 96 B xIO ISSUF A PRINT & SPACE 
OADD 97 pc XL2*E2C 7# 
0D32 98 SNS STAT2,X*E2¢ SEBSE TIMING BYTES 
0D 32 99 TBN STAT2, B*10000* PC1 OF 
09 100 JT CKPC2 
222 4 B FALT PCT NOT ON APTER UPC FIELD 
OAEE 102 DSC XL2* BOGE# ERP BALT 
84 103 J GAWAN 
0D32 196 CKPC2 TBN STAT2.B*1006* PC2 ON 
09 105 JT CKPC3 
0222 106 B HALT PC2 NOT ON AFTER UPC FIELD 
OAFE 107 pc XL2* EC67¢ ERP GALT 
71 108° J GAWAN : 
OD32 109 CKPC3 TBP STAT2,B* 1909 PC3 OFF 
C9 410 JT  CKASL 
1222 411 B HALT PC3 ON APTER UPC PIELD 
OBOE 112 pc Z12*E068* FRR HALT ; 
61 413 J GAWAR 
OD 32 114 CKHSL TBF STAT2, B°108 HASR.SET LATCH OF 
09 115 JT GUDPF a 
0222 116 B HALT HAMR.SET LATCH OW APTER UPC FIELD 
CBI1E 117 pe XL2* ECE9F ERROR FALT 
51 418 J GAWAN 
419 MERERAESAEAERARRE ES TEESE HS RECREAEEAES ESAS REE OEE ES REERESEEAARAEEOS 
120 * ISSUE A PRINT AND SPACE WITH PRINTABLE DATA FPIELD * 
421 SERRE REREERED A SAEES SNES SS OEKREG REET OE OAS KESES DEERE EEOEDESOERDERORRERROS 
CSPF 122 GUDPP VIZ PRDAT,C*H® INSERT ANt HR? 
O8FE O8FF 123 MVC PRDAT-1 (132) , PRDAT PROPAGATE IT 
0c59 124 B xIo ISSUE A PRINT & SPACE 
9B31 125 DC XL2*E201° 
0D32 126 SNS STAT2,X*E2? SENSE TIMING BYTES 
SD 32 127 TBN STAT2,B*10000* PCT ON 
09 128 JT CHKPC2 
9222 129 B HALT PCi NOT OW APTER PRTABLE PIELD 
OBS2 130 oc XL2* EO6A? ERR AELT 
2D 431 J GAWAN oe 
0932 132 CHKPC2 TBN STAT2, B*1000* C2 ON 
09 133 JT CHKPC3 
0222 134 B HALT PC2 NOT ON AFTER PRTABLE FIELD 
OB52 135 oe XL2*E06C*# ERR SALT 
4D 436 J GAWAR 
0n 32 137 CHKPC3 TBH STAaT2,3°100# PC3 OF 
9 TIMAY7C OTNOV70 28NOV75 PROG ID CEQU-3 
816671 8 16764 572259 PAGE 7A 
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OBSA F2 10 09 138 JT CHKHSL 

OBED CO 87 0222 139 B HALT PC3 NOT ON APTER PRIABLF FIELD 

OB61 EOE OB62 140 dC XL2"EOGE® ERR HALT 

0B63 F2 87 OD 141 J GAWAN 

OB66 38 02 0032 142 CHKHSL TBN STAT2, Beine HAMR.SET LATCH ON 

OBGA F2 10 46 143 JT GAWAN 

OB6D C9 87 0222 144 B HALT HAMP.SET LATCH OFF AFTER PRTABLE 

CB71 EQ6F OB72 145 oe XL2* E06F* FIELD --ERR HALT 

0B73 CF 4 OD37 Oce2 146 GAWAN ALC LPOUNT (1) , ONE ADD TO LOOP COUNT 

0B79 CO 87 0212 167 B TEST , 

OB7D 3D 14 0D37 148 Cur LPOUNT, X'74t 20 TIMES THPU 

0B81 CO &2 OA41 14g BL KZANGO 

0285 CO 87 0216 150 B LINK GEDOUT 
151 
152 RR He a ek ae eek Re EE REAR REAR EREE RE Ree eee PERE REE 
153 * WAIT FOR wu THEN DELAY SUBROUTINE * 
154 SERRE RA ANE EEE R EK ee ee ee EE EE RE Ee ee ERE RAAEKEK ER eR Rk Ee 

QOB89 34 08 OBRBE 385 MUDEL S? MEXIT4¢3,ARR SEY RETURN 

OBBD 30 £2 p32 155 MITFG SHS STAT2, X"F2* GET TIMING 

0B91 38 01 0n32 157 TBN STAT2, Bt HAMMERS IN M4 

§B9S cO 99 4ABBD 158 BF MITES 

0B99 3c 28 CD39 159 AVI BSECS,X*28* &C MSEC DELAY 

CBOD OD FF C899 CALCD 160 WAT CcLc LPI(256) , LPI DELAY 1 MSEC. 

BA OD 3B 9800 O8Sto 161 CLc LPI (60) , LPI 

OBAQ OF 00 90D39 Oc? 162 SLC MSECS (1) ,ONE DECR. DELAY COUNT 

OBAF CO 84 OB9SD 163 BH @WAT 

O8B3 cO 87 G000 164 MEXIT 8 #-% RETURN 
165 
166 RERRESEREREAEEERE EE REEECE REE EEEE EE ER EEE ESE ERERS EAEKKREEKE SKEEREES REE REERE 
167 ™ = 
168 * ROUTINE 2 ~ HAMMER ADDRESSING TEST . 
169 * = 
97C¢ Re ee ee ee EE KEKE EK EA ER ERE AEA EARAEEEEEE ERAS KEKE REEEREEE 

ORB7 C2 OBB? 171 RTN2 DC XL7#2¢ ROUTINE NUMBER 

OBBB 99 MBBS 172 dc XL1#*O¢ FLAGS ; 

OBBS FFFF OBRA 173% ne wee rrrr- Laor nOUTI NE 
174 RERERE SEAR ERE EERE SERENE EERE He EE EEE Ee ERE REE EERE ERE ERE eee 

OBRR 20 27 wZU8 175 TBN SBYTEO, SSWC5 PRINT ON FCO 

ves? F2 90 OR 176 JF RETIO 

OBC2 CO 87 O21; 177 5B PRINT PRINT TITLE 

OBC6 42 OBC6é 178 DC XLita2e 

OBC7 10 osc? 179 bc IL1 16 ¢ 

ORCS Op11 6Bcd 86480 Be AL2(TITL2) 

JBCA ECOO CBCB 181 pe XL2* E000! 

OBCC C1 EC OBD3 182 RETIO TIO TRPAB, NRDY PRINTEP RFADY 

OBDO F2 87 14 183 J LANE : 

OBD2 38 04 0208 184 TRPAB TBN SEYTED,SSwWOS PRINT ON MFCU SW. ON 

OBD7 F2 90 OA 185 JF SBALT 

OBDA CO 87 O21; 186 B PRIRT PRINT MAKE PRINTER READY 

OBDE 41 OBDE ‘187 Dc XLU° Git 

OBDF IF OBDF 188 doc ILit34¢ 

OBEO 0D30 OBE1 189 DC AL2 (HAKADY) 

OBE2 EOE1 OBE3 190 poe XL2°*E0F1# 

OBE4 FO 7c 63 191 SHALT HPL X*0O3*,x*7c# HALT F1 

OBF7 3c G3 0Dn37 192 LANE avr LPOUNT, 3 SET LOOP COUNT OF 3 

OBEB C2 92 FFEB 193 LANES LA NEG24, XR2 LOAD A NEG. 28 

OSEF 39 16 OADC 194 TSP SPUDT, B* 1108 96 PRINT Pos, 

IBF3 F2 10 OF 195 JT FOUNIT 

OBF6 C2 02 FFE2 196 LA NEG39, XR2 LOAD A NEG.30 FOR HASR, COUNT 

OBPA 38 94 OAOC 197 TBN SPUDT,B*1008 129 PRINT POS. 

OBFE F2 10 O08 198 JT POUNIT 

0Cc0O1 C2 92 FFDF 199 LA NEG33, XR2 LOAD A NEG.33 POR HASR. COUNT 

Cco05 C2 01 O87F 200 FOUNIT LA LPD¢3,XF1 LOAD DATA AREA ADDR, 

CcO9 Uc 03 00 OCFE 204 ZIPIT- svc 9 (&,XR1) ,EXES PUT 4 X*S “IN DATA AREA 

CSE CO 87 C59 202 B XIO GO PRINT 

OC12 £201 CC13 293 pe XL2° E20 1¢ 

Oc1& cO 8&7 0212 204 - &B TEST GO READ DATA SWITCHES 

0C18 D2 OF 04 205 LA & (,XE1) ,XB1 ADD & TO DATA AREA ADDR. 

DATE 25A0G69 TIMAY70 O1TNOV70 28NOV75 PROG ID OEN4-3 
FC NOW. 816485 816671 816764 572259 PAGE 2 
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IS5M MAINTENANCE DIAGNOSTIC PROGRAM 


£043 
ERP LOC 


IC 1B 
SCIF 
0C23 
0c29 
Cc2D 


oc 31 
€c35 
9C3B 
Ccaut 
ACRE 
o9cuR 
CcuB 
Ccur 
0c51 
0cs5 


0c59 
OcS5D 
OC61 
9Cc65 
C69 
OcéD 
9C71 
AC TE 
9¢79 
oc7Cc 
0c 80 
Oc82 
CC8E6 
OCBA 
OC8E 
C92 
Cc98 
9c9c 


OCA3 
OCA9 
ocac 
“CRO 
SCBY 
OC B6 
CCBA 
OCcBE 
9cCc1 
0cc5 
§cc9 
OccD 
OcCF 
CCD3 
OCD7 
ICDS 
CcDD 


OCOF 
CCr1 
OCE3 
ACES 
SCE? 


DATE 
EC NO. 


OBJECT CODE 


36 02 
co 01 
Cr 00 
co ¢1 
cO 87 


34 08 
Oc 92 
OF C2 
F2 81 
C1 £6 
F2 87 
ce 87 
EO11 

CO 87 
cC 87 


31 £6 
36 08 
34 08 
36 98 
34 08 
34 01 
34 02 
cit £6 
Fz 87 
Cc 87 
ENC 

co 87 
co 87 
37 £0 
24:54 
0c 014 
38 80 
F2 90 
3A 08 
Oc 91 
F3 CO 
C1 £6 
co 87 
EO16 

35 02 
C1 £2 
F2 87 
36 32 
co 01 
cO 87 
£012 

35 01 
35 92 
CO 87 
0000 

9000 


0000 
0001 
OB0f 
087C 
0879 


CCE2 © 


0cd9 
0D37 
OBEB 
0216 


¢c58 
OD3Cc 
OD3c 
07 

0C 3B 


9222 


0c35 
6099 


CCF6 
OCE2 
0c 97 
OCE2 
OCDA 
OcDC 


CCDE 
Aer 


0222 


Oc 7S 
0¢c31 
fCEA 
CCE& 
CCAB 
0209 
ou 

OCAA 
0D36 
00 

OCB6 
0222 


OCEO 
ccc 


CCE2 
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NCDE 
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ADDR STMT SOURCE STATEMENT 
206 A ONE, XR2 ADD 1 TO HAMR.COUNT 
207 BNZ ZIPIT BR TO DO NEXT RAMR. 
OCE2 298 SLC LPOUNT (1) ,ONE DECR. LOOP COUNT 
209 BNZ LANFG 
210 B LINK GEPOUT 
211 
242 SHAEKSAASEHEERERAESE RARER AEKAESE SHE KOREREESAEEEEE EEE EELS FOREEHEED BAREREEE 
212 CHECK FOR BUSY & DELAY SUBROUTINE * 
274 MECKEAKSEKARAESARH SLRECKRES ESE SHRKEKES CREASES SSHKEEKEKEEHEAESEERERRESESEERES 
215 : 
216 BROUT ST BSFXIT¢3,AER LOAD RETURN ADDR. 
CCF1 217 SDC BVC BUSUB(3) ,BUSCTI STORE DELAY COUNT 
OCE2 218 FLOOP SLC BUSUB(3) ,ONF 
219 JZ TOLONG 
220 T10 PLOOP, BUSY 
221 J BSEXIT 
222 TOLONG B HALT BUSY PRROR 
0c50 223 bc XL2° EO? 
224 B soe 
225 BSEXIT B “= 
226 FERRER SEER TESEKEEERERESEEAEEEERESS FERHEEEE EEE SESESEEE EEEEE RENE CEEKEERE 
227 % EXECUTE SIO SOBROUTINE * 
228 SEERKKAERERE SEERA REEEERELERREAKEE REE EEHESE SSE OEEEESESE EEEEEOEOERE RERKEREE 
229 xIo LIO LPDADR, LPDAR LOAD DATA ADD®.S5G. 
230 NEXIO A ONE, ARR 
231 ST LOCMD¢5 , ARR LOAD PARAMETER POIBTER 
232 A ONE, ARR 
233 st PxIT¢3, ARF SET UP EXIT 
2348 st SAVWON,XP1 SAVE REG. 1 
235 st SAVTUU ,XR2 SAVE REG.2 
236 TIOCHK TIO ERNE DY, NRDY BRANCH IP WOT READY 
237 J TIOOK 
238 ERNEDY B HALT 
0c8% 239 pc XL2* EC 10? HOT RFADY ID. 
249 8B TIOCHK 
241 TIOOK B BrROUT 
282 . ._ LIO FOLG, LOFOLG 
243 LIo LPIADR, LPIAR LOAD LER ADDRESS FPEGISTER 
C020 244 LDCHD MVC CMND+42 (2) , *-* SET UP COMMAND FROM PARAHETER 
245 TSN S8YTE1, ssw0s PRINT ON RIGHT CAPR. 
246 JP © NOTRIT 
247 SBN CMND4¢1,B°1000* SET RIGH? CARR.#SOD.BIT ON 
SCAB 288 NOTRIT MYC ERT7 (2) ,CHND¢2 
249 CMND SIO xto*, xcs COMMAND LOADED DURING EXECOUrIOF 
259 TIO ISBUSY,BUSY 
251 B HALT iF NOT, BALT OW ERROR 
O0cB5 252 pc XL2*E016* NOT BUSY HALT 
253 ISBUSY L ZERO, XR2 
254 DELAY TIO BSYLP, PBBUSY PRINT BUFFY BUSY 
255 J XIOEXT 
256 BSYLP A ONE, XR2 TRY FOR ABOUT 1.5 SECONDS TO. 
257 BNZ DELAY CLEAR BUSY 
258 B HALT BUSY BALT 
OccE 259 pc XL2* ECV2¢ 
260 XIOEXT L SAVBOUN, XR4 RESTORE PEG.1 
261 L SAVTUU, XR2 RESTORE REG.2 
262 EXIT B com EXIT SUBROUTINE 
OCDC 263 SAVWUN DC IL2*0° 
OCDE 264 SBYTUU DC IL2*0¢ 
See SEK SEEAREKAEKKEKE EE ERES EESEEAREEEES SAEEKEEEEREE SEEEKEEEK GS EEESKEKE EKEEREEEE 
267 * CONSTANTS . 
268 FERRKRSEEESEEEE ESAS SESE EEE ESHEREES SE KE EHETARREEEERES DOO 4OSEEEEEEEEREER 
OCEQ 269 ZERO DC IL2* 0° Ae 
OCE2 270 ONE DC IL2¢°18 
SCE4 271 LPIADR DC XL2* 800* IMAGE ADDR. 
OCE® 272 LPDADR DC XL2*87C°* DATA ADDR. 
CCE8 273 WRDADR DC XL2* 08708 
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F043 5293 CYCLE STEAL & HAMMER ADDRESSING TESTS F042 5292 CYCLE STEAL & HEMHER ADDRESSING TESTS & 
ERR LOC OBJFCT CODZ ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEHENT t 
CcERo 707¢ CCEA 274 FOLG DC XL2"°7070¢ FORS LENGTH 112 336 * * 
CEB FVETE7E? OCEE 275 ®XES o1C CLY*xXxxxt : 339 TREP 
OCEF 040009 NCF1 276 BUSCTI DC XL3*° 480000" 340 * THE CE. SWITCH,TO OVERIDE IDLE CONTROL,HUST BE OW PRIOR TO RUNNING & 
277 eek ke ee ee mw Rk RHE ee HH Sa ME KARA SERS KAR KKK EK KEE AKASAKRKSS ERE ARKHK E 341 *PROGRAN @ 
278 * PRINTOUTS = 342 TREP § 
279 SMR ARH ARE AAREAKAAAKATE A KAK ARK KSA ASKEEEKSEREKAKKEKRERESE SKEKSEESER §- : 343 & 
NCF2 CZEBCID3CE4YNEZE2 0D91 289 TITL1 ove CLI6°*CYCLE STEAL TEST? He * * 
AC 5 E 34 TREP 
Mone Bee es CD11 a TI TL2 pe CLIG*HBMMER ADDR.TEST? om . aNs KEKKAKELARAKHALRKSVR eS CAKKEKRRVKE ARE KAESLSKSESKSARASHSRAASRSASESKRARKEKSRAHKNESSRESE i 
QDOA CUCUDOUBRERZCSE2E3 284 247 ekaen tenes 
OD12 DUCIDZCSUCFSF2P% CD21 282 pc CLI6*HAKE 5263 READY, * ; FFFF 348 END % 
NADIA F34O0D9CSCICUEB 6B 28% 4 A 
OD22 FICBCHSDS4CnDIcCSEZ OND3C 283 MAKADY Dc CLIS*THEN RESET HALT? 
AD2R CSE34CCRCID3E3 283 
2a4 KER KEK AH See ECHR KCK KKKARRKERKES KA RAEAKEAERR HAAG HAKESKEKERAKAKSEBRERZE i $ 
285 * RESERVED STORAGE * 
286 Kk he ee AERA RKMARKRRRAKEAERECKAAREKEKEKAKAKSE KEM KAKA KEE EKREKAS & 
D317 f000 op32 287 STAT2 DC XL2'C* A 
0D33 9000 OD3% 288 STATE DC XL2°¢¢ 
¢p3s CD36 289 ERT! DS cL2 
0D37 0D37 290 LPOUNT DS cL1 i 
0D38 0D39 291 MSECS DS C12 
ODA Ob3c 292 BUSUB DS CL3 
. 293 KEKE REKKKAKKSE SHEAR AKAASREKKAEKKKEKEERKEKKAKKAKAE CAS KRKESE KERKSESS VKEKE*SRR g 
294 * EQUATES * 
295 Re eke ea he AK AERA SRK EKER KARE eK SSSEKRTAAKRHKKKREKAKEKHESHRAPCKKSE SESRES SEK : 
FFES 296 NEG2G EFQU -2% . 
FFE2 297 NEG30 FOU -36- 
FFDF 298 NEG33 FOU -32. ; 
C8FF 299 PRDAT EOU xX*O0B8PF® “ 
00C8 30C ARR FOO) = x 98 ADDRESS RECALL REGISTER 
0901 301 xP1 FOU) (7 INDEX REGISTEF 1 
0092 302 XR2 FOU «62 INDEX REGISTER 2 
0899 303 LPI EQU x*8008 LINE PRINTER IMAGE AREA 
987c 304 LPD EQU x*e7ct LINE PRINTER DATA AREA 
OOF® 305 LOFOLG FOU x*EO? 
OCES 306 LPIAR EQU xX*EU* 
OCE6 307 LPDAR EQU xX*E6* 
9216 398 LINK §EQU x*2768 EXTRY TO DCP CHAIN ROUTINE 
0212 399 TEST EQU = x*272¢ ENTRY TO DCP PFEAD DATA Sw*S ROUT. 
027A 310 PRINT EQuU x*214~A® ENTRY TO DCP PRINT ROUTINE 
0222 311 HALT EQU x*222" EWTRY TO DCP ERROR HALT ROUTINE 
OCEC 312 NRDY EQU  xX*FCt 
OCE6 313 BUSY EQU  X*E6® PRINTER BUSY 
OOE2 314 PBBUSY EQU X*E2? BUFFER BUSY ae 
315 * SENSE SWITCH EQUATES 
9208 316 SBYTEO FOU x*208 DCP SENSE SWITCH AREA 
0299 317 SPYTE? EQU x*209* DCP SENSE SWITCH AREA i 
318 * CONTROL PGM SENSF SWITCHES 
ocoO&’ 319 SSWO5 FOU xOue PRINT MESSAGES ON MFCU ; 
9080 320 Ssw08 EOD x*s8ce USE 5203 RIGHT CARR. . 
321 TREP 
322 HAWKE KRE SECTION PO’ SBKRAKKBACSEKKHKSKRRARKKE RE HK -NOTE- EEK a SERS 
323 *eserakee ~ o 
324 TREP 
325 * ROUT.01 - CYCLE STEAL TEST ® BEFORE RUNNING THIS TEST, THE 
326 *ALTERNATE® 
327 TREP 
228 * ROUT.02 - HAMMER ADDR. TEST * PRINTER SHOULD BE READY, IF , 
329 * ALTERNATE® ae; 
330 TPEP 
331 * * PPINTEP IS AVAILABLE, AND a ‘ 
332 *ssw-05 ON. °F : 
332 TREP 
334 REKALERMAKKRSKEKLKSRKREAAKAKRESEKCES KEELE SEAGSSKKERSKASECE SKKERKEE KEKKKERERKRARAEREE + ; 
235 saeatenaen ay: sg 
336 TREP 
337 * 2 
DATE 25A0G69 VIMAYTO 01NOV70 28NOV75 PROG ID OF0u-3 _ DATE 25AUG69 VIMBYTO CINOVTC 28NOV75 PROG ID CEO4- 3 
EC NO. 816885 816671 816768 572259 PAGE 3 - BC RO. 816485 816679 816764 572259 PAGE 3a 


om 
weg” 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


£943 


SYSBCL 


APR 
BAPRT 
BRoUT 
BSEXIT 
BSYLP 
BUSCTI 
' BUSUB 
BUSY 
CHRSL 
CHKHSL 
CHKPC2 
CHKPC3 
CHPC2 
CHPC3 
CKEHSL 
CKPC2 
CKPC3 
c MND 
DELAY 
ERNRDY 
ERT 1 
EXES 
EXIT 
FLOOP 
FOLG 
FORCS 
FOUNIT 
GARAN 


GETIS 
GUDPF 
HALT 


ISsusy 
KZA NGO 
LANE 
LANEG 
LDOCMD 
LINK 
LOBLNK 
LOF OLG 
LPD 
LPDADR 
LPDAR 
LPI 
LPIADR 
LPIAR 
LPOUNT 
MAKADY 
MEXIT 
MHALT 
MITEG 


BRALT . 


MSECS 


M&DEL 


NEG24 
NEG20- 
NEG 33 
NEXIO 
NOT RIT 
NeEDY | 
NPFTIO 
ONE 

PSBUSY 
PRDAT 
PFINT 


DATE 
ec Wo. 


eeeeeeeoeeeeeeseeeeeeaenaasenn 


Omen bl al ol dl al dl od od od ol od et oe ee oe de ee eB 


5293 CYCLE STEAL & HAMMFR ADDRESSING TESTS 


19 


ANAF POARYPrAONArP ay rw Pw ee Oe NON P NO YO pee op 


LEN VALUE 
N01 0008 
904 OA29 
064 0C31 
008 0c55 
00% Occ 
003 OCF1 
003 ODb3c 
901 COES6 
008 OCABF 
004 (B66 
004 OB46 
stu 0856 
004 OASE 
0046 (QAAE 
N08 OBT2 
008 CAF2 
904 0392 
003 OCAQ 
094 OCBA 
O04 Cc7c 
9C2 CD36 
C04 OCER 
00& (cD? 
CCE O0C3B 
002 OQCEA 
904 OATA 
004 0Cc05 
0C6 OR73 
004 OCABA 
‘04 R22 
OO1 $222 
004 O0CBE 
oCcu CA41 
ca ORE? 
504 OBEB 
0n6  0C92 
001 0216 
094 OA66 
001 o0EFf 
COT O087cC 
002 OCE6 
OC1 OO0FG6 
OCT 0806 
0C2 CCEA 
071 «=O EU 
001 OD37 
C15 0D30 
C08 ORB3 
¢C3 OBES 
004 OBSD 
003 OA3ZA 
062 9D39 
904 0889 
001 FPES 
0C1 FFE2 
004 FFDF 
ecu 8 6o0cd5r 
006 OCA3 
007% O0FO 
008 OA22 
602 OQOCE2 
COt OOF? 
901 CS8PP 
0041 O278 
25k0GE9 
816485 


DEFN 


03950 
0038 
0216 
0225 
0256 
0276 


0292 


9313 
0086 
0142 
9132 
0137 
0976 
9681 
01174 
81048 
0199 
92489 
C254 
C238 
9289 
C275 
0262 
6218 
0274 
9065 
0209 
0146 


0970 . 


9122 
0311 


0253 
9059 
0192 
9193 
0244 
8398 
9960 
0395 
0304 
0272 
0307 
0303 
C271 
9306 
9290 
9283 
9164 
9191 
0756 
9045 
0291 
01585 


0296 . 


0297 
0298 
0239 
0248 
0312 
9036 
279 
0316 
0299 


03195 


TIMAY790 
816671 


CROSS-REFERENCE 


FEPERENCES 


C155 
00 36 
C281 
02 16% 
0258 
0217 
0217% 
0220. 
0082 
0138 
0128 
0133 
0072 
0677 
0110 
0100 
0105 
C24ge 
0257 
0236 
0018 
0201 
0233 
0220 
0242 
0c51* 
0195 
0069 
0143 
0066 
0115 
0067 
C1484 
9250 
0749 
0163 
02¢9 
0231* 
075¢ 
0056 
0242" 
0200 
0229 
cosce 
9160 


0243 


0243* 
COu6* 
9043 


0216 ©230* 0231 0232* 9233 


0221 


0216* 
0250 


0247* 0248 


024 8% 


0059* 
0198 
0075 ©0080 0085 0090 0103 


9108 0113 0118 


0073 0078 
9222 0238 


0083 0088 01¢14 
0251 0258 


0106 0117 0116 


0210 


0229* 


0160 0161 0161 


0146" C148 0192* 02088 
0189 


0155+ 


0185 
0158 
0039 
0159 
0058 
0193 


- 0196 


0199 
©9062 
0246 
C936 
9030 
0146 
0254 
O60 
C031 


O1NOV70 
816764 


0162* 


0182 
0162 


0236 
0206 0208 0218 0230 C¢232 0256 


0061* OC9N* 9095 0095" 0122" 0123 0123 
0177 0186 


0061 
00480 


28 NOVT5 
572259 


PRRT NO. 
PAGE 


0131 07136 0141 


0129 0138 0139 


PROG ID 
PAGE 


2589957 
4 


OF0D&-3 
gy 


ea 


rn 


at 
ae 


IBM MAINTENANCE DIAGNOSTIC PROGRAS 


F043 


SYMBOL 


* RETIO 


RTNI 
RTN2 
SAVTOOD 
SAVWUN 
SBYTEC 
SBYTE1 
spc 
SFOUR 
SPUDT 
sswes 
SSR0B 
STAT2 


STATE 


' SUNERD 


TEST 
TIOCHK 
TIOOK 
TITL1 
TITL2 
TOGOON 
TOLCNG 
TRPAB 
UPCPF 
UVWXYZ 
WAT 
WEOADR 
xIo0 
XTOEXT 
xP1 
XR2 


. Z2EP0 


ZIPIT 


. DATE 
- EC NO. 


5203 CYCLE STEAL & HAMMER ADDRESSING TESTS 


J 


POOP PrP OO > p & 


A 
A 
Cc 
A 
b 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
c 
Cc 
A 
aR 


LEN 


00a 
001 
961 
002 
902 
Oot 
001 
ACE 
08 
903 
Co 
001 
£02 


O02 
004 
aec1 
ofa 
Ofs 
O16 
516 
004 
008 
ona 
506 
Oct 
O0€ 
092 
any 
004 
Oct 
001 
CC2 
005 


VALUE 


OBcC 
CACD 
OBB7 
OCDE 
0c DC 
0208 
0209 
0c 35 
0A62 
Cacc 
0O04 
oc so 
9D32 


§D34 
OASE 
212 
0c75 
0C 86 
Op01 
on41 
QOa3D 
CcuB 
CBD3 
OACE 
Oadd 
BSD 
SCES 
0c59 
CCCF 
0001 
C902 
Cc £0 
0co9 


2S5a0669 
816865 


DEFN 


018? 
0¢25 
0171 
0268 
0263 
0316 
9317 
0217 
0059 
019 
0379 
9329 
0287 


°288 
9058 
0309 
9236 
0241 
9289 
9261 
3046 
9222 
9184 
9994 
90048 
9160 
0272 
C229 
9269 
9391 
0302 
9269 
0201 


TIM AYTO 
816671 


REFERENCES 


0176 
0617 
0027 
0235* 
C2348 
0c 29 
C245 
0228 
0057 
0052 
0029 
n205 
OC 5a" 
O12€# 
on6ae 
0052 
07a7 
6240 
0237 
ec 3a 
0189 
0037 
0219 
0182 
6087 


0163 
9959 
0996 
0255 
020C* 


0253 
0207 


0261 
0260 
(C38 


0194 
0038 


0055 
0127 
9965 


02Ca 


9124 
0201 


01NOV70 
816764 


0175 0184 


0197 
0175 0188 


0970* 9071 
9132 0137 


0202 


CROSS-PEPERENCE 


0076 
0142 


0205 0205" 0238 
0193* 0196* 0199% 0206% 0235 


TOTAL STATEMENTS FLAGGED IN THIS ASSESBLY = 


28NOV75 
572259 


PART NO. 2589957 } 
‘ PAGE GA 
, 7 
¥ 
¥ 
i 
Z 
& 
0081 0086 0098* 0099 0108 0109 0118 # 
0156 0157 
3 
3 
9260 7 
0253" 0256¢ 0261# 
PROG ID OF 04-3 
PAGE ua 





EGR MAINTENANCE DIAGNOSTIC PROGRAM 


Bes 3 


TRE CHARACTER 


SL 1 THROUGH 16 


GBK GBD PN 25 


Te-¥:8D 6 Bu 
Be- 255 <2 47<:0 
Ft-DOK4Q( (CK CLL 
Te-,,<?HEB*BG S. 
T4-SWHOAWOYS Ae - 
Te-_/-O™=BI" 01 
T+->*$7HGCL-BCL. 


Fe-?PC.OH - CLE 
Fe-OKU , /OHEGJa 
Be-1( *PG /.K &E 
T+-2HH> JOH*< (#5 
Te-3C<L6-cey19 3 
Te-3=8% AC., /0H 
T(E4G1;.T2<GHE<p 


Cee RK KE "SECTIO 


* ROUT.O1 = CYCL 


* ROUT.02 - HAMM 


@eeeeseeeareaevnase 


RACER T ERE AEREES KE 


PATE 
ZC NO, 


25a0G69 
816485 


CL 17 THROUGH 32 


89956 EC 572259. 
(ORG D Be*eA H 
<:C1"BXE9K ¥<ay- 
2-6X /ORSBFG2/=0 
-P{HG_LUBCL.2D x 
(<7HEB*BG S.-P"A 
RO-DOS-424R (<?7H 


2D $ /JOHS8Fa+¢ 4& 


H - CO (4&2S0HE 
(<4C/@G0C | <( (aH 


€ -35) D<Bé@ cL* 
G  19-3w(--<8Ts 
UC D<DO +H BB=H 
S8AHS 63* (GHCTNB 


RE<GD1{V. 8OPSBIL 


5293 CYCLE STEAL & HAMMER ADDRESSING TESTS 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


PRINTER CYCLE ST 
H@Z HCH*BFURECEG 
+<4H(<T-BCLG2D 7? 
NB-U24A (<?7HEBSB 
" /OHS8PP2/: HaNCT 
G*LUDCL.2D x /0H 
EB*BG S.-E?HG.L- 
70+. /CHKIIE (2B 


o X*BG "BR ymme gs 
B"=-9h-y¥<ay J0-. 
<8% ABS? /OHO( - 
HCI*6B 25¢ --<6Ts 
GACYHCHY< GUBCH? 


G &- 


AUEN "3. 0B8CR IG 


i 20h éekeudue SHREA SHARE RARE RE 
E STEAL TES? eee BEFORE. 
ER ADDR. TEST ee a PRINTER 
Pee ecrecccccccce PE ee 
SRUCRERSEREEEREE HSERENERS ORO RE KS 
TIARY7O CINOV70 28NOV75 
816671 816764 $72259 


CL 49 THROUGH 64 


EAL & HMR ADDR- 
-"<G=BSK2/168R H 
2/CL /0>I [6 0H: 31 
G S.-O7HGSLUHCL. 


"CHCH™-TRNHS<O: 


S8PT2/6D9 -42a/ 


‘RCL.2D xX /CHS8P3 


BBUG /CHO( -._Tc 
BB|HEBLBG /ZBD & 
"8T-DE-32D LB 72 
<O OBCLO<asaBz10 
AC(O8 -236; <a 
3° "ca9-260H*BHD 
” BGO H*GAC9=+K908 
D: P?T2< PNE (XEBSP 


** -NOTE- sens 


RUNNING THIS TES 
SHOULD BE READY 


IS AVAILABLE, A 


RERKAAAK KR OEKZESRES 


PART NO. 
PAGE 5 


INDICATES A BLANK COLUMN AND THE CHARACTERS b E H INDICATE NUMERIC SHIFT. 


CL 65 THRODGR 8C 


eeesteecose 


guaesuaa 
Haz HOH*BFUD=CLC 
"BL@<-OT=BI" 704 
2b X /OHSB8FI2/aN 
AC#H(<T-ECL.2D X 
IOH*BHDAZOY) J} <- 
2/148A 427 TORS 
SCLH8 64201 .TLO 
38 CAB ?Layene ¢ 
30-DE~H9C 3>0H¢ 
<87HAR@GHCC72/0, 


GBSBG S.-D<BECGP 


2589957 


CL &1 THROUGH 96 


e@eeeecvesn 


£04 30900 
~8—  EZ<E0430201 
)8-D NE8E0430002 
9A 4 M-OF0U30003 
"JOH 3$-£0430008 
H700 COME0430005 


BHD 8. E0430906 
YCLU ~,4F0430007 
BBIB :2UEC430008 
<03# 31DE0430909 
"08 79920830010 


720 4AREOG30011 


O(ER<XB<GSCKG2/08 6 -C "BDF 0430012 
“"<PYOVEE4.71%6 164° 13920430013 
TECTAWEK v7" " NED B04 30074 
SHhhee Reed ERT ERE eee 0030075 
T,THE ALTERNATE* 20430016 
» IF ALTERNATE ® 7” p0430097 
ND sS-05 on, # """""" "gous 4¢ 
RSSREER EER REREES ree 0430049 
MODES SAAR: GUSH ace 
PROG ID OE04-3 
PAGE 5 


oo 


ISH MAINTENANCE DIAGNOSTIC PROGRAS 


E043 5203 CYCLE 


CL 1 THROUGH 16 


* THE C.E. Swt 


@exueeaeoceoeceaeves 


* 
SRAEKEKERERERE AE 


EM At SE 7e#=ADCMPHS 


DATE 
EC WO. 


2520G66¢ 
816485 


STEAL & HAMMER ADDRESSING TESTS 


CL 17 THROUGH 32 


TCH,TO OVERIDE I 


VEKEKAREKKE RR ERSE HE 


Te gy SEEN IEE LCN: “iy 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


DLE CONTROL,MUST 


@eeecrtes eosrexeeen 


KEEPSAKE RGHETS EER 


“"IMEFL of oC PS asc RA 
11 MAY70 O1Nov70 28N0V75 
816671 816768 572259 


CL 49 THROUGH 64 


BE ON PpIOR TO 


w@eeeweeeseneeoesnces 


SHERHHKREREEREDD 


sec Q 


PART HO. 





2589957 


ty PAGE Sk 


CL 65 THROUGH 86 


RUNNING PROGRAS® 


AKLKSERAKKAEKAERSE 


09 260630751 


CL 81 TRROUGH 96 


LAST PAGE COC OO ee we © O08 we eee ew Oe ww we Poe we woewwcwwocowwocue 


vere’ 20830021 
meerere’* 0830022 
veeeee’* pen 30023 
20575"$aEC4 30028 
PROG ID OFE0G-3 
PAGE 5a 





SCT ES eT aRESREN EN res: So OROaIIE. * Ee ay 
$ 


é 


ee 


har 


kat 


& 3 


| fae 


Boek 





. . 2 
T8M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589959 IBM MAINTENANCE DIAGNOSTIC PROGRAM — PART NO. 2589959 
PAGE ~ 2 | PAGE 1A 
E055 DATA AND IMAGE ADDRESS REG. TEST F055 = DATA AND IMAGE ADDRESS REG. TEST + 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2 DECK 4 | OA8D 3A 08 OFOD 70 S8N DACMD141.810008 SET MOD.BIT ON 
OAOO0 3 UVWXYZ START X*AO00! i OA91 3A O08 OEAT 71 SBN DACMD2+1,B8°10008 SET MOO.BIT ON 
4 BE Re GM a ee ae A eo a a ea OR $k So toa ta ak ak ek dca aa EE 0OA95 3A 08 OF5D 72 SBN DACMD 341,8°10908 SET MOD.BIT ON 
5 * SECTION PREFACE * t OA99 3C 7F OAEF 73 MOVHAM MVI ZPRUNY4+1,X°7F? 
6 HERRERA EAE ERR EB ER I EK BO A OR OR a EEE EEE EE ' OA9D 38 80 029C % 74 TBN SBYTE4,SSW20 OPTION 1 ON? 
7 * THIS AREA CONTAINS INFORMATIGN NECESSARY FOR SECTION OPERATION. * OAAl F2 10 06 75. JT DUST > 
8 * THE PROGRAM IDENTIFICATION, FLAGS AND FIRST ROUTINE ADORESS * OAAS CO 87 1411 76 B X10 PRINT BLANKS 
9 * ARE LOADED BY ASSEMBLED DATA. THE CURRENT ROUTINE NUMBER is * OAAB E200 OAA9 77 DC XL2*E2008 
10 * SUPPLIED BY THE CONTROL PROGRAM. SECTION UDT ENTRIES ARE _ * OAAA 39 30 OAOL 78 DUST TRE SPUDT,B*110000# 100 LPM PRINTER? 
11 % DEFINED PARTIALLY BY THE SECTION SO THAT THE CONTROL PROGRAM * OAAE F2 90 12 79° JF Si0sT 
12 * CAN SUPPLY OPTION BYTES. * OAB!L 3C 7C OAEF 80 MVI ZPRUNY4+14X"*7C# 
133840 ek tke i i tek a tk dik iio i oii io tok a ike teiaiok tok $0 de ee OABS 38 80 020C 81 YBN SBYTE4, SSW20 OPTION 1 ON 
OAOO £055 OAOL 14 BC XL2°EO55# PROGRAM IDENTIFICATION OABS F2 10 23 82 JT NEVES 
OA02 00 GA02 15 D2 XLL‘O¢ FLAGS . OABC CO 87 OF9B 83 B M4DEL WAIT FOR M4 AND DELAY 
OAO03 O1 OAO3 = 16 oC XLi‘l CURRENT ROUTINE NUMBER OACO F2 87 20 - 84 J GRADAR 
OA04 0000 OA05 17 oc XL2°GO! RE SER VED 3AC3 30 E2 1549 85 SIOST SNS STAT29X*E2* SENSE THE TIMINGS 
OA06 OAOD OAOT 18 oc ALZ(RTN1) ADDRESS OF FIRST ROUTINE PREFIX y OAC7T 38 O01 15a9 8&6 TBN STAT2,B°1° ARE HMRS.IN POS. 6 
OA08 1585 OA09 19 BDC - s AL2C ERTIA) ADDRESS CF ERROR RECORDING TABLE OACB F2 10 15 87 JT GRADAR 
OAOA EOS000 OCAOC 20 SPUDT OC XL3*EO0SO008 UNIT DEFINITION TABLE — PRINTER OACE 38 80 020C 88 TBN SBYTE 4, SSwW20 LPDAR OPTION 1 ON 
21 See ete ge ae Er ne ree etre enae a ee nan rete OAD2 F2 10 OA 89 JT NEVES 
22 * OACS CO 87 1411 90 B X10 PRINT A BLANK LINE 
23 * ROUTINE 1 ~ DATA ADDRESS INCREMENTING TEST : OADS £200 OADA 91 DC XL2*E200* 
24 * GCADB CO 87 OAC3 $2 B S1osTt GO CHK.AGAIN 
25 CREE ERE ERAGE SERRE EE EEE ER RER EE AAERR AE REAR ERE EEE EATS SER AEE EERE EES OADF CO 87 OF63 93 NEVES B CRPAH GO To CHK.RESET SUBRT. 
OAOD Ol OA0D 26 RTNI oc XLi*.e ROUTINE NUMBER : 94 SSE RERSELESEENS REDE EEEAEEEERY ERAEEER EA AS EEE OEE EEREAAESE SORE RKKE SER EERKE 
OAODE 00 OAOE 27 oc AL1L*O* FLAGS 95 * CHECK DATA ADOR.REG.FOR CORRECT INITIALIZING 
OQAOF OFCS OA1O 28 pc AL2(RTN2) AGDRESS OF NEXT ROUTINE PREFIX : 96 SER ERAERRESE EASY LH REREERERSEAEERERES EEEOHEAES EES EEE KS HE EERE EOES EERE RE 
29 BRAK ERE REAL ARERR AREER ER EE EKER EEE ERE KER AE REE ERE RAE AEE EEREEE EASE EEE i OAE3 38 80 @20C 97 GRADAR TBN SBYTE4,5S5W20 LPDAR OPTION 1 ON 
OAL1L 38 04 0208 30 TBN SBYTEO, SSWO5 PRINT ON MFCU OAET F2 10 15 98 JT SAWRYT 
OA15 F2 90 CA 31 JF NRTIO : OAEA 30 E6 15AD 99 SNS STAT6eX*EG* SENSE DATA ADDR. 
OALS8 CO 87 O2Z1LA 32 8 PRINT PRINT TITLE i OAEE 3D 00 15A0 100 ZPRUNY CLI STAT6 »*-* LPDAR AT 7F GR 7C 
OAIC 42 OAIC 33 oc XL1*42¢ : OAF2 F2 81 OA 101 JE SAWRYT 
OAILD 12 OA1LD 34 oc ILL*ist OAFS CO 87 06222 102 B HALT DATA ADDR.DID NOT START Bis oe ace ne eee 
OALE 1546 OALF 35 oC AL2(TITLUL) OAFO F070 OAFA 103 DC XL2*E070? AT TF HALT 
OA20 E000 OA21 36 oc XL2*E0008 CAFB CO 87 OAT2 104 B TOGOON 
OA22 Cl EO 0A29 37 NRTIO T10 BAPRT »NRDY PRINTER READY 105 FRERUESEAEAEERAREEAARE SEARLS ER ERERREEERS SERRE SEARS ES KERR EEKEE EEE EERE KS 
OA26 F2 87 14 38 J TIPS 106 * 2ENERATE SENSE INSTRUCTIONS 
OA29 38 04 0208 39 BAPRT TBN SBYTE0,SSWO5 PRINT ON MFCU SW. ON 107 EE REREAER AES ERAE EERE EER SHENG ER RERE REE E SEES EE SS EEE EES EERE ES RKEER EERE 
OA2D F2 90 OA 40 JF MRALT OAFF 3C 0O 1405 108 SAWRYT MVI STUU,xX* 008 SET 2ND INDEXED SNS DISPL.TO ¢ 
OA30 CO 87 O214 41 8 PRINT 0803 3C 19 14Cz 109 MV I SWUN, X#*198 SET 1ST INDEXED SNS DISPL.TD 25 
OA34 41 0A34 42 oc XLi*41° ‘ OBO? C2 01 14C2 110 LA SHUN, XRI LOAD 1ST INDEXED SNS ACODR. 
OA35 22 0A35 43 oC TIL2L*34¢ OBOB C2 02 0868 Lid LA DARS142,XxXR2 LOAD START GF GENERATED FIELD 
OA36 158D OA3T 44 oc AL2 (MAKADY) OBOF 4E 00 00 14AF 112 ADTUU ALC O( 1s XR2},TWO ADD 2 T0 1ST INDEXED SNS DISPL. 
OA38 EOE! 3A39 45 ‘ i siren ites 0B14 9C 02 00 00 113 MVC O13 ¢XR2),0€,XR1) PUT INDEXED SNS IN GENERATED FIELD 
DA3A FO 7C 03 : 46 MRAL HPL x , e OB18 36 02 1481 114 A TREE, XR2 UPDATE GEN.FIELD ADGR.BY 3 
OA3D 38 20 OACC 47 TIPS TSN SPUDT,.B*100000" THISA 300 LPM PTRo? OB1C 7D FF 900 115 CLI Ol eXREDSX* FFE 1ST INDEXED SNS DISPL.UP TO 255 
OA41 F2 90 18 48 JSF LOUNT OBIF CO B82 OBOF 116 BL ADTUY IF NOTsGL 00 ANOTHER 
0OA44 3C 17 OD70 49 MVI ININLI41,X*178 0823 C2 01 14C5 117 LA STUU, XR1I LOAD 2ND INDEXED SNS ADOR. 
OA48 3C 05 OD9D 50 MVI INCONT+1,X*05# OB27 4E 00 00 14AF 118 ADTUTU ALC OfleXR1),TWO ADD 2 TO 2ND INDEXED SNS DISPL. 
OASC 3C O8 ODET 51 “VI BESSLI+1,X*08* OB2C SC G2 00 o6 119 MY¥C O13,XR2),0-XR1) PUT INOEXED SNS IN GEN. FIELD 
OASO 3C 81 QESA 52 MVI M3XT+1,X*818 0B30 36 O02 1481 120 A TREE, XR2 UPDATE GEN.FIELD ADDR.BY 3 
ae = ae OFEC es . bitte ras 0834 7D 6E 00 121 Cuil O(,XR1}9-X"6EF 2ND INDEXED SNS DISPL.UP TO 110 
A58 2 OF3A 4 Vv : +1e 0837 CO 82 OB27 122 BL ADTUTuU IF NOT 00 ANOTHER 
55 AIA TE aE Siok falc Raa oO aOR IG IOS SOK kak go dca tok oak eat 123 TRERARAREAR EE EERE SHEAR SERA EEE EE AEE OEE REE REE KE EE EE EERE RE 
56 * GET HAMMERS INTO PROPER POSITION 124 * WAIT FOR HOME LATCHy THEN ISSUE PRINTESPACE 
57 AR SR RC IR RIO SR BIO AE BR RACE REE HOR REREAD AKER 125 SEEERERER SERRE RARE EERERE CARES EAR ERE BEER ERE EERE HERRERA REREAD ERE E ROKER 
OAS5SC 32 EO 14BF 58 LOUNT LIO FOLGs,LOFOLG OB3B C2 01 oB4F 126 LA HMLOGP, XR1 LOAD 1 FOR A BASE 
9AGO 31 E4& 1488 59 Lio LPIADR,eLPI AR LOAD iSR ADNRESS REGISTER OB3F C2 02 OC4E 127 LA DARS2-15XR2 . LOAD 2 FOR A 2ND BASE 
OAG4 31 E6 1480 60 LIO LPDADR,LPDAR LOAD DATA ADOR.REG. CB43 30 £2 15aA9 128 SAN SNS STAT2,X*E2! GRAB TIMINGS 
OA6B 3C OA 1583 6l MVI LPOUNT,X*"OA? LOAD LOOP COUNT OF 10 OB47 38 10 15A8 129 TBN STAT2~1,8"°100008 PSS-1 ON ? 
OA6C CC 02 15C1 1448 62 MVC BADM3 (33, ZERO ZERO ERR COUNTERS 084B CO 96 0R43 139 BE SAN 
OA72 3B O8 OBS9 63 TOGOON SBF DOACMD+4+1,8°190008 SET MOD.BIT OFF OB4F 70 EZ 10 131 HMLOOP SNS 160sXR1),xX*E2* GRAB SENSE SYNC ON HOME LATCH 
na ] . ae = aa Wacdber et rcous eee Noe ere Bee 0852 78 023 OF 132 TBN 15(0,XR1),B1¢ HOME LATCH UP 18.24 USEC.LOOP 
+1, . 9855 DO 30 60 i133 BF O(,XR1) LooP IF NOT 
OATE 38 O08 OESD 66 SBF DACMD3+1,8°1000* SET MOD.BIT OFF 06858 F3 E2 01 134 DACMD SIO X*OL*,XtE22 PRINT AND SPACE 
eee . es a pa ia EN PRINT ON RIGHT CARR. OBS5B F2 87 0B 135 J DARS1 GO SAMPLE 
OBSE 0000 OBSF 1236 oc XL2Z2'08# SENSE AREA 
OA89S 3A 08 0859 6&9 SBN DACMD+1 2B" 1000" SET MOD.BIT Oh 0860 70 E2 10 137 SNS 16 9XR1L) X'E28 
OATE 310CT6E9 27 DEC69 20JAN70 O2MAR7O LIMAYT7O OLNOV7O O4JUN71 PROG *D OEO5-5 DATE 31L0CT69 22DEC69 20JAN70 O2MAR70 LIMAY70 O1NOV70 O04JUNT71 PROG ID OE0S-5 
EC NO. 816529 816547 £16548 816631 816671 816764 818968 PAGE 1 EC NO. 816529 816547 816548 816631 816671 816764 818968 PAGE 1A 
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; | F055 DATA AND IMAGE ADDRESS REG. TEST : 
£055 DATA AND IMAGE ADDRESS REG. TEST 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
O&30 38 O1 15A9 206 TBN STAT2,8°1° HAMMER IN M4 
OB63 78 00 10 238 TBN L6teXR1L by *-* FILLER GE34 FO SG 04 207 JF OPl 
0866 DO 10 11 139 BT L7CyXR1I 0&37 CO 87 0000 206 WHARTO 6 *—& GO TO WHERE ? 
146 He Re eae eae a he a ae he ok ae ae He a a a HR AR ROKK EKA KER REESE REE ES 1 O£33 38 80 020C 209 GP] TBN SBYTE 4, SSW20 LPDAR OPTION 1 ON 
141 * SAMPLE THE D.AeR. AT 7.62 USEC " OEBFE F2 10 OA 210 aT BLAH 
142 se Rea fe a Be a ake ae a ae ake ae ak ake eae ae ok 2 a a ok he ke ae oe ae ae a aK a he ae a ae oa a oak a a A RE a ER OF42 CO 8? 14i1 2Ui B XLO IF NOT MOVE ‘EM 
OB69 143 DARSI EQU * GE4&6 E200 OE4T 212 DC XL2*E200! 
oBEe9 OC4E 144 OS C1230 O£48 CO 87 OE2C 213 B CLIHAP 
OC4F 145 DARS2 EQU * GE4C CO 87 OF63 214 BLAH B CRPAH GO TO CHK.RESET SUBRT: 
OC4F OcBC 146 DS CL110 O£50 £O 87 0E37 215 B WHARTC 
OCBD OD66 147 DS CLI70 DE54 C2 02 OESF 216 GOM3 LA LUKPSE, XR2 LOAD LOOP ADDR. 
LG A ae a ee a a I RE a RR OK OK a RR RO RR ea ES OR a BH O£58 C2 01 1588 217 LA M3DAR,XRI LOAD SAMPLE AREA ADDR. 
149 * CHECK HAMMER POSITION M4 INCREMENTING OE5SC F3 E2 OL 2.8 DACMDZ SIG xX*O1?,X*E2* DO A PRINT & SPACE 
% VSO RR AR ee ER a ee a aR a ea a a eR a ee oe a ae a a a ae ae ee oe a at ae ae a eo Sh ae Ha Sea a OE5F 70 EZ 00 219 LUKPSE SNS OL, XRL}PeX*E2* GET TIMINGS 
OB67 C2 02 OB6A 151 LA DARS1+)9XR2Z OF62 78 46 00 220 TBN O(,XR1),B*2.06000* PRINT START EMITYER GN 
0D6B C2 O01 1L4CC 152 LA M4PSSi¢XR1L LOAD PQS. 4 TABLE ADDR. GE65 FO 99 GO 221 BE GE —eXR2} TF NOT,.LOOP 
OD6F 3C 21 1580 L53 ININLY MVE SAMLT 4,33 SET INIT.INCRe LIMIT (23 ON 300 LPM} OF68 70 ES 00 322 SNS OL g XR} 9X * EOF GRAB DAR 
4 0073 3C 00 ODe3 154 NEPSS MVE  THCHEK#+2-x'00! . SEF UNIT.DISPL.TS 5 OE6B 7D 82 06 223 CLI -OCgXR1)yX*B2° INITsINCR«82 FOR M3 
OO077 O€ OO CD83 14AD 155 DIPAD ALC THCHEK*+2i(1),0NE OEGE F2 61 25 224 JE GOAIT * 
OD7D 36 O02 14AF 156 SMAD_ A TWO 9XR2 GET1 O£ 00 1LFCL 14AD 225 ALC BADM3(1),ONE ADD TO ERR COUNTER 
0D82 6D 00 00 00 157 THCHEK CLE O(LyXRLISOCSXR2) OE77 OD 00 15C1 1482 226 CLC 8ADM3(1}y EIGHT OVER 8 ERRS ? 
0D85 Fe 81 14 158 JE INCONT OETD F2 61 OC 227 JE TMM3E 
OD88 OF 00 1580 14AD 159 SLE SAMLEM( 1)» ONE O£80 7D 8E OO 228 CLI Of eXR102X*BE* HAS IT BEEN INCRe ONCE 
OD8E CO O01 OD7D 166 BNZ SMAD O£F83 F2 &1 10 229 Jf GORIT * 
Coe ce et oeee 161 6 BAe DeALR ROTO NOT ANC RS PY he EAET CE86 7D 9A 00 230 CLI Ue KR1DAXPOAE THIS CHK.ON 300 LPM ONLY 
OD%e EOvV1 ops7 162 dC XL2ZfeO7 O£89 FZ OF OA 231 MBXT JC GGAIT,X*07# 
OD98 CO 87 OAT2 163 . B TOGOON O£BC CO B87 0222 232 TMM3E B HALT M3 ENIT.INCRsERROR HALT 
3D9C 3C 08 1580 164 INCONT MMVI SAMLIM,8 SET INCR. LEMIT (5 ON 300 LPM) OE90 E075 OE91 233 OC XL2*EO75* 
ODAO 3D OA 0D83 165 CLI  THCHEK42,X*OA® LL DeAoRe INCRe*S DONE O£92 CO BT CATZ 534 5 TOGOON 
ODA4 CO 82 ODT? 166 BL DIPAG GE96 CL ES OEY 235 GOAIT TIO GOAITT,BUSY WAIT TILL CMD. DONE 
ODAB 2C 01 15682 00 167 MVC =—- LASAVE.24,08,XR2} SAVE LAST PSS D.A.R.VALUE OESA C2 OL GEA2 236 es SOM2, xR 1 LOAD 2 START ADDR. 
ODAD 3C O& 15R0 168 AVI. SAMLIM,X*08* SEY SAMPLE LIMLT TO 8 OFSE CO BT GEL? 337 5 STRIT 
ODB1 36 G2 14AF 169 MALS A TWO~eXR2 23Q SAKAE HEARSE RARER EA KE KEE SHAKESRERES SEEKERS S SHREK ESE STREA SE SRE SERRE 
ODB5 2D O01 15B2 00 170 CLC LASAVO.25400,%R23 THES BYTE LESS THAN LAST GF PSS 539 % CHECK HAMMER POSITIGN M2 INITIAL INCREMENT 
ODBA F2 84 14 i?fi JH CHESUB . 24 Q MEEKER ERKERSAELELEEA LEAS AAAS EERAELLS REALE SSSR EEE SAE ES ASREE AE SMASH 
OOBD OF 00 1580 14AD 172 SiC = SAMLEME1} 2ONE O£A2 C2 O01 1589 241 GOM2 LA M2DAR, XR LOAD SAMPLE AREA ADDR. 
opc3 CO 01 ODB1 i732 BNZ MALS OEA6 F3 £2 O01 242 DACMD2 SIO xX*#O1!,xX*EZS DG A PRINT AND SPACE 
ODCT CO &7 0222 174 B HALT BDeA-R-DIED NOT SUBTA. AFTER PSS GEAS 70 £2 OC 243 LOKON SNS Of,¥RL} gX®*E2? GET TIMINGS 
ODCB E072 opce 175 DC XL2'EO72§ OFAC 78 46 00 244 TBN Of,XR1},8*20000Gu" WAIT FOR PRINT START EMITTER ON 
-ODCD CO 87 OAT2 176 B TOGOGN QOEAF CO 90 OEFAS 245 BF LOKON 
O0D1i $D C1 OO OC 177 CHESUB CLC Of2;XR2}e129XRLD) NOW EQUAL TO NEXT INIT.INCR. OEB3 To E2 00 346 NOYET SNS  OyXR1DeX*E2! GET TIMINGS 
ODDS F2 81 OA i78 JE SUBOK OERS 79 40 00 247 TBF Of,XRi),8"1000C00° WAIT FER PRINT START EMITTER OFF 
OUD8 CO 87 C222 179 8 HALT SUBTRe WRONG AFTER PSS OEB9 CO 90 0EB3 348 BE NOYET 
oooc E9073 oboe 180 oc XL2°EO73* HALT OEBD C2 O02 OECL 249 LA FAST, XRZ 
ODDE CO 87 OAT2 i8l B TOGOON OFC] 70 E2 00 250 FAST SNS Of yXRL}yX*E2° GET TIMINGS 
ODE2 36 O1 1486 182 SUBOK A TWLVE #XRI ADD FOR NEXT INIT.INCR. CEC4 78 40 00 251 TBN Of,XR14¢B*1000000" WALT FER PRINT START EMITTER ON 
ODE6 3C OD 1580 183 BESSLI MVI = SAMLIM, 13 SEY BETWEEN PSS LIMIT (8 ON 30C LPM) OEC7 EO 90 00 252 BE O(gXR2) 
a CDOEA 7D TF 00 184 CLI Of ,XRL} Xt TF? ALL 3 PSS*S CHECKED CECA 70 E6 00 253 SNS Ot -eXR1)eX* EG! GRAB DAR 
ODED CO Ol ODT3 185 BNE NEPSS OECD 7D 85 00 254 CLE Oly XRLigX*85! INITeINCRe 85 FER M2 
CDF1 35 02 I4AB 186 EXLENT CL ZERO, XR2 OEDO F2 821 25 255 JE TWAIT 
COFS Cl E6 OEOO 187 AGAIN TIO YALED,BUSY PRINTER STILL BUSY OED3 OF OG 15CO 14AD 256 ALC BADM2¢(1},0NE ADD TG ER COUNTER 
ODF9 C2 01 OES4 188 LA GOMSs XRE LOAD M3 START ADDRESS OED9 OD 00 15CO 1482 257 CLC =: BADM2 (2) EIGHT OVER 8 ERRS ? 
ODFD Fe 87 12 189 J STRIT OEDF F2 81 OC 258 JE TMM2E 
OEO0O 36 O02 L4AD 190 YALED A ' ONE ,XKR2 WAIT FOR 1.5 SEC. TO OFE2 7D 91 00 259 CLI Ole XRD Xt BLE HAS IT SEEN ENCRe. ONCE ? 
VEO4 CO O01 ODFS 191 BNZ AGAIN CLEAR BUSY CEES F2 81 10 260 JE TWAIT * 
OEO08 CO 87 0222 192 B HALT BUSY TOO LONG HALT QEE8 7D 9D 00 261 CLI Oly XRL) eX*9D* THIS CHK.ON 300 LPM ONLY 
OEOC £014 OECD 193 be XLZ°E O14" OEEB F2 O7 OA 262 M2xT JC TWATT,X*07! 
OECE CO 87 ODF1 194 8 EXLENT OEEE CO 87 0222 263 TMM2E 8B HALT M2 INIT.SINCReERROR HALT 
195 BR Re RE ee a he a he ae a aK eK Re a he a ea a a ah ae a eo ae a a OK a oe a I a eae a aK ae IK ee Rak He a a IK TK ee HK HH EH HH OEF2 E074 OEF3 264 DC XL2*E O74" 
196 * CHECK HAMMER POSITION M3 INITIAL INCREMENT OEFS CO 87 OAT2Z 265 B TOGOON 
LOT me he a eR a a eo Ra a eat a a aR ta Ra a a a ae a i ae aa ak ae tok ae he a ae a eae ak ak ae a EE OEFB8 Cl EG OEFS 266 TWAIT TIO TWALT »BUSY WATT TILL CMD.DONE 
' OE12 34 O1 OE3A 198 STRIT ST WHARTO43,XRi OEFC C2 01 OF04 267 LA GOM1, XR1 LOAD M1 START ADDR. 
0£16 39 30 OAOC 199 TBF SPUDT,.B*120000° 100 LPM PRINTER? OFO00 CO 87 OF12 268 B STRIT 
ere Ee 20 oF 200 JF CLIHAP 269 RAE ERR RE EEA ERE REE RK EARS KEE REE EE EEE REE RE RE KE EE EERERS ERE AE 
O€1D 38 80 O20C 201 TBN = SSYTE 4s SSW20 OPTION i ON 270 * CHECK HAMMER POSITION M1 INITIAL INCREMENT 
Of2i F2 10 28 202 JT BLAH 271 EERE EA RERE EAH RE REERKHER RAK EERE E AE EEE ERR EERE TREE LEER EEE E EEE ESE SEES 
O£24 CO 87 OF9B 203 B M4DEL WAIT FOR M4 AND DELAY OF04 C2 02 OFOF 272 GOML OLA MILOK » XR2 LOAD LOOP ADDR. 
BEeee EO et eee c . WEARTO OFO8 C2 O1 1586 273 LA  - MLDAR-1yXR1 LOAD SAMPLE AREA ADDR. 
OE2C 30 E2 15A9 205 CLIHAP SNS  STATZ,X*E2? SENSE TIMINGS 
; DATE 310CT69 22DEC69 20JAN7O O2MAR7O LIMAYTO CLNOV7O O4JUN7 1 PROG ID OE 05-5 
‘11 DATE 310CT69 22DEC69 20JAN70 O2MAR70 11MAY70 O1NOVTO 04JUN71 PROG ID O£05-5 EC NO. 816529 816547 816548 816631 816671 916764 818968 PAGE 2A 
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; : ATA A A R - Ts 
£055 DATA AND IMAGE ADDRESS REG. TEST | BO22: SRBTAD AND: AMAGE ADORESS RECs TES 
tt) €RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
: i ‘i 
C OFOC F3 E2 01 274 DACMD1 SIO xX" 01", x" E2" DO A PRINT & SPACE , OebS ao revnare zr pie Sqeeer tudes ieeteace 
OFOF 70 E2 01 275 MILOK SNS  1(,XR1),X*E2* GET TIMINGS ee ge ae Sace (eenas 
$s e t 
r ae E 5a ao . co ues ne BERGER SORMRER SLANE \ OFDC 3C 39 OFES 345 MVI TECHBI,x"39° SET TO CHK BIT OFF 
: eae ; OFEO 30 £3 15AB 346 SENAT SNS  STAT3,X*E3° GRAB STATUS 2 
OF18 70 E6 O1 278 SNS -14 9 XR) gX*ES GRAB DAR 
pe OFE4 38 04 15AB 347. TECHBI TBN STAT3,8°1008 48 CHAR.BIT ON OR OFF 
OF1B 7D 7C 02 279 CLI 14g XRLDEX*7C INIT.INCR.7C FER. M1 : 
BEE ED lai oe ah a Susy OFE8 F2 10 17 348 JT OKYDOK 
OF21 OF 00 15BF 14AD 281 ALC BADM1(11, ONE ADD TO ERR COUNTER See es esa ate i. Gao” CENA CR ESM Ss ON 
OF27 OD 00 15BF 1482 282 CLC BADM1 (1), EIGHT OVER 8 ERRS 7 Beco coat Ook acy : epee Je Ny CUI NCOR KUNE ERR 
pret Ee aL Oe eee ee ee OFFe C1 OFF6 352 pc XL C1" 
OF30 7D 88 O1 284 CLI 1 (9 XR1),% "88° HAS IT BEEN INCR. ONCE _ 
OF33 F2 81 10 285 JE SUSY * OFF? 1A O.F? 353 DC L1°26! 
OFFA EOOE OFFB 355 DC XL2*EOOE* 
OFC CO 87 0222 28a THMIE BO OHALT ML INIT.INCR.ERROR HALT ore ee oh eee 220 say. xe HALT SnPU CUR stan 
OF40 E079 OF41 289 DC = XL2 "E0798 ebetedeatats ROOR saat OC =—sRL2 PEOOE® | 
OF42 CO By OAT? 290 6 TOSOON 1002 38 04 0208 358 OKYDOK TBN SBYTEO,SSWOS PRINT ON MFCU 
OF46 Cl £6 OF46 291 SUSY TIO  SUSY,BUSY WAIT TILL CMD. DONE poe fe 2008 ot WF REVI 
- OFSA CO BT O212 292 8 TEST 1009 CO 87 O21A 360 B PRINT PRINT TITLE 
OF4E 38 80 020 293 TBN  - SBYTE4,SSW20 OPTION 1 ON oe is see be re artes 
OF52 F2 10 OA 294 JT LORIS _ 
ic OF55 OF 00 15B3 14AD 295 SLC ——- LPOUNT (1) , ONE ALL HMR.POS*S TRIED 10 TIMES LOOF 1559 1010 363 bc AL2(TITL2) 
ona OF5B CO 01 OAAA 296 BNZ DUST 1011 E000 1012 364 bc XL2°E 000? 
1013 Ci EO 101A 365 RETIO TIO TRPAB,NRDY PRINTER READY 
OF5F CO 87 0216 297 LORIS 8 LINK ’ 
Cc 298 FREKAEEEA TERE ERE REERERERES AREER ER EEE AEREREK EAE SEER EE KEKE ERERE BEES ED 1017 F2 87 36 ooo J TNUGL 
299 * CHECK RESET PROMPTING AND HALT SUBROUTINE (LPDAR OPTION 1) LOLA 38 04 0208 367 TRPAS TBN SBYTEO,SSWO5 PRINT ON MFCU 
BOO FARE REE RE ERE EERE ERE ER AER EEA REE EAEEEE ERE RE REE EE EES EES 1O1E F2 90 OA 368 JF MHALT 
“ + OF 63 34 08 OFIA 301 CRPAH ST SEXIT#3 4 ARR SET RETURN ADDR. 1G2Z1 60-87 O2tA 369 6 eae 
OF67 38 04 0208 302 TBN SBYTEO, SSWO5 PRINT ON ALT.DEVICE feos os Toon a ee a reaas 
OF6B F2 90 08 303 JF ESVEN i 926 2 c 
OF62 CO 87 O2Z1A 304 B  . PRINT PRINT-CHECK RESET INSTR. ; 1927 158D 1028 372 DC AL 2(MAKADY) 
OF72 O1 OFT2 305 oc XL1*O1® 1529 EOE1 LO2ZA 373 BC XL2*°E0E1°® 
OFT3 34 OF73 306 BC IL1*S2¢* 192B FO 7C 03 374 MHALT HPL X*03% .X*7C# HALT EL wes 
OF74 158D OF75 307 oc AL2(MAKADY) 1G2E£ 38 20 CAOC 375 TBN SPUOT,8*100000? 
OF 76 FO 7C 07 308 ESVEN HPL X#07",X*7C* CHECK RESET HALT bese Fe 2 050e oi ERS oe: 
OF79 Cl E6 OF79 309 NIPS TIO NIPS»BUSY MUST BE NOT BUSY face eee ate My, NEL A aee 
OFTD 3C 28 15AF 310 MVI  -HAPOIN, X* 28% DELAY 40 MSEC COUNT eae 30-09 tee 208 oe, aeeee ee, 
OF 31 OD FF 0800 0800 311 TAW CLC LPI(256),LPI DELAY 1 MSEC 103D 3C 08 1392 379 MVI 0 BTSSLI4+1 4x98 
-OF87 OD 3B 0800 0800 312 CLC = LPI( 60) ,LPI eee 380 J TAUOL yao 
f OF8D OF 00 15AF 14AD 313 SLC HAPOIN(1),ONE DECR.DELAY CCUNT soca Se an ed oe ERHTKS ui tetaes i eeces 
"eta OF93 CO 84 OF81 314 BH TAW : 
OF97 CO 87 20000 315 SEXIT 8 —% 104C 3C OD 1392 283 MVI BYSSLI¢1,x*oo?* 
l BG SRA Ea I a a HR ROR RE OR OE EO EEE EE ED ER EKER EAE KE BBL FREER AREEE ERE REE SASHA EERE AER AE EAE RE REARS EEE EERE ESS ERAS REE OE REE 
317 * WAIT FOR M4 THEN DELAY SUBROUTINE * 385 * GET HAMMERS INTO PROPER POSITION 
BB ete dete fea tk te oak RO RE SR RR ROE RAE RE RRR ERA EEES ONE ERR 386 EERSTE ENED NEP EAR TATE SETA S ERS TESA CEES GS EVER ES SSS LISS SES AER RSENS CHORES 
OF9B 34 08 OFCB 319 M4DEL ST HEX IT 43, ARR SET RETURN 1050 31 EO 14BF 387 TNUOL LIO FOLG,LOFOLG LOAD FORMS LENGTH 
OFSF 30 E2 15A9 320 GETIM SNS  STAT2<X"E2? GET TIMING 1054 31 Ee 1480 388 L110 LPDADR,LPDAR LOAD DATA ADDR. REG. 
OFA3 38 01 15A9 321 T8N  STAT2,B°1° HAMMERS IN MG 1058 3C OA 1583 289 MVI  LPDUNT,X*OA? LOAD LOOP COUNT OF 10 
OFAT CO 90 OFSF 322 BF GETIM 105C 38 08 10F6 390 SBF  1ACMD4+1,B"1000? SET MOD.BIT OFF 
OFAB 3C 32 15AF 323 MVI- HAPOIN, x*32* 50 MSEC DELAY 1060 38 80 0209 391 TBN S8YTE1,SSWO8 PRINT ON RIGHT CARR. 
: OFAF OD FF 0800 0800 324 WAT CLC LPI(256)yLPI DELAY 1 MSEC eee ee 20 oF 276 dee - EEE aks 
f OFBS OD 38 0800 0800 325 CLC LPI(60) sLPI 1057 3A 08 10F6 393 SBN IACMD4+1,8"1000 SET MOD.BIT ON 
red OFBB OF OO 15AF 14AD 326 SLC ~ HAPOIN(1),0NE DECR. DELAY COUNT 1066 CO 87 1411 394 HERE 8 a tC: ; PRINT BLANKS 
is ores a ay iceas a " ial Tai og a6 OAOC ee gee SECIT cee epuat cri 16060" 100 LPM PRINTER? 
© 87 0000 328 MEXIT B *—* RETURN . 
329 1075 F2 90 O07 397 JF NOMCOD 
330 1078 CO 87 OF9A 398 8 M4DEL WAIT FOR M4 AND DELAY 
c 331 107C F2 87 15 399 J TYRWAS 
BIL SHORES AEH RARE ARK BO RR EERE REAR EEE AE AEE ER ARERR REE EAD EEE ER REE ER 1O7F 30 E2 15A9 400 NOMGD SNS STAT2sX*E2® SENSE THE TIMINGS 
333 * . 1083 38 01 1549 401 TBN «= STAT29B°2? ARE HMRS.IN POS. 4 
334 * ROUTINE 2 - IMAGE ADRRESS INCREMENTING TEST * 1087 F2 10 OA 402 JT TYRWAS 
335 * ‘< 1C8A CO 87 1411 403 B X10 PRINT A BLANK LINE 
BBG RI a oe i tt fa te ea RR hE EE OE SO RE dO eR 108E £200 LO8F 464 oc XL2°E 200° 
OFC 02 OFC9 337 RTN2 DC xLL¢2¢ ROUTINE NUMBER 1096 CO 87 LOTF 405 B NOMCD 
OFCA 00 OFCA 338 DC XL1"o* FLAGS 406 FERRER ER ARE ET EERE EEE EEK SRE E RHR EERE REESE EE EERE EEE RE REE RE RE 
; OFCB FFFF OFCC 339 DC XL2°FFFFS LAST ROUTINE IN SECTION “07 * GENERATE SENSE INSTRUCTIONS 
" 34D FA a ee SS A So A So fe aI So kk a OK RO EE SOG FH RH Ha RR MR Bea He a a a A a a ae a oR ao a he OR Re a Rk 
OFCD 38 80 020C 341 TBN SBYTE4, SSW20 OON'T CHK IMAGE 1F OPTION 1 IS ON 1094 3C FE 14C8 409 TYRWAS MMVI ITUU, X*FE* SET 2ND INDEXED SNS DISPL.TO 254 
DATE © 310CT69 = 22DEC69 «= 20JANTO. ~—«s2MARTO.—«LMAYTO O1NGV70 =»: O4 JUNT1L PROG ID 0£05-5 ‘DATE 310CT69 = 22DEC69 = 20JANTO = O2MARTO=—-LEMAYTO. = OLNOV7O = 04J UNL BEDS E0 SE Gee? 
: EC NG. 816529 816547 816548 816631 816671 816764 818968 PAGE 3 EC NO. 816529 816547 816548 816631 816671 816764 818968 PAGE ne 
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ERR LOC OBJECT CODE ‘DDR STMT SOURCE STATEMENT 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
138D CO 82 1361 478 BL ICTAB 
1098 3C 10 14C8 410 MVI TWUN, X*id¢ SET 2ST INDEXED SNS BISPL.TS ie 1391 3C 00 1580 479 BYSSLE MVE SAMLIM, #-# SET BETWEEN PSS*S LIMIT TO 13 OR 8 
109C C2 O01 14€8 414 LA TWUN, XRI LOAD iST INDEXED SNS ADDR, 1395 36 GL 1484 480 A LEVEN,XRI ADO TABLE DISPL.TO TABLE ADDR. 
10AC C2 02 OFF 412 LA TARS14+2-XR2 LGAD START OF GENERATED FIELS ' 1399 36 02 i4AF 481 NAGOR A TWO, XR2 ADD TO SAMPLE ACDR. 
10A4 4E 00 00 14AF 413 UUTDA ALC Of LeXRL}, TWO ADM 2 TO 1S¥ INDEXED SNS GESEL. 1390 6D 90 901 00 : 482 CLE LUESXRL PS OCXKZE SEARCH FOR NEXT INIT.INCR. 
10A9 9C 02 00 00 ~ 414 MVC 603 -XR22,0¢,XR1} PUT INDEXED SNS IN GENERATED FIELS 13AlL £2 6&1 13 483 JE DUNAL 
10AD 36 O02 1481 415 A TREE, XR2 UPDATE GEN.FIELD ADDR.BY 3 L3ZA& OF 00 1580 14AD 484 SLC SAMLIMO1),GNE DECReLIMIT 
10B1 7D FE 00 416 CLI O€sXRLY Xt FE IST INDEXED SNS DISPL.UP TO 254 13AK CO Gi 1399 425 BNZ NAGOR 
10B4 CO 82 10A4 417 Bt UUTDA L3AE CO 87 3222 436 HALT PSS INIT.LENCR.ERRGR HALT 
10B8 C2 01 14CB 418 LA TTUUs XR1 LOAD ZND INDEXED SNS ADDR. 1362 E078 1383 4a7 oc XL2*E078! 
10BC 4E 00 00 14AF 419 UTUTDA ALC OlLsXRL},THWO ADD 2 TO 2NC INDEXED SNS DISPL. 1384 F2 &T OB 488 3 NUSAM 
10C1 9C 02 00 90 420 MVC OU3ByXRZ}5 00 gXR1} PUT TNOEXED SNS IN GEN. FIELD 1387 7D 60 00 489 DUNAL CLI OC sXR1L} g*~* ALL PSS*S CHACKED 
10C5 36 62 14B1 421 A TREE,XR2 UPDATE GEN-FIELD ADDR.BY 3 1384 €9 O21 1350 4906 BNE ITZRO 
10C9 7D 78 00 422 Chi O€,XR1}) 5X? 78° 2ND INDEXED SNS DISPL.UP TO 120 138E CO 87 0212 491 B TEST 
1O0CC CO &2 1OBC 423 BL UTUTDA 13C2 35 02 1448 492 NUSAM L ZERO, XRZ WAIT TILL NOT BUSY 
GOG RR Re ROR ok ee ok ke otk ok ak eke dak ot doko £ eft Sok ok ok ok sak bok Rate ak Se 13C6 C1 E6 13CD 493 BUTIG T190 BULOP, BUSY 
425 * WAIT FOR HOME LATCH,YTHEN ISSUE PRENTESPACE 13CA F2 87 OF 494 J SICEM 
426 Me ERK A a ae a ee ae ke a RK a ER Rk RR tok RRO RR Ek RE RARER REE RK RE 13CD 36 02 14AD 495 BULGP A ONE, XR2 
10D0 31 F4 14FB 427 Lid LPTADR-eLPEAR iLCAD LSR ADDRESS REGISTER 13DL CO O02 243C6 £96 BNZ BUTIO 
10D4 3C FF G87F 428 AVI LPDt3,X"FFE® PUT UPC IN M4 132D5 CO 87 0222 497 B HALT 
10D8 C2 O1 10EC 429 LA POOLMH,XR1 LOAD i FOR A BASE L309 EO1L 13DA 498 pc XL2*EG11" 
10DC C2 02 LLEC 430 LA TARS241,XR2 LOAD 2 FOR A 2ND BASE 13DB OF CO 1583 I4AD 499 SICEM SLC LPGUNT( 1) ».ONE GONE THRU 10 TIMES 
1OEO 30 E2 15A9 431 NAS SNS STAT2,X*E2° GRAB TEMINGS L3E1 CO O01 LOTl 500 BNZ SECIT : 
10E4 38 10 15A8 432 TBN STATZ-1.Bt10900! PSS-1 ON ? 13E5 CO 87 0216 501 BLINK 8B LINK 
10E8 CO 90 10E0 433 Be NAS . SOQ SRE ERE RR ERE KR ERK EEE ER AREER LAER AK ATER RREKEKERASEEE EREEEEERE 
lOEC 70 E2 10 434 PDOLMH SNS L6CyXRIBSX*EQ? GRAB SENSE SYNC ON HOME LATCH 502 % CHECK FOR BUSY & DELAY SUBROUTINE 
LOEF 78 O1 OF 435 . TBN 15(-XR1},BFLt HOME LATCH UP 18.24 USEC.LOOP SOS Re Bae Be a a ea Me ee ee aR ae ee ea I oe oe oe ap a a ee oe a ak a ok a aca a ae eR a ota a A A sea aka te 
LOF2 DO 90 00 436 BF Of ,XR1L} LOGP fF NOT 13E9 34 98 1410 505 BROUT 5ST BSEXIT+3, ARR 
10F5 F3 E2 O1 437 TACMO $19 X*GE® Xt Eo! PRINT AND SPACE. 13ED OC 02 156E 1489 506 SDC MVC BUSUB( 3}, BUSCTE STORE DELAY COUNT 
10F& DO 87 12 438 B 17 eXRL) GO SAMPLE L3F3 OF O02 15BE 14AD 507 FLOOP SLC BUSUB(33,O0NE 
10FB o0co 10FC 439 oC XL2tae SENSE AREA L3F9 F2 8? O07 508 2 TOLONG 
440 2 ep He ee Se ee ee oe ee oe a a a Se a a he a a a a a a a a oa ee a ae a ate Spc oe ea ae a kaka ok desk ke L3FC Ci £6 L3F3 503 Tio FLOOP, BUSY 
441 % SAMPLE THE EeAeRe AT 7.62 USEC 1406 F2 87 OA 510 J BSEXKIT 
442 Hes Oe a Re ae he ae ae ae hee a he ea eR ae Re a Ee ae a oh he ak a ae ao ae ok ee oe sae ae kek ob ok ok oe Re ae a da ae ok dak 3463 CO Raf 9222 5t1 TOLCNG B HALT ERROR HALT 
10FD 443 IARS1 EQU # 1407 EOL1 i408 512 DC KXL2"°EO12° BUSY ID. 
, 1OFD LEA 444 OS CL238 1409 CO 87 13ED 513 B SDC TRY AGAIN 
LEB 445 IARS2) EQU * 140D CO 87 O000 51% BSEXIT 8 xe 
LLEB 1250 446 : BS CLic2 515 He SR Ee Be ae eo ee eh oe ae he ah Re he Se he he ee he OR he hE he Bie I a a A He he he OR RR eR I ic Oe oho eat oh a ake ae ae a a 
1252 1318 447 DS cL200 516 * EXECUTE SIO SUBROUTINE 
“L319 3€C 40 O8T7F 448 MMVI LPD043,X*40? BLANK UPC SLT Se he he 2b ae oie ae ee ae ee ae a a ae he ae a fe a ae ae ae ae oe ae a oe a ee RR Re oe Rk ok eo ak ee aka dk a ak sa doe 
1310 3€ 28 1388 449 MVI DUNAL4+1,X"28¢ SET 48 CHAR.STOPPER 1411 36 O8 1445 518 XIo A GNE »ARR 
1321 C2 61 14F9O 450 iA PS148-1,XRi 1415 34 08 1443 519 ST LOCMD49~-ARR LOAD PARAMETER POINTER 
1325 30 £3 15A8 451 SNS STAT3,X*%E3° GRAB STATUS BYTES 1419 36 08 14AD 520 A GNE,ARR 
1329 38 04 15AB 452 TBN STAT3,8* 1008 48 CHAR.BIT ON 141D 34 08 14A4 521 St EXIT4#3.ARR SET UP EXIT 
132D F2 10 08 453 JT SKUCS 1421 34 G1 14A6 522 ST SAVWUN sXRI SAVE REG. 1 
13320 C2 01 1512 454 LA PSLUCS—1LeXRL MUST BE UCS 1425 34 02 14A8 523 ST SAVTUU » KR2 SAVE REG.2 
1334 3C 58 13B8 455 MVI DUNAL +14_X* 55° SET UCS STOPPER 1429 C1 EO 1430 524 TYOCHK TIO ERNRDYs NRBY BRANCH IF NOT READY 
1338 C2 02 LOFA 456 SKUCS LA TARSi—-3 9XR2 142D F2 87 OA 525 J LDOCMD 
133C 3C 00 1586 457 INELI MVE SAMLIM,*—* SET INET. TO 33 OR 23 1430 CO 87 0222 526 ERNRDY B HALT 
1340 36 02 14AF 458 UPTWG A TWO,XR2 1434 E010 1425 527 oc XL2*EO10? NOT READY FO. 
1344 BD 02 02 459 CLI 2t_eXR2) eX O28 INIT. INCR. G2 STILL 1436 CO 87 1429 © 528 B TIOCHK 
12347 F2 81 13 460 JE 1T2Z20 143A CO 87 13E9 529 LOCMD B BROUT 
134A OF 00 1580 14AD 461 SLC  SAMLIME€1},ONE DECR. LIMIT 143E OC OF 1458 0000 530 MVC CMND¢2Z€2),4%-* SET UP COMMAND FROM PARAMETER 
1350 CO 01 1340 462 BNZ UPTWO 1444 3B O08 145A 531 SBF CMND4+1,8*10008 SET MOD.8ET OFF 
1354 CO 87 0222 463 g HALT PeAceRe DID NOT START 1448 38 80 0209 532 TBN SBYTEi,s SSWO8 PRINT ON RIGHT CARR. 
1358 E076 1359 464 pC XL2*E076# AT O62 HALT 144C F2 906 04 533 JF NOTRIT 
135A F2 87 65 465 J NUSAM 144F 34 08 145A 534 SBN CMND+156*10008 SET RIGHT CARR. MOD.8IT ON 
235D 3C 00 1371 466 ITZRO MVE CHK INC +2—¢X*00° SET INIT.OISPL-TO G 1453 OC O01 1585 1458 525 NOTRIT MVC ERT1€235,CMND42 
1362 3C OO 1580 467 ICTAB MVI SAMLEM,*-* SET INCR. LIMIT TO 8 OR 5 1459 F3 00 00 535 CMND SIO X*G?# ox*Qr COMMAND LOADED DURING EXECUTION 
1365 O€ OO 1371 14AD 468 ALC CHKINCG+2t1)-ONE AOD YO OFSPL. 145€ Cl E6 1466 537 TIO ISBUSY, BUSY es 
136B 36 02 14AF 469 ROGAN A TWO,XR2 ADD TO SAMPLE ADDR. 1460 CO 87 0222 538 B HALT 1F NOTs RALT ON ERROR 
136F 6D 00 Oc 900 470 CHKINC CLC GlLsXR1},06 eXR2} SAMPLE EQUAL TO TABLE INCR. 1464 E016 1465 539 Nc XL2*EO16& NOT RUSY HALT 
1373 F2 81 13 471 JE tTSCK 1466 35 02 14AB 540 ISBUSY L ZERO, XR2 _ 
1376 OF OG 15B0 14AD 4&V2 SLC SAMLIM(i),QNE DECReLIMIT 146A Cl E6 1471 541 DELAY Tia eeu serey PRINTER STILL BUSY 
i37C CO O1 1368 473 BNZ ROGAN 146E F2 87 OF 542 J x 
1380 CO 87 0222 474 B HALT TeA.R.DID NOT ENCR. 1471 36 02 14AD 543 BSYLP A ONE ¢XR2 TRY FOR ABOUT 1.5 SECONDS TO 
1284 £077 1385 475 pc XL2°E077# BY 8 HALT 1475 CO 01 146A 544 BNZ DELAY CLEAR BUSY 
1386 F2 87 39 476 J NUSAM 1479 CO 87 0222 545 6 HALT 3USY HALT 
1389 3D OB 13713 477 ITSOK CLI CHKINC4#2,X*0B8 1L T.A ReINCR. DONE 
DATE 310CT69 22DEC69 Z20JANTO O2MART7O LIMAYTO OCLNOV7O O4SUNTL PROG 10 oor? 
DATE 310CT69 220EC69 205ANT70 O2MARTO 1iMAYTO OLNOV7O O4JUNTL PROG ID GEO5-5 EC NO. 816529 816547 16548 816631 816671 216764 818968 PAGE 
EC NO. 816529 816547 816548 816631 816671 816764 818968 PAGE 4 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589959 | 
c PAGE 5 | 
= E055 DATA AND IMAGE ADDRESS REG. TEST * 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
i 
c 147D E014 147E 546 DC XL2"°EOL4* * 
147F 3C 80 1SAF 547 XIOEXT MVI HAPOIN, X* 80! LOAD DELAY COUNT OF 128 i 
1483 OD FF 0800 0800 548 wT CLC =LPI(256),L PI DELAY 1 MSEC. i 
: 1489 0D 3B O8CO 0800 549 CLC =LPI(60)-LPI : 
148F OF 00 15AF 14A0 550 SLC HAPOIN(T) » ONE CECREMENT DELAY COUNT 
1495 CO 84 1483 551 BH wT : 
1499 35 01 14A6 552 L SAVWUNgs XR1 RESTORE REG.1 
1490 35 02 14A8 553 i SAVTUUs XR 2 RESTORE REG.2 
14A1 CO 87 0000 554 EXIT 8B -* EXIT SUBROUTINE 
: 555 
a 1445 000C 14A6 556 SAVWUN DC IL2*0o8 
14A7 0000 14A8 557 SAVTUU DC IL2*O* 
e 558 ee RE RCH a EH ERAS KKK AEA AK ECE SESE RHEKKE AAR EKA KKESVEAKSKERHEE KSEE KKEKSES 
559 * CONSTANTS : 
560 FHSS Re KK ERKELEAKKEKKKAKETHEAASEKREKREKEKSEKEAKKEE KES KEKE EKKKEAKKEKKHEKSEESES 
1449 00 14A9 561 pc IL1*o# 
14AA 0000 14A8 562 ZERO OC It2*o¢ 
14AC 0001 14AD 563 ONE oc IL2¢1¢ 
- 14AE 0002 14AF 564 TWO oc 1L2¢2¢ 
1480 0003 14B1 565 TREE OC TL2*38 
1482 08 14B2 566 EIGHT DC ILi¢s* 
“ 1483 0008 1484 567 LEVEN OC IL2*3i? 
1485 OOOC 1486 568 TWLVE CC IL2*12" 
1487 040000 14B9 569 BUSCTI DC XL3*40000" 
L4BA 0800 1488 570 LPIAOR DC XL2*800* IMAGE ADDR. 
14BC O87C 148D S71.LPDADR OC XtL2*87C? 
14BE 7070 14BF 572 FOLG oC XL2*7070# FORM LENGTH 112 
os 14CO0 TOE619 14C2 573 SWUN DC XL3* 70E6198 
‘Et 14C3 BOE6O0O 16C5 574 STUU DC XL3"*BOE6008 
14C6 70E410 14C8 S75 TWIN DC XL3"*7OE410° ; 
14C9 BOESFE 14€B 576 ITUU DC - XL3"*BOE4SFE® 
14CC S77 M4PSS1 EQU) * 
14CC 7FSB97A3AFBBCT7D3 1403 578 DC XL8*7FBBO7ASAEBBC7D3" DAR VALUES FOR HMR.POS.4 PSS 
14D4 DFEBF7 1406 $79 DC XUL3"DFEBFT* 132 PP 
1407 08 14D7 580 DC xXL1*°08! 
1408 838FSBA7B3BFCBD7 14DF 581 BC XL8"838F9BA7TB3BFCBD7T® DAR VALUES FOR HMR.POS.4 PSS2 
14E0 E3EFFB 1462 582 oC XL3°E3EFFB? 132 PP 
14E3 08 1463 583 DC XL1*08" 
-14E4 S7939FABB7C3CFDB 1468 584 pc XL8* 8STO3SFABBTC3CFDB* DAR VALUES FOR HMR.POS.4 PSS3 
14EC ET7F3FF 14EE 585 bc XL3*E7E SFE 132 PP 
“ASE 14EF O87F 14FO 586 DC XL2*°O87F* 
587 
14Fl 588 PS148 EQU * 
14Fl 020A121A222A020A 14FB 589 DC XLIL*OZ0AL2ZLAZZZA02Z0AL2Z21A22* TsAeReVALUES 
14F9 121A22 589 
14FC 0500151D252D050D 1506 590 DC XL11°0500151D25200500151D25¢ 48 CHAR.SET 
1504 151025 590 
1507 0810182028006810 1511 591 Dc XL11"08 10182028000810182028' 
150F 182028 591 
1512 03 151Z 592 pc xL1°03? 
1513 593 PS1lUCS EQU) * 
1513 020A121A222A223A I51D 594 pc XL11L*020A121A222A323A424A52* 1. eReVALUES 
1518 424A52 594 . 
151€ 050D1510252D353D 1528 595 pc XL11*050D151025203530454D55" U.C.Se 
1526 454D55 595 
1529 0810182028303840 1533 596 DC XL11°0810182028303 840485058 * 
1531 485058 596 
1534 03 1634 597 Dc xXL1°0O3° 
598 RKREEKKEKRAKKEKKKKHE AKRAEAKHAHS HY AKSSSEKKKHEK EEK ESE ERAKAKERHEKEKE SEAREKEKEKKAEAKKEEESE 
599 * MESSAGES 
€00 MEKEAKKHKKAKKEKRRKKE CARES SEKHKKAKSERKAKHHE KEK KEKE SEEK AHKKRAKKEEKETKKAKKEKE KEE EKKEKES 
1535 C4CLE3C140C1C4C4 1546 601 TITL1 OC CLIB*DATA ADOR.REG.TEST® 
153D D94BDSC5CT4BE3C5 601 
: 1545 E2E3 601 
oe 1547 C9D04C1C 7C540C1C4 1559 602 TITL2 OC CLIO" IMAGE ADOR.REG.TEST ® 
154F C4D94B09C5C74BE3 602 
1557 CS5SE2E3 662 
155A DTD9C5E2E240C3C8 156B 603 DC CLIB*PRESS CHECK RESET» ® 
DATE 310CT69 22DEC69 ZOJANTO O2MAR70O LIMAYTO O1NOV7O O4JUNTI PROG 1D GE05-5 
EC NO. 816529 816547 816548 816631 816671 816764 818968 PAGE 5 
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18M MAINTENANCE DIAGNOSTIC PROGRAM» 


E055 
ERR LOC 


1562 
156A 
156C 
1574 
157C 
LS7F 
1587 
158E 
1596 
159C€ 
15A4 


15A8 
i5AA 
15AC 
1 5AE 
1580 
1581 
1583 
1584 
1586 
1588 
158A 
15BC 
158F 
15C0 
15C1 


DATE 
EC NO. 


OBJECT CODE AGDR 
C5C3D240D9C5E2C5 
E366 
FSF2F OF 34004ESE2 LSOTE 
E340C2C540D9C5C1 | 
C4E86B 
ESC8C50540B9C5E2 1580 
C5E340C8C1D03E3 
C9D4C1C 705405040 1598 
C3C8C1C90540 
C4D640D05D5E 340C1 15A7 
c709C5C5 
0000 1L5A9 
1S5AB 
0000 1540 
0000 15AF 
00 1580 
0000 1582 
1583 
1585 
0000 i5BT 
0000 1589 
ocoo 158B 
15BE 
LEBF 
15C0 
15C1 
o008 
ocol 
0002 
o6Bco 
O87c 
0878 
OcEC 
COES 
COE6 
0216 
0212 
O21A 
0222 
OOEC 
QOES 
0208 
0209 
O2GC 
0004 
0086 
ooso 
FFFF 
31L0CT69 22DEC69 
816529 BL6547 


DATA AND IMAGE ADDRESS REG. 


TEST 


PART NO. 2589959 
PAGE SA 


STMT SOURCE STATEMENT 

623 

693 

604 oc CL19°5203 MUST BE READY,® 

604 

604 

605 -MAKADY DC CL1S* THEN RESET HALT® 

605 

606 DC CLI4* IMAGE & CHAIN * 

606 

607 CHAERR DC CL12°00 NOT AGREE* 

607 . 

608 HARK EKGARKASEREREEEHSES SEEEKESEKERES ESE ERE EERG ESET EEE SESEEKE EEE ESESAEKEED 
609 *- RESERVED STORAGE 

610 EREREEAEHAEARERE SEER ERS EVEEKEES EERE ESE SREEEEE EHEEEE SE ELEKE SKE EERE ERERED 
611 STAT2 DC XL2*08# 

612 STAT3 DS cL2 

613 STAT6 DC XL2°0° 

614 HAPOIN 3C xL2"0* 

615 SAMLIM DC XL1*O* 

616 LASAV OC XL2*0* 

617 LPOUNT OS ci 

618 ERT1 OS cL2 

619 MIDAR DC XL2"0° M1 SAMPLE AREA 

620 M2DAR OC XL2*08 M2 SAMPLE AREA 

621 M3DAR DC XL2°0* M3 SAMPLE AREA 

622 BUSUB DS cL3 

623 PADM1 OS Cll 

624 BADM2 DS cll 

625 8ADM3 DS CLL 

626 EHEKEREERARAGERESEREREEREETERSE LS ESEEEEKER REESE EEE TEL ERAEESE AEE ERERESESES 
627 * EQUATES 

623 SRNEES ERRERKERRS EE SHEEEEAEEERE EEEREKRE RES SERHS HHL AGE SES RELAES RAAT SEERSS 
629 ARR EQU = x"08" ADDPESS RECALL REGISTER 

636 XR1 EQU 1 INDEX REGISTER 1 

631 XR2 equ 2 INDEX REGISTER 2 

632 LPI Equ x*so0o* LINE PRINTER IMAGE AREA 

633 LPD EQU  x*87C* LINE PRINTER DATA AREA 

634 UCSFLG EQU X*878° 

635 LOFOLG EQU xX*EO* 

635 LPIAR EQU X*E4? 

637 LPDAR EQU X*E6? 

638 LINK EQU  X*216* ENTRY TO DCP CHAIN ROUTINE 

639 TEST €QU xX*212° ENTRY TO DCP READ DATA SW*S ROUT. 
640 PRINT EQU X*21A* ENTRY TO DCP PRINT ROUTINE 

641 HALT EGU xXx*222° ENTRY TO DCP ERROR HALT ROUTINE 

642 NROY EQU  X*EO® 

643 BUSY EQU X'E6? PRINTER BUSY 

644 * SENSE SWITCH EQUATES. 

645 SBYTEO EQU  X*208° DCP SENSE SWITCH AREA 

646 SBYTEL FOU Xx*2098 OCP SENSE SWITCH AREA 

647 SBYTES EQU xX*20C* SECTION SENSE SWITCH AREA 

648 * CONTROL PGM SENSE SWITCHES 

649 SSWOS EQU  xX*04* PRINT MESSAGES ON MFCU 

650 SSwO8 E£QU  X*80* USE 5203 RIGHT CAFR. 

651 * SECTION SENSE SWITCHES. 

652 S$SW20 EQU  xX*80* LPDAR OPTION i 

653 END 

20JAN70 O2MAR TO LIMAYTO O1NQV70 O4JUNT1 PROG ID NEC5-5 
816548 816631 816671 816764 & 18968 PAGE . 5A 
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¢ 
oe . : IBM MAINTENANCE DIAGNOSTIC PROGRAM, PART NO. 2589959 
z IBM MAINTENANCE DIAGNOSTIC PROGRAM ww eace NO. ore PAGE 6A 
: £055 DATA AND IMAGE ADDRESS REG. TEST 
E0SS DATA AND IMAGE ADDRESS REG. TEST ~ 
¢ ; a ips CROSS-REF ERENCE 
CROSS-REFERENCE : 
| SYMBOL T LEN VALUE DEFN REFERENCES 
€ SYMBOL T LEN VALUE DEFN REFERENCES © f 
: ITSOK A 004 1389 0477 0471 
ADTUTU A 005 OB27 0118 0122 : i I1TUU = A003 14CB 0576 0409* 0418 
i ADTUU A 005 OBOF 0112 0116 : ITZRO A 004 135D 0466° 0460 0490 
‘st AGAIN A004 ODF5 0187 0191 : : IWUN A 003 14C8 0575 C410* 0411 
ARR C 001 0008 0629 0301 0319 0505 0518* 0519 0520* 0521 : LASAV A O0O2 1582 0616 0167* 0170 
BADM1 A 001 15BF 0623 0281* 0282 LOCMD A 004 143A 0529 0519* 0525 . j 
BADM2 A O0OL 15CO 0624 0256* 0257 LEVEN A 002 1484 0567 0480 
BADM3 A O01 15C1 0625 0062* 0225* 0226 . LINK C 001 0216 0638 0297 9501 
BAPRT & 004 O0A29 0039 0037 LOFOLG C 001 OOFO 0635 0058* 0387* 
BESSLI A 004 ODE6 0183 0051% LOKON A 003 OEAS 0243 0245 
; BLAH A 004 OEF4C 0214 0202 0210 ' LORIS A 004 OFSF 0297 0294 
BLINK A004 13€5 O501 0342 LOUNT A 004 OAS5SC 0058 0048 
BROUT A 094 13E9 0505 0529 ; LPD C 001 O87C 0633 0428%* 0448% 
BSEXIT A 004 140D 0514 0505* 0510 LPDADR A 002 14BD 0571 0060 0388 
BSYLP A004 1471 0543 0541 LPDAR C€ 001 OOEG 0637 0060* 03e8% 
BTSSLI A 004 1391 0479 0379* 0383* ; LPY C 001 O8GO 0632 0311 0311 0312 0312 0324 0324 0325 0325 0548 0548 0549 054649 
BULOP A 004 13CD 0495 0493 : LPIADR A 002 148B 0570 0059 0427 
.BUSCTI A 003 1489 0569 0506 LPIAR C OCOl GOE4 0636 0059% 0427% 
BUSUB A 003 15BE - 0622 0506* 0507% LPOUNT A 001 1583 O6lT 0061* 0295* 0389% 0499% 
BUSY C 001 OCOE6 0643 0187 9235 0266 0291 0309 0493 0509 0537 0541 LUKPSE A 003 OESE 0219 0216 
: BUTIO A 0C4& 13C6 0493 0496 MAKADY A 015 158D 0605 0044 0307 0372 
‘itl CHAERR A 012 15A7 0607 0354 , MALS A064 ODB1L 0169 0173 
CHESUS A 004 ODDL 0177 0171 ; : MEXIT A 004 OFCS 0328 0319* 
CHKINC A 004 136F 0470 0466* 0468* 0477 MHALT A 003 1028 0374 0368 
CLIHAP A 004 OF2C 0205 0200 0213 MOVHAM A004 0A99 0073 0068 
CMND A 003 1459 0536 0530* 0531* 0534% 0535 MRALT A OC3 OAZA 0046 0040 
CRPAH A 004 OF63 0301 0093 0214 : MiDAR A 062 1587 0619 0273 
CACMD A 0O3 0858 0134 0063* 0069% MILOK A 003 OFOF 0275 0272 
DACMD1] A 003 OFOC 0274 0064* 0070# : MIXT & 003 OF39 0287 0054* 
OFCMDZ A 003 OEAG 0242 0065* 0071* . M2DAR A002 1589 0620 0241 
DACMD3 A 003 OESC 0218 0066* 0072* M2XT A 003 OEFEB 0262 0053* : 
DARS1 A OOL O0B69 0143 0112 0135 0151 3 M3DAR A 002 15BB 0621 6217 
DARS2 A 001 OC4F 0145 0127 ~' M3XT A 003 OF89 0231 00524 
DELAY A 004 146A 0541 0544 “ M4DEL A O04 OF9B 0319 0083 0203 0398 
BIPAD A 006 OD77 0155 0166 M4PSS1 A OOL 14CC 0577 G152 
DUNAL. A 003 1387 0489 0449% 0455* 0483 ; NAGOR A 004 1399 0481 0485 
DUST A 004 OAAA 0078 0075 0296 NAS A 004 10£0 0431 0433 
EIGHT A 001 1482 0566 0226 0257 0282 - NEPSS A 004 O172 0154 0185 
ERHTKS A 004 1044 0381 0376 NEVES A 004 OADF 0093 0082 0089 
ERNRDY A 004 1430 0526 0524 NIPS A 004 OF79 0309 0309 
ERTL AOO2 1585 0618 0019 0535* NOMOD A 004 107F 0400 0397 0405 
ESVEN A 003 OF76 0308 0303 NOTRIT A 006 1453 0535 0533 
EXIT A 004 14Al 0554 0521* NOYET A 003 O€83 0246 0248 
EXLENT A 004 ODFi 0186 0194 NRDY CC 001 OOEO 0642 0037 0365 0524 , aS nines 
FAST A 003 OEC1 0250 0249 NRTEG A 00% OA22 0037 0031 
‘tir  FLOOP A 006 13F3 0507 0509 NUSAM A 004 13€2 0492 0465 0476 0488 
FOLG A002 14BF 0572 0058 0367 OKYDOK A 004 1002 0356 0348 
GETIM A 004 OFSF 0320 0322 ONE A 002 14AD 0563 0155 0159 0172 0190 0225 0256 0281 0295 0313 0326 0461 0468 
GOAIT A 004 OE96 0235 0224 0229 0231 0235 0472 0484 0495 0499 0507 0518 0520 0543 0550 
GOML A004 OFO4 6272 0267 OP1 A 00% O£€3B 0209 0207 ‘ 
GOM2 A 004 OFA2 0241 0236 POOLMH A 003 LOEC 0434 0425 
GOM3 A004 OE54 0216 0188 PRINT C 001 O21A 0640 0032 0041 0304 0351 0360 0369 
GRADAR A 004 OAE3 60097 0084 0087 PSIUCS A 001 1513 0593 0454 
HALIT A 0C4& OFFC 0356 0350 PS148 A O01 14F1 0588 0450 
HALT © 001 0222 0641 0102 0161 0174 O179 0192 0232 0263 0288 0356 0463 0474 0486 RETIQ A004 1013 0365 0359 
0497 0511 0526 0538 0545 ROGAN A 004 1368 0469 0473 
HAPOIN A 002 15AF 0614 0310* 0313 0323* 0326* 0547* 0550% RTN1 A O0OL OAOD 0026 0018 
HERE A004 2068 0394 0392 RTN2 A OO1 OFCO 0337 0028 
HMLOOP A 003 OB4F 0131 0126 SAMLIM A 001 21580 0615 0153* 0159% 6164* 0168* O172* 0183* 0457* 0461% 0467% 0472* 0479% 0484* 
TACMD A003 10F5 0437 0390* 0393* SAN A 00% 0843 0128 0130 
TARS1 A OO1 10FD 0443 0412 0455 SAVTUU A 002 14A8 0557 0523* 0553 
TARS2 A OOL LIEB 0445 0436 SAVWUN A 002 1446 0556 0522* 0552 
ICTAB A 004 1361 0467 0378* 0382* 0478 SAWRYT A 004 OAFF 0108 0098 0101 
INCONT A 00& OD9C 06164 6050* 0158 SBYTEO C 901 0208 0645 0030 0039 0302 0349 06358 0367 
INILT & 004 133€ 9457 O377* 0381% SBYTE1 C 001 0209 0646 0067 0391 0532 
ININLT A 004 OD6F 0153 8049% SBYTE4 C 001 020C 06647 0074 0081 0088 0097 6202 0209 0293 0341 
ISBUSY A 004 1466 0540 0537 ; 
DATE 310CT69 22DEC69 ~°§ 20JANT7O O02MAR70 LEMAY7O OLNOVTO O4JUNT71 PROG ID © cee 
DATE 310CT49 22DEC69 20JANTO OZMAR 70 LIMAY7O CLNOVT70 O4JUNT1 PROG ID OE05-5 EC NG. 816529 816547 816548 816631 816671 816764 618968 _ PAGE 
EC NO. 816529 816547 816548 816631 816671 816764 818968 PAGE ° 
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18 MAINTENANCE DIAGNOSTIC PROGRAM 


E055 


SYMBOL 


SDC 
SECET 
SENAT 
SEXIT 
SICEM 
SIOST 
SKUC S 
SMAD 
SPUDT 
$$wO5 
SSWOR 
SSW20 
STAT 2 
STAT3 
STAT6 
STRIT 
sTuu 
SUBOK 
SUSY 
SWUN 
TAW 
TECHBI 
TEST 
THCHEK 
TIOCHK 
TIPS 
TITL1 
TITL2 
TMMLE 
TMM2 E 
TMM3E 
TNUGL 
TOGOGN 
TOLONG 
TREE 
TRPAB 
TWAIT 
TWLVE 
TwO 
TYRWAS 
UCSFLG 
UP TWO 
UTUTDA 
UUTDA 
UVniX YZ 
WAT 
WHARTO 
WT 

X10 
XTOE XT 
XR1 


KPR2 


YALED 
ZERO 
ZPRUNY 


OPrprprprprPprprrorpprPpprPprprrPppprprrprprprOoprPprrpprprprrprprPpodOoOrrprpbrprpPrrpp 


LEN 


006 
C04 
004 
004 
G06 
004 
004 
004 
003 
001 
ool 
ool 
002 
O02 
002 
004 
003 
004 
004 
003 
006 
004 
ool 
004 
004 
004 
018 
019 
004 
004 
C04 
004 
004 
004 
002 
004 
004 
002 
002 
004 
oo} 
004 
005 
005 
001 
006 
004 
006 
004 
004 
001 


ool 


004 
002 
C04 


VALUE 


13€D 
1071 
OFEQ 
OF9OT 
1308 
OAC3 
1338 
OD7D 
OAoc 
0004 
coso 
0080 
1549 
15AB 
1540 
OE12 
14C5 
OOE2 
OF 46 
14C2 
OFE1 
OFES 
0212 
Opel 
1429 
OA30 
1546 
1559 
OF aC 
OEEE 
OEBC 
1050 
OA72 
1403 
1461 
101A 
OEFS8 
14B6 
14 AF 
1094 
0878 
1340 
10BC 
10A4 
OA0O0 
OFAF 
0E37 
1483 
141i 
L47F 
0001 


0002 


OE CO 
14AB 
CAEE 


DEFN 


0506 
0396 
0346 
0315 
0499 
0085 
0456 
G1i56 
0020 
0649 
0650 
0652 
0611 
0612 
0613 
0198 
O574 
0182 
0291 
0573 
C311 
0347 
0639 
0157 
6524 
0047 
0601 
0602 
0288 
0263 
0232 
0387 
0063 
0511 
0565 
0367 
0266 
0568 
0564 
9409 
0634 
0458 
0419 
0413 
0003 
0324 
0208 
C548 
0518 
0547 
063G 


0631 


0190 
0562 
0100 


DATA AND IMAGE ADDRESS REG. 


TEST 


REFERENCES 
0515 

0500 

0344 

0301% 

0494 

0079 0092 
0453 

0160 

0047 0078 
0030 0039 
0067 0391 
007% 0OCc8l 
0085* 0086 
0346* 0347 
0099* 0100 
0189 0°C37 
0108* 0117 
0178 

0280 C285 
0109* 0110 
0314 

0345* 

0292 0491 
O154* 0155" 
0528 
0038 

0035 

0363 

0283 

0258 

0227 

0366 0380 
010% 0163 
0508 

0114 0120 
0365 

C255 0260 
0182 

Oll2 0118 
0399 0402 
0343 

0462 

0423 

0417 

0327 

0198* 0204 
0551 

09T6 0090 
0542 

O11C* 0112 
0137 0138 
0220 0222 
0251 0253 
0286 0411* 
0436 0438 
O111* 0113 
OLT? 0186* 
0420 0421* 
0523 0540* 
0187 

0062 0186 
0073* O0080* 


CROSS-REFERENCE 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 


DATE 
EC NO. 


310CT69 
816525 


220EC69 
816547 


20JANT7O 
£16548 


0199 0375 
0302 0349 
0532 

0088 0097 
0128* 0129 
0451* 0452 
1268 

0287 0291 
0165 

0176 0181 
0415 0421 
0262 0266 
0156 0169 
0215 

O211 0394 
0113 0115 
0139 O152* 
0223 0228 
0254 0259 
0413 0414 
0450* 0454* 
0114* 0119 
O190* 0216*% 
0430* 0456 
0543* 0553 
0492 0540 
O2MARTO 

16631 


0396 

0358 0367 
0201 0209 
0205* 0206 
0234 0265 


0413 C419 0458 


0403 

0117* 0118 
O157 O177 
0230 0236 
0261 0267*% 


0416 0418* 
0470 048C* 
OL20* 0127% 
0221 0249% 


0458* 0459 0469* 


LIMAY70O 
816671 


PART NO. 


0320* 0321 0400* 0401 


39469 0481 


PROG 1D 


2589959 
7 


0431* 0432 


0133 
0219 
0250 
0284 
0435 


0170 
9415* 
0495* 


O£05-5 
7 


we tm aes oe me ee mee 





TBM MZINTENANCE DIAGNOSTIC PROGRAM 


E055 DATA AND IMAGE ADORESS REG. TEST 


THE CHARACTER 


OBJECT CARD LISTING 


INDICATES A BLANK COLUMN AND THE CHARACTERS C E H INDICATE NUMERIC SHIFT. 


FL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 4S FHROUGH 64 CL 65 THROUGH 80 


THY:8EM & B-4 
T+-15—3 <8H Y<aZ. 
T4-D0+40-|CLZHCD* 
T+-,,1GOH#3S -3 
T+-ZWEES* AO_avD 


T4#-_/i-  EHe* - 


TA-_YDG- Dt EDE. 
T+#-6/ 0-H. EXHAE<O 
T4-74CQ] --57. D 
T+-8P*ABGBXHE JK 
T+-9KB-32U aB- H 
T+-2 ((@HBCV"B JC 
T+-#H S.-)*BGEX. 
T+-aC GCW G6E IH 
T4+-8=0-H|CAHAESS 
T+=" 9H>AI0H#HE TG 
T+#-=49-"9]R-N,07 
Te-"2CLEH - CO” 
T+/ DU y /OHEOSY 
T+/AVAGOC+8 HCI 


T+/B-ACYHDI$ /16 


DATE 316C T6¢ 
Eo NO’ 8165825 


N_3AE D 


C@U8A H 


QIA*(¥*COECRSAB 7 


* e 


#8 9)4H BR-HEDCY 
20B) /0=$aY*-<+H 


HOH*BH>AOCH*H*TO 


2 se 


(-HMZP5> <BBB2-~ 


evoeazceanveaeneenenes 


@HJOOf (-08 Ca< 


NZ—- @BACO0(-HM, 24 


6{ 4NZG5" < aCP< 


<a/ YOH* |WasGCT* 
#O=HAF4H 3D BI 
A3-300-D+Y3BGC/. 


ATE8 E* M,E&S& Ex 


38-E£08-E8 -C-U A 


WC&%S /OHK+H BCIH 


oe oe eo eon 


"RB H 448 H @ 


Ny 1 K_OHE], @BG 


e ° ° 


NZ= +OH*BH> ++ & 


EC ZOPD34aAS(S] - 


J8- 9< Y¥<aZ GOH* 


2¢2DECé9 
F1L6547 


20JAN7O 
816548 


HaZ HOH*BFUHKEMS 
X1HD+ST2AC>0a-E2 


HE5U:B @’+--473Y 


NDL-AEEX2DAME— H 


E<MaF JLBO-DMIZH 


B &_|0-H<LTCSEEU 


eeoneseeoneseoneonees 


M,yLQBEH®_ avo 


AESH AYEMCO NZAK 


5S 7%,03Q04 <HACVL 


08/0Z+ DND=HEA<B 


e e 


*+Q AQH @YDVC- 


B JID9G=HA*4H 30D 


MZ7HACGOS [HADGE 


09-E "> G2-KM+ AO 
EB-3 ES<M)* ARD, 
“EFaM, *BDCeG sO 
B Le eH BC< GOEM 
BRIHEAZBG /ZBDIN 
LU?HGCCO/D2423At 


JW"HGELCSEEUS JO 


OSMARTC 
8lo631 


LIMAY 79S 
SicéTi 


~ €6-8SxX2/1E8A H 


2<3 M?3SUE.Z19/K 


HIV4Ga 79 74+H SCTH 


<@a/ HOH*MOSH OHe 


B36_+ M,90B 


8DAGYOI .&7CS0G~ 


@eeveeeeeaeseveaecece 


MCO NZAK_O D(.#8 
_O D(%#8G S.-*zB 
2/\H6 /K_0 DU 8B 
G 6- Has HOH* 
NOJK_CE NOJK22YN 


« . 


Ol *DPCS GV <p 


) PHECBTSG S.-)<B 


"EHS( AQME..2-61 


JOHO( -fPWT-O -T 


° 


{ ~/2CCSEFUB JC 


7"O0/8a-OD ICU SCT 


R8 CABL FaYee+ & 


SS} SLUTG-£.A1L9/K 


Za/ HOH *MOZH OH*® 


OLNOV7G 
Bib The 


HaZ HOH*BFUDSEQ? 


‘| YNZOOBE*DMD3% 


e 


GAZBGEAGS CUOB-3 


HO@BGCE<8- HK<a/ 


& /K1n7zd CHH.CaH 


AC*BE [1S ~HGBO 


ecoe eevee corvroeoae ee 


G S.-**BGBXHEBAD 
GBXH) & <aYOHOH* 


G S.-E<BGC~D4 £8 


MD3H OH*4.<BGC6] 


<~Q8 AYDE-RY a-* 


EC, 1B —#A*+H 30 


* 


GBX -.AI-# B0-DI ACA 


"S G2-JA'V G2A0, 


2U T /OHE LENTAA 
201 1X302€F al *o- 


e # 


TEEZBAAU, S/S Pt F 
BBIHEBEBG /ZAH/O 


*t YNZ3SHO{Q8- 


E~33B=E<ZADALHO-D 


SS JUN TL PROG [ID 
R1L89r8€ PAGE TA 


PART NO. 
PAGE TA 


‘ 


2589959 


CL 6&1 THROUGH 96 


-B— JLOEOS50001 


HB5U LK E0550002 
2UAH *18E0550003 


N<+Q EKQE0550004 


AC<M &#C*E0550005 


*+H =E-E0550006 


esene 


4&EYE0550007 


O1EY &S*E0550008 


BH> #-0&0550009 


e 


t+L 4 =6$C*E0550010 


/O8 #: EOS50011 


HOH* =24£0550012 


81 :ZHEOS50013 
GC/H QEHECSS0014 


94 EDHEOS5S90015 


» 
@AGD Oy *EQSSOGZ « 


» eee 


8 "Z EG550017 


BBIH S8<E0550018 


(8+ 6SDE0550019 


feZ 9BQEGSS0020 


M2<H Ry HEOSSOC 2] 


OF O5+5 


why 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 2589959 


PAGE 6 


t 

PART NO. 

} 

: £055 DATA AND IMAGE ADDRESS REG. TEST | 


oe 


OBJECT CARD LISTING 


Ct 1 THROUGH 16 


T+/C$ /C™L- EH= 


THAC@0-HIJSCCSEEU 


CL 17 THROUGH 32 


* —- (-HMEPT= <B 


RDACYOI &8GCSDG- 


CL 33 THROUGH 48 


BOHLB JL.L- EH= 


AC*BE TIS )BGDE 


CL 49 THROUGH 64 


* ~ (-HMZP58 <B 


Cl 65 THROUGH 80 


BD. 019AK 4{ | aH-7aH 


Ct 81 THROUGH 96 


AD+0 N& E0550022 


19UE0550023 


‘ T#/(L1D H+30YDAT B JLO<+<ND3-DEE? 2D TB JMKIE-L><H BD/Y@ AOO(-HM,#4 B 7HADOS ES My* AD4 J-8EC550024 
T+/++0H*BH>AGAY) VI L*LO E$ + AC LEHS6 /K2$E tH ADOa ES My* ADE? /0HS8G6-2/3U8 B1( LOHH PROEOS50025 
T+/]106Da AOO(-D M_CQBEH*_ D @YD LCO NZAK_O DLW*B G S.-3 JHGB74 < _ ADS7T /OHK{EHMDAG WDa4 $1 £0550026 


T+/E DY *+(—HM, * 


T4+/E" S.-D*BGD=7 


ADa@$ /OHSBSAD] AO 


e 


70 (--M,yLEHED< 


3EH7 JALOH*BETE 


6BAK_€ —-MZCEAEHC 


HEA < /O=E.U] /0 


4 /KYO3 M<JHGBZB 


=EHT2-£A9/ | 3aY* 


G S.-O<BGEBX /1] 


HOH® 3/#£0550027 


ZC OD aS-E0550028 


Te#/S2EEX CZHEEY 8- HI@Z D+—MO-O AESMMO"< <GWEF$  /OHS8AQ5 /K,03Q M*5HGCTGBEHT JJ DOH* 2 6£0550029 
T+/K5 S.-EC2 EEQ ("0- B (40- B | AO?EH7T /AKC(ED MZTMBEHT /0 A H O- BO. EH<E0550030 
T+/LOC & —- BG) O*GCWFSCW GCUD.C U"X=.V42?>a-L7=?2 TBHt|W:337227P B=" #BHSLX:>70a"$9"{ "BGA $2ME0550031 


T#/M, -YKFSHD -Y KFSHECUMIIKSECJM }IE-E§FB Y ~GFB  Y OHHD/YSHTH:&UZ KAE4NGKM_(LSELNM HDA- #Y%E0550032 
T+/NWHB-O+DAHME- C1<GTOMCALCLRK*X E142?7T13.T2Z)LALAN  OFLDGM?R1*).8aP SB'WR1;.SECIH1*} KEC(U 360E0550033 
T+/O/13 -E867597C 3E(LUS>€ ON GP Al+/,B8ATESMCRIS. E84CHO)ITZILALAN MDCC2<GIS5MCD5UC N5>< J26£0550034 
TALOZE<GG6*PE 6DDE0550035 
TAsO2 £1££0550036 
TAJO# 3/ME0550037 
EM"OETH=DC"PHS ="TMEFL [| C FZ ASC. RA SO Q 02350317710 605712#*E0550038 
\ 
? 
i 

t 
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2589961 
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es 
ae 
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oe 


E063 52C3 CHAIN EMITTER TIMING TEST 


o 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT a 
G 2 DECK 4 0G TO FFEEeRESSERESS EES EREEEERESEEERESEEEEAEES OESEESESESODEHEEEEE9 SEREEESCHOEERE 
OA00 3 £06 START X*A098 71 * FINO HCME LATCHeTKEN SAMPLE AT 9.12 USEC FOR 10 MSEC ? 
& SHKTARERSKEERRE REESE SSRARERS SESE SASS SHEE S EEK KREK RES HEREHEESSERECRES EERE T2 PRET EEESSEEREES SOEEESSEREESEEADS SARE TEKESSERESEBKESESSEKEESSERERERESER 
ie) 5 & * © OAA1 30 E2 0C97 73 SNIK SNS STAT2 eX*E2* GRAB TRE TIMINGS 
; 6 * SYSTEM/3 52C3 CHAIN EMITTER TIMING TEST * OAAS 38 01 OC9E 14 TBN STAT 2—-19B°1?* HOME LATCH ON? 
7 + * OAAS CO 90 OAA2 75 BF SNIK 
e 8 RALAAEHOREEERERRELY LY HARE AR SERESE RERE REREEEEERS FO EER EE SS EREEEES REESE EE GS OAAD OC 09 OCA2 OCAO 16 MVC HCMCNT(L) »MSECS SET UP DELAY CCUNT 
- eet 9 * SECTION 6 - ROUTINE 1 * es OAB3 CC FF 0800 0800 77 TWA cic LP1(256),.PI1 1 MSEC 
Ae LQ FRHSERRDRRELRSESSERE ERS SAKE RRS EASA HRS OSHSSERLSG ORK SRS HEEAEKEGEDSERESSE SD OABS OD 3B 0800 O800 78 CLC LPI(60) LPI BELAY 
£3 GA00 E063 OAOl 11 DC XL2°E063* PROG IDENTIFICATICH oe OA2F OF 00 OCA2 0C40 7S SLC HOMCNT(1) ,CNE DECR.DELAY COUNT 
OAO2 O00 OAG2 12 oc XL1i*O* FLAGS OAC5 CO B64 0AB3 8c BH TWA 
OAO3 O1 0A03 13 OC XiL2*1¢ CURRENT KOUTINE NUMBER OACS €O 87 OECO 81 8 SENIN GO SAMPLE 1100 BYTES AT 9.12 
Cc OA04 0900 OA05 14 DC XL2*O* RESERVEQ Cc OACD 3C 30 130C 82 RETURN MVI HCMIN41,X* 30° WIPE HI ADOR. BYTE 
OA06 OAOD OACT 15 oc AL2¢RTN1) ADDRESS GF FIRSY ROUTINE PREFIX 83 FHSRHESSSAEAHSSS SHS HERTS SEEHTS TSERLH TESS EESES SEES 9 OEEESE SST HEESEEESEREERE 
OA0D8B OC99 _O0A09 16 oc AL2(ERTI) ADDRESS OF ERROR RECORDING TABLE 84 * CHECK TIMING BETWEEN CHAIN EMITTER PULSES * 
Cc OAQA £05000 OAOC 17 SPUOT OC XL3"EC5000¢ UNIT DEFINITICN TABLE ~- PRINTER @ ; 85 SHEREMESSESSES! VHSORESSSESES SHEETS SESE SHEEEEEGES 9996 999 2994982989 5898R88 
18 SHAKE EEKE STA SAKHEKS HS SEARS REA SHES EEKESHRKERHSEEASRRELS FE HEDEKERSSESHEREED OAv)] C2 O1 OECO 86 LA SENIN,XR1 LCAO ADOR. OF 1ST SAMPLE 
: 19 * * OADS 7€ 26 00 87 FIBIOF TEN CU,xR19_,8* 1000005 FIND CHAIN EMITTER GFF . 
C . 2c * ROUTINE 1 — CHAIN EMITTER TIMING TEST : * Cc OADe Fz 90 08 ee JF EXIF 
ee 21 * * OADB 36 O01 0C40 8S A ONE »XR1I 
2 SRKKSEKESSKERHS SETHEKK S SESE RSA RA SLSRGRE OOERERERESELES ELK ESE OTS OO49S9994404 OADF C® 87 OADS 9C B FIBIOCE . 4 i 
Cc OAOD O1 OAO0D 23 RTN1 oc XL2e*1* RCUTINE NUMBER G CAE3 35 01 0C40 91 ENIF A ONE,XRi LOOK FOR RISE CF CHAIN EMIT. ; 
OAOE 00 OAOE 24 oC XLito® FLAGS OAEZ7 78 20 00 92 TEN Ot A4R1) 28° 100000" i 
OAOF FFFF QA10 26 oc XL2*FFFFS® LAST ROUTINE OAEA CO 90 OAES 93 BF ENIF : 
¢€ Lf 2E SRHLERSSSERHES HESS SEESSESEERSRAK ERE SETE GEASS EEREEDSEE ECR IEEGES $OEEDTESEEE oO CAEE 78 Cl 00 ” 94' TBN OCeKR1)D,B*18 HOME LATCH ON : 
’ OAL] 38 04 0208 at TBR SBYTEC.SShOS PRIAT CN MFCU ee OAF1i CO 10 OAD5S 95 BT FIBILF SKIP THIS EMITTER : 
OA15 F2 10 OA 2€E JT NRTIO : OAFS 3C C9 OCA3 - 96 NEXEM MVE SAMCNT,X*CO?® ZERO EMITTER SAMPLE CNT. } 
¢ OA18 CO 87 OZ21A 2¢ 8 _PRINT PRINT TITLE © OAF9 3C 28 0899 97 TTNAM AVI ATHC M41 44C SET MIN AT 365 USEC ‘ 
QAIC 42 OAIC 3¢ oc XL1°42¢* OAFD 36 O01 OC40 98 LKGAN A GNE yXR1 
QOALD 19 CA1D 32 oc IL1#25* 0B01 7D 30 02 99 Cui 2¢—97R139,5X*3C# 1190 SAMPLES CHECKED 
€ OALE OC76 OAIF 32 DC AL2CTITLI3 © OBOS F2 81 OF 100 JE TSAL 
ee OA20 E000 OA21 33 oc XL2*E0008 C807 OF OO OCA3 CC49 101 ALC S4MCNT( 1) ONE 
OA22 Cl EO OA29 34 NRTIG TIO BAPRT,NRDY PRINTER READY | CBOD 78 20 00 102 Ten O€»>R1. 9B* 100000" CHAIN EMITTER STILL UP 
Cc OA26 F2 87 14 3& J NCOGOT ! OQ 0B10 F2 90 04 103 JF FIRISE 
OA29 38 04 0208 3é BAPRT TSN SBYTEO., SSwO05 PRINT JN MFCU SW. ON ! 0813 CO 87 OAFD 104 8° LKGEAN : 
OA2D F2 90 OA 37 JF MRALT | OB17 36 01 OC40 105 FIRISE A CNE g XR] : 
C OA30 CO 87 O21A 38 B PRINT PRINT MAKE PRINTER READY C 0&818 7D 30 G2 106 Ctl 2052%R1)95X"308 1200 SAMPLES CHECKED? : 
OA2% 41 0A34 39 oc XLi*@1t he ea OBIE F2 81 85 107 JE TSAL 
OA35 1° OA35 40 cc IL1°*31° 0821 GE 0O OCA3 CC40 108 ALC SAMCNT( 2) eCNE 
tf OA36 OC95 OA37 41 oc AL2UMAKADY) GQ OB27 79 20 00 109 TOF 0€,XR1),6* 1000008 IF CHAIN EMIT.DOWN,FIND NEXT RISE 
OA38 EOE] CA39 42 oC XL2*E0E1* C&2A F2 90 OB 110 SF ITsu; 
GAZA FG 7C 03 43 FPRALT HPL X*03*,X*7C* HALT E12 0B20 3D 2D OCA3 111 CEMAX CLI SAMCNT 45 MORE THAN 410 USEC *TwEEN EMITS. 
€ OA3D 3C CA OCIA 44 NOOGOT MVI LPOUNT,10 GS OB31 F2 84 6C 112 JH TCVAY 
eae OA41 38 20 CAOC 45 TSN SPUDT,8*1CGC000! 100-200 LPM ? | 0834 CC 87 0817 113 é. FIFISE ; 
OA4S5 F2 90 LA 46 JF SNOTRE j CB38 78 Cl O1 114 ITSUP TAN 1€,x*R1),6°1* 1S THIS A HOME PULSE 
t OASE 3C 1C OBZE 47 MMVI CEMAX41,X*1C* on ; CS 083B F2 99 5A 115 JF NTHlM * 
OASC 3C 19 OAFA 4E MVi ITNAM41,xX"®19° : OB3E 324 01 OCAS 116 st SAVF1,XR1 
0450 3C 19 OB8aD 49 MVI MANTI4¢19X*198% , | LL 7 FESO SRS SSE RAKED OT ESSOREREE SH TEEREKTERY OERSELSER SELES EOESERSESERETSESESTE SE 
¢ OA54 3C 08 OBG6E 50 “VI HMMIN@1,X°O088 Qo 118 * CHECK PULSE WIDTHS & nOMt PULSE TIME * 
OA58 3C OF OBT75 51 wVI HMMAX41 ¢X*%0F® res LID € SEHRESEKKE HE CHEEK HET SEHAEE KSEE SS SES GA SKEKS HECERS Sc HKSEAKESSSE HBAS 
OASC OC £1 O8“5 OC5SA 52 MVC GOBAK4302) sADFERTY i 0B42 36 Ci CC4A 120 GSCBAK A SISFR,_xR1 SUBTR.120 GR 72 FROM HOME ADDR. 
© : 52 MREKERERERSR RE RHE EES SEALS CRAG L ATER SHEKELS SWS RLS KSSH SAE EKELSREREERS OE J G OB46 36 O1 0C40 121 GURK A ONE ¢XR1 : 
54 * GENERATE THE SENSE INSTRUCTICNS * OB4A 79 20 00 122 TSF C€yXR1928*%1CG0000 FIND GAP ° 
. 55 FRR RE GHD EHH SEARLE AD SAREE REESE EK AK ERTAAL SAGA AAL SARE TASET REEDS EH : 0B40 CO 90 OB4E 123 BE GCRK 
€: OA62 3C 04 ZCAO 56 SNOTRE MMVI »SECSyX*04! SET 4 MSEC DELAY 1ST TIME THRU < OB51 CC 87 OBBE i24 8 LULSE GC CHECK 14¢2NE EMITTER WIDTH 
C466 3C 08 “598 57 VI TOUNT 28 OB55 CC 87 OBBE 125 B LULSE GG CHECK 143R0 EMITTER WIOTH 
OAGA F2 87 Ce 58 J TOGCON 1 0659 CC 87 OBBE 126 B LULSE GC CHECK 144Th EMITTER WIDTH 
ar OA6GD OF 00 OCAD 0C45 59 SKGOON ALC | MSECS£1),NINE ADD 9 TQ MSEC DELAY i C3 OB5D OC O01 OC9F OCSOD 127 MYC (E€cAST(2) ,LEEADR SAVE 144TH ADOR. 
CA7T3 OC O01 OC4E 0C52 60 TOGOCN MVC STUU(2) sSAMADR LOAD STARTING SENSE ADDR. O0B63 CO 87 OBBE 128 B LULSE GO CHECK 145TH EMITTER WIOTH 
OAT9 C2 O1 OCSE 61 LA STUU,XR1 LCAD SCNSE INSTR.ADBDR. OBé7 OF O01 OCOD OCOF i29 “SLO LEEADR(2) pLEEAST DIFF.~"TWEEN 144TH AND 145TH 
a OA7D C2 O02 OEC3 62 LA EN IN43,XR2 LOAD GEN.FIELD ADDR. c OB6D 3D 10 oCeD 130 HMPIN CLI LEEADR,16 SAMPLE DIFF.LESS THAR 16 OR 8 
oe OAB1 9C G3 00 00 63 ADTUU KYC 344—oXR21 90 eXR1) PUT SENSE INSTR. IN GEN.FIELD bat OB71 F2 82 O7 131 Jk HOMER 
OA85 4E 01 CO UC4O0 64 ALC OC 2s 4R1', ONE ADD 1 TO SENSE INSTR. ADDR. . i OB74% 30 168 OC9D 132 HMPAX CLI ” LEEADRe27 SAMPLE OCIFF.MCRE THAN 27 OR 15 
Cc OABA 3% 02 0Cas 65 A *{JUR y KR UP GEN.FIELD ADOR.BY 4 ce 0878 F2 04 C9 132 JH SEERUN 
OA8E 4D 01 00 OC50 66 . Cre O(2—9XR1)_LASADR 1100 SENSE INSTR.GENERAT EO? OB7b CO 87 0222 124 HOMER 8B HALT HCME TIME ERRCR HALT 
OA93 CO 01 OA8B2 67 BNE AOTUU OB7F EC82 OB8O0 135 DC XL2* E082" 
C OAST OC 03 LFF3 OCS6 68 MYC SAMRET (4) » BRUNC PUT IX UNC BR ia : OB81 F2 87 2C 136€ J GNIP : 
CA9D CO 87 OC17 69. 8 BROUT | OB84 CC 87 OBBE 137 SFEWUN 8 LULSE 
¢ ; : i Oo 
DATE 25AUG69 310CT46S LIMAYTO OINOV70 1SFEB71 PROG ID O£06-3 1 DATE 25AUG69 31CCT6S LIMAYT7O OINGV70 _ 1OFEBT1 PROG ID GE06-3 i 
EC NG. 816485 616529 816671. 816764 818912 PAGE 1 | EC NOw 816485 816529 810é7]1 8167646 818912 FAGE A : 
&. |e 
6. : ferar, ; 
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ERR LOC OBJECT CODE 


7 


: 
~ 


0B88 
OB8C 
0B90 
0BS4 
0698 
OB9C 
© SBAO 
CBAS 

OBAG 
€ OBAC 
OBBO 

OBB6 

C OBBA 


ry 


OBBE 
OBC2 

f OBC6 
OBC9 

OBCD 

: OBDL 

OBDS 

OBDB 

Cc OBDF 

a OBE2 
OBE6 
C OBEA 
OBED 

OBF1 

C OBFT7 
OBFB 
OBFF 
oco2 
0C 05 
oco9 
oc cD 
OC OF 
0C13 


~ 


ey 


0C17 
018 
€ oC21 
0C27 
OC2A 
C OC2E 
0c31 
0C35 
CG 0C37 
0C3B 


OC3F 
0c41 
0C43 
0C45 
0C47 
0C49 
0C4B 
0C 40 
OC4F 
ccs 
ocs3 
ocs5 


cy 


0 


DATE 
EC NO. 


oO G 7 9 


ry 


Abeer © 


# 


52C3 CHAIN EMITTER TIMING TEST 


ce 
3c 
35 
co 
3D 
co 02 
CO 87 
E080 
OF 06 
CoO 01 
OF 00 
co Oi 
co 87 


87 
27 
O01 
87 
Os 


08 
36 O1 
78 
co 
34 
3C 
OF 
36 
78 
Co 
3D 
F2 
3C 
OF 
36 
3D 
F2 
78 
co 90 
CO 87 
E081 

CO BT 
CC 87 


90 
01 
00 
00 
Ol 
20 
10 
02 
82 
00 
00 
ol 
Ol 
84 
20 


34 
oc 
OF 
Fe 
Cl 
F2 87 
CO 87 
EC1ll 

CO 87 
cc 87 


08 
02 
02 
81 
E6 


0001 
0003 
0004 
0009 
FFBS 
FF88 
3Ce2 
OECi 
1360 
OEC1 
C087 
OACD 


20 


OBBE 
oB99 
OCA6 
OAFD 
OCA3 
OAFS5 
0222 


OCc9B 
OAvD 
OCIA 
OAS2 
0216 


OC16 
oc40 
00 

OBC2 
OC9D 
OCA4 
OCA4 
0C40 
600 

OBDS 
OCA4 
ic 

OCA4 
OCA4 
0C40 
OCA4 
11 

00 

OBF1 
0222 


og8Bo 
0000 


OC3E 
LFF6 
1FF6 
o7 

0C21 


0222 


ocis 
0000 


25AUG69 


816485 


Trae tC He: tua HL 


OBAS5 
0C40 


0c40 


0Cc40 


0C40 


OC 3E 


0C50 
0C40 


0C36 


0C40 
CC42 
0C 44 
0C46 
0C48 
OC4A 
Oc4c 
OC 4E 
OCc50 
OC 52 
OC54 
OC 56 


310CT69 
816529 


woth te, ten sone eR ao 


‘ Bega Eay ERIN is op Geiet acy eet aE Neg iat neal eae Sa a ce a A et Ee a Me ee Sa LM 
@ @ & © @ © o ®@ @ S 


ADDR STMT SOURCE STATEMENT 


LULSE 
NTHOM4+1,39 
SAVR1eXRK1 
LKGAN 

SAMCNT »*#=-* 
NEXEM 

HALT 
XL2*E080" 
TCUNT (1) gONE 
SKGOON 
LPOUNT(1) » ONE 
SNOTRE 

LINK 


PART NO. 


2589961 
PAGE é 


SET MIN AT 356 FOR LAST EMIT. 


LESS THAN 365 USEC "TWEEN EMITTERS 
EMITTER TIMING WRONG HALT : 

DOCNE 8 TIMES 

DONE 10 TIMES 


BERRA RH KK ARR EEE EERE EERE AE EERE SERS SERS EESRARRE EE RKES EE 


* CHECK PULSE WIDTH SUBROUTINE 
GRERE KEE RERR EE EKAE EERE LEAS AERER EHD EE AEG AREA KHER HE REKES OF HEKEEESEREEEES 


PLEXIT#3,ARR 

ONE »XR1 
O(,XR1)-B*100000° 
LEEG 

LEEADReXR1 
SAMSAV,X*008 
SAMSAV(1L) »GNE 

ONE »XR1 
0(¢,XR1)-B*1000008 
TREG 

SAMSAVs2 


. WIDER 


SAMSAV,X*008 
SAMSAV(1}) ,ONE 
ONE sXR21 
SAMSAV,1 
PLEXIT 
O€,XR1}2B*100000° 
SNAP 

HALT 
XL2*E0R1# 
GNIP 

*—% 


SET RETURN ADOR. 


FIND LEAD EDGE CF EMITTER 


SAVE LEADING EDGE ADDR. {- 


ZERO SAM.COUNT 

ACD 1 TO SAH.COUNT 

ADD 1 TO SAM.ADDR. 

FIND TRAIL EDGE CF EMITTER 


PULSE WIDTH 2 OR MORE 


GAP WIDTH OVER 1 ? 


WRONG PULSE WIOTH ERROR HALT 


RETURN 


RRS BREE REE KE EAE REAR RES AKER KSE KEE EREERS ERSERKEESEREREREEERS EE 
* CHECK FOR BUSY & DELAY SUBROUTINE + 
PRUE RARE RAE KR ERE EH GE EA EEE EERE SEAS RE KS EESEEEEKETEREESSESRSEESEEEE 


BSEXIT+#3,ARR 
BUSUB(3),.BUSCTI 
BUSUB(3),O0NE 
TOLONG 

FLOOP »BUSY / 
BSEXIT 

HALT 

YL2°E0221° 

$oc 

ee 


LGAD RETURN ADDR. 
STOREDELAY =n 


* 


SVILL BUSY 
ERROR HALT 


BREERE HARA ERE RE EERE HERE SHARE RE KEES AEA AE AAR EAN EREAREERERSEREEREEES ROE 


* 


TREK HERE EEE EEE RARE RAE EE ARRAS EASE RE EEAE EERE ESRERSESEE EN EEEEERREKE 


It2eie 


-EL2eR¢ 


Tt2°4e 
IL2¢g¢ 
IL2*-72* 
IL2*-1208 
XL2*30E2° 
XL2°OEC1* 
AL2CHCMINE2) 
AL2 CSENIN41) 
XL2°*CO087* 
AL2 (RETURN?) 


ISFEBT71 
818912 


138 B 
139 MANTI MVI 
140 L 
141 8 
142 NTHOM CUI 
143 BNL 
144 TOMNY 8B 
145 DC 
146 TSAL SLC 
147 BNZ 
148 GNIP SLC 
149 BNZ 
150 B 
151 
152 
153 
154 LULSE ST 
155 LEEG A 
156 TBN 
157 BF 
158 ST 
159 MVI 
160 TREG ALC 
161 A 
162 TBN 
163 BT 
164 PUMIN CLI 
165 Jt 
166 MVI 
167 SNAP ALC 
168 A 
169 GAPWID CLI 
170 JH 
171 TBN 
172 BF 
173 WIDER 8B 
174 DC 
175 8 
176 PLEXIT B 
177 
178 
i79 
180 
181 BROUT ST 
182 SDC MVC 
183 FLOOP SLC 
184 JZ 
185 TIO 
186 Od 
187 TOLONG 5 
188 oc 
189 B 

. 190 BSEXIT B&B 
191 
192 * CONSTANTS 
193 
194 ONE DC 
195 TREE oC 
196 FOUR BC 
197 NINE DC 
198 FRTY oc 
199 SISFR DC 
200 nc 
201 STUU DC 
202 LASADR: DC 
203 SAMADA DC 
204 oc 
205-BRUNC DC 
LIMAY70 O1NOV70 

816671 - 816764 


NEG.72 
NEG 120 


SENSE INSTR. 


UNCOND. BR 


PROG ID 


OE06-3 
PAGE 2 


£063 
ERR LOC 
43 OC57 
at ocs9 
OC5B 
o 
Cc OCSE 
OC 66 
; OC6E 
a OC7S 
OC77 
OCTF 
fC OC87 
OC8F 
G 
C096 
¢ ocg9s 
OC9A 
ocoB 
C OC 9C 
OC9E 
OCAO 
€: OCAL 
OCA3 
OCA4 
C. OCAS 
OECO 
© OECO 
‘2 130C 
1608 
C: 1D=C 
1FFO 
1LFF2 
a 1EF4 
G 
© 
G 
Qo 
o 
o 
Co 
@ 
° 
DATE 
EC NO. 
Go | 
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AFTER SAMPLE 


2589961 
2a 


SELKIASTASRHCKREAKSSRASHEKERAE SKEBES AER SEERA G. SERS ORESCERS SAAS ESE ERE HERTS 


* 


SRIKKEKAIEKKEKA HSA BKSERSKSEKAREKKSAKES IS SEKLSSSASSESEKKSEKSSKAL ST SHH ERG SKE LEE SE 


ESKER ARS REREHEDE RERRESEARALS TS OK TELS OECTA SR HCH EK ESTES FERKEES ES EREHERRE 


* 


SESRRAKASSH ARK SSL SRR SARELERAS SSL LESS SEK KE CF AAGCKASKESHERSES SRELSESES HEE 


SAMPLE AREA 
SAMPLE AREA 
SAMPLE AREA 
SAMPLE AREA 


SERSESHESSARSEKGSESTRSE SKE K SS SE SSHRRA SRE STALKS SHKSE TSK SKS RSE SECECSLCEKSESHSE SEL SSLARESE 


& 


¥ESLESESE LEASES EHS SIHGSA HHI SAAAR SES HSS SERRA ESESHESESES SEES SI VHRABKSERSHSSS KS 
ADDRESS RECALL REGISTER 


INDEX REGISTER 1 
INDEX REGISTER 2 
LINE PRINTER 


ENTRY TO OCP 
ENTRY TO DCF 


IMAGE AREA 
ENTRY TO OCP CHAIN ROUTINE 
FRINT ROUTINE 
ERRCR HALT ROUTINE 


PRINTER BUSY CODE 


DCP SENSE SWITCH AREA 


PRINT MESSAGES ON MFCU 


OBJECT CODE - ADDR STMT SOURCE STATEMENT 
OCcFF CC58 206 COFF oc XL2*OOFF®* 
0C48 OC5A 207 ADFRTY DC AL2ZCFRTY) 
040000 OC50 208 BUSCTI DC XL3 "400008 
209 
210 * PRINTOUTS 
211 
C3C8C1C9D540C504 OC76 212 TITL1 OC CL25"*CHAIN EMITTER TIMING TEST® 
C9E3E3C 5DS40E3C9 212 
D4C905C 740E3C 5E2 212 
E3 212 
D4 1D2C540F5F2F0 OC86 213 oc CL16*PAKE 5203 READY, ® 
F340D9C5C1C4E86B 213 : 
E3C8CS054CD9C5E2 0C95 214 MAKADY OC CLAS* THEN RESET HALT®* 
C5E340C8C 103E3 214 
. 215 
216 * RESERVED STCRAGE 
217 
OCS7 218 STAT2 ODS CcL2 
CC99) «21S ERTL oS CL2 f 4 
OC9A 226 LPCUNT OS cil 
OC9B 221 TOUNT ODS cll 
CC9D 222 LEEADR OS Ci2 
“ CC9F 223 LEEAST OS cL2 
OCAO 224 MSECS ODS cul 
OCA2 225 HOFMCNT OS cL2 
OCA3 226 SAMCNT OS cul 
OCA&4 227 SAMSAV DS cil 
CCA6 228 SAVRL ODS Ci2 
22S ORG X®OECCS 
OECO 230 SENIN EQU + 
1308 231 HOMIN OS 11CL100 
1CO07 232 NIMGH ODS 23CL100 
10rB8 233 DIMES DS S5CL1CO0 
AFEF 254 SEMID DS 5CL100 
1FFL 235 ZROFF ODS cL2 
1FF3 236 SAMRET OS Ck2 
1FF6 237 BUSUB DS cCL3 
238 
239 * EQUATES 
240 
C008 241 ARR EGU x*o8* 
0001 242 XRi EQU 1 
0002 243 XR2 EQU 2 
0800 244 LPI €QuU) ss X *800F 
0216 245 LINK EQU xX*216° 
O21A 246 PRINT EQU X*21A® . 
0222 247 HALT EQU) _-X*2278 
OOEO 248 NRDY EQU X*EC® 
OOE& 249 BUSY EQU X*E6* 
250 * SENSE SWITCH EQUATES 
0208 251 SBYTEO EQU X*208° 
252 * CONTROL PGM SENSE SWITCHES 
0004 253 SSWOS EQU X*O4? 
FFFF 254 END 
25AUG69 310CT69 LIMAY70 OLNOV7O 19FE871 
816485 816529 816671 818912 


816764 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 2589961 1BM MAINTENANCE DIAGNOSTIC PROGRAM eaet NO. senrees 
Cc PAGE 3 9. 
“''! £0963 5203 CHAIN EMITTER TIMING TEST 5 E0€3 52C3 CHAIN EMITTER TIMING TEST - 
CROSS-REFERENCE CROSS-REF ERENCE : 
C = SYMBOL T LEN VALUE DEFN REFERENCES © SYMBOL T LEN VALUE OEFN REFERENCES 
ADFRTY A 002 OC5A 0207 0052 SDC A 006 OC1B 0182 0189 
Cc ADTUU A 004 0&81 0063 0067 C:  SEEWUN A 004 0884 0137 0133 
ARR C 001 0008 0241 0154 0181 SEMID A 100 IFEF 0234 
BAPRT A CO4& OAZ2S 0036 0034 ; SENIN A OCl OECO 0230 0062 0081 0086 0203 
¢ BROUT A 004 OC17 0161 006° &  SESFR A 002 OC4A 0199 0120 
sess) BRUNC A 002 OC56 0205 0068 . SKGOON A 006 OA6D 0059 0147 
BSEXIT A 004 OC3B 0190 0161* 0186 SNAP A 006 OBF1 C167 0172 
BUSCTI A 003 OCD c208 0182 C  SNIK A 004 VAAL 0073 0075 
BUSUB A 003 iFF6 0237 0182* 0183% SNOT..E A 004 OA62 0056 0046 02149 
BUSY C O01 OCE& 0249 0185 SPUDT A003 OACC 0017 0045 . 
CEMAX A 004 OB2D 0111 0947% C: SSwos C 001 0004 0253 0027 0036 
DIMES A 100 1DFB 0233. -- . S§TAT2 A 002 OC97 C218 00739 0074 
ENIF A 004 OAE3 091 0088 0093 """* §tuu A002 OC4E 0203 0060* 0062 . 
ERTL A CC2 OC99 0219 0016 C TitL1 A 025 O0C7% 0212 0032 
E06 A 001 .OA00 0003 TOGGON A 006 0A73 0060 0058 - 
FIBIOF & 003 OADS OC87 0090 0095 ,.  TOLONG A 006 0C32 0187 0184 
FIRISE A 004 OB817 ©6105 0103 0113 £ TOMNY A 004 OBAO 0144 0112 : 4 
FLOCP A 006 OC21 0183 0185 TOUNT A 001 OC9B 0221 0057* 01468 
FOUR A 0C2 O0C44 0196 0065 FREE A 002 OC42 0195 ‘ 
FRTY A 002 OC48 0198 0207 C: TREG A&A 006 0805 0160 0163 
GAPWID A 004 OB8FB 0169 TSAL A 006 OB8A6 £146 C1cCO 0107 
GNIP A CO6° CBBO 0148 0136 0175 B TWA A Oc cae; mee noes 
BAK A 004 ©0842 0120 0052* > WISER A 004 . : 
eons A 004 Be 0121 0123 -7*-  XRA C 001 0001 0242 0061% 0063 0064 C066 0086" 0087 00894 0091% 0092 0098* 0099 
HALT € 001 0222 0247 0134 0144 ©0173 0187 ay i 0102 0105* 0106 ©0109 0114 C116 0120* 0121*% C122 0155* 0156 
HMMAX A 004 OB7@ 0132 0051 oO 0158 Cl61* 0162 0168* 0171 
HMSIN A 004 O8B6D 0130 0050* XR2 C 001 0002 0243 0062# 0063 00654 
HOMCNT A -0C2 OCA2 6225 0076* 00T9* ZROFF A OCO2 1FFR 0235 
HOMER A 00% OB87B 0134 0131 c ; 
‘+. HOMIN 4.1200 1308 0231 0082* 0202 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = e 
ITNAM A CO& OAF9 0097 0048* ; 
C ITSUP A 003 0838 0114 0110 O 
LASADR A-002 OC50 0202 0066 
LEEADR A 002 OC9D 0222 0127 0129* 0130 0132 01584 
(C  LEEAST A 002 OC9F 0223 0127* 0129 OG 
LEEG A 004 OBC2 0155 0157 ve 
LINK C COL 0216 0245 0150 
€ LKGAN A 006 OAFD 0098 0104 0141 GS 
LPI C 001 0800 0244 0077 0077 OO78 O078 - 
LPSUNT A 001 OC9A 0220 0044% 0148% - 
Cc LULSE A 004 OBBE 0154 0124 0125 0126 ©0128 O137 0138 Q 
MAKADY A G15 O0C95 0214 0041 : 
MANTI A 004 OB8C 0139 0049% = 
MRALT A 003 OAZA 0043 0037 @ : 
MSECS A O01 OCAO 0224 0056* 0059* 0076 
NEXEM A 004 OAF5 0096 0143 
C NIMOH A 100 1C07? 0232 
‘') NINE A 002 0C46 0197 0059 ven 
NOOGOT A 004 OA3D 0044 0035 
< NRDY C 001 OOFO 0248 CCAS 
NRTIO A 004 OA22 0034 0028 
NTHOM A 004 0898 0142 0097* 0115 01392 
© GONE A GGZ 0C40 Gi94 0064 0079 0089 0091 6098 0101 0105 0108 ©0121 0146 0148 0155 G 
0160 0161 0167 0168 0183 
.  OOFF A 0C2 C¢58 0206 . . 
© PLEXIT A 004 OC13 0176 0154* ©170 G , 
PRINT € 001 O21A& 0246 0029 0038 
PUMIN A 004 OBE6 0164 
©. - RETURN A 004 OACD 0082 0205 ¢ if 
7° RTNL =A 002 OACD 0023 001s fe 
SAMADR A 002 OC52 0203 0060 
C SAMCNT A 001 OCA3 0226 0C96* 0101* 010A8* O111 0142 
SAMRET A 002 1FF3 0236 0068* 
_ - SAMSAV A OO1 OCAS 0227 0159% 0160* 0164 0166* 0167* 0169. 
CG SAVR1 A 002 OCA6 0228 0116* 6140 © 
SB8YTEO C COl 0208 0251 0027 0036 
. Shes ae © 
DATE 25AUG6S 310CT69 LLMAY79° OLNOVT7O 1SFEBTL PROG ID 0E06-3 DATE 25AUG69 310CT69 LI MAY70 O1NGV7O 19FEBT71 
EC NO. 816485 216529 816671 816764 818912 PAGE 3 EC NO. 6816485 816529 816671 816764 818912 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 2529961 § 
@ PaGE 4 t 
. E063 52C3 CHAIN EMITTER TIMING TEST 
OBJECT CARD LISTING f 
s te 
."} THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. f 
@ CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 | 
9% eo oe eo e e ewe e e *.. e¢ 
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3 _* o ee e se ee eo en e ® ee . e e ° e eo s i : 
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g e @ @ ee e e e e e ee e a ee ee 
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PART KO. 2589923, « IBA MAINTEBRANCE DIAGNOSTIC PROGRAS PART HO. 2589923 
PAGE 1 & PAGE TA 
i : 
f 


Prus S/3 ASTER TIMING ANALYSIS PROGRAN (STAP) *  « PRS&S $/3 SASTER TISING ANALYSIS PROGRAM (STAP) 
ADDR STAT SOURCE STATEMEBT 


IBS MAINTENANCE DIAGNOSTIC PROGRAR 


* 
ERR LOC OBJECT CODE 


| ERR LOC OBJECT CODE ADDR STST SOURCE STATEMENT : 


* 
a 2* ORG*S AT 1F00 LAST CHG:08:21 75 4 0a97 3D F3 1F01 70 CLI RDFD+¢1,x°F3° *CK FOR AND BRANCH IF THIS IS BOT 
3 DECK & OASB F2 01 09 71 JWE CARDS *THE THIRD CONTROL CARD 
: : & SEQ 0 =e 
i 0a00 5 PF8S6 START X*Aa00* «+ 
6 TREP I 
i f 7 RECEKSSESSSTHKES SS SKESHESSSESEESKEK SEES SEE SESE EEERESEKESSESERETS EEEEEEESESE | . 
6 Ps 
9 * MASTER TIMING ANALYSIS PROGRAB | 
10 * ? 
i 91 EHeSSE SETS SEEKS ES CEKSEECE CESSES SS SHS ECEKSEKT SSK ESLOESSESTCESARSESSESESEKSSSSBSESSS as 
Hy 12 * SECTION PREFACE | 
# 13 SEKSKSSKEREKKESS SEES SKSEALSSTIKESKSSKTE SES SARSSS SKIECSKSKSKEKSKSESEESESESSSSSES: 2. 
0a00 FF48 OA01 8618 pc XL2"FFGB* PROGRAM ID AND REVISION LEVEL a 
0a02 00 0a02 15 Dc XL1°008 SECTION FLAGS { 
0a03 00 0303 = 16 DC XL 17°00" CURREFT ROCTINE BUSBER Loo 
0A04 0000 oaos)==s-37 DC XL2"0# we 
0A06 OAOD Oa07) 3=—s-'18 pc AL2 (RT01) ADDEESS OF FIRST ROUTIRE I 
0a08 0090 oao9 830-19 pc XL2"Q# aa 
Oa0A F01000 oaoc§ 20 DC XL3*P010008 UNIT DEFINITION TABLE boas 
Z1 SHES SKESEKESTHSE SESKETSSK CESS SSESSCSKECSASSSTSS SCESSESSSEKSCSKSSSHSESSKSSSESS ‘ 
22 * ROUTINE 1 PREFIX ! 
23 SECKSEKESCKKESSSESESCSSESEACSKSS SCESKESEKSESSSKSSKEKCS SE KCESRSS SEK SESSSEARSHKSSS SSRIS : 
OAOD 01 oaOD 86.24 RTO1~ =i XL1°O18 ROUTINE WUBBER 
OAOE 90 OAOE 25 pc XL 1° 008 | 
OAOF FPFFF OA10 626 DC XL2 *PPPF* 
OA11 CO 87 0222 27 RDCETR B HALT i 
OA15 FFFF 0A16 86.28 Dc XL2¢FPFF® 
0a17 3B FF 1543 29 cou SBF FLAGS2,X*FF* TURH OFF FLAGS 10 THRU 17 
2a18 OC 01 1679 15E3 30 MVC = LINE 1#2, BLABK (2) 
0A21 OC 01 16D1 1583 31 NVC LIWE2¢2,BLA BK (2) 
0A27 3C 00 1CF2 32 NVI ORTABS506,x%°00° 
0A2B 3C FF 1EEP 33 MVI ANDTAB¢506,2°FF* “ 
Oa2P 30 00 1615 34 SNS  WORK,X*00* READ THE DATA SWITCHES 
0a33 3D AA 1618 35 CLI WORK-1,X"AA? *CK FOR AND BRANCH IP LOOP ON 
0a37 F2 81 86 36 JE CKPFE *RUNNING THE SAME TEST ES WARTED , 
OA3A 38 80 0233 37 TBH UTABS1,X*80° *CK POR AND BRANCH IF NOT LOADING 
OA3E F2 10 08 33 st SES *FROM A DIRECT ACCESS DEVICE 
0AS1 3D &£O 0232 39 CLI UTAB,X*a0* 
0asS CO 01 0a57 40 BNE wWEXTH . 
0A49 30 00 0AS3 4&1 SHS SUS  DA,0 
QASD CO 87 022~a 42 B LOAD *LOAD 
0a51 20 0a51 0s 43 - pe XL1*208 FIRST 
0aS2 0000 0a53 4&4 DA pc XL2*0* *RECORD 
0a54& F2 87 05 45 3 STOP 
0A57 CO 87 022A 46 WEITA B LoaD *LOAD REST OF RECORDS 
Oa5B 10 OASB 47 DC XL1°10¢ *ONE AT A TIME 
OASC OC SF IF5F O8DP 48 STOP AVC RDFD¢95,2271(96) 
5A62 CO 87 021A “9 B PRI RT 
OA66 01 0a66 8650 Dc XL1°01°¢ 
6a67 60 OAc7? 51 pc IL1#96* ; 
OA68 IFSP 0a69 8652 pc AL 2 (RDFD¢95) 
GAGA 3D F1 1701 53 CLI RDFD¢1,X°F1¢ *Cx POR AND BRANCH IF THIS IS wOT . 
OAGE F2 01 1F 54 JHE CARD FIRST CONTEOL CARD 
55 KELECESEHKTEESSSSEESERSESSEESSSE SEKSSSSSSSSSESSESCSESTKE SSESEHSESEETCSESSEK SESE SESE SSESESOEE i 
56 CONTROL CARD 1 SODIFICATION OF PROGRAN 
57 BEKESK EEK CHEEKS S SESKK SEK SEK KEK SH SS SESSA ESESKSSEKSSS SSEKEKSSESSESSHESVSSSESSss , 
0a71 38 20 020D 58 TBM SBITES,SWSE2A *CK FOR AMD BRANCH IF NOT GANTING 
0a75 F2 90 06 59 JF FIRST1 *TO BAKE CHANGES TO THIS INFO 
0A78 CO 87 0222 60 B HALT *HALT FOR CHANGES 
OA7C FFF1 0a7D 2s 61 pc XL2°PPF1® *TO BE MADE 
. Oa7E CO 87 0226 62 PIRST1 B PACK *PACK COMMANDS és a 
0a82 20 0as2 = 663 pc IL1°32° *AND DELAYS 3 
ae 0483 1F23 0ass «64 DC AL 2 (RDFD+ 35) *IBTO CAND oe x 
oi OASS 1F6F OA86 = 655 be AL2 (CANDS 415) *TABLE Fee & 
OA87 OC OD 1556 1F31 66 SVC CAED, BDFD #69 (14) HOVE CHND BAKE INTO ASG @ 
; 2 OASD F2 87 28 67 3 EVER GO READ ANOTHES CARD rc 
: 0a90 3D F2 1P01 68 CARD CLI RDFD¢1,X*¥2¢ *CK FOR AND SRANCH IF THIS IS ae : 
0a94 F2 81 OF 69 JE CARD2 “THE SECOND CONTROL CARD t 
; ; 
DATE 16HAB70 16aP870 2930N70 010CT70 3030173 15NOV7& O2saY75 PROG ID FF&-8 1SBOV7S O2Nay75 PROG iD PF&-8 
ZC WO. 816651 816678 572266 PAGE 572266 PAGE ta 
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IBS BAINTEBANCE DIAGBOSTIC PROGBAB 


. PFS 


S/3 MASTER TIBING AMALYSIS 


BRR LIC OBJECT CODE 


x 


- 


a 


OL9E 
Caasd 
OAA7 
OABB 


in 


om ke 


OAAE 
OABA 
0aBs 
OABB 
OABF 
Oaco 
OAC4S 
OALS7 
OacB 
OASD 


wre 


OAD1 
OaD5 
OaD9 
OADD 
OADE 
OAEO 
OAEZ2 


OME6 

OAEA 

OAED 

OAFI 

Oars 

OaF9 

OarP 

0B03 

0807 

OBOA 

OBOE 

0B18 

0518 

0819 

OB1B 

OB1D 

0B21 

0B25 

0529 

OB2F 

0B33 

0837 

0B3B 

0B3E 

OBS2 

OB4B 

OBSE 

OBS4 
—OBSA 

‘ 0B60 
. 0563 
0869 

+ OB6P 
0B75 
0B7B 


DATE 
EC WO. . 





oc 
F2 
3D 
F2 


oc 
3D 
F2 
co 
16 
38 
P2 
co 


55 
87 
Ps 
01 


55 
cs 


87 
40 
87 


FOPE 


co 


3D 
co 
co 


87 


FS 
01 
87 


1F57 
16 PB 


co 


38 
F2 
co 


87 


20 
90 
87 


FFF2 


oc 
oc 
3B 
3D 
F2 
3A 
oc 
co 
58 


03 
o1 
04a 
80 
81 
40 
0% 
87 


1757 
1727 


3B 
3D 
co 
OD 
co 
38 
39 
F2 
3a 
oc 
oc 
oc 
oc 
OD 
P2 
oc 
oc 
Oc 
oc 
F2 


0% 
c5 
81 
06 
01 
38 
co 
90 
os 
01 
00 
00 
00 
01 
81 

03 
02 
006 
01 
87 


1677 


1701 
06 


16CF 
TP O1 


O2taA 
1582 
0222 


OEM 


1P01 
0a57 
0226 


OAS7 


020D 
06 
0222 


175 
1878 
1583 
1F57 
Oa 

1543 
ICFs 
0226 


0295 
1P 08 
1P80 
IP3t 
iFCA 
16FE 
167E 
Oa 

0£95 
OES4 
0£73 
0282 
OR86 
1F 48 
1B 

1621 
OPr4a7 
OF&3 
OF3A 
OF 


168 AB70 


816651 











ADDR 
1¥F57 
1P57 
OABF 
oacc 
OADD 
OADP 
OAE1 
OAF2 
1P17 
TPC 
1P57 
0518 
OBTA 
OBIC 
1SE3 
1PCc3 
170E 
170F 
1710 
15B3 
1P55 
1726 
1721 
OFSB 
TSaPRIO 
816676 








PROGRAN (HNTAP) 


PAR&T 
PAGE 


RO. 


2589323 
2 


SESKESESSS SECESE SESCKSAKS ATES SECS SSS SESS SKESS HHSEEEEEESEEEEESEREHES SESEESE 


* CONTROL CARD 3 MODIFICATIOK OF PROGRAS 
SHESSES STAGE TESS SHSSEES SE SEOESESEEES HES EEE SEE SSEHEEKESESESESKSESSEE SEKEEES 


LISE1,RDFD+87 (86) 
NEVER 
RDFD+1,X° Pu* 
WEVER 


INSERT FIRST LINE OF BIT BASES 


GO READ ANOTHER CARD 


*CK FOR AND BRANCH IF THIS IS 


*THE FOURTH CORTROL CASED 


uot 


SECTS SES SESE ESS SERSHE SE EEKESEESES KSEE SE EESS STEVESHE SEEKS SERESSESEESESE 
* CONTROL CARD & MODIFICATION OF PROGRAN 
SE SAOKESESEKETKSS SESS SATE CE RSESESSSEKESE SEES ESES CHESESSS SORES SETEEES GE TESESE 


INSERT SECOND LINE OF BIT WAKES 


LINE2,RDPD*t87 (86) 
RDFPD+¢1, X°C5* 
CARDS 

PRINT 

XL1°16° 

FLAGS, FLAG! 

CKO 

HALT 

XL2 *FOPE® 

LETSGO 


*CK FOR ABL BRAECH IF 
*¥9 HALT 


GO START THE PROGRAE 


APTER LaST COWTEOL CARD 


SESHSESSSSSSSHSSSESSEASSSE TE SSESKSEGKES SEEKS SKESESSHSKSL SSS SESESGSSSSHESSSEESKEL 


* CONTROL CARP 5 SODIFICATION OF PROGRAR 
SS EKTESSHESHSSSE SEEKSSHEOSESESEESCHHES STS TH SEES ESCHESESE SE STSESSESSRESTETSEKE 


BDPD+1, X*P5° 
WEXTS 

PACK 

IL 1° 6a¢ 

AL2 (RDF D+87) 
AL2 (LISITS¢&1} 
NEXTH 


KEE ET SAASKSS ALKA SHSESS SES SEES SKKSESSS SESE SSE ES SOSSEKESTSHSSSESENSESESESES 
* CONTROL CARD 2 MODIFICATION OF PEOGRAR 
CRESS SESERSSSSKSSHESESHE RE SCESSATS SRS SOSKE SES 4 SETHE SSH SESS SS SE SSE HSREE SE 
SCK FOR ARD BRANCH IF HOT WARTIRG 





SBYTES, SBSH 2A 
SECOND 

BALT 

XL2°PPF 2° 
HULT , RDPD+23 (4) 
RAY02¢3,DATA1 (2) 
PLAGS 2, PLAG15 
RDFD¢87 ,X*40°* 
PACKIT 

FLAGS2, FLAG11 

SS, RDFD +87 (2) 
PACK 

IL1¢86¢ 

AL2 (RDPD¢87) 

AL2 (DATFLD+& 3) 
TIOONE* 1,X° 08° 
BDFD*4 ,X°CS* 
LDPRNT 

RDOPD*49,, BLABK (7) 
LDDISK 
DATFLD¢2, X* 38° 
DATFLD¢2,X*CO® 
LDTHER 

TIOONE+1, 2°08 ¢ 
LET4¢3, AFL (2) 

LET 341( 1) , DATFLD¢18 
LET4¢1 (1) ,DATPLD¢ 19 
LET5¢1(1) ,DATFLD+20 
RDPD¢75,, BLANK (2) 
CK&2 

DELAY3, RBDFD+85 (4) 


SYRC3¢2,DATPLD+490( 3) 
SENSE3*1(1) ,. DATFLD+437 


WAY*3, BACK3 +43 (2) 
SETOP2 


3030173 
$77121 


STHT SOURCE STATESENT 
73 
74 
75 
76 aVC 
77 J 
78 CARD’ CLI 
79 Ine 
80 
81 
82 
83 AVC 
88 WEVER CLI 
85 JNE 
86 B 
87 DC 
88 CKFE TBH 
89 JF 
90 B 
91 pc 
92 CKO B 
93 
94 
95 
96 CARDS CLI 
97 BNE 
98 B 
99 DC 
100 DC 
101 DC 
102 B 
103 
104% 
105 
106 CARD2 TBH 
107 JP 
108 B 
109 DC 
110 SECOND MYC 
111 nvC 
112 SBP 
113 CLI 
114 JE 
115 SBM 
116 HVC 
117 PACKIT B 
118 pc 
119 DC 
120 pc 
121 SBF 
122 CLI 
123 BE 
128 CLC 
125 BNE 
126 TBN 
127 TBF 
128 OF 
129 SBu 
130 svc 
131 LDTHES AVC 
132 AVC 
133 KYC 
138 CLC 
135 JE 
136 MYC 
137 Svc 
138 HVC 
139 ayc 
140 3 
2930870 010CT70 
816708 816760 





15y0v78 
572239 


®TO CHAEGE THIS IFO 


*CK FOF AND BRANCH IPF 

STHIS BREA IS BLANK 
TURN ON SY¥NC-SAAP SANTED 
BOVE COURT IN FOR S£NC-SAHP 
*PACK 

3 


& 
= 
SSET OFF #8 BIT OF Q CODE 
SCK FOR AND BRANCH IP THIS 
iS A PRIRTER TAP 


*CK FOR AND BRAHCH IF THIS 


*IS A DISK TAP 
SCK POR AND BRANCH XP THIS IS 
*NOT A 
#2501 TAP 
*SETUP POR 
*2501 TAP 
LOAD 1/0 
LOAD Io 
LOAD 1/6 
*CK FOR AND BRANCH IF 
*NO THIRD S¥NC 
MAKE SYNC 3 INSTRUCTION 
*HODIFICATIONS 
s : 
O28 aY75 PROG ID 
572266 PAGE 


a ee en ee ee 


& 4 


4 


IBS BAIMTEBASCE DIAGROSTIC PROGRAR 


Pras 


ERB LOC OBJECT CODE 


OB7E 
OB8a 
0587 
OBBD 
0B93 
0B99 
OB9F 


OBA2 
OBA6 
OBA9 
OBAP 
OBBS 


OBBE 
OBBE 
OBCS 
OBCA 
oOBDO 
OBDS 
ospoc 
OBE2 
OBES 
OBEC 
OBF 2 
OBPB 
OBPE 
ocus 
OCOA 
ocoD 
0013 
Octg 
OC iF 
oc25 
OC2ZB 
0c31 
GC37 
oc3D 
oca3 
ocK9 
OC4&P 
ocss 
OC5B 
Océi 
0c67 
0céD 
0c73 
0C76 
oc7c 
ocB2 
océ5 
OC8B 
OCBE 
oc94 
oc9s 


OC9B 
ocat 
OcAS 
OCA8 
ocac 


OCAP 
0CcB3 


OCB6 
ocBc 


OD 
P2 
oc 
oc 
oc 
oc 
F2 


3D 
P2 
oc 
Oc 
F2 


oc 
oc 
oc 
oc 
oc 
06 
07 
co 
oc 
oc 
oc 
08 
oc 
OD 
F2 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
0c 
oc 
oc 
OE 
oc 
oc 
oc 
oc 
oc 
oD 
F2 
oc 
OD 
F2 
OD 
F2 
oc 
3c 
72 


oc 
3D 
F2 
3c 
F2 


3c 
F2 


oc 
3D 


01 
81 
01 
03 
62 
00 
87 


E3 
01 
00 
01 
87 


071 
03 
02 
00 
04 
31 
02 
01 
00 
00 
00 
60 
03 
01 
O14 
04 
90 
oo6 
00 
00 
co 
00 
CO 
i) 
696 
00 
00 
00 
00 
00 
ca 
01 
82 
01 
01 
Ot 
01 
07 
00 
C8 
87 


00 
01 
04 
DS 
87 


c& 
87 


00 
03 


1? 3F 
1B 

OF 3A 
161D 
OF67 
oré63 
tc 


1P32 
or 
or 3c 
OF3A 
48 


OF 3a 
16 19 
Ors? 
or83 
156C 
156C 
1P 17 
ORD6 
10 16 
OPAB 
Ore} 
OE95 
1F7D 
IPOD 
oc 

t708 
1702 
TGtS 
OPAE 
OFESs 
tF 70 
1aPE 
ISOA 
10 38 
104F 
1703 
iP71 
1520 
152c 
106F 
1086 
1707 
5B 

Oras 
1FOB 
16 

1F13 
28 

1F03 
YFSB 
&E 


IFO3 
16 PP 
07 
1FSB 
3a 


1F58 
33 


1F03 
1703 


16B8A870 
816651 


S/3 SASTER TIBING ANALYSIS 


PROGRAB (STAP) 


PART HO. 


2589923 
PAGE 2a 


ADDR STAT SOURCE STATEREST 
191 © 
153 142 CKS2 CLC  RDPD+63, BLANK (2) *CK FOR AND BRASCE 
183 JE  CKatt *1F 80 SECORD SYEC 
OF 68 108 BYC WAY*3,BACK2¢3 (2) 
1F39 185 SETUP2 AVC DELAY2,RDFD¢73 (8) *HAKE SYBC 2 LNSTRUCTION 
IVE 146 MYC SYHC2*2,DATFLD¢34(3) *HODIFICATIOBS 
1718 147 SVC SENSE2*1(1),DATFLD¢31 = * 
198 3 PACK1 
189 © 
150 CKS11 CLI BDFD+¢50,X°E3°* *CK FO2 SYNC ON TIO 
151 INE  CK&1 *AND BRANCH IF BOT 
1716 152 BYC  TIOCHDE1(1) , DATFLD¢26 
1°BB 153 BYC WSAY+3,ATi0(2) 
15% J CLEAR 
155 * 
OF 8B 156 CK41 S¥C  WAY¢3,BACK143 (2) 
1P3D 157 PACK? MVC  DELAY1,RDPD+¢61(4) *NAKE SYNC 1 INSTRUCTION 
1718 158 SVC SYNC1¢2,DATFLD*+28(3) *MODIPICATIONS 
1715 159 MVC SENSE1¢1(1),DATFLD¢25 * 
1583 160 CLEAR MVC  HISTRY-22,BLANK (5) CLEAR COUETER 
35CB 161 SETSEG AZ HISTRY-22(5),D50(2) ADD 50 FOR EACH 
15D2 162 Sz RDFD+23 (3) , D001 (3) *HX CROSEC 
163 BZ SETSEG *] NCREBERT 
1672 168 MVC SNS1¢1(1) ,DATPLD¢2 *SETOP 
16 PE 165 AVC SNS341(1) ,DATFLD¢2 *FIRST 
16PE 166 AVC SNS5¢1(1), DAT FLD¢2 *SEESE 
16FE 167 8ZZ TLOONE+1,DATFLD+2 SETUP T10 FOR EACH DEVICE 
1F20 168 HVC TIMES, RDFD+32 (4) LOAD BSUKBER OF CANDS TO BE SAMPLED 
1583 169 CLC BDFD*13, BLANK (2) *CK POR AND BRANCH 
170 JRE UNDER6 *1P TBO SEXSE COMMANDS 
15F3 174 HVC DATPLD¢8,ZERO(2) f 
16 FE 172 HVC DATFLD*6(1) ,DATPLDE2 
1702 173 ONDER6 AYC SHS241(1} , DATPLD+6 *SETOr 
1702 178 BYC SS44¢1(1),DATPLD+6 *S ECON D ; 
1702 175 NYC SNS6+1(1) -DATPLD+6 *SEBSE 
1700 176 MVC =: MAS K1.(1) , DAT PLD4 
16 FP 177 BYC OVER¢S (1) ,DATFLD¢3 
16PF 178 AVC © CONP*4( 1) , DATPLD*3 
16PF 179 HVC OVER3#4 (1), DATFLD?3 
16 PF 180 HVC COMP 344(1) , DATFLD+3 
OCEA 181 ALC DATFLD¢7(1) ,PIX¢1 ADD 2 TO DISPLACESEST 
1708 182 HVC #SASK2 (1) ,DATFLD#6 
1703 183 MYC OVER22¢4(1) , DATPLD¢? 
1703 184 BVC COMP22+8 (1), DATFLD¢7 
1703 185 NVC OVER33¢4(1) ,DATFLD¢7 
1703 186 HVC CONP3344 (1) , DATFLD+7 
15 De 187 CLC DATFLDe11, TER (2) *CK POR AND BRANCH IF LESS THAB 500 
188 JL UNDER *RICRO SECOND SAAPLE TISE 
1106 189 MVC WHERE+3,TAB143 12) SETUP TO SAVE DATA AS SERSED 
1553 190 CLC RDFD+¢11, BLANK (2) *CK FOR AHD BEABCH IF THIS 1S 
191 JWE FIFTY! *BYTE TO SONIC SAMPLE INTO 
15 E3 192 CLC RDPD¢19, BLANK (2) *CK FOR AND BRAECH LF THIS 1S 
193 JHE PLPTY2 *BYTE TO 5SOMIC SAMPLE ImTO 
16FE 194 MYC RDPDe3 (1) ,DATFLD+2 *IBITIALIZE TO IGBORE DATA WHICH 
195 SVI RDFD¢91,X°CBe SILL BE SAMPLED EVERY SOIC 
196 J FIX 
197 
16PE 198 FIFTY) HVC RDFD¢3(1) , DATFLD¢2 MOVE FIRST SWS CAND IB FOE -S¢ 
199 CLI DATPLDe3,xX°01" *CK FOR ABD BRANCD IF LO® &ORE 
200 JHE  LEFTI *BYTE IS TO BE -ORED- I8fC 
201 NVI BDFDC91,x°DS* SETUP TO -OB- INTO HIGH ADI .25: 
202 J FIX 
203 * 
208 LEPT1 BVI 8 RDFD+91,X*Cast SETUP TO ~OR~ INTO LOW ADDRESS * 
20. 3 PIX 
206 * 
1702 207 FIFTY2 MYC &8DFD+¢3(1) ,DATFLD+6 MOVE SECOND SBS CAND IB POR -50:. 
208 CLI DATFLD+7,X*03* *CK FOR AWD BRANCH IF LOW ADDRES: 
14 APR70 2930870 0 10C770 3030L73 1SH0v74 0284175 PROG ID PRa- 6 
816678 816708 816760 5771421 572239 572266 PAGE 28 
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IBA SAINTENANCE DIAGHOSTIC PROGRAB FART BO. = 2589923" | :35 MAINTENABCE DIAGWOSTIC PROGRAB PABT BO. 2589923 
PAGE 3 i PAGE 3a 
_ ’ 
FFs S/3 MASTER TIBING ABALYSIS PROGRAB (KTAP) é Fe $/3 SBASTER TIBIBG ABALYSIS PROGRAS (STAP) 
ERR LIC OBJECT CODE ADDR STAT SOURCE STATESEST ERR LOC OBJECT CODE ADDR STAT SOURCE STATENENT 
‘ ecco F2 01 07 209 JHE LEFT2 *BYTE IS TO BE -ORED- I8TO 5 0202 CO 10 0357 277 BT HEITH *BYTES HAVE BEEN CHECKED 
O0cc3 3c D7 1F5B 210 SVI-° BDPD¢91,X°D7* SETUP TO -OR- INTO HIGH ADDRESS BITE OE06 3A 0& 1583 278 SBD FLAGS2, FLAG15 
: OCC? F2 87 1F 211 J FIX OEOA OC 01 ODCB 1P87 279 HVC THESE¢3,AMASK1 (2) 
i 212 © 1 0z10 co 87 Opcs 280 B ‘THESE 
occa 3C C6 1P5B 213 LEFT2 «AVI RDF D¢91,x%°C6* SETUP TO -OR- INTO LOW ADDRESS BYTE , 281 885849850 FS SE EES OEE EES EEEEEEREESSEES SOSREEE ES EEEESEEEE EERE SEEEEESS EERESSS 
‘ OCCE F2 87 18 214 J PIX ape 282 * BEGIN EXECUTION OF COMMANDS 
4 OCD1 OD 01 1707 15F& 215 ONDER CLC DATPLD¢ 11, 0NE (2) *CK FOR AND BRANCH IF ONLI ? 283 SESSA SESSESHESE SEKESCEHEEELESERSSSEESSEESES SERSSSESERESSEKEESESEERESSSEOES 
OCD? F2 81 69 216 JE JUAPIT *50 SICROSEC SAMPLE TIBE i 0219 3B 1B 1582 288 LETSGO SBP FLAGS,X*1B¢ TURN OFF FLAGS 3, 4, 6 7 
< OCDA OC O61 OFAS 1010 217 svc WRERE+¢S, TAB S¢ 3 (2) SETUP TO DELAY BETWEEN SABPLE TIHES : we OE18 OC 03 1547 1583 285 NYC MANY, BLANK (8) CLEAR CARDS CHECKED COUNTER 
i OCEO F2 87 06 218 J PIX — OE1E OC 03 1F79 1F7D 286 SVC PASSES,TIMES (4) LOAD BUMBER OF CHEDS TO BE SASPLED 
219 * i 052% 38 FO OF83 287 TBN  SENSE1¢1,X*FO! *CK FOR AND BRARCH IF 
OCE3 Gi @1 OPA9 OFBC 220 JUBPIT “VC WHERE*3,TAB3+3 (2) SETUP TO SASPLE EVERY 50 BICROSEC | | 0£28 F2 10 OD 288 It ISMFCU *NFCU SEESE COSHAND 
OCES Oc $2 1606 1F1B 227 FIX AVC SANPLE, RDFD¢27 (3) SETUP SABSPLE COUNT CONSTANT - 0E2B 3C 87 OF13 289 AVI ONLY1¢1,2%°87¢ SETUP TO SAHPLE IASEDIATELY 
OCEF OC G2 1609 IFIB 222 AVC = =—- NUBBER , RDFD +27 (3) OE2F OC 03 OB8C 15F8 290 BAYBE YC TIOTWO*3, BOT143(%) WO-OF FIRST AFCU TIO BUSY 
: OCF5 06 02 1609 15PD 223 AZ HUMBER (3) , D002 (3) a 0E35 F2 87 18 291 3 LETS 
é OCPB OD 03 1679 15D1 224 CLC DELAY1,D001-1 (4) CK PO2 AND BRARCH IF THERE IS : 292 
9D01 F2 01 09 225 JNE OBICIN *A PELAY APTER THE FINAL SYBC 0238 38 10 020D 293 ISAFCD TBN SBYTES,SNS#2B *CK FOR AND BRANCH IF 
OD0% OC 02 OFBP OFAS 226 MVC SOWAIT?¢3,HHERE+3(3) SETUP TO BR IBMEDIATELY TO SASPLE OE3C F2 10 07 294 St BY PASS *PILL COMBABD IS NOT WANTED 
ODOA F2 87 04 227 J GETOS : OE3F 3C 10 OF13 295 AVI ONLY¥1¢1,X° 108 SETUP TO PRIME AFCO 
228 * j OE43 F2 87 08 296 J INIT2 
ODOD 3c 80 OPED 229 ORIGIN KVI ROBAITC1,X*°80° WO-OP THE BRANCH COSAAND — 297 * 
0D11 08 03 1022 1F5B 230 GETON ABN DD1+2,RDPD+91 . . OE46 3c 97 OF13 298 BYPASS AVI ONLY141,X°97¢ SETUP TO SAMPLE IMMEDIATELY 
0D17 C2 01 1F03 231 LA RDPD+3,XR1 i OE4A F3 FO CO 299 ENIT2 SXO Xx*00*,X*FO® PRINS PRIMARY 
OD1B 1c 00 102A 00 232 AVC =—6BA141(1) ,0(,XB 1) = i OE&D F3 FB 00 300 SIO X*00*,xX*F8* PRIH SECONDARY 
0D20 1c 00 1041 00 233 RVC) = RAZ*7 (1) ,0(, XR 1) : 0E50 OC FE 1CF1 1CF2 307 LETS YC O8TAB¢505,ORTAB¢506 (255) *LBRITIALIZE -OR- TABLE 
0D253 1C 00 105a 00 234 BYC = AA3¢4(7),0(,XB1) - : OES6 OC FB 1BF3 BFK 302 MVC ORTABS¢251,OR8TAB*¢252(252) *fT0 ALL ZEROS 
OD2A IC 00 1071 00 235 AVC = AAS #1: (1) 0 (, XB) * : OESC Oc PE 1EEE 1EEF 303 RVC AHDTAB4¢505,ABDTAB*506(255) *IBITIALIZE -AND- TABLE 
OD2F tc 00 1088 00 236 aYC AA5¢1(1) ,0(,XR1)} *sHOVE SHS 18 FOR 5SOBIC SAMPLE OE62 OC FB 1DFO 1DF2 3048 NYC ABDTAB* 251, AN DTAB*252 (252) *fO ALL ONES 
0D34 Ic 00 1080 00 237 HVC «AAG 41(1),0(,2%R1) - 0£68 C2 01 1P60 305 BEXTCD LA CHHNDS,XBE1 LOAD ADDR OF CANDS INTO XR1 
0D39 1C 00 10B7 00 238 AVC 8 =—AA74#1(1) ,0 (, XB 1) = O£6C OC 03 159D 1F75 306 AVC SETPRT, MULT (4) LOAD SAMPLE TIME COURT CORSTART 
ODJE 1c 00 10CB 00 239 AVC AAS¢1(1) ,0(,XE1) s 0E72 31 F4 IFAF 307 LET3 LIO LDRD,X° Fa? 
OD43 IC 00 10£0 00 240 BAVC =—&. 49 #9 (1) 0 (, XB1) x OE76 3D F4& O£73 308 CLI LET3¢1,X¢RFa® *CK FOR AND SRANCH IF THIS IS HOT A; 
OD4’8 1c OO 10F1 00 241 SVC AA10¢1(1) 0 (,XB1) - OE7A F2 01 08 309 JHE LETS *HFCO PRINT LIO 
CD4D 08 02 1030 1F5B 242 BNZ 8 BB1¢4,RDFD*91 * O£E7D 3C F5 0£73 310 AVI —s LET3¢1, X°RS* SETUP POR READ LIO INSTEAD OF PRINT | 
0D53 08 02 1047 1F5B 243 MNZ BB2¢4,RDFD¢91 * 0£81 31 PS 1FAP 311 LETS LIO LDRD,X*FS* ; 
0D59 08 O2 1060 1F5B 24a BNZ BB3+4 , RDFD¢91 * OE85 31 F6 1FAP 312 LETS LIO LDRD,X* F6 * : 
ODSF 08 02 1077 1F5B 245 ANZ BRS4*4,RDFD+91 * 0E89 C1 ¥8 112D 313 TIOTHO TIO DIAG,X*FB* BRANCH IF ERBOF OR NOT BEADY : 
0D65 08 C2 108E 1F5B 246 SNZ = =BBS +4, RDPD+91 **SETOP TO SAVE PROPER BETE CE8D 39 £0 O£9S 314 KBTST TBF TIOONE¢1,X* £0? IS THIS CONSOLE 1/0 OR 2956 
OD6s 08 02 10a6 IFSB 247 SHZ = =6BB6+4,RDPD*91 - OE91 F2 10 08 315 st CLCCOK IF SO, SKIP OVER T10 
0D71 08 O02 10BD 1F58 248 BNZ 8 BB7+4,RDFD*91 * 0E94 C1 FO 112D 316 TIOOBE TIO DIAG,xX*FO? BRANCH IF ERROR OR NOT READY 
OD77 08 O2 10D1 1F5B 249 MNZ = BB8¢4,RDFD+S1 . 0298 4D 01 03 15F3 317 CLCCOH CLC 3(2,XR1),ZERO *CK FOR AND BRANCH IF THIS IS THE 
OD7D 08 O02 10E6 1F5B 250 ANZ BB9+4, RDFD+91 . OEID F2 81 5B 318 JE SANP *CONBAND TO BE SAMPLED 
0D83 08 02 10F7 1P55 251 BNZ 8B10¢4,RDFD+31 OEAO 79 F0 00 319 TBF 0(,XR1) ,X°FO? *CK FOR AND BRANCH IF THIS IS NOT 
0D89 OD 01 1F33 15E3 252 CLC RDPD+51, BLANK {2) OFA3 F2 90 3B 320 JF RODLAY *A TIME DELAY BETWEEN COMSABDS 
ODBE PZ 01 06 253 JNE SET1 OEA6 1C 01 1615 01 321 MYC WORK, 1(2,XB1) LOAD DELAY CouNT 
-992 OC 01 OF3A 1FBF 2548 MVC WAY +3, ANO BT (2) OEBAB CO 87 027E 322 B UMNPACK 
on98 3A 40 1542 255 SET1 SBN  FLAGS,FLAG! TURN ON HALT WANTED FLAG OEAP 02 OEAF 323 pc IL1*2* 
cv9C 3D C8 1F22 256 CLI RDFDe34,x°C8* *CK FOR AND BRANCH IF MO HALT OEBO 1615 OEB1 328 DC AL2 (WORK) 
OpAO F2 81 04 257 JE LATER *APTER LAST CONTROL CARD IS WANTED OEB2 161% OEB3 325 pe RL2 (WORK~5) 
COA3 3B 40 1542 258 SBF FLAGS, FLAG1 TURN OFF HALT WANTED FLAG OEBS OF 02 1602 15F4 326 DELAY7 ALC DELAY, ONZ(3) 
CDA? Oc 01 14D2_ 1FB1 259 LATER avc CT11, ALINE? (2) *PRINTOUT AREA : OEBA 07 20 1611 15D2 327 SZ WORK—8 (3) DO0 1 (1) 
ODAD OC 01 14DA 1PB3 260 MVC CT22,ALIKE2 (2) *ADDRESSES OECO CO 01 OEBS 328 BNZ DELAY? 
0DB3 3c 00 14D0 261 AVI = CT 7, X°00° ‘INITIALIZE OEC4 35 02 15DA 329 RELOAD L D6579 ,XR2 *DELAY 
ODB7 x 00 1408 262 MVE CT2,X° 008 *BSG' FRIST OEC8 36 O02 15¥F1 330 DLY1 . A PPP?,XR2 #100 
ODBB 3C 00 18 £0 263 BVI CT3,x*00° LENGTES OZCC CO 84% OEC8 331 BH DLY1 *ESEC 
ODBF Oc 01 ODCB IFBS 264 AVC = THES B¢3,, ABAS K2 (2) | OEDO OF 02 1602 15¥F4 332 SLC DELAY (3) ,ORE *CK FOR AND BRANCH BACK IF 
OCS 338 01 0000 265 THESE TEN ¥*-*,X°01° : *CK POR RED BRANCH IF ZHIS OED6 CO 01 OECS 333 BENZ RELOAD *DELAY PACTOR HAS NOT GONE TO ZERO 
ODC9 F2 90 24 266 JP SHIPT *BIT IS NOT TO BE CHECKED OEDA D2 0102 338 LA 2 (,XB1) ,XR1 
ODCC OF 01 18D2 15D8 267 ALC = CT.11, ELEVEB (2) OEDD CO 87 0z89 335 B TIOTHO | 
ODD2 OE 01 14DA 15D8 268 ALC CT22, ELEVEN (2) 336 * ~ 
SODG OE C0: 1500 15D8 269 ALC CF4(1) , ELEVES OEE1 1C 01 OEF3 01 337 HODLAY AVC © XCUTE#2,.1(2,XB1) HOVE CHND I® FOR EXECUTION 5 
ODDE OF 00 14D8 15D8 270 ALC CT2(1),ELEVES OBES 1C 01 tSEA 01 338 NVC © TENE, 1(2, X81) & 
ODES OF COANE 1506 271 ALC = CT3(1) , ELEVEN OEEB OC 00 1FC6 1FC9 339 RVC BISK- 1,0P1SIT (1) k 
ODEA OF 01 1478 15D8 272 SLC. BAY02¢3, ELEVEN (2) OEF1 F3 00 00 340 XCUTE SIO 0,0 — i: 
ODFO OF 00 ODC6 ODCé 273 SHIFT ALC THESE*1(1), THESES *SHIFT MASK BIT ORE POSITION LEFT OEP& D2 01 02 344 LA 2(,XR1) ,XR1 e 
ODF6 CO 01 ODCS 278 BYZ THESE “AND BR IF MASK DOES NOT GO TO 0 OEF7 CO 87 OE72 342 B LET} BR BACK TO CK WEXT CAED Z 
ODFA 3C 01 ODCS 275 NVI THESE¢1,x*°01¢ INITIALIZE MASK TO -01- 363 « z 
ODFE 38 0&8 1543 276 | TBE PLAGS2, FLAG15 *CK FOR AD BRANCH IF BOTH OEFB 1C 01 OFOD 01 348 SAMP MVC XCUTE2¢2,1(2,%81) MOVE CAND 18 FOR EXECUTION 
pare 1684270 18APR70 2930870 010cT70 30J3UL73 1SHOV7& O2maY75 PROG ID PFO-8. 
2 | Dave 16HAR70 WAPR70. 2930N70 010CT70 3030173 15NOV7# O28aY75 PROG ID Pr4&-8 
Eo BO. 816651 816678 816708 86760 577121 572239 572266 PAGE 3 EC WO. 816651 816678 816704 816760 577121 572239 572266 PAGE 3a 
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S/3 @BASTER TIMISG ABALYSIS PROGRAA (NTAP) 


ic 
oc 
¥3 
38 
F2 
3a 
co 


Q1 
00 
60 
10 
10 
10 
87 


oc 
C2 
c2 
7c 
7C 
06 
co 


02 
01 
02 
00 
00 
30 
87 


c1 
F2 


00 
87 


TSEA 
1FC6 
00 

1542 
03 

1542 
OF68 


15EF 
T6FC 
IAFS 
Oa 

O£ 

1847 
Or3B 


OF3B 
64 


16HAB70 


816651 


BDDR STHT SOURCE STATEAEBT 


01 345 SVC) 8=—s TE KE, 1(2,XR1) 
1FC8 346 HVC DISK-1,BACK (1) 
387 XCUTE2 SIO 0,0 EXECUTE CMHND TO BE SAHPLED 
348 TBH FLAGS, FLAG3 
349 ONLY1 Jf START 
350 SBN PLAGS, FLEG3 
351 B WEXTCD 
352 #® 
1609 353 START AVC CHECK1, NOMBER (3) LOAD SAMPLE COURT 
358 LA DATFLD, XR1 LOAD DATA FIELD ADDRESS 
355 LA ORT AB, XR2 
356 NVI 10(, XR 1) -X*00# 
357 AVI 16(,XR1),X*00° 
15D2 358 Az MANY (4) ,D001 (1) ADD ONE TO <SHDS CHECKED Count 
359 WAY B +48 BRAUCH TO FIRST SENSE REQUIRED 
360 SHEKSKKOKKRKERSESCKCKSSSSESKESCSCKKSHSTSHRSSSCKECTSEESTECELECS SSK SOEKESSVSSHSEeS*sUeseve 
361 * SYNC OW TXO CONDITION GOIEG OFF 
362 STKKSKSEKCSESKSSESSSETES CST SCS SKSEHSSSESSESESSSKASESKRSESEEASSSSASKSHSCSEKL SSSR SESseee Vesesse 
363 TIOCND TIO *%,%-# 
364 3 WHERE 
14APR70 2930870 010CT70 30J0L73 1590078 O2mAY75 PROG ID FFO-8 
816678 816704 816760 577121 572239 572266 PAGE 4 
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OF62 
OF 65 
OF63 
OF6C 
OF72 
OF78 
OFTVE 


OFP82 
Ores 
OF68 
oFrsc 
oF90 
Or96 
OF9C 
OFA2 
OFA6 


OFAA 
OFAD 
Orso 
OP B3 
OFrB9 
OFBD 
OFC 
Orcs 
OFCB 
Orcr 
OFD2 
OFDS 
OFDC 


UPEO 
OFE3 
OPES 
OFEC 
OPEP 
OFFS 
OFFA 
OFPE 
1001 
- 1007 
00D 
10941 


DATE 
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S/3 BASTER TIHING ANALYSIS PROGRAS (STAP) 
OBJECT CODE ADDR STAT SOURCE STATEAENT 
366 SESS ESKES HE SSE SESE SS OF VEKSSSEEESESEESSSSEES SESE SES SESEES SS ESSESSOEEED* 
367 * START HERE IF 3 SYNCS 
368 SEKECELSESEKESE SEE SEKE RE SKES SEKESHESCSSERKSSERE SSF SEE RESTS SSSES SESS SHOSESTESE” 
70 00 01 369 SENSE3 SHS 1(,XR1),*-* STORE DESIRED DATA 
78 00 00 370 S¥HC3 TBH *%-* (,XR1) ,#-*% ®CK FOR AND BRANCH IF SYNC BIT iS 
CO 90 OF&2 371 BACK3 BP SENSE3 *HOT IN THE CONDITION SPECIFIED 
Oc 03 1615 1621 372 SVC) 8 =—-« WORK, PELAYT3 (4) LOAD A DELAY Court 
07 30 1615 1592 373 s0B3 = SZ WORK (4) ,D001 (1) DECREBEBT THE DELAY COUNT 
0c OS 1611 1612 374 BYC WORK-&, WORK~4 (6) DELAY 18 HACHINE CYCLES 
cO 8& OFS5S2 375 BP SUB3 Looe IF COUNT IS KOT O BUT IS FLUS 
376 SVESCSESHKSECSEREKESESEKS HERCHEHESESS SEES CESS HET SKRETESSES SSS SSSSSUSTESE ST 
377 * START HERE IF 2 SYNCS 
378 ERERREKKEKKES HEE SOEKEE EE EEEESEHES HEE EESSEEE SESS CHEESE TE SEK SESS SSEBSSESES 
70 00 0% 379 SENSE2 SES 1(,X81) ,#-* STORE DESIRED DATA 
78 00 00 380 SYNC2 TBE *=-* (,XR1) ,*-* *CK POK AND BRANCH ZF SYNC BIT IS 
co 90 OF62 381 BACK2 BF SEB SE2 *HOT I® THE CONDITION SPECIFIED 
oc 03 1615 161D 382 NVC WORK, DELAY2 (4) LOAD A DELAY COUNT 
07 30 1615 15D2 383 SU0B2 SZ WORK (4) , D004 (7) DECRESENT THE DELAY COUNT 
0c 05 1611 1611 388 AVC WORK-4&, HORK—4 (6) DELAY 18 HACHINE CYCLES 
CO 8& OF72 385 BP = SUB2 LOOP IF COUNT IS NOT O BUT IS PLUS 
386 SEKKES$EREKETEES EEE EEETEEERESEESCESSEESSSEERESRERESTS HESS THRE SSVSSSSESSS 
387 * START HERE IPF 1 SYNC 
388 SEELIESRERESESEREEESEE SESE SEOEEKEEEESESHEKSEE OEEEEKESSESEETE SOE SE SESSESSESSE 
70 00 01 389 SENSE? SES 1(,XR1) ,*-* STORE DESIRED DATA 
78 00 00 390 SYNC1 TBH *-* (,XBR1) ,#-* *CK FOR AND BRANCH IF S¥uC BIT IS 
cO 90 OF82 391 BACK1 BF SENSE1 SNOT IN THE CONDITION SPECIFIED 
co 87 OF90 392 WOWAIT B og BR TO START SASPLES IF SO DELAY 
0c 03 1675 1619 393 AVC WORK,DELAY1 (4%) LOAD A DELAY CoUuat 3 
07 30 1615 15D2 394 suUBI SZ WORK (4) , DOO 1(1) DECREMERT THE DELAY Coust : 
Oc 0S 1611 611 395 HVC WORK-4,H8ORK—-4 (6) DELAY 18 MACHINE CYCLES 
co 8&8 OF96 396 BP SOB1 LOOP IF COUNT IS NOT O BUT IS PLUS 
CO 67 OFAA 397 WHERE B eeu ; ? 
398 KESCTESE OEE KOSEKES AEKS SHEE LESHRESSSESES SEK ES SS HKSKSESESE SESSCSESES SSSVSSSESSE 
399 START SASPLING 
800 EERKRESEERE CEEEEEEEESEE EE SE SEEEESERESESEESESETES SESSEHS FHETTHSSS DSSS SSSSESSA 
801 * SENSE EVERY 50 SICRO-SEC ONLY 
402 RE CEEKERESESEHTS OEKESESESHESSSEEEESTCEESEEEE SS ESESSSHESAEES SES SESSOSSSESE 
70 00 05 803 SNS3 SNS 5(,XR1),%-? 
70 00 07 404 SBSH SUS 7(,XR1) ,%-* 
b2 01 048 805 La 4{,X81) ,XR1 
27 04 ISEP 15D2 806 Sz CHECK 1(5) ,D001 (5) *DECRESEST SASPLE COUT ABD LOOP 
CO 01 OFAA 807 TAB3 BNZ S#S3 *BACK IF If IS NOT TO ZERO 
C2 01 16FC 408 NOWDO LA DATFLD*O ,XB1 LOAD DATA FIELD ADDRESS 
C2 02 1AF8 409 LA ORTABCO, XB2 LOAD THE ADDRESS OF THE -OR- TABLE 
OC 02 1SEF 1609 810 AVC CHECK, SUABER (3) 
CO 87 18P6 411 SAVEIT B . SETUP GO SAVE DATA 
D2 01 04 a12 La 4(,XR1) ,XR1 
07 21 1S5EF 15D2 &12 SZ CHECK1 (4) , DOO 1 (2) 
cO 01 OFCB 414 BRZ  SAVEIT 
co 87 1107 &15 OUT2 B ERROR 
416 SESEES EEREEEKESESEEESE SE O98EEEETEEEEEOE ECE EEETERESES OSSETSESSSSESSLSESSSS 
417 * SENSE EVERY 100-450 SICRO-SEC 
a18 $55EEEF8G 6 EEEEE EEE EEESEE FEE SESCRESSESSS SEES OOTSTIDETE SSOESOSS SSSHASOSHSS 
70 CO 05 819 SESS SES 5(,2R1),%-* 
70 00 O7 420 SHS6 SBS  7(,XR1),%-* - “a re 
07 30 159D 15D2 421 Sz SETPRT (@},D001(1) 11 DECRESEHT SAMPLE TIBE COUBT BE 
F2 87 05 &22 J @WAITSO 3 
IC 06 1618 006 423 WAIT1S mvC BORK-1,0 (7,281) 29 DELAY 19 MACHINE CYCLES ; 
07 20 159D 25D2 #24 WAITSO SZ SETPRT (3) -D007(1) 10 DECRESENT SAMPLE TIBE COUrT B: 
CO 8&8 OFEF 825 BA @AITI5 a 
D2 01 04 $26 LA 4{, XR1) ,XB1 3 
oc 01 159D 1775 427 HVC SETPRT, AULT (2) 70 LOAD SAMPLE TIBE COUET . 
07 30 15SEF 45D2 828 SZ CHECKi (4), D001(1} 2 *DECRESENT SAMPLE COURT AED & 
cO 01 OFEO G29 TABS BNZ Sus5s & *70 SABPLE IP CourT IS SOT fi 
cO 87 OFBD 630 B BOSDO 
160 AR70 14APR70 2930N70 010CT70 30J301L73 1SHOV78 O2nar75 PROG ED FE 
816651 816678 816704 816760 §77121 572239 572266 PAG? 
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IBM BAINTEBRANCE DIAGNOSTIC PROGRAR 


FP4UB 


S/3 


HASTER TIAIBG 


ERE LIC OBJECT CODE 


WS 
1078 
10 1B 
3020 
1623 
10293 
102C 
1031 
10348 
{O39 
19 3C 
4040 
1Ue 3 
1646 
tG4B 
F050 
1056 
1059 
4O5C 
4064 
TOG& 
1067 
iG6B 
YO7G 
1073 
1076 
19076 
TQ7E 
1082 
3087 
TOBA 
108PF 
1092 
1098 
JOSB 
109F 
WOA2 
1047 
JOR 
IOaE 
iO0B6 
¥0B9 
‘OBE 
16C1 
190C7 
TOCA 
10cD 
10D2 
10D5 
1ODB 
10DF 
1OE2 
1OL£7 
1OEA 
10FO 
10F3 
10F8 
10FB 
10FE 
1103 
1407 
110B 
130” 
4113 


DATE 
EC HO. 


aaa 


ABALYSIS 


PROGRAN (STAP) 


ADDR STHT SOURCE STATESENT 


PART HO. 2589923 
PAGE 5 


SSSKSSOSSSESSSERSE MESS SSE HSSSSSS SEKSHASS ISOS SES HS SKHSSSHSSKSSSSSSEKSSSSESSKSSCSSKS SKS 


SENSE EVERY 50 HICRO-SEC WHILE SAVING THE L&ST STATUS 
SERKHKSCKHAKS LISA S SESS SK SSSSESSSSSHKS GSE CHLSESE SHS OSS SRST TERS SSCHKKSSSAE SS SSS SE 


432 

%33 *% 

434 
70 00 05 435 SHS1 
70 00 07 #36 SHS2 
1C OO 102% OA 437 
7a 00 00 438 DDT 
0c 03 159D 1F75 439 
76 06 OD eed RAI 
1c G0 1032 00 &&1 BBY 
Th 00 OE 442 CCI 
1¢ 00 103A 00 4&3 OVER3 
BA 00 00 &&% 00 
36 02 FTF 845 
7G GO OD ®46 AR2 
iC 00 1049 00 447 BB2 
7k GO OE #u8 CC2 
tF OG 1SpDC OC &&9 COMPS 
0c 00 1065 15DC 650 
F2 87 00 454 
70 00 OD “52 aaa 
iC 00 1062 CO 453 BB3 
7k 00 OF #54 CC3 
BB 00 00 455 ADD 
36 02 15F8 456 
ic 00 107C 00 457 OVER33 
70 00 OD 458 Ae 
iC G0 1079 00 459 BBa 
7k OG OB 60 CCK 
BA OC 00 467 OR33 
36 92 FTP 862 
iF 00 15DB 00 862 COBP33 
70 60 OD 468 BAS 
iC 00 1090 co 465 BBS 
7k 90 OE 466 CCS 
oc 00 1099 15DB 467 
BB OO 0G 866 2RDI3 
3C FP 1SDC 869 
70 00 OD 470 AAG 
ic 00 10a8 00 “71 BBE 
7A 00 OE &72 CC6 
3C PF 15DB 4a7z3 
36 02 15PA 47h 
CO 87 1036 475 
70 00 OD S76 BAT 
1¢ G0 10BF 00 477 BB7 
7A 00 OF &78 CC7 
OF 21 7159p 15D 479 
F2 87 11 480 
70 00 OD 481 AA 
1c 00 10D3 00 482 BBS 
7A 00 OE 483 CC8 
07 12 159p 15p2 48u 
CO 84 10CA 485 FIBSHI 
70 00 OD 486 ABS 
1c 00 1028 00 487 BBS 
7A 00 OF &88B CC9 
07 03 15EF 15D2 #e9 
70 00 OD #90 AAC 
1c 00 10P9 00 497 BB10 
7h 00 OF 492 CC10 
D2 01 08 893 
&C 01 OE 15F3 494 
cO 04 1015 495 TABI 
38 80 020D 436 ERROR 
CO 10 0850 . 497 
38 40 1583: 498 
F220 0A 999 
T6NAR70 14k PRTO 2930870 
816651 816678 8 16708 


SBS 
SRS 
RYC 
S38 
a¥c 
SES 
AYC 
SBR 
BYC 
SBR 
& 
SES 
BYC 
SBR 
SLC 
aYC 
J 
SES 
RYC 
SBE 
SEF 
A 
NYC 
SES 
mvc 
SBE 
SBE 
& 
SLC 
SHS 
AVC 
SBS 
aYC 
SBF 
aYI 
Sus 
avC 
SBS 
KV 
A 

B 
SES 
AVC 
SBN 
SZ 
J 
SS 
BYC 
5 BK 
SZ 
BH 
sus 
ave 
SBS 
SZ 
SHS 
AYC 
SBR 
LA 
FYC 
BNZ 
fEN 
BT 
TRH 
JF 


010CT7O6 
816760 


3 (.XR1) ,~* 
7(¢%R1) -F—* 
DDi¢#, 70 (1, X81} 
#=% (, 381) .#~* 
SET PHT, BULT (4) 

13 (,ER1) ,%-*% 
CC1¢1, t= S14 XRF) 
Th (, ERT), 8 
GO¢1,%=* (7,X8 2} 
O(, 282) ,x°00* 
D509 ,.kR2 

33 (¢ZB 1} ,e-F 
CC2414,%-2 (1,84) 
$8 (9 ZB}. -? 

SRY EF ,*~* (1, 224) 
ADD* 74 (%2} -SAY EF 
#e3 

13 (¢ ABT} , #8 
CC3e4,F-8 (1, ERT} 
18(,XR1), &* 

0 (,XR2) ,x #008 
DS08,xXkR2 

OR3 341, %=-*% (1,587) 
13(,-XR71} ,s-® 
CCke 1, =~ 8 (7,289) 
14(,2R1) ,#-* 

O{, ZR2) ,2706* 
DSeS ,XR2 
SLYEF-1,%=* (1,42 1} 
13 (-XR1) ,*-* 
CC5¢1,e~- {7,3 E8F 
14(, 21) ,%* 
AED33¢1(1} ,SAYEF-1 
O(, XE2) ,X*00* 
SAVEFP,i°PR* 

13 (,KR1),*-* 
CC644, 4-5 (1,X81) 
14 (,XR3) ,%-* 
SAVEF-1,X°PP?° 
DS08,XB2 

weg 

13 (,X81) ,%-# 
CC7¢1,%-* (1, XB1} 
14(, X81), * 

SET PRT (&) , 2 TPO (2) 
PINSH1 
13(,X81),%-* 

CC8 41, 8-8 (1, X81) 
14(,XBR1),%* 

SET PRT (9) , D00 1(3) 
AA8& 

13 (, X81) ,%-* 
CC94¢4,#—-*# (1, XB 1) 
14(, ZR1),%-¢ 
CHECK? (4) , D007 {4} 
13(,XB1) ,*-* 
CC1041, *~*(1, XR1) 
16 (,XR1) etn 
4(,XB1) .XB1 


14 (,XB1) , ZERO (2) 9 

SNS 4 

SBYTES ,SNSU2B 

LETS 

FLAGS?, FLAG11 

ALLIB 
3020173 1SNOV74 
577121 572239 


*-OR- ACCUMULATED DATA IkTO REGULER 
*STATUS ARER BEFORE SAVING If 
LOAD SAHPLE TINE COUT COBSTART 
SSEHSE AKRD -OR- OBE 
SBYTE SPECIFIED EVERY? 
#50 SICRG-SECCHDS 
HOVE BYTE OF DATA IRTO BBSE 
~GR- DATR LTETO ALL ZERO T42BLE 
ABD 509 TO Ir2 
SSEBSE ABD ~OR- ORE 
SBITEZ SPECIFIED EVERY 
*Su SI CRO-SECOEBDS 
COAPLESEST DATA 
HOVE COMPLEBENTED DRT2 INTO BASK 
DELAY 3 RACHIBE CYCLES 
SSENSE AHD -OR- OBE 
®BYTE SPECIFIED EVERY 
$50 BICBRO-SECORDS 
~“BED~ DATA IBTO ALL OWES TARSLE 
SUBTRACT 508 FPOK BEX’ -OB8- TABLE BDD 
BOVE BYTE OF DATE EETO BASE 
SSENSE ARD -CB8~ OBE 
SBYTE SPECIFIED EVERY 
e50 HICRO-SECORDS 
~QOR- DATA IRTG ALL ZERO TABLE 
RDD 509 TO XB2 
CORPLESENT DATA 
SSERSE AND -OR- CHE 
=BYTE SPECIFIED EVERY 
#50 BICRO-SECOSDS 
MOVE COMPLEMENTED DATA INTO BASK 
~“AED- DATA IBTG ALL OBES TABLE 
RE-ERITIALIZE 
*®SENSE ABD ~OR~- OFE 
*BYTE SPECIFIED EVERY 
50 aICRO-SECONDS 
RE-ENITIALIZE 
SUBTRACT SO8 FOR NEXT -OR- TABLE ADD 
*SEXSE AUD -OR- GE 
*BYTE SPECIFIED EVERY 
*50 SICRO-SECORDS 
DECREBENT SANPLE TIME COURT BY 10 


SSENSE ABD -OR- ONE 
*BYTE SPECIFIED EVERY 
*50 AICRO-SECORDS 
DECREMENT SAMPLE TIME COUNT BY 1 


*SESSE ABD ~O8- OBE 
*BITE SPECIFIED EVERY 
*50 HICRO-SECONDS 

DECRESENT SAMPLE COURT 

@SENSE AND -OR- ONE 
*BYTE SPECIFIED EVERY 
*50 SICRO-SECORDS 


CLEAR ARFA TC -OR- 50 
BR IF ALL SAMPLES KOT 
CK FOR AND BRiNCH IF 
*OA ERROR QE NOT RDY 
*CK FOR AND BEANCH IF 
*SYNC-SAAP IS GARTED 


BICROSEC SAP 
TAKEN YET 
PRINT 

ONLY 

uO 


O2mAY75 
572266 


PROG ID PPA-8 
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oep ote IN ce @ 


megs 


IBS BAIRTENABCE DIAGNOSTIC PROGRAA 


FP4&S8 


ERR LOC OBJECT CODZ 


1116 
Tic 
1420 
1126 
1729 


V12D 
1431 
4135 
1135 


V13P 
3785 
TIT8B 
1751 
$397 
VISE 
VISE 
1160 
176% 
1463 
1169 
T16B 
176D 
i373 
Tits 
147d 
3183 
1737 
VISk 
1t8F 
1195 
1199 
Vi9D 
T4381 


VIAS 
FIAB 
TAF 
71B0 
1431 
11B3 
4185 
11BB 
41071 
Vics 
141C8 
11D1 


$73 


07 
co 
o7 
F2 
co 


38 
co 
oc 
co 


oc 
oc 
oc 
OL 
P2 
co 


BASTER TIMING ANALYSIS 


10 
07 
36 
87 
87 


80 
9G 
01 
87 


04 
G1 
0% 
Q3 
Of 
87 


FFFS 


co 
co 


% 
<& 


87 
87 


ISEA 
1592 


oc 
OF 
co 
oc 
x 
C2 
C2 
oc 
38 
co 
38 
co 


07 
o1 
01 
06 
oe 
07 
62 
02 
04 
70 
40 
90 


ICFs 
OF 1D 
TFTS 
ic 

OB6S 


620D 
4285 
OF OF 
OPBD 


OFDF 
TAPB 
1cPre 
1887 
On 

0222 


Oa17 
O21E 


1615 
1615 
1373 
TSBs 
1756 
TAPE 
iCr? 
ISEF 
1583 
W3A% 
020D 
1333 


VTEB 
O21A 


t20C 
1212 
1753 
1752 
1753 
1743 


JAPA 
1CF7 
58 

TAPS 
1CF6 
0000 
130a 
O21A 


15EF 
ISEA 
1742 
3725 
1730 
120C 


16 MAB70 


816651 


PROGRAB (STAP) 


2589923 
SA 


PART NO. 
PAGE 


DECREBERT S¥RC-SANP COUST 
LOOP iI? BOT TO ZERO 
SUBTRACT 1 FOR BO. OF REQ SABPLIBGS 


*CK POR AND GO PRIBT BORBAL DATA 
©IP PRIET ORLY OF ERKOR IS OFF 


@IBITIALIZE FIEST 2 EYTES OF ORT AB 
SAED BEDTAB POR PRINTING 

SBRABCH TG CAT IP DATA HAS 

SBEEK TAKES 


CLEAR TISE FRIETOOT 
ZTHITIALIZE LIBITS LIBE COUSst 


LOAD SABPLE Count 

*CK POR AHD BEANCH TO PRIET GRAPE 
*IF SELECTED AFTER TABULAR OUTPOST 

*CK FOR ABD BRABCH TO SETUP ABD PRT@- 

SOUT IF ROT EDY AND PRINT HODB 3 


SHSUSE CSS HSBSKKES SK KOKCKS CHAOTGLERSERAKSES SSL AK SE STL EK SBHS SSK SLE RSSKSKLSLSL SE SR 


STVEKASPKS SSE CK ATH SERSES CRESS HESPBKE TAKERS SROCKHKE SH EPCSHVYE SHOKRIS S$ SKS SSUES SSHSESS 


cs 


SINITIALIZE TO BOVE LEFT MOST BIT 
*BABE IRTO TABULAR PRIRTOUT 


CLEAR DATA FIELD 
MOVE I8 -HICROSEC- 


MOVE I DASH 


CELEERS EEE RERER SHES ES FETED SECTS ETS EES FESR E SEE STS CEASERS RESET SHOSESE 


SRRKIKKEKSESSKRHKCA VS KKKKEK KS SSE KEKESYSE BIKE SLE SHOKISERKSSKSKKEK HSE VKSELEKS SKS SSS 


*CK FOR ABD BRAECH iP 
*THIS BIT IS HOT TO BE CHECKED 
*SPACE 
SORELY 
LOAD SABPLE COURT 
CLEAR TINE PRIETOOT 
*SOVE BOTH HALVES OF BIT WAKE 
*IBTO TABULAR PRINTOUT 
*DECREAENT BY 14 TO POIST AT 


O2maY75 PROG ID Pra-8 


ADDR STAT SOURCE STATENERT 
415D2 500 SZ SS (2) ,D007(1) 
501 BMZ START 
15D2 502 ALLIE SZ PASSES (8),D001 (1) 
503 JZ aLLour 
508 B REXTCD 
505 & 
506 DIAG TBH SBYTE5,SHSE28 
507 BE ALLOUT 
1755 508 HVC 8=—- OUT 23, AHO® (2) 
509 B RGEDC 
510 & 
1FBD 537 HOE BYC 00T2%3,REPROR (2) 
1AFD 542 ALLGUT SFC GRTABS3,CRTABSS (2) 
iCFA 513 B¥C AEDT AB¢3, ANDPAB+5 (2) 
1553 514 CLC HAWY,BLABK{4) 
515 JEE Cat 
516 8 HALT 
1i5SF 65147 BC XL2 "PPPS ¢ 
518 B CoE 
519 CAT B USPACK 
1168 520 De IL i# 28 
4162 S24 pc AL2 (TIRE) 
t16c 6522 DC AL2 (LAST) 
SPF 523 B¥C ¥8ORK,T¥O38O (2) 
ISEB 524 WRIT SLC BORK,OBE(2) 
525 BEEZ WAIT 
SDI 526 SCOPE AVG TIME, DOG1-1(7) 
527 AYE LXWECT,K°00¢ 
528 LB ORTABS2, EB? 
529 LA AWDTABE 2, IR2 
606 530 BYC CHECK1,SREPLE(3} 
531 TBR PLAGS2,FLAGIA 
532 BT DONEIT 
533 TBE SBYTES.SES829 
53% BP DOHEXT 
535 
536 * START HERE POR TABULAR PRINTOUT 
537 
IFES 538 HYC NOWS3, AHASK2 (2) 
539 B PRINT 
T1AF 6540 pe XL 1°83? 
11B0 5481 DC IL1#79° 
T1B2 542 DC &kL2 (LAS®) 
1138 543 DC XL2°PYFFS 
18D2 544 R¥YC  PIRST¢S,CT11(2} 
1HDA 545 HVC SECD1¢5,C¥22 (2) 
546 MVI DATA,X*40* 
i753 547 NVC = DATA- 1, DRA (87) 
1575 548 MYC BUPAND,HISTRY-13 (8) 
549 AVI EXPAND-16,X*60° 
550 
551 * RETORN HERE AFTER EACH LIBE IS FIsISHED 
552 
553 WOKCK LA ORT AB+2,XE1 
554 La ANDTAB*? 2, XR2 
555 3 HOW : 
556 NEXT? LA ORTAB+1,XB1 
557 LA AKDTAB¢1,XR2 
558 Bow TBH e-#, X801F 
559 BP HOD1 
560 B PRINT 
11F4 561 DC XL 1*12°8 
1606 562 HYC CHECK1,SAMPLE (3) 
15pD1 563 NVC TINE,DO01-1(7) 
1SEA 564 HVC EXPAHD-17,TIME(7) 
0000 565 FIRST HVC  EXPAND-S6 (9), *-* 
0000 566 SECD1 AVC EXPAND~35(9),*-® 
15D8 567 SLC FIRST¢5S, ZLEVED(2) 
14 APR70 2930870 010C?70 30JUL73 15N0¥78 
816678 816708 8 16760 577121 572239 


572266 PAGE Sa 





E IBA BAINTENAHCE DIAGNOSTIC PROGRAR PART HO. 2589923 ~- IBA SAIBTENABCE DIAGHOSTIC PROGRAS PART BO. 2589923 
PAGE 6 «¢ PAGE &2 
PF48 = S/3 MASTER TIMING ANALYSIS PROGRAM (HTAP) be S/3 WSASTER TISING AHALYSIS PROGRAN (STAP) 
ERR LIC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR L2C OBJECT CODE ADDR STAT SOURCE STATEMENT 

5 ; _ 

2 eB 48 3} age 15D6 Hs a SLC SECD1¢5, ELEVES (2) *NEXT BIT HABE TO THE LEFT : 1322 O£ 00 1289 1289 636 Alc HOWK 41 (1) , HONS +1 * 

1222 F210 23 BO TBH =3(, XR 1) -X*01 *CK FOR ABD BRAKCH IF 1328 OE 00 1226 1226 637 ALC 8OW541(1) ,HOUS+1 “SHIFT ALL MASKS 1 POSITION LEFT 

: 570 JT nOWS *BIT IS OB 132E OE 00 1295 1295 638 ALC WOW641(1) ,HOW6 +1 * 

3 4225 78 0101 571 wOWS TBR 8 1(,XR1),X*01* *CK POR ABD BRANCH IF é 133% OF 00 12AD 12AD 639 ALC = HOB 741 (1) ,BOWT+1 * 

1228 F2 90 98 572 JF TRINXIT *THIS BIT WAS OF BEFORE 133A OF 00 1261 1261 680 ALC HOW9*1(1) ,BON9e1 

: 122B 38 08 1542 §73 TBH FLAGS , FLAGS *CK POR AND BRANCH IF ~ 1340 F2 81 OC 641 JZ Init 

i 122P F2 10 OD 574 JT SECD SPIRST TIME ENTERED és 1343 38 10 1543 642 TBY FLAGS2,FLAG13 
1232 38 01 1542 575 TBH PLAGS, FLAG? 13487 CO 10 11£0 633 BT WEXT1 

« 1236 F2 90 30 576 oF DOUN 1 on 134B CO 87 11D5 645 B BOBCK 

* 1239 OC 08 173A 15C¢9 577 SVC EXPAND-25,VARY (9) se 1398P 3C 01 1929 685 INIT SSVI wOwel,x*0O18 * 
123P OC 06 174A 15EA 578 SECD SVC  EXPAND-9,TIAE (7) MOVE SECOBD TIRE XETO BSG 1353 3C 01 1220 646 BVI = wOw1+1, X°01° * 

: 1285 F2 87 2D 579 J LOGIT ” 1357 3c 01 128F 647 BVI HOw2+1,x°O18 * 

‘: 1248 78 01 03 580 mows TBN 1(,XR1),X*O1* *CK FOR AND BRANCH IF ‘ 135B 3C 01 1258 648 BVI wOW341,X°018 *INIT ALL SASKS TO -01- 
128B F2 10 80 581 oT wOW2 *BIT WAS OW BEFORE 135F 3C 01 1289 649 AVI NOWS*1,X"°01* * 

124 OC 08 173A 15a7 582 HVC EXPAND~25,0P(9) AOVE -WENT DOWN- INTO ASG 1353 3C O01 1226 650 AVI «= 6mONS¢1,X°01* * 

1254 OC 06 1742 15EA 583 MVC) EXPAND-17,TIRE (7) BOVE FIRST TIME INTO ASG 1357 3C 017 1295 651 SVI «=6HO#641,XK°01° * 

125A BS 01 03 584 wow2 TBN 3(,XR2) ,X*0%* *CK POR AND BRANCH IF 136B 3C G1 12aD 652 MVI 8=6wOW7+1,X°O1" * 

125D F2 10 15 585 JT LOGIT *THE -AND- BIT IS OF 136F 3C 01 1261 653 AVI = BOU941,x° 01° 

1250 78 01 05 586 NOW9 = =TBN  5(,XR1) ,X*01° *CK FOR AND BRABCH LIF 1373 38 10 1543 654 TBH FLAGS2,F1LAG13 *CK FOR AND BRANCH IF BOTH 

1263 F2 90 OF 587 JF LOGIT *-OR- 2FTER NEXT IS OF 1377 F2 10 OE A55 at SETUP *BYTES HAVE BEEN CHECKED 

1266 F2 87 5A 588 J TRYNXT 137A 3A 10 1583 656 SBE PLAGS2,P1LAG13 TURN OW BOTH BYTES CHECKED FLAG 
- 1269 Oc 08 173A 15B0 589 DOWN? AVC EXPAND-25, DOK (9) HOVE -WEST UP - INTO HSG 137E OC 01 1125 1FB? 657 HVC} =6NOW#3, ABASK1 (2) - 

125P OC 06 1742 15EA 590 MVC EXPAND-17,TIBE (7) SOVE FIRST TIAE LTO ASG 1384 CO 87 11£0 658 B wEXT1 

1275 CO 87 0218 591 LOGIT B PRINT 1388 CO 87 O21A 659 SETUP B PRINT *SPACE 

1279 01 1279 592 pc XLI°O18 138C 16 138C 660 pc XL 1° 16° *OBLY 

1274 37 127A 593 Dc IL1°55* 138D 30 00 1615 661 SHS  WORK,xX‘00° 

127B 1753 127c 60594 pc AL2 (EXPAND) 139% 39 PF 1615 662 CLI wORK,X‘'FF® 

127D 3a 02 1582 595 SBR PLAGS, FLAG6 TURN OR LIBE OF DATA PRINTED PLAG 1395 CO 01 0~A11 665 BNE BDCETR *GRAPHIC PRINTOUT BOT DESIRED 

1281 3B 09 1542 595 SBF FLAGS ,X*09# PURE OFF FLAGS 4 AND 7 1399 3A 08 1583 664 SBR FLAGS 2, FLAG19 TORN ON GRAPHIC DESIRED FPLAG 

1285 OC 06 174A 1553 597 MVC EXPAND-9, BLANK (7) CLEAR SECOBD TIBE AREA 139D CO 87 117B 665 B SCOPE 

128B ¥2 87 35 598 J TRYNIT 666 KEEKKSE KEES TEERKS HE SERS AERA SSESEELASESKSLSEKLES TASTE SSS SESH ESTES SESS SSHSESE 

128E 389 91 03 599 NOH2 TBN 3{,XR2) ,xX°01* *CK FOR AND BRANCH IP 667 * SETUP TO PRINT DATA 

1291 F2 90 18 600 oF HOUT SPTHE -AND- BIT 1S Of 665 FEERENF EES SEEKERS SESEEESRESHSERESRE SSESCEE RESET FS FFSSHSESTSSEAESES SE SOBER SS SASS 

1294 BS G1 01 601 HO8é TBN 1(, R82) -X°01* *CK POD AND BRAHCH LP 1382 OC 01 184C T48E2 669 DOWEXT SVC HOV EIT+3, ADAT A (2) *YTSITIALIZE DATA 

1297 F2 10 29 602 st TRY NXT STHE PREVIOUS -AND~ BIT HAS OF 13A7 OC 01 1350 1PB9 6706 RVC THIS1¢3,AMASK2 (2) 

1294 CO 87 123P 603 B SECD 13AD 38 01 0009 677 THIS! TBN *-#*,2%°01° *CK FOR AND BRANCH IF THIS IS 

129E 38 08 1542 604 NOW10 TBS FLAGS, PLAGS *CK FOR AND BRASCH IF FIRST 13B1 P2 10 5D 672 JT CKORS1 *ONE OF THE BITS TO BE CHECKED 

12A2 F2 10 12 605 st TRYNXT 13B8 OF 00 13AE 13AE 673 MODIFY ALC THIS141(1),THIS1+1 *SHIFT ALL 

412A5 3a 014 1592 606 SBU FLAGS,FLAG? 13BA OF 00 1418 1818 6748 ALC CKORS#1(1) ,CKORS¢1 *HASK BITS 

12a9 F2 87 17 607 J TRYNXT 13CO O£ GO 181E 1415 675 ALC = BN 2. (1) , BUS SOHNE POSITION 

i2aC BB Of 01 608 NOW7 TBR 1%(,XR2) ,X*01° *Ch FOR AED BRANCH IF 13C6 OF 00 142B 1428 676 ALC «= CKB4&#1(1) ,CKB&4? *TO THE 

12aPF CO 90 129E 609 BF BO310 *THE PREYIGUS -AND- BIT WAS DORK 13CC OE OO 1431 1431 677 ALC CKAND+1 (1), CRAND¢1 *LErt 

12B3 Oc 08 173A 1580 610 SVC = EXPAN D- 25, DOG (9} HOVE -@EXT UP - InTO MSG 13D2 OF 00 1437 1437 678 ALC ANDCK4¢7(1) ,ABDCK+t1 

1289 OC 06 1742 15EA 611 avc =: EXPASD-17, TIRE (7) MOVE FIRST TINE INTO HESSAGE 13D8 CO OF 13AD 679 BNZ THIS? 

12BF 3a 08 1542 612 SBR FLAGS, FLAG& TORN OR FIRST TIBE ENTERED FLAG 13DC 3C 01 13A8 680 AVI «=TAIS1¢1,X°01° *IHITIALIZE 

12C3 D2 01 02 613 TRYNXT LA 2(,X81) ,KR1 13B0 3C 01 1418 681 Zz CKORS4#1,K°01" *ALL 

12C6 £2 02 02 614 LA 2 (, XB2) -XR2 13E4 3C 01 1812 682 AVI Bbe1,xX*01° *SASKS 

12C9 06 2% 15EA 156C 615 a2 TINE(7) ,HISTRY-22(5) ADD SAMPLE TEKE TO CCORTER 1328 3c 04 1431 683 AVE CKAND¢1,X°01° *TO 

12CF 07 30 1SEP 15D2 616 SZ CHECK? (%) , D001 (1) SUBTRACT 1 PROM SAMPLE COUST 13BC 3C 01 142B 684 4VI «= CKBU+1,K°01" *ONE 

12D5 CO 04 121P 617 BZ = NOW 13F0 3C 01 4837 685 BYI ABNDCKe1,x°01° 

12D9 38 02 1542 618 TBN FL3&GS,FLAG6 *CK FOR AND BRANCH IF LIBRE 13P4 38 80 1543 686 TBK FLAGS2, FLAG10 *CK FOR AND BRANCH IF SOTH 

12pD F2 96 07 619 JF WILL *OP DATA BAS NOT BEERS PRIRTED 13F8 F2 10 SE 687 5T  DORET “BYTES HAVE BEER CHECKED 

12E0 3B O02 15482 620 SBF FLAGS , FLAG6 TURN OFF LINE OF DATA PRINTED FLAG 13FPB 3A 80 41583 688 SBN FLAGS2, FLAG10 UaN ON BOTH BYTES CHECKED FLAG 

12E4 F2 87 23 621 J HOD? 13FF OC 01 1380 1FB7 689 BYC THIS1¢3,ABHASX1 (2) 

12E7 OC 01 12EP 1227 622 WILL HVC wNO8+2, HOHS*2 (2) *BO CHANGE OF LINE LEVEL HAS 1405 36 01 15F1 690 A FFFF,XR1 

12ED 78 01 00 622 NOW8 TBN *-*(,XR1},X*O1" “BEEN PRIETED, SO CK FOR AWD 1409 36 02 15P1 691 a FRPP, IR2 

12F0 F2 90 09 624 JP DORN *BRANCH IF LIKE ¥AaS UP 140D CO 87 13AD 692 B THIS] GO CHECK BYTE 1 

12F3 OC 07 1739 1538 625 HVC EXPAND-26,4A8SUP(8} 1411 OC OA 159D 159E 693 CKORSi MYC SETPRT,SETPRHT4+4(71) CLEAR PRINT SETUP AREA 

12F9 F2 87 06 626 J comp 1417 76 01 03 698 CKORS TBS 3(,XR1) .xX°01* *CK FOR ASD BRASCH IF -CR- 

12PFc OC 07 1739 15C0 627 DOWH2 SVC BXPAND-26,WAS DN (8) - 141A F2 10 OD 695 aT CKB4 *BIT IS OB 

1302 CO 87 O21A 628 CORD B PRIBT *INDICATE THAT THE LIBE 141D 78 01 01 696 Bu TBS =: 1(, XR1) -X* 01° *CK FOR AND BRANCH IF PREVIOUS 

1306 01 1306 629 pc XLU*Cte BAS EITHER UP OR 1820 F2 10 20 697 JT TISECP % -OR- BIT WAS OR _ 

. 1307 1D 1307 +630 DC ILd#2g° *DUNN FOR THE ~ 1423 3c PT 1598 698 M¥YI SETPRT-2,X°F1° SETUP DOWN CONDITION PEIBSOES 
1308 1739 1309 631 pc AL2 (2XPAHD-26) “WHOLE SABPLE PERIOD 1427 F2 87 IF 699 J MOVEIT ae 
130k OF OO 11E9 1129 632 sHOD1 ALC HOW+ 1 (1) » ROR +4 * 142A 78 01 01 790 CKB&8 TBE 1(,X81)-x*07° *CK FOR AED BRANCH if PREViCO: 

- 1310 OF 00 1220 122¢ 633 ALC NO¥1¢1(1} NOW 14? * Se 442D F2 90 13 701 JF TIMESP *BIT IS OFF 
1316 OF 00 126F 12&F 638 ALC 8O#2¢1(1),HOW241 * : 1430 B8 01 03 702 CKAND TSH 3{,XR2) ,X*01° CK FOR AWD BRABCH 
131c GE 00 125B 125B 635 ALC NOE3+1 (1), NOW 344 ® 1433 F2 90 OD 703 JF TIBEUP *I1F MOT ALUAYS OP 

DATE 16BAR70 14 8PR76 2930N70 0 1ocT70 3030173 1SBOV7S O2nAY75 PROG ID PF4-8 DATE 16HAB70 144PR70 29350870 010CT70 303 0L73 ISBOVTS O28ax75 PRoG ID ne 
BC WO. 816651 816678 816704 816760 577121 572239 572266 PAGE 6 EC WO. 816651 616678 = 8 16704 816760 577121 572239 12266 ae? : 





IBA MAINTERANCE DIALUNOSTIC PROGRAA ties NO. eee IBM MAINTEBABCE DIAGHOSTIC PROGBAA 
. FSS S/3 SASTER TISING ABALYSIS PROGRAR (STAP) FFS8 $/3 SASTER TISING AEBSLYSIS PROGRAM (STAP) 
: ERR LOC OBJECT CODE ADDR STHT SOURCE STATEHENT ERR LGC CBJECT CODE ADDR STBT SOURCE STATEMSEST 
5 1436 B& G1 01 708 ANDCK TBE 1(,XB2) ,Z*01° SCK POR A¥D BRASCH IF 150B Oc 00 1512 %5Dc 772 BYC ANDO1 (1) -SAVEF MOVE COMPLERENTED DATA 
" 1839 F2 90 O07 705 JF TI EUP *PREVIOUS -AND- BIT KOT OR 1577 BB OO 00 773 BED SBF 0(,XR2) ,-X°00* ~AND- DATA INTO ALL ONES TABLE 
143C 3c F1 1595 706 NVI SET PET-6 ,X*F1* SETUP OP CONDITION PRIETOOUT $534 3c FP 15BC 778 HV¥I SATEFP,Z°FF* RE-ENITIALIZE 
H 1440 F2 87 06 WO7 J ROVEIT 15718 36 02 SPA 775 & DS08, FR2 SUBTRACT 508 FOR NEXT -OR=- TABLE ADD 
- 1443 0C 06 159B %5EB 708 TIBEUP AYC SET PRT-~-2, TIBE{?} MOVE TIHE PRINTCOUT INTC PRINT AREA 15%¢ ic OO 1522 01 776 GVERZ2 HYC O0822¢%,1(1,X84) MOVE BYTE OF DATA INTO HASK 
1449 OC OAR 0000 159D 709 BOVEIT AVC woe, SETPRT (11) MOVE THIS BIT INFO IHTO PRIBT AREA 15271 BA OG 60 F777 GR22 SBH O(, 282) ,-X*00* “OR- DATA INTO ALL ZERO TABLE 
144F OF 01 144C 15D8 710 SLO MNSOVEIT¢3, ELEVER (2) DECREMENT PRIKT AREA ADDRESS 1528 36 02 1F7F 778 A D509, XB2 ADD 509 TO XR2 
7 1455 CO 87 13B4 711 B MODIFY 1528 IF 00 15DC 91 FIZ? CGBP22 SLC SaVEFP,1 (4,XB1) COHPLEERENT DATA 
1859 3B B80 71543 712 DOHE1 SBP FLAGS2, FLAGiO TORE OFF FLAG 10 152D 0c 00 1538 %5DC 780 AYC AKRD22¢61(1) , SA YEP SOVE COSPLESERTED DATA INTO HaSk 
185D D2 01 03 713 LA 3(,XRi) ,XRi a 1833 BB 00 9d 781 AND22 SBF 0{,XR2} -X*°00* ~AND- DATA INTO ALL ONES TABLE 
1450 E2 02 03 718 La 3(,XR2) ,XR2 1536 3c FF 358DC 782 AVI SAVEF,X° FF®* RE~ENITIALIZE 
1463 OF 00 1756 15P4& 715 ALC LI NECT (1) ,OHE IBCREMENT LIMITS LISE Count $34 36 O02 15FA 783 a D508, XR2 SUBTRACT 508 POR SEXP ~OR- TABLE ADD 
1469 34 01 1615 716 st BYORK,XBi SAVE XR1 7 153E CG 87 0060 788 GETOOT B e—t 
145D 34 02 1613 77 ST WOR K- 2, KE2 SAVE XR2 : 785 & 
1477 C2 01% 16D2 718 LA LISITS ,XR1 LOAD ADDRESS OF LIMITS TABLE poe F866 SESS Se SESS KESSESSSASSTS CHE SELSHSSASTS SHSH ASSESS SECA KET SKEKSHRAS SESE HS CKSTS 
14875 C2 02 175D 719 RAYO2 LA DATA¢10,XR2 PRINT AREA FOR ASTERISK a 7e7 2 PROGRAS INDICATOR FLAGS 
1479 7D PF 00 720 RAYCS CLI O{,XR1) .X*FF* LOOK FOR SENSE BIT SEPARATOR i FBR SFSSSSeSKSTSESKESSSCKESS SHEKSE OSHS SSSSECHSKESKSSSS SSESS HSK SSRSSEKKS SESH ESSER SS 
147C PF2 81 IF 721 JE RAY20 GO 79 HWEXT BIT IFO : 1582 60 4542 789 PLAGS DC XL 7° 08 
187PF 7D FE 00 722 CLI 0(,XR1) ,X°FE° LOOK FOR EBD OF i8¥FoO 790 * FLAGO BIT O- 
1432 72 81 23 423 JE RAY30 GO TO END 791 * PFLAGi BIT 1-HALT APTER LAST COBTROL CARD 
14885 4b 00 00 1756 724 CLC 0O(,XR1) ,LIBECT (1) SEE IF LIWE IS WITHIE LOWER LISIT 792 * PLAG2 BIT 2- 
148A P2 8& OB 725 JH RAY10 GO ON IP NOT 793 * FLAG3 BIT 3-PIEST SAMPLE CRED EXECOTED PGR PRIBE 
1488D &D 00 01 1756 726 CLC 1({,XR1) ,LINECT (7) SEE IF LINE IS WITHIN OPPER LIRIT 794 * PLAGS BIT @-FIRST TIBE HAS BEEN ENTERED IN TABULAR TABLE 
1492 F2 82 03 727 JL RAY10 GO ON iF BOT 795 * FLacs BIT 5- 
1495 spc 5C 00 728 AVI 0(,XR2)},z%°5C* PUT ASTERISK IN PRINT AREA 796 * PLAG6 BIT 6G-A LIRE OP DATA H&S BEER PRINTED 
1498 p2 01 02 729 RAY10 LA 2(,XB1) ,XR1 INCREMENT LIMIT TABLE ADDRESS 727 * PLAG? BIT 7<- 
149B F2 87 06 730 J RBAY25 JOUSP TO BRANCH BACK 798 * 
149E p2 01 01 731 RaY20 LA 1(,XE1) ,XR1 INCREMENT LISIT TABLE ADDRESS 71583 00 1843 799 FLAGS2 DC XL1°O® 
14a1 EZ 02 OB 732 La 17 (, X82) -XR2 INCREMENT PRINT ADDRESS 800 © PLAG10 BIT O-BYTES 1 ABs 2 HAVE BEEN CRECKED 
14a83 CO 87 1479 733 BAY25 5B RAYOS RE LOOP 807 * FPLAGI1 BIT 1-SYNC-SAMP WANTED 
18a8 35 0% 1615 738 RAY30 L WORK, XB1 RESTORE X81 7 802 * FLAGi2 BIT 2-HEADING HAS BEEN PRIBTED 
IAC 33 02 1613 735 L WORK~2, X82 RESTORE XR2 803 * PLAG13 BIT 3- t 
14B0 06 24 15EA 156C 736 AZ TIHE(7) ~HISTRY-22(5) ADD SAMPLE TIME tO COUATER 804 * PLAG14 BIT 4- f 
14B6 38 20 1583 737 TBs PLAGS2, PLAG1i2 *CK FOR AND BRANCH IF HEADING S 805 © PLAG15 BIf S- : 
14BA F2 10 IE 738 JT LIBRE SHAS BEEN PRINTED 806 * FLAG16 BIT 6 ; 
18BD 3A 20 1543 739 SBN FLAGS2, PLAG12 TURN ON BEADING PRINTED FLAG 807 * PLAGI7 BIT 7- i 
14C1 CO 87 0212 780 B PRINT =PRINT B08 SHHSKSSESE SHEERS ESE SEE SHSHSSOCESEEE SS ESESEHES SOSLESES SERESESSASSESSESS EH | 
14c5 43 18CS5 741 pc XL 1 ¢@ 3° * HEADING 809 * RES SAGES zs 
14C6 OF 18C6 782 pc IL 1979¢ * 810 STK ASAHST SE SSHCS SE SHAS SSERSKSSHEAOS SESH SSKEKTCE SS SKES HES HSHEK SS SSEASSSEESES 
14c7 1592 acd 7&3 c AL2 (LAST) * 1544 40406080 1567 811 MANY pC CL& ¢ 8 , 
14C9 PFFF 14CA 744 pc XL2°FFFF® « 1548 4£040808040804040 4556 812 CARD pc CL 15* s 
T4CB CO 87 0218 745 B PRIST SPRINT FIRST 1550 4040804904080460 812 
14CF 01 14CP 786 pc XL1°O17° *LIEE OF 1557 SOC3DSDSCAEZ40E2 1582 813 HISTEY DC CL&&* CAEDS S&SPLED <- 00000 SICROSEC SASPLE TI4AE, * 
14p0 58 14D0 0 =O 747 «CT 1 pc IL 17° 88° LI BE 155P CID4D7D3C5C 44060 813 . 
D1 1677 D2 «44488 CT11 bc AL2 (LI E21) SRANES 1557 4OPOPOFOFOFO40 DS 813 
14D3 CO 87 O21A 7&9 B PaIRT *PRINT SECOND 156F C9C 3D9D6E2C 5C 340 813 
14D7 O62 wp7 750 pc XL 7°02 SLINE OF 1577 E2CUDUD7T D3C540E3 813 
14D8 58 1aD8 751 CT2 pc IL1°88* *LINE 157P COD&CS4&B 813 
14D9 16CP WDA 752 CT22 pc AL2(LI#Z2} *HANSES 1533 SONOD3CIE2ZE340C3 1592 814 LAST pc CL16° LAS? CSED e 
18DB CO 87 O21A 753 LIE B PRI ST SPRINT 158B D&D5C440404O4 080 818 
14DF 01 IDF 754% 1 XE 9°017° SA LIBE 1593 404904040480409080 159D 815 SETPRT DC CL1i1° : AREA IB WHICH TO SETUP PRIST IBFO 
14E0 58 18EO 755 CT3 pc I1L1°88* *OF 1598 4080480 815 
14EB1 1753 14E2 756 ADATA DC AL 2 (DATA) SDATA 159E 40 1S5S9E 816 DC io 
WWEZ O07 21 ISEF 15D2 757 SZ CHECK1(&) , DOO? (2) SOP E6CSDSE3S4OCSD6E6 15437 817 UP DC CLO*#ENT DOUN® 
WES CO OF T3A1 788 BHZ DONEX?T 1547 DS 817 
WED CO 87 O21A 759 B PRIST *SPACE 1588 E6C5DSE34O0“0ESD7 15830 818 DOWN DC CLO*GENT UP ° 
1UF1 16 14F1 760 pc XL1°16° SONLY 15B0 0 818 
14¥2 CO 37 OA11 761 B RDCaTR 1581 E6CTE2Z4OCRDEE6D5 15B& 819 WASUP DC CL8*WAS DOWNS 
JT6Q SHEETS ES ERESEEEE EERSTE OSE SEREETE SECESVERSESSEE STS HEAHSEKESOESELESEEEE 15B9 EoCIE2Z4UO4OESD740 15CO 820 WASDN DC CL8°waAS UP * 
’ 763 * SETUP 1 15C1 40ESC1ID9C9C1C2D3 15C9 821 VARY DC CL9* VARIABLE* 
fee JGR FESESSEEERS EEEEES OECKESESEEESETESESESSESRES CESSES SEES SEEKS HESEEESEEEES 1509 CS 821 
765 * SUBROUTINE TO SAVE THE SENSE DATA B22 SHOES SETES KASTTSOSHSESSSTSS SHSSSSESSEHS TOSSES SS SSS SCSHSSTSHESOSESSTTSEST SAGAS 
a P 766 FHSESECERERETEES CERSSEOSCSESERESRSE THOS EEESSEKESHS ERE ERESRDSSSESSEHEERESE 823 * CONSTARTS , 
WWPF6 34 08 1541 me 767 SETUP ST GETCUT+¢3, ARR SAVE THE ARR FOR SUBROUTINE FXIT B24 ESSERE SENEKE CHSTRE KS SSESSHEKSSESSKS SKE SS ES SSEKAISE ESOS SVSSCKESSES SEEESS 
14PA 1c 00 1500 00 768 OVER aYvC OR+ 1, *-* (1, KR 1) NSOVE BYTE OF DATA INTO AASK 1SCR FSFG 15CB 825 D50 DC BL2°50° 
“ 14PF BA 00 00 769 OR SBN 0(,XR2) ,X*00° ~OR~ DATA INTO ALL ZERO TABLE 15CC POFOPOFOFOFOF? 15D2 82° DOO pc DL7 #000000 14 
1502 36 02 1F7F 770 A D509,XR2 4DD 509 TO XR2 15D3 PIFJ 15D% 6827 FIFO pc DL2* 108 
1506 1F 00 15DC 60 771 «Comp SLC SAVZP,*-*(1,X81) COMPLESEHNT DATA 15DS 000k 15D6 828 TER pC XL2 *0COA*® 
DATE 16HAR70 18 APR7O 2930870 010CT70 303UL73 1SHOV74 O2NAY75 PROG ID FR4-§ DATE 16 MAR70 T4APR7IO 29JUR70 010CT70 3030273 TSECUTE C2BAx75 PROG ID FFe-8 
EC BD. 816651 816678 816704 816760 $77121 $72239 572266 PAGE 7 eC NO. 816651 816678 8167048 816760 577721 $72239 572266 PAGE 7A 





PR&8 
ERB LIC 


15D7 
15D9 
15DB 
15DD 
15E4 
1528 
15F0 
15F2 
: 15P8 
5 15P5 

15F9 
= 15PB 
d 1SPE 

1500 
. 1603 


er 


* 1604 
1607 
160A 
1616 
Toa 
161£ 
1622 
1678 
167A 
16D0 


16D2 
16 FC 


WaPFs 
1cP2 
1cFr3 


Icrs 
TEEF 


1700 
1F00 


1F60 
1F70 
1771 
172 
1F76 
7a 
IFTE 


1780 
1F 86 
1F8C 
1792 
1798 
1P9C 
1PR0 
1FA2 
PAG 
1FA6 
1FA8 
IPAA 


DATE 
EC WO. 


IBS SAINTENASCE DIAGNOSTIC PROGRAN PART 3O, 2589923 
PAGE 8 
S/3 ASTER TIMING ANALYSIS PHOGRAM (STAP) 
OBJECT CODE ADDR STMT SOURCE STATESERT 
0008 15D8 829 ELEVEX DC XL2*000B* 
19B3 15DA 6830 D6579 DC IL 2*6579# 
FFFF 45DC 831 SAVEF DC XL2*PFFF® 
8040 4080564086 15E3 832 BLANK DC cL7* 8 
6080408048046080 152A 833 TIME DC CL7* ® 
4040808040 15EP 834 CHECK1 DC CL5* ® BUMBER OF SABPLES 
PFFF 1571 835 FFFF DC XL2* FFF? 
0000 15P3 6836 ZERO  0C XL 2* 0° 
01 15F4 837 ONE pc XL1°01° 
CO 87 OESD 838 NOT? 8 B KBITST 
FEOS 15FA 839 D508 nC XL2 *FEOG* 
FOFO F2 15PD 840 DOO2 ~ DC DL 3* 002? 
2380 15PF 841 TWO380 DC XL2 *2380° 
000000 4602 842 DELAY DC XL 3* 000° 
30 4603 843 FL DC XL1*30¢ 
Baa SEKKECKKKEK SKE SKS SESKSTSKEKSSESKSECSSKKESSTRLERKT SST TSKEEKTS SSKSSSKK ESSE EEKSE SS 
845 * RESERVED STORAGE AREA 
846 ERHCKECKKESSKEKKESS SEES SKSEKSSESCKESESELSEKASESSASES SSE SECKSKSE SSKEKSSESESSOEKLSES KS 
1606 8&7 SABPLE DS CL3 NUMBER OF SAMPLES TO BE TAKES 
1609 848 NUMBER DS CL3 
1615 889 WO2K ODS CL 12 
1619 650 DELAY1 DS Cla 
161D 851 DELAY2 DS cL& 
1621 852 DELAY3 DS CLS 
1677 853 LINE? DS CL 86 
1679 854 DS CL2 
16CF 855 LIRE2 DS CL 86 
16D1 856 Ds CL2 
16D2 857 LIMITS EQU. * 
16PB 9858 DS CL42 
16FC 859 DATPLD EQO * 
WAP7 860 DS 4CL255 
1AF& 861 ORTAB £EQU * 
1CF1 862 Ds 2CL253 
1CP2 863 DS cL1 : 
1CF% 868 SS BS cL2 S¥NC-SAEP COUNT AREA 
1CF5 865 ANDTAB ZQ0 * 
YEEE 866 Ds 2CL253 t 
1EEF 867 DS cL1 ' 
868 
868 | 
868 i 
869 ORG xX*1F00! j 
1F00 @70 BDFD EQU- * } 
1P5P 871 DS  CL96 
1760 872 CBNDS EQU * *COMMAMD ABD/OB i 
1P6P 873 DS CL 16 *DELAY TABLE | 
1770 9874 MASK1 DS CL} 
1271 875 BASK2 DS chi i 
1775 876 SULT DS CLa i 
1779 877 PASSES DS CL SPECIFIED BOMBER OF SASPLIBGS i 
1F7D 878 TIHES DS CL& : 
O1FPD 127F 879 D509 ~~ vc IL2*509°* | 
680 CF SSEEEEES SSSRESEEE CEES SEES OE EEESETE FES SE TFEESSAESESSESESESEESET SORE SE | 
881 * THIS AREA CONTAINS DATA WHICH BILL ONLY BE USED WITH PRINTER TAP, 
682 RESKEEKKEK S SHRES EEKHESESKNSSKKEKAESE SEES TLE SEKSE KEES SSKESK ESE SSESSE ESE SESS ICKSE RSE KE 
OC 01 O£7S 1PA1 883 LDPRNT AVC LET3+3, PORM(2) HUST BE AT ADDR - 1P80- t 
Oc 01 OF8& 1Fa5S 886 2VC LET&¢s, IMAGE (2) ' 
OC 01 OF8S8 1FA3 885 HVC LET5¢3,PTAREA (2) j 
Oc 03 OBC IFAD 886 HVC TLIOTWO+¢3, PRTSSY +4314} . 
3c OD O£2P 887 ‘Vi MAYBE, X°OD* i 
CO 87 OB48 888 B LDT HEA { 
15BD 1Fa1 869 FORK 0C AL 2 (WASDH-3) 
1PAa7 1FA3 890 PTAREA DC AL2 (ATET7C) 
1FA9 1FaA5 891 IMAGE DC AL2 (ATEOO) 
oB7C 1FA? 892 ATE7TC 0C XL2°87C* 
0800 1FA9 693 ATEOO nC XL2 *800* 
Cl £6 O£89 89% PRTBSY TIO TIOTHO,X*°E6* 
168AR70 18APR70 2930870 010CT70 3030173 1SNOV78 O2may75 PROG 1D PP4U-8 
816651 616678 816708 816760 577121 572239 572266 PAGZ 8 | 
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IBM MAINTENABCE DIAGROSTIC PROGRAA 


Fras 


ERK LOC 


1FAE 
1F BG 
1FPB2 
TFBS 
1FB6 
1FBS 
1PBA 
1FBC 
AFBE 
1FCcO 
1FC2 


1FC4 
1Fc8 
1Fc9 
TFCA 
1FDO 
1PD6 
iFDCc 
iPE2 
IFES 
1PEC 
WPEE 


DATE 
Ec #0. 


$/3 


OBJECT CODE 


1F00 
1621 
1679 
113F 
1F70 
1774 
OF3B 
1107 
Ccrsc 
175D 
1603 


oc 03 
oc 01 
oc 00 
ec 00 
08 03 
co 87 
PEF 

1FC4 


VFC7 
OF88 
1FC9 
1PC8 
0E95 
OB48 


168AR70 
816651 


MASTER TISING ABALYSIS 


PROGRAS (STAP) 


2589923 
8A 


PART KO. 
PAGE 


ADDR STAT SOURCE STATENEUT 
895 SE SEEEEEEESESEESEEESEEESHERGESEREHETEESES SESS EESTESES EESSLESLERES ESSE ES 
896 * ADDRESS CONSTABTS 
897 RESERECRERE SEES ES CEREEEESERESEEESESRERSSESESEEESCESSS SESSESSESETES SESESS 
1FAF €98 LDRBD DC AL2 (BDFD) 
1FB1 89% ALINE? DC AL2 (LINE 1-86) 
17B3 300 ALIBE2 DC AL 2 (LIN E2~86) 
1FB5 901 AROW DC AL2 (HOW) 
1F7B7 902 AMASK1 DC AL 2 (SASK1) 
1PB9 903 ASASK2 DC AL2 (HAS K2) 
1PBB 904 aTIO DC AL2 (TIOCED) 
1FBD 905 AEBRROR DC AL 2 (ERROR) 
PBF 906 ANOWT DC AL2 (NOWAIT) 
17C1 907 DATA? DC AL 2 (DATA 10} 
1Fc3 908 AFL DC AL2 (FL) 
903 EkSEHESEE ESSERE HEEEERGSERERSEREHRESSSERESERE EOSTSSS ESSE SS ESESE ESE ESET LE 
910 * THIS AREA CONTAINS DATA WHICH WiLL ONLY BE USED WITH A DISK TAP 
911 SKEREERERS SEEEEE SERS SEEEEEEESESEES ESSE SEES SE EERE SESE HERTS EESETESS BETES 
1FC& 912 BDISK £QU) * 
1FC7 913 DISK DS CL4 
1FC8 918 BACK DS cL1 
1Fc9 915 GPISIT DS CLI 
1718 916 LDDISK MVC DISK, DATFLD+¢24 (8) 
IPED 917 MVC =: LET 53, CDISK (2) 
1726 918 MVC OPISIT,DATPLD+¢82(1) 
1713 919 HVC BACK, DATFLD#23(1) 
1723 920 BER TIOONE*1,RDFD+35 FIX FOR 1010 
921 B LDTHES 
{ED 922 CDISK DC AL2 (ADISK) 
1FEF 923 ADISK DC AL2 (BDISK) 
9284 ERAS HEESSHEARSERSERSEESESESSSESSRESEE SESEE SES SERESTE SE LSSE TSS SEES S SEES ES ; 
925 * EQUATES / 
926 SR SERESSEERETESRESESERES FS ESSEERE SEES SEETESEESSERS ETS ESHES SESSHEESESESES © 
0001 927 XxR1 EoD) 1 
0002 928 xXR2 EQUu 2 
0008 929 ARR EQU x*08* 
020D 930 SBYTES EQB  x*20D* 
021A 931 PRINT EQU  X*21~* 
021E 932 UNPACK ZQU  xX*21E* 
0222 933 HALT QU x*222* 
0226 934 PACK QU x*226* 
022A 935 LOAD QU X*22~° 
0232 936 UTAB QU X*232* 
0080 937 SNSW28 EQD Xx*80° 
0040 938 SNSH29 EQU x*4O¢ 
0020 939 SNSW2A EQU X*20° 
0010 940 SNSW2B EQU xX*10* 
0040 941 FLAG? EQU x*SO* 
0010 942 FLAG3 EQU_ x® 10° 
0008 943 PLAGS EQU xX'08* 
0002 944 FLAG6 EQU x*°02* 
0001 985 FLAG? EQU x*O1* 
0080 946 FLAG10 EQU  x*80* 
0040 987 FLAG?1 EQU  x*a0* 
0020 948 FLAG12 EOU xXx*20° 
0010 949 FLAG13 EQU xX*10° 
0008 950 PLAG1& 200 x*08* 
000% 951 FLAGIS EQU xX*0s* 
1753 952 EXPAND EQU  DATFLD¢87 
1753 953 DATA 2Q0 paper? | 
756 956 LINECT EQU DATFLD¢ 
0010 955 KEYBRD Eau x*10° DEY ADDR OF KEYBOARD AND 2956 
REP 
957 * seus ce ~ PRINT ONLY LAST SASPLE INPORSATION ON STATUS ERROR OB HOT 
958 * READY. = 
959 TREP 
960 * SSS 29 - PRINTOUT IN TABULAR FORA. . 
961 TREP aes 
96° * SSHS 2B - BYPASS IBITIAL BOB-SARPLE EXECUTION OF SABPLE cos 
14APR70 2930u70 010CT70 30JUL73 15HOV78 O28 ax 75 pROG ID eree 
816678 8 16704 816760 577121 572239 572266 PAGE | 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS PART BO.. 2589923 
PAGE 9 
S/3 SASTER TIMING ANALYSIS PROGRAS (MTAP) 
ERR LOC OBJECT CODE ADDF STMT SOURCE STATEAENT 
963 © —nPCO- 
9648 TREP 
965 = FSO HALT - SAMPLING WAS NOT PEFORHED DUE TO AR ERSOR. 
966 TREP 
967 * PE HALT - IP SPECIFIED IB 82, TO ALLOW CE INTERVENTION BEFORE TEST 
968 © IS PERFORMED. 
969 TREP 
970 * FF HALT - THE PROGRAM IS NO#® READY TO HAVE A -TAP=- LOADED. 
971 TREP 
972 © -FF- IN THE DATA SWITCHES PRIOR TO THE COMPLETIOBR OF THE TABULAR 
973 © PRIETOUT. 
974 TREP 
975 * BILL CAUSE A SCOPE TYPE PRINTOUT CF THE SANE DATA. . 
976 TREP 
977 * -AA- IN THE LEFT ADDRESS SWITCHES, WHER THE -F¥- OR -F9- HALT IS 
978 * RESET, WILL CAUSE 
979 TREP 
980 * A RE-EXECOTION OF THE PREVIOUSLY LOADED TAP. 
981 TREP 
982 * THE INDICATED UP OR DOWB CONDITION REFERS TO THE LOGIC LEVEL, NOT 
983 * THE BIT CONDITION, 
984 TREP 
$985 * -TAP- DECKS WILL BE LOADED FROM THE PRIBARY HOPPER. 
FFPF 986 ERD 
1OHAB70 V4aPR70° 2930870 010CcT70 3030L73 15R0T74 O28AY7S PRoG ID Pr4-8. 
816651 816678 816704 836760 $77121 572239 572266 
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IBM MAINTENANCE DIAGNOSTIC PROGRAA 


G28Aa775 
572266 


. Pras S/3 MASTER TISING ABALYSIS PROGRAR (TAP) 
CROSS-REFER ENCE 
SYSBOL T LEN VALUE DEF# REFERENC?S 
aal a 003 1029 04840 0232* 
AA10 A 003 10F0 0490 024 1% 
aA2 A 003 1080 04846 0233* 
aa3 aA 003 1059 0852 02344 
_ AAG A 003 1070 0458 0235 
aas a 003 1087 0468 0236* 
AA6 A 003 109F 0870 0237* 
AAT A 003 10B6 0876 0238* 
aas A 003 10CA 0481 0239 0485 
aad 2003 T0DF 0486 02804 
ADATA A CO2 142? 0756 0669 
aodD a 003 106% 0455 0450* 
ADISK A 002 FEF 0923 0922 
ASRROR A O02 TFBD 0905 65171 
APL A 002 1iFrC3 0908 0130 
AuOW A002 PBS 0901 0508 
ALINE? AB 002 1FB1 0899 0259 
ALIME2 A 002 1FB3 0900 0260 
ALLIN A 006 1120 0502 0499 
ALLOUT A 006 1145 0512 0503 0507 
ABASK1 A 0O2 PBI 0902 0279 0657 0689 
ABASK2 A 002 FBS 0903 02648 (538 0670 
auD A 003 1511 0773 0772 
ANDCK A 003 1836 070% 0678 0678% 0685* 
ANDTAB A 001 1CP5 0865 0033* 0303 0303* 0308 0304" 0513 0513* 0529 0554 0557 
aAuND22 A003 1533 0781 0780 
AND33 A003 1098 0868 0867 
AuJUT A 002 IFBF 0906 0258 
. ABB Cc 001 0008 0929 0767 
ATEOO A 002 ‘%FA9 0893 0891 
- ate7C A 002 PAT 0892 0890 
. ATIO aA 002 PBB 09048 0153 
BACK a 001 1FC8 0914 0346 09199 
BACK? aA 00% OFS88 0391 0156 
BacK2 A 004 OF68 0381 0188 
BACK3 A 004 OF48 0371 0139 
BB1 A005 102C 0481 0242 
BB10 A 005 10F3 04891 0251 
BB2 a 005 1043 0447 02% 3% 
BB3 aA 005 10S5SC 0853 02448 
BBY a 005 1073 0859 0 285% 
BBS A 005 106A 0865 0246% 
BBS A005 1042 0871 024a7% 
BB7 a 005 1089 0877 0248* 
BBS a 005 10CD 0882 0249* 
BB9 A 005 1022 0887 0250 
BDISK A 00% 1FC8 0912 0923 
BLANX A 007 1523 0832 0030 0031 0124 
0597 
BYPASS A 0O& OBFA6 0298 029% 
BS A 003 141D 0696 0675 0675* 0682% 
CARD A 004 0a90 0068 0054 
CARBD2 A 00% OAEG 0106 0069 
CARDS A 004 OAAT 0078 0071 
CARDS A004 OAD1i 0096 0085 
car A 008 1168 0519 0515 
cc A003 1031 0442 0441s 
cc10 A 003 10F8 0492 04914 
ce A003 10468 0848 04874 
cc3 A 003 1067 04858 0453 
ccs aA 003 1078 0460 0459* 
ces A 003 108F 0466 0465* 
ccs 2 003 10A7 0472 047 1% 
cc7 A003 10BE 0478 0477* 
ccs A003 10D2 0883 088 2° 
cc9 a 003 1027 0888 0487 
DATE 168AB70 18 APR70 29304870 010CT70 30J0L73 1580076 
EC NO. 816651 816678 816704 816760 $77121 $72233 


PART HO. 
PAGE 


0138 0142 0160 0169 0190 0192 0252 0285 0514 


PROG ID 
PAGE 


2589923 
9a 


2 ag ey 


Ba edo ee 


IBN MAINTEWANCE DIAGNOSTIC PROGRAM PART 4O. 2589923 IBS SAINTEWANCE DIAGNOSTIC PROGRAK Soph #0. eee 
4 PAGE 10 
; FP43  S/3 MASTER TIBING ANALYSIS PROGRAS (ATAP) YF83 S/3 ASTER TISING AMALYSIS PROGRAS (#TAP) 
: CROSS-REFEREBCE CROSS ~ REFERENCE 
> SYMBOL T LEM VALUE DEFB REFERENCES SYBBOL T LEN VALUE DEFB REFERENCES 
_CDISK A 002 ‘FED 0922 0917 FIX ry oe ocrs 0221 o1es 0196 0202 0205 0211 0218 0218 
3 CHECK1 A 005 15EF 0838 0353* 04806" 0810* 0413% 0428% 0489* 0530* 0562* 0616 0757¢ FL A 
CKAMD A 003 1430 0702 0677 0677* 0683* FLAGS A 001 1582 0789 onee oe aaa 0288* 0348 0350° 0573 0575 0595* 0596% 0608 0606 
. CKBS A 003 142A 0700 0676 0676* 0684% 0695 
% CKPE a 004 OACO 0088 0036 FLASS2 A 001 1543 0799 0029* 0112 0115 0276 | 0278* 0898 0531 0682 0658 0656* 0668* 0686 
CKIBS A 003 1417 0694 0674 0674% 0681¢ to aang bienel con aeee eee? ace 0739 
; CKO8S1 A 006 1411 0693 067 FLAG 2 
3 cKO A 008 OacD 0092 cons FLAG1O C 001 0080 0946 0686 0688 0712 
CK41 a 006 OBBS 0156 0151 : FLAG11 C 001 00480 0947 0115 0498 
- CK&11 2 004 OBA2 0150 0183 PLASi2 C 001 0020 0948 0737 0739 
. CK82 2 006 OBTJE 0142 0135 FLAG13 C 001 0910 0989 0642 065% 0656 
CLCCOm A 00S 0298 0317 0315 FLAG1# C 001 0008 0950 0531 0668 
CLEAR A 006 OBDO 0160 0158 FLAG15 C 001 0008 0951 0112 0276 0278 
_ COND ~& 015 1556 0812 0066* FLAS3 C 00% 0010 0942 #40388 0350 
CMNDS aA 001 1P60 0872 0068S 0305 FLAGS Cc 001 0008 0983 0573 0608 0612 
COMP a 005 1506 0771 01789 FLAG6 C 001 0002 0948 9595 0618 0620 
COMP22 A 005 1528 0779 01848 FLAG7 Cc 00% 0001 0945 0575 0606 
COMP3 a 905 1048 04849 0180* FORM A002 FA1 0889 oa83 
COMP33 A 005 1082 0463 0 186% aL s foe a Soak ae 
COND aA 004 1302 0628 0626 G 
cow A 004 0a17 0029 0518 GEIOUT A 00% 1532 0788 076 7* 
cT1 a 001 14aD0 07487 0261% 02699 HALT c 001 0222 0933 0027 0060 0090 0108 Sec 
CT11 a 002 «18D2) «=O 748 0259* 0267* 0544 HISTRY A 048 1582 0813 0160* 0161* 0588 0615 
cr2 A 001 14D8 0751 0262* 0270* HOW A GOS 113F 0511 0901 
CT22 a 002 14DA 0752 0260* 0268 0585 IMAGE A 002 FAS 0891 0884 
cT3 A 00% 14£0 0755 0263* 027i8 aur : a oe eae er 
DA A 002 0a53 0088 0061* 
DATA A 001 1753 0953 0546 0547 0547% 0719 0756 0907 ISHFCO A 004 0838 0293 a ote j 
DATA? & 002 1PC1 0907 0141 JUMPIT A 006 OCE3 0220 nel : 
DATFLD A 001 16FC 0859 0120 0126 0127 013% 0132 0433 0137 0138 0186 0187 0152 0158 KBIST A 00> OE8D 0314 0 
0159 0164 0165 0366 0167 ©171# 0172 0172® 0173 01748 0175 0176 KEYSED C 001 0010 0955 pes tees dene ; 
0177 0178 0179 0180 0181* 6182 0183 0184 0185 0186 0187 0198 LaStT & 016 1592 0818 ee : 
0198 0199 0207 0208 0215 0358 0408 0916 0918 0919 0952 0953 ede : ee aoe Ae re ; 
0954 : 
; LDPRET A 006 1F80 0883 0123 ? 
are : ie tee aes nines eres LDRD A 002 APF 0898 0307 0311 o3N2 
DELAY? A 006 1619 0850 0157* 0228 0393 LOTHES A 006 OBB 0131 aan 0888 092 
DELAY2 A 00& 161D 0851 0145* 0382 LEFT? a 004 OCAP 06208 aeee 
DELAY3 A 004 1621 0852 0136* 0372 _  LEPT2 a 004 OCCA 0213 oe ae 
baat ties eae et eet ae can oe 
ae : os i peat eee coe 0916% LET3 A 00% OE272 0307 0131* 0308 0310* 0342 0883¢ 
DLY1 A 008 OEC8 0330 0331 LEIS aA 008 O£81 0311 0130* 0132* 0309 0884s 
DONEXT & 006 13A1 0669 0532 0538 0758 LETS A 004 OEBS 0312 0133* oe 09 17% 
COret A 0048 1859 0712 0687 Seca - Bok ious o7eG a738 
8 8 LIB 
a ound i Soe hace aeue neae van LINECT A 001 1756 09548 0527* 0715* 0748 0726 
DOWN2 A 006 12FC 0627 0628 i LENE? A 086 1677 0853 0030* 0076* 0748 0899 
DOOY =A 007s 15D2 -0826)=— «0162 «0224 0327 0358 0373 0383 0394 0406 0413 0821 0424 0428 ; DbINe2 A G86 16CF 0855 0031* ance. 0752 0900 
0484 0489 0500 0502 0526 0563 0616 (C757 ; ee : de oeee oe aeas wean Soar 
ae i; ne fees eee oe , ' mANY =A 008 «©1587 ©0841 0285* 0358* 0518 
D508 A 002 “15FA 0839 0456 0874 0775 0783 p  SBRSEY 0008 CAF 10'. 0808 0178S Bape 
D509 «A 002 «1F7F 0879 0445 0462 0770 0778 ¢ BASK2 & GOT 1F71 0875 aaee 
D6579 A 002 15DA 0830 0329 ie GE ee OE eee eae 
ELEVEN A 002 15D8 0829 0267 0268 0269 0270 0271. 0272 0567 0568 0710 couse ‘ a ae oC Gece nea 
ERROR ~& 004 1107 0496 0415 0905 a 
EXPAND A001 1753 0952 0588* 0549* 0564* 0565* 0566* 0577% 0578* 0582 0583" 0589" 0590 0594 MIVELT A 006 1449 0709 0669s oes? oye? oie ‘ 
0597* 0610* 0611* 0625* 0627* 0631 \ SULT A 008 %F75 0876 ee bala ts : 
PFFF & 002 15F1 0835 0330 0690 06914 gerEe : oe abl nage ose ee : 
q q . 
Sreri ; res tees rie 0191 MEXTS A 00S OAS7 0086 0040 9097 0102 0277— 
" PLFTY2 B 006 OCB6 0207 0193 HEX’? A OOF 1120 0556 0643 0558 
. PINSH1 & 004% 10DB 0485 0480 i HOD LEY a 008 Aas 0537 o32 
PIRST A 006 1207 0565 0588% 0567 wor » 
FIRST1 A 008 OA7E 0062 0059 now A004 11£8 0558 0538* 0555 0632 0632+ 0645+ 0657% 
| SAPR70 2930870 010CT70 303UL73 15NOV7s O2NAY75 PROG ID Frs-8 
DATE 16 8AB70 14 —RPR70 2930470 010CT70 303 0L73 15HOV7S 028AY75 PROG ID PFu-8; DATE 16BABR70 18APR pe acs Eada) 572239 572266 PAGE 108 
EC M0, 816651 816678 816708 816760 577121 572239 572266 PAGE to } EC 80. 816651 816678 
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IBM SAINTENANCE DIAGNOSTIC PROGRAR PART HO. 2589923 IBS SAINTENABCE DIAGNOSTIC PROGRAS PART 80. 2589923 
? ; PAGE v1 PAGE Wa 
FPS68) 8 =6S/3 ASTER TIBING ANALYSIS PROGRAB (MTAP) PF4S S/3 MASTER TIBING ANALYSIS PROGRAN (STAP) 
CRCSS-REPERENCE , CROSS-REFERESCE 
. STSBOL T LEN VALUE DEFK REFERENCES SYBBOL T LES YALUE DEP REFERENCES 
. MOKRAIT A 008 OFBC 0392 0226* 0229% 0906 SETUP2 A 006 OBSD 0185 0180 
3 NOWCK A 00% 11D5 0553 0688 SET1 A 0O& OD98B 6255 0253 
NO#DD A 004 OFBD 0408 0630 0509 SHIPT A 006 ODFO 0273 0266 
Now! A 603 12%F 0569 0617 0633 0633* 06456 : sus A 008 OAS9 0081 0038 
+ NOW10 A O08 1292 0608 0609 Susw2a C 001 0020 0939 0058 0706 
NOW? A003 128E 0599 0581 0634 0638 0647s SNS#@2B C 001 0010 0980 0293 
- Mow3 a 003 %25A 0588 0635 0635* 06484 SuS#W28 C 001 0080 0937 03896 0506 
, NOWS a 003 1248 0580 0570 0636 636% 0649 SNS#29 C GO14 0080 0938 0533 
now5 A003 1225 0571 0€22 0637 0637% 0650 SkS1 A003 1015 04835 0164* 0895 
NOW6 A 003 129% 0601 0638 0638* 0651# SyuS2 A 003 1018 0836 01738 
_ NOW? A 003 12AC 0608 0500 0639 0639 06525 SNS3 A003 OPAA 0803 0165* 0407 
nows A003 12ED 0623 0622 SNS4 A 003 OFAD 0804 017488 
Noes A 003 17260 0586 0640 0640% 06534 SNSS A003 OFEO 0819 0166% 0829 
_ WUKBER A003 1609 0848 0222 0223* 0353 0410 SNS6 a 003 OFE3 0420 01758 
ONE A C691 %5F& 0837 0215 0326 9332 0528 0715 ss A 002 IcFa 0864 01416% 0500 
ONLY1 aA 003 OF?2 0349 0289% 0295* 0298 STakT A 006 OF1D 0353 0349 0501 
00 A003 1039 0844 048 34 SToP A 006 OaSC 0088 0045 
OPISIT aA 007 FCS 0915 0339 0918% SJB A C06 OF96 0398 0396 
OR A003 W4PFP 0769 0768# SUB2 A 006 OF72 0383 0385 
ORIGIN A 004% ODOD 0229 0225 SJB3 A 006 OF52 0373 0375 
ORTAS A O0G1 AFB 0861 0032* 0301 0397* 0302 0302 0355 0809 0512 05128 0528 0553 0556 Syuct & 003 OF85 0390 0158* 
OR22 A 003 1521 0777 0776% Syuc2 a 003 OF65 0380 07868 
0833 A 003 107B 0861 04857 Syuc3 A003 OPF&SS 0370 0137 
: ouTe A 0048 OFDC 0415 0508" 05118 ; TAai aA 0048 1103 08395 07189 
OVER A005 W4FRA 0768 09778 , Taa3 A 0048 OFBS 0407 0220 
OVER22 a 005 151C 0776 0183% TABS A 008 100D 0829 0217 
OVER3 A 005 1038 0483 0179% TERM A002 15D6 0828 0187 
OVER33 A C9S 106B 04657 0185* THESE A O00O& ODC5 0265 0264* 0273 0273% 0278 0275* 0279% 0280 i 
PACK C 001 0226 0938 0062 0098 0117 ; THIS? A OOS 43AD 0671 0670* 0673 0673 0679 0680* 0689* 0692 ; 
PACKIT a 008 0818 O117 0114 TIE a 007 15EBA 0833 0338* 0345* 0521 0526* 0563* 0568 0578 0583 0590 061% 0615* 0708 ; 
PACK? & 006 OBBE 0157 0188 0736* 
PASSES a 0048 1779 0877 0286* 0502 TIMES A008 PTD 0878 0168* 0286 i 
PRINT C 00T O21A 0931 0089 0086 0539 0560 6591 0628 0659 0780 0745 0749 0753 0759 TINEUP A 006 1483 0708 0697 0701 0703 90705 
PaTBSY A OOS ITPFAA 08984 0886 TIOCND & 008 OF3B 0363 0152* 0904 
PTAREA A 002 1FA3 0890 0885 TIOOWE A O0& OE9S 0316 0121* 0129% 01678 0338 09208 
RAYO2 A 00% 1875 0719 0134 02728 TIOTWO A O00W OBSS 0313 0290* 0335 QO886* 0898 
RBAYOS A 003 1479 0720 0733 TRYNXT A003 72C3 0613 0572 0588 0598 0602 0605 0607 
HAY1O0 A 003 1898 0729 0725 0727 T#0380 A 002 I5FPP 0841 0523 
: BAY20 A 003 149E 0731 0721 UNDER A006 OCD1 0215 0188 
: RAY25 A 00% 1484 0733 0730 UBDER6 A 006 0C19 0173 0170 
i RAY30 A 008 1408 07384 0723 ONPacK C 009 O29E2 09332 0322 0519 
: RDINTBR A004 OATT 0027 0663 0761 ug A 009 7537 0817 0582 
; RDFD a 001 1F00 0870 0048* 0052 0053 0064 0066 0068 0070 0076 0078 0083 90084 0096 UTAB C 00% 0232 0936 0037 9039 
; 0100 0110 0113 O1916 +O119 O9722 O91248 0134 0136 O142 O145 0150 VARY a 009 145C9 0821 0577 
5 0157 0162% 04168 0169 0190 0192 0194% 0195* 0198* 0201% 0208* 02078 WAIT A 006 4173 «40524 0525 
‘ 0240® 0213* 0221 0222 0230 0231 O2482 0283 02468 0285 0246 0287 WAIT15 A 005 OFEPF 0423 0425 
i 0288 O24% O250 0251 0252 0256 0898 0920 WAITSO A 006 OFPS 0828 0422 
| RELOAD A 008 OEC4 0329 0333 ery waASDH A 008 15¢CO 0820 0627 0889 
4 RT01 A 001 OAOD 0024 0018 : WASUP A 008 1588 0819 0625 
SAMP A 005 OEFB 0344 0318 WaY Aa 008 OF37 Q359 0139% 01498 01532 0156% 02548 
SABPLE & 003 1606 08487 0221* 0530 0562 WHERE A004 OFA6 0397 0189* 0217% 0220% 0226 0368 
SAVEF A 002 15DC ° 0831 0849 0850 0863" 0867 O4b99 C473" GRITS 0772 07749 0779% 0780 07829 WILL A 306 141227 0622 0619 ; 
i SAVELT A 0048 OFCB 0411 0ai48 — ; >" , WORK A012 1615 08489 0034* 0035 0321% 0328 0325 0327% 0372% 0373* 0378 0374 0382* 0383 
SBYTES € GO1 OZOD 0930 0058 0106 0293 0896 0506 0533 i 0384 0384 0393* 0398* 0395 0395* 0823* 0523* 0524* 0661* 0662 07168 
q SCOPE A 006 117D 0526 0665 ar : 0717¢ 0738 0735 
SECD A006 123F 0578 0578 0603  - | XCUTE A003 OFFI 0340 0337s 
SECD1 A 006 120D 0566 05485* 05686. — : XCUTE2 A 003 OFOB 0387 03448 
SECOND A006 OAPF3 0110 6107 xB1 C 001 0601 0927 0231*% 0232 0233 0234 0235 0236 0237 0238 0239 0240 0241 0305¢ 
 SENSE1 A003 OF82 0389 0159% 0287 Q3ides pote. 0317 0319 032% 90334 0338* 0337 0338 038% 0381 0389 0385 03548¢ 
SEUSE2 A 003 OF62 0379 +°0187% 0381 j 0356 0357 0369 0370 0379 0380 0389 0390 0803 O808 0405 6405° 
- SENSE3 A 003 OF4S2 0369 0138@ 0371 { Bes 0408* 6412 0412% 0419 0420 0823 0826 0826" 0435 0436 0437 0838 
.. SETPRT A O11 159D 0815 0306 0421 0424* O427" 04395 0479" Q46ee 0693 0693 0638* 0706* 0708 | oF C480 084% 0842 0443 O886 O8487 O88 O8449 O452 0853 O4548 0857 
0709 ‘ 0458 0459 0860 0463 0468 0865 0866 0870 0871 O4872 0876 0877 
SETSES & 006 OBD6 0161 0163 dys 0378 0481 O82 G883 0866 O487 O886B O490 O891 O892 0693 08934 
SETUP 3 008 1388 0659 0655 i et 0498 0528 0553 0556 0569 0571 0580 0586 0613 0613* 0623 0690 
SETUP1 A 00% 18FP6 0767 0871 | 069% 0696 0700 0713 0713* 0716 07188 0720 0722 0724 0726 0729 
| 2 
DATE 1oMAR70 18 APR70 2930870 010¢T70 3030L73 1SNOV78 O2maY75 PROG ID PPé-8| DATE 16B8AR70 14aPR70 2930870 010CT70 3030L73 1580¥78 O28AaY75 PROG 1D PPs-68 
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Ibm BAIBTENABCE DIAGNOSTIC PROGRAB PART RQ. 2589923 
. PAGE 42 
PF&a S/3 MASTER TIALEG BWALYSIS PROGRAS (STAP) 
CBOSS-REFEBRENCE 
SYSBOL T LEN VALUE DEFER REFERENCES 
0729% 073% O0O731% 0734 0768 077% 0776 0779 
X82 £001 0002 0928 0329% 0330* 0355* 0409 0444 0845* 0455 0456" 0461 0462* 0868 04748 
0529% 05548 0557* 0584 0599 0601 0608 0614 06146*% C69%*% 0702 0708 
0774 O714* O717 07198 0728 0732 0732* 0735* 0769 0770 0773 0775* 
0777 0778% 078% 0783* 
ZERO A 002 15F3 0836 07171 0317 0494 
TOTAL STATEHERTS FLAGGED IN THIS ASSEMBLY = 0 
\ 
i 
~ i 
r 
ee ! 
| ' 
DATE 46H AR7T0 VeAPRT0 2950HK70 0%0CT70 3030L73 TSROVTS O2KAY75 PpeoG ID PRa-8. 
ED BO. 9816651 816678 816708 816760 §77121 572239 572266 PAGE 42°: 
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THE CHARACTER INDICA 
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GBK GBD PN 25 
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82 70 PRINT 
GUT S00~ SFF 
RIN TO SNS NEXT 


END OF 600~-6FF? 
GR ff not 

1S SSH 12 GNP 
SR if NOT 

GR 7O BRENT 

GUT 600-6FF 
STN TO SNS NEXT 286 
END OF TOH0-TFF? 

GR 1F NOT 

3S S88 12 Ga? 
eR fF NOT 
SR TO PRINT 

OUT 700-7FF 

iS SRO FET INSTALLED? 
BR TF NOT 
Rtn TH SNS wEXY 256 
END OF 860-6FFT 
SR 1f NOT 

1S SSw 12 ON? 
BR IF NOT 
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GUY 600 -6EFF 
Rtn To SNS MEXT 256 
END OF 900~-9FF? 
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iS SSe 12 ON? 
BR IF NOT 
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ema O1 SPLAT AOAPTER TEST ee DESALAY ADAPTER FEST 
GRR LOC OBJECT CaDE ADOR SPT SUMCE STATEMENT | Een ute EasEcr cone aOR SINT SMRCE STATERENT 
2699 @D 01 S6Ts no c8 2035 CC f0ge0s,200FF oT ONS OF FER 2°. e $063 Fe 81 Os 2106 Jt NOSKIR a3 VES: CONTINUES TF NOT: ERROR. 
$8a1 CO 00 1ga3 3039 enn RosKoe if NOt. GO SENSE acaEn. 2666 ©O @7 13ec 21207 B RESSEN «BORER. GO PRINT 
2940 Va . 2108 
IGS 38 £0 G20 a003 Ten  sBYTeae Senge e3ou 42 One IF WEGe PRI m3 | € 2664 GE 01 1699 5671 1109 ROSKI2Z ALC ROSSEC RONTENT ES INCREMENT ExPECTED OaTA 
2509 F2 9G OS 3042 iS ROSK OA SEEMED DATA FOR fsa 4, i 2670 G2 G2 0:1 1il0 LA it RSs me 
2S5ac CO 87 S667 2063 8 eosocs «DG 256 wORDe PRON Fae 2 1672 38 C2 SETS 2221 ST ROSHO 1.2 
28B0 8D 2880 1944 oC %.3 * 80 | ae} $677 OD 01 8873 S661 azi2 CLC 0 RoGw0l -xeerr «aT G0 GF EQ 47 
1005 ; : 4267S £O 04 1640 aai3 eX ROUK13 $F NOT. GO SENSE aGatn. 
18561 ¢2 01 STO3 1046 ROSKOA LA ROSW1 Be AL «USS ERI AS CE SHS DATA PORTER | 42134 
$805 CO OF 180A 1947 $s ROS EPC «SET UP COUNTERS FOR PSO 2 | € $481 BB 20 2200 1135 TaN MByYTERssu52 «850 £2 ON? If YEG- PRINT 4.1. 
2Sa9 40 28B9 1068 gc m.2*00% Po 3685 F2 08 OS 22126 Jf ACSICA SENSED DATA FOR Faq 4. 
1089 4688 CO ST 9867 1137 e AgS OCS Step 256 wOeGd FROM FER 4 
16ga 3O 36 Gres 1950 ROGKOB SNS STATAC »CTSTOR SENSE CS. STORE In SwS DATA i ‘8 #60C 10 seac 1118 oc x.3° 40° 
158€ 4C 61 61 SFES 1051 - VE sd Se MZ} oSTaTac TALE. & CENPARE TO EXPECTED. 3268p CO 87 1600 1119 R983C1 8 RoSK 14 
1Sc3 D2 03 O2 1082 aa BU XRG 22 MRI DATA 2120 
2053 | € 1491 CO 87 GDAS 1221 ROSLPR 8 STATUS oRTTACH CHK DURING 130 
16C6 ¢€1 5D i3eC 21054 TIO} }8=—«_- ROSSEx, A TICHK o60 PRINT IF ATT. Chine 1698 60 2698 1122 pc XL 1°60" PRINT C.S, ADDR. ERP DATA 
iSta 0 01 FEs 16% 1085 %C STATACoROSSSCEZ? eCOMPARE TO EXPECTED Data? 4608 17 $696 1123 pc uL1°4 he oERROR MOLT ~1t~ 
1SD0 co 61 1f8D6 1056 BE ROSKOS elf v&Se CONTINUESTF KOT. ERRORS € 1897 a000 16908 1124 ROSSSC DC x 2°0° eS MPECTEO DATA 
21800 CO SY 138C 1057 8 ROSSEX eEARORs GO PRINT | $609 CO 87 16C3 31225 8 ROSsK18 
1688 : 1326 
1058 | €° 1680 3p 60 seer 1127 ROSKI4 CLI ROSSF1ex9B0e ePART 1 4UST COMPLETED? 
2808 OF O01 1698 5671 1060 ROSKOC MC ROSSSECOROBSINGZ} eINCREHENT EXPECTED DATA 1601 F2 01 08 1i2e JNE 05x15 Ze MOT. CONTINUE, 
360& Ez 02 63 1063 LA 1( eXR2) oXAZ t 1646 3C 40 566F 1129 MVr ROSSF1+xea02 t® vEs. SET UP FOR PART 2. 
1S€1 34 02 S673 1062 st ROSWO Io AR2 €: 26A8 CO B7 133A 1130 8 ROSKOL 
1SE5 oD 01 5673 S60D 1963 QC ROSWO1L XO FF eAT END OF FSO 27 113% 
ISEB CO 04 158A 1064 eM ROSKeS If NOTs GO SENSE AGAIN. i6ac 3D 40 S66r 1232 ROMIS CLI ROSSF1ex2a0* oPARy 2 SyUST COMPLETED? 
1068 | €3 2680 F2 91 10 1133 UNE ROSKIB 1F NO. JUMP. END OF PART 3. 
1SEF 38 20 O204 1066 TEN SBYTER.5812 SSW 12 ON? 1% YES. PRINT ALL - | 1693 3c 20 Sé6ErF 1134 _ WE -ROSSF2 ox* 20% if YES, SET UP FoR PaRT 3. 
1SF3 F2 90 95 1067 ea ROSKOD SENSED DATA FOR FSO 2e 1687 Co OF I3BA 1135 B ROSKO1 
1SF6 CO &7 5867 1068 8 ROSDCS eDUMP 2E6 WORDS PRow FSO 2 ' 4236 
1SFA 49 1SFA 1059 oC MLIE*40" * \ 1688 cO BY Spas 1137 RSzNCcE B STATUS oMIAR INCREMENT SRROR 
1070 168F 04 168F 1138 pc RL1F O05 teenie ete 
15FB C2 02 5701 “4073 ROSKOD LA ROSH i Bs RNG eUSE XR1 AS CS SKS DATA POINTER ! & 26C0 3a 16C0 1339 oc XLisgae eERROR HALT -1A- 
1SFF CO 87 16CA 1072 8 R05 SPC SET UP COUN. ERS FOR FSO 3 16C1 0600 16C2 L180 ROSENC DC ML2° 0° eEXPECTED DATA 
1603 20 1603 1073 oc MLi°20¢ 2141 
1074 8603 F3 SB 80 2342 ROSKIB S10 x°605sS101 DISABLE ATTACHNENY 
1604 36 58 SFE6 1675 ROSKOE SNS STATAC sCTSTOR SENSE CGSe STORE IN SNS OATA i 26C6 CO BF 02136 1143 8 LINK LINK TO NEXT ROUT IRE 
1608 4C 01 01 SFE6 1076 MyC =: 1.2. R13 ~STATAC TA@LEs & COMPARE TO EXPECTED | 1144 
1600 D2 01 02 1077 LA = - 200 KR190XRY DATAs : @ 1145 seseeeessseeessecenes 
iove | 4146 * SUBROUTINE ROSSPC HEEOERRES ER STR ORES 9S SEC BEE OSSD SESE SEERERS EET EOE8SS 
16160 Ci &D i3s8c 1879 ¥#76 ROSSE Xe ATTIC oIF ATTe ChHKe GO PRINT \ 3 4147 Se eeeee ee teense ee oHRS * 
1614 OD 01 SFE6 1668 1980 CLC «= STATAC, ROSSSCL2) oCOMPARE TO EXPECTED DATA?  @ 2148 * PURPOSE OF SUBROUTINE: TO SET PROGRAM COUNTERS FOR Feats In TEST * 
161a F2 61 04 31082 JE ROSK OF olf VESe CONTINUESIF NOT, ERRORS! 1109 # * 
3610 CO B7 138¢C 1982 8 ROSSER eGO PRINT ERROR 4250 * ginkaGE? 8 @ ROSSPC = 
1083 ' & 1151 * DC 8 XLA7 Xx° oFLAG BYTE * 
1621 0€ 01 1698 $671 | 1084 ROMOF ALC ROSSSC ROSSINI) eo INCREMENT EXPECTED DATA 1152 * * 
1627 £2 og Q1 1 065 LA 1€ eXRVIS RRA 12523 « BIT 0 + FSG 1 COUNT INITIALIZATION * 
1620 34 G2 8673 1086 ST ROSWO 4 oXR2 & 1254 & BIT 1 = FSO 2 COUNT IAITIALIZATION * 
162E€ OD 0:3 5673 56 1087 CLC) 3 =—- ROS wO1 XOaFF eAT END OF FSO 37 | 1185 ¢# BIt 2 ~ Fse 3 COUNT INITIALIZATION * 
1634 CO 04 1694 1088 BNH ROSKOE IF HOT.s GO SENSE AGAIN. | 1156 ¢ Bit 3 - FSG & ClayMT ttt 1a, 1Z4aT ton * 
1089 | © 1157 ¢& BIT 4-7 NOT USED * 
$638 38 20 o20a 1099 T8N sBYTE2,.SSei2 oSSWi2 ON? IF YESe PRINT ALL 8158 % e 
163c F2 90 05 1001 JF ROSKIO SENSED DATA FOR FSQ 3o L159 * INPUT REQUIREMENT! ROSSEl (SUBROUTINE FLAG) MUST BE PREVigUSLY sET « 
163F CO 87 5567 1092 8 ROSOCS «DUMP 256 WORDS FROM €SO 3 & 1160 + TO THE TEST BEING EXECUTED: * 
1643 20 1643 1003 oc ™1* 208 i 1262 * * 
10908 2162 2 BIT © - PART 12 FSQl=FsQ2eFso3=F So4= ~0000- a 
1095 v , & 1163 * BIT 1 = PART Bt FSQI=FSO2=F SOBs sQ4e -FFFF~ * 
1644 C2 G1 5761 3096 ROSK20 LA ROSWIBeKRi eUSE XRI aS CS SNS DATA POINTER | 1164 % BIT 2 =~ PART 3: FSQi=0190-015F, F502<0200-02FF * 
1648 CO 87 16a 1097 8 ROSS PC SET UP COUNTERS FOR Fsa 4 | 1165 + F SO3=04 00~ O4F F .F $04 70800-U8FF * 
164C 10 1640 1098 oc *L1*108 : 8 1166 # Sit 3 ~ PART 4: FSO izooci-FFO! .FSO2=0002-FF 02 * 
1099 ! 1167 ¢ FSO03"0004~FFO4 . FS 0a=0008-FFOR8 * 
184) 30 58 SFES 1100 ROSK11 SNS STATAC.CTSTOR SENSE CS. STORE IN SNS BATA : 1188 2 BIT 4-7 WOT UEED * 
1651 4C 01 01 SFESG 2302 MVC 8-10 2e RRL? eSTaTaC TABLE. & CCHPARE TO EXPECTED | & 1169 * * 
1656 D2 G1 o2 1lo2 LA ZCe KRIIe MR? DATA. 11709 * QUTPUT! ROSSSC WILL CONTAIN THE STARTING COUNT FER Fso * 
‘2303 1iva * ROSSIN WILL CONTAIN THE COUNT IMCREMENTING FacTOR * 
1659 Ci SO 138C 1104 Tr0 4 «=- ROSSEXeA TICHK oGO PRINT IF ATT. Chime \ e 4172 * ; + 
165D 0D O01 SFE6 1698 1105 ac STATACT. ROSSSC( 2) eCOMPARE TO EXPECTED DATA? ' LIPS FRSONS HEH RERS SH SEREES £4 OCERSEGKEHEEGETES SLA PRE RHE KY S E VE GESTS STV HSE SERS < 
'@ 
OATE OTSA FS 2sccTts LBIAM FE PROG tp 0891-2 ATE O7 ITE 25 ecT?S ISJANTS PROG ID 08912 
EC NOe 623023 82 1032 e28036 Pace 9 . st NO. B28023 822032 826034 PAGE oa! 
| ® | 
| 
|® - 
t * 
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eo22 OISGPLAY ADAPTER TEST 
€OR LOC OBJECT CaCE aOR STUY SGLRCE STATENENT 
a 
t 2276 : 
4176 
S6CA 34 O8 1739 2117S ROSsHC ST ROSSERO+3 ARR eSTORE XRie KR2, PER, ARR f cet | 
I6CE 34 01 1731 4376 st ROSSX143-RR1 Tue Fite Sve, 
216D2 34 G2 1735 aav? st ROS SXL4F cXRB : 
1606 34 64 1736 2ite St ROSSPS.PSR 
: 160A 35 06 SHET ai70 t ROSIER. PER eCLEAR PgR | 
16DE 36 01 1739 2160 t ROGERS. MRI i 
36€2 O2 91 02 1281 La £40RR15¢ RRA eENCREVENT TO RETYRK ABNORESS : 
16ES 38 61 1739 2282 st ROSS REVS ARI eSTORE RETURN appRESsS - | 
21363 ; 
16ES 38 SO S66F 1164 TOM ROSSF1.x* B0* PORT 29 
16E0 2 9c 10 1188 # QOS SK2 If HOT. CONTINUE. | 
160 Oc 01 1696 S6 £7 1186 MVE = ROSSSC eR OSZER( 2) oWMOVE IN ~0000- FoR FILL ano 
16F6 OC 01. BG72 S6 ET 1187 MC 8 609ROSS EN ROSZERC2) —0000- FOR INCRENENTIAG. 
16FC CO BT 172A 1188 6 Res SRR | 
1169 
3700 38 40 S66F 2290 ROSSK1 TBN ROSSE10x*40° «PART 2? » | 
170@ F2 90 10 4191 ¥ ROSSKS IE NOTe CONTINUE. | 
1707 OC 01 1698 oD29 1192 MVC =ROSSHCe KFFFFC 2) oMOVE IN -FFFF- FOR FILL AND | 
1700 G 01 S671 S6ET 1193 “yO =—«-_- ROSSI, ROS ZERC2} “0000- FOR sNCREMENTENG. : 
1733 CO 67 1724 1194 8 ROSSRR : 
: 1198 
i717 38 20 Sé6Fr 11496 ROSSKS YBN ROSSF1.x* 20° «PART 37 
1718 F2 s0 oC 1197 JF ROSSRR IF NOT: CONTENUE. 
ITE Oc G1 S671 5668 i298 MVC = ROSS. IN, ROSONE(2) eMOVE In -0001-— For INCREMENTING 
1724 OC O1 1698 SHE? 1199 ave ROSSSCeROSZER(2) eMOVE IN -0000- FOR FSG 1 & Go 
172a 35 04 1738 1200 ROSSRR L ROSEP SeP SR eRESTORE XRie ZXR2e & PSR 
172E C2 01 9909 1201 ROSSX1 La tat oXRI 
1732 c2 02 0000 2202 ROESX2 LA 8. xR2 
1736 CO 8S? 0000 1203 RosSRe a San% eRETURN TO ROUTINE i 
1730 0000 1738 i204 ROSSPS BC xL2* 00 . 
a 1205 +008 06 6005064068 000E4 $6088 6NSSEUEEEENS ENEEES ESE EEEEEDED EEREEEOEEEREE, 
L206 £m $44 KOGS ES SEEERE TESS FEEREE SEE EHS $EESR EEE ELRERE EEE EREEREENEERSEOEESEE EES 
1207 * ROUTINE € - CONTROL STORE AND HENDRY EKANCHING TEST * 
. L208 ws EEREKRSESCFKKE £4 SEEKS IESE SRARAKEKS SELEKRERECREESES EEKEKEESES CHEE KAKEEKE EEE OE 
12909 * 
1210 « THE ROUTINE TESTS MICROCONTRCLLER INSTRUCTION GRANCH * 
7 1221 * ON SERVICE REQUEST FOR THE FOLLOWING SERVICE REQUESTS: + 
1Z12 « UNCONDITIONAL BRANCH, AND KATAKANA GRANTH ‘ 
1213 
1234 a act a aa lt alae aca d ole 
1215 
173C 08 173¢ 1216 RTOB oD mL2*086¢ ROUTE NE -ce-~ | 
1730 00 1730 1227 oc XLitoo* | 
I73E 193C I73F 1218 oC «aL 2CRTOO) NEXT ROUT ENE 
1219 
1740 CO 67 O21a 1220 a) PRINT ROUTENE HEADING PRINT | 
1744 01 i744 1223 oc xLi*a2® 
1748 23 1745 1222 ac IL2¢3S¢ | 
1746 16AB 1747 1223 oc AL2(RT6ST? | 
1226 ; . 7 
‘ 1849 1225 USING ROS ZERSXRy eUSE x1 FOR INDEXING | 
1746 C2 01 1880 1226 ta ROGZER, XR { 
174c F3 58 80 1227 S10 x*80*,.S101 eDISABLE ATTACHMENT 
1746F F3 58 co 3228 s10 x*CO*,SrOI eENABLE ATTACHMENT | 
1752 OC 02 17TF8 18640 1229 MVC = ROG XD1 sR O6xB+ (2) K-+----3 ENTER EXPECTED DATA FOR 1 FSO | 
1758 OC 01 1870 18% 1230 MyC =, « ROG BME, X5060(2;5 eENTER BOC G2000 8 LOC O60 
17SE OC 01 186€ 186 2231 “vc ROGBNN.XSOFF (2) eENTER BOC 0,0FF - FSQ1 MAX avon! 
1764 OC 01 17F8 i862 1232 ty ROGXD1,ROGKB2( 2) Kwwewe= SENTER EXPECTED DATA FOR 2 Fses | 
176s Oc 01 1870 Saw 1233 ac SOGBNE. X520012) eENTER BOC 6,000 IN Loc 100 
1770 OC O01 166E 1856 1234 ave ROGBaMe XS1FFC2) -. eENTER BOT O11 FF - FSO MAX a 
i?76é Oc O01 17FB 166 1235 MVC = ROG XD 3 +ROGXBM 2) Kone ne SENTER EXPECTED DATA FoR 3 FSGS 
177C OC O01 1870 16H 1236 ey R06 BME.XS180(2) eENTER BOC 0.000 IN LOC 180 
1782 OC 01 186€ 166. 1237 #VC8=—- ROGB MN, XSOFFCO) «ENTER BOC O.2FF - FSO1 MAX AD 
1788 Fe 67 12 1238 J ROGKOL oExET 
1788 OC G1} 17F 8 1866 1239 ave ROGXO1 eROGXBA C2} <-~-<-=<: ENTER EXPECTED DATA FOR 4 FSaS 
1791 OC 03 1870 SA40 2240 MyC 8 8=—- ROSA ME. XE2O01 2) eENTER BOC 0.000 IN LOC 200 . 
; oate O7JUL 75 25 ccT7s {SJANTS PROG ID 0891%- 
_ EC NGe 925623 82 5032 e2s034 PaGE lo 
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eS RRC Nine et a PT Lag deine SIN I le se TOE ng ty acy cE BES 


0932 DISPLAY ADAPTER TEST 
SAR LOC OGFECT COE ADDR STMT SOURCE STATEMENT 
A797 OC Of 106E 18 ane3 160 «ROSEN KESPE CR 
1202 
, 1790 33 $8 186€ 1263 ROKO1 L5G} «=—-ROSENN.CTSTOR 
/ Gs rvai op 01 146€ 1970 1200 CLC  RKOGBNM. ROCRNELE? 
iva? 2B 01 64 , £245 HE ROEKERZ 
17aA 32 SS SAGA 4266 470 XS6S0-CTSTOR 
€3 41708 GF 01 188k 16€ 1247 ROEKOZ GLC  KOSBIN. ROGONELZ? 
176 OD 01 166E Sata 2268 CLC = - ROEHL XEODOL ZI 
i78a CO 84 1T9D 1209 SH 9 NOeKOA 
& 3250 
“ «87 BE FB SB BO 1253 SIO 8—- &e SO* o ST OE 
17C1 F3 58 EQ 1252 S190 X* 80* SECT 
€) = t?¥e4. 1 > 187% 1253 TIO ROG ACP.ATTOHK 
rat 1284 
iTcB oc 01 18680 1882 1255 ROGKOS MVC ROG HOA. XO: 
€@ sree c1 ss 1871 1266 ROGKGS TIO  RO6EDL »NOTRDY 
1702 4p DO 00 186€ 1287 AC ROGTERL | 160 2R1 IR OSONE 
17D OE 01 1550 lee 1258 ALC ROG WEI eROGONECZ) 
€& 1700 co 20 17ceE 1259 BNOL ROEKOS 
1260 
iTea F3 58 CO 1261 ROEKGT SID x*Co* eSI OI 
€} 17&e 30 se ses 1262 SHS STATAC.CTSTOR 
17E8 OD 01 SFE6 1788 1263 CLC - STAT AC*ROGXEI C2? 
| a. «aTEE Fe 81 08 1264 - ROEKOS 
i €2 are. co 87 scas 1265 ROEPRT B status 
17FS 10 17FS 1266 oc MLAS 308 
17P6 1C 17F6 1267 pc MLAS 
€ 177 oo00 17F8 1268 ROEXDI OC = MAL Hw) 
1269 
1TF9 CO 87 S918 1270 RO&KOS B LOAOCS 
€ 17FD 87 17ED 2271 pc LA te?e 
L7FE 1867 17FE 1272 oC AL2 (ROEM) 
1860 186C 1901 1273 BC AL 2( ROSCA) 
€5 1802 oc oF 1eFC 19K 1274 MYC KATMC16) eKATHMMG 
1608 34 01 S540 1275 SBN EHBP.x* O1* 
180C 36 01 adc 1276 TEN UDT 20X04" 
€5 1810 F2 10 OA 1277 JT = ROSKOB 
1813 CO 87 S4FE 1278 8 DOMICcR 
1817 1 1817 1279 oc XL 3°28 
s1818 sco3 1839 1280 oc xL2escose 
1283 
181a €2 87 OD 1282 J ROSEND 
€ = 1810 oc oF 16Fc 190 1283 ROGKOS MVC KATMCI6) .KATIOM 
1823 CO 8? SeFE 1284 8 CONT CR 
1627 1F 1827 1285 DC RLS L ES 
© =e e28 s003 1629 1286 oc = ML2# S003" 
1287 
1824 OD 02 SFE 55 £0 1288 ROEEND CLC = STATAC C2) »STATEL 
G@ =e 1830 co 81 0216 1289 BE LIEK 
1834 CO 87 O21 1290 8 PRINT 
2638 81 1838 1292 ec 8 MLA @1* 
& 1239 5: 1839 1292 pcs 9838 
183A 3 8FC 1838 1293 DC ALE CK ATO) 
183C CO 87 O23 1294 8 PRINT 
G 1400 @ 1840 1295 oc 80 wa 2° 
1843 28 1841 1296 oc sEL1*63¢ 
1842 1938 21843 1297 oc AL. 2€ KATMAD 
1844 Co 87 SBF 1298 8 somPo 
1299 
1648 CO 87 0216 1300 8 Link 
© 1301 
1301 
2301 | 
184c 9009 1849 1302 ROGZER DC = ML_2*08 
18%E 01 184 1303 ROGONE OC = X_1 * 01° 
| 166F 0000 2850 1304 ROEWO1 DC = XL BF Oe 
@ 165: Foo: $852 1305 xFool OC xL2°FO01° - 
1863 $080 1854 1306 xS030 OC 8 =—_ KL2* 5080° 
e PATE O7THULTE 256CTTS 159ANTS 
EC NO. 825023 &2 $032 625034 





PCR ota Se Be ne i Ea See er bale Eo 


PART MDe 4236855 
PAGE 30a 


eBNTER SOC 0.3FF - F S01 MAX ADOR 


eA O-POTNT? 

TF NOT. CORT INE. 

If VEG. ENTER BOC 0,000. 
<SECRENENT AOOR FOR WEXT LOC 
oALi. LOCATIONS LOADED? 

if WOT. GO t.O&D MEXT WORD. 


eDISAAE ATTACHMENT 
2ENABLE MICROPROGRAN 
eERROR IF ATTACH CHECK 


eINIT LOOP COUNTER To 2096 LoORrs 
eff ATTCH NOT RDY = ERROR 

t-$600 mIcRe SEC IOLE 

f eENCREMENT LODE COUNTER 

{KTIMING LOO. 00 NOT ALTERS 


eSTOP MICRO CONTROLLER 

eDETERNI NE LOC IN CONTROL STORE 
eSENSED DATA = EXPECTED DATA? 
EF YESe CONTINUE. 


ePRINT ACT © EXP DATA 
sERROR HALT <—i CH 
EXPECTED DATA ENTERED 


eGO LOAD wICRO CODE 


eADSUST MESSAGE FOR NO KATAKANA 
eSET ERROR HALT BYPASS ON : 
e TEST FOR KATAKANA INSTALLED 
JUMP IF SO 

eGS DO MICROCPROGRAN 

eERROR HALT -1E- 

eEXPECTED CATA 


GO CHECK FOR ERROR 

eADIUST MESSAGE FOR KAT AK ANA 
260 OO RI CROPROEOGRAN 

eERROR HALT -1F = 

eEXPECTEO RESULT 


eWAS THERE aN ERROR 


cEXIT If NOT 
ePRINT KATAKANA BRANCH MESSAGE 


GO OQ ERROR LOG & STOP 


60 TO NEXT ROUTINE 


OBSi-2 


PROG ID : 
ica 


TBM WAINTENANCE DLAGHN EST IC PROGRAM 


e332 
BRR LOC 


2165S 
1 B87 
2839 
2858 
1eaO 
18SF 
2861 
1663 
4865 


2867 
1869 
1868 
186D 
1 S6F 


187] 
1B7S 
1876 
i187? 
1879 


1867p 
42681 
2882 
i18ss 
1885 


1889 
1861 
1a¢9 
18A1 
1849 
1aac 
18686 
28sc 
218c4& 
isce 
2804 
28Dc 
18E—0 
16E8 
18F0 
1eF8 
18FO 
1905S 
2900 
i911 
1919 
292% 
1929 
1931 
1939 


OISPL ay abDaPT RK TEST 


Fone net ae Ee 


SCKKSCKCRSEKARE BESS OLE CES SKHASYSSESSESHKE FFKARKKAKSAKEKSSKVE SHKAKSBA KL GK KAKT CEASE 


- St #2£CcRO OF TEST 
BEBESKSESEHASSSSCEASSRA LHS UCSKSAARSERS S CHAK HS HERE EHSETHEKSKE KY CRPSHEAKTERKSWIA SAR HKVH 


KRESS KEV SHS S SECC EKSE PEVKEKASEAKAEE SF OEKKTHKHE SHEERS EHES KEK SRE AKELE HHESKEAAES 


SaZsEecytT OGGE REDR STMT SOURCE 
Sore 1866 1307 xXSOrF 
SS FF 2886 2368 *S1FF 
818s IBSa 1309 X5180 
Serr IBSC 1319 KSHFF 
S2PFrF 18SE 1321 xS WF 
sonc 1866 i342 RO&X81 
$20c 1862 1313 RO6x82 
see 1964 1334 RO €xX83 
S2cc £866 1315 ROEXB4 

i316 

2316 

1867 1337 RO6nc3 

SCO2 1868 1318 
$060 186A 1319 ROGNC2 
$503 186C 1320 ROEBKCE 
O600 186E€ 1321 ROéSMN 
good 31870 1322 Ro6SME 

1323 

1871 1324 ROGEODI 

Co B87 S872 1325 Ro6NR 
20 i@7S 1326 
a1 ie?76 1327 
6083 18678 1328 
co 8F ive&y 1329 

1339 
ce &7 S872 1333: R06ACP 
23 21881 1332 
16 2882 1333 
6047 18664 1334 
co 87 1768 1335 

1335 
DSOSELESSGF BR D4 1808 1337 RTSST 
C9C3SDHD9C6EC3SH6D SES 1337 
DOS06D 3036 S0G4 C5 1337 
DS C1 C2D3CS40S 49 1337 
C206E2 1337 
C3C8C SC ™D240E CE IS8OF 13386 
CS40 C606D3030 £5 14338 
CEDSC 7406 04GE <ca 1336 
ES40E2CIESEZe O2 2335 
C1E3C1O62C1 SSC #0 1338 
4DC6C SC1IE 3484 C3 1238 
06C4C5420 1338 
F2FTF OF 7TSDG OE 2C8 iBFC 1339 KATM 
DG6E403C 440664 (40 1329 
40404040 40408 (60 1339 
40404008049 1339 
DSDGE 340C 2054 £9 1910 1340 Ka Tin 
OSE€2 E3SCiosO3C 4 1349 
404042049 1340 
40 40C SCUESC EC DS 1938 1341 KATHA 
40624 C4E36 006 0D HO 1342 
CECSC IESE SD9C 440 1303 
ESCICS4O0 ESOT & (D4 1381 
C1E84 0C2eCS40E 09 1341 
DéDSC7 1341 

1342 

1343 

134a + 

1345 

1386 « 

1347 »« 

1368 # 

13e9 « 

1356 

13581 
ce 2193c 1352 RTO9 
oo 19D 1353 
OF JUL7S 25 &TTs ISJANTE 
8.5023 ; 82 £932 625038 


ST AT SMENT 

oc M_2°SOFF* 

oC w_2°*SIFFe 

oc NL2*S180¢ 

oc SL 2°S2FF 

oc 4L2*S SFFs 

aC XL2°SOQDC* K------~-~=-- EXPECTED DATA FOR 3 FSO 
oc M2°S10E8 Kecenaeneen- EXPECTED DATA 

oc ML2*S26C° Kwemenwenee = EXPECTED DATA 

oc ML2ZeSH0C¢ Kramer weeee- EXPECTED CATA 
sau fe 

pC XL2* Sc03¢ 2805 3.003 

oc mL 2°S59006 280s 0,090 - 

oe XL2°5003° 2BGS 0.003 

ac xL 204 

oc = RL 2°08 

fou 

8 PRINT ® eADAPTER NOT READY 
DC KLae2oe cERROR HmLT -20- 
oc ELAeizs 

oc AL2{STaTHs) 

8 ROGKO? cRETURN TO ROUT INE 
8 PRINTS eRDAPTER CHECK 

DC MLaezie cERROR HALT -22- 
oc HLitsEt 

ac AL2 (STAT RS ) 

8 ROCK OE +RETURN TO RGUTINE 
DC CL3S* ROUT 8 MICROCONTROLLER ENABLE & BOS 

pC CLS2°CHECK THE FOLLGQWING - UCT SAYS KATAKANA (FEAT. CODE 
oc 1. 29'2707) SHOULD , 

Dc CL20°NOT BE INSTALLED ' 

oc CcL43° EITHER UDT OR FEATURE TIE UP May 


ROUTINE 09 


oc 
oc 


FRRT NO. *2ZBA25S 


PAGE 


FOR 2 F505 
FOR 3 FSOS 
For 2 FSGS 


THIS ROUTINE CHECKS THE SL MICRO OP, 


SHIFTED 


XL. 1 #09 © 
%1°00* 


ARE O00. 


FFs AA AND 


ROUTINE NUMBER 
INT ERVENT TON 


85. 


NO MANUAL 


BE WRONGS 


THE GPERANDS 


PROG ID 
PAGE 


* 





2B MAINTENANCE BDI AGHESTIC PROGRAM 


B5s2 
GRR LOC 


2O3E 


1349 
so4D 


29RF 


a 


1951 
1 98S 


© 


21956 
1983 


1958 
1950 
1860 
21964 
1983 
196¢ 


MO OO 


1968 
196€ 
1972 
31977 


moa 


IGTA 
ISTE 
iS?F 
1880 


1962 
1986 
i985 


1S8E& 
1992 
i903 
1998 


AO 0 


13996 


iSSa 





1940 
19a2 
1944 
1906 
1948 


194A 
1948 
19a 


@9ooeoee? @ 6 


DATE 
Ec nO. 


SISPL LY ADAPT IR TEST 


GBJECT COVE aDSR 
IPAA 193F 
#681 
<2 801 #1951 
1c OS £A38 SE 
C8 87 S214 
a2 4940 
19 1905 
Sa 1989 
co se7 $916 
8&7 1985 
1900 3957 
1FAaD 1989 
F3 88 60 
73 48 36 
31 $9 onpss 
CoO 8? SaFE 
25 1968 
S006 1968 
F3 56 86 
3O 6@ SFES 
1D 01 SFEG 36 
F2 81 68 
IST7A 
co 87 SDAS 
2¢ ISTE 
26 igte 
GOFF 1983 
3G 49 SFEEG 
10 01 SFE5S 44 
Fe #1 oe 
CGO 8&7 SDAS 
20 19s2 
27 3993 
SSAA 1995 
co 87 0216 
FOF S4080E 203 iser 
L9AS 
1040 igGAs 
1246 229A 
1240 isAas 
1340 1947 
6908 iSAgQ 
Oa 19aa 
co 1948 
1A68 329aDd 
O7SUL7S 25 ccr7Ts 
825023 8&2 £032 


eet aha eg Ree tte PR SS rent ali er Ne Rana ES sate Ee ey aT 





ncn 8 i phe ey ate came Lie cere ane 3 ae Re 


PART WO. &2354 255 
RAGE 24a 


STHT SOURCE STATEMENT | 

aase oc Mi. BIRTOAS &OORESS GF NEXT ROUT ENE 

1385 

1356 USING ROTKOI ox 

2357 LA ROTKG1I+ERI IENITZALIZE RRL FOR INDEXING 
$358 

1359 ave HI COP eRTOTORES 0 ERI MOVE OF BEING TESTED To 

1360 2 PRINT PRINT ROUTINE HEADING 

1361 oc X.12°024 

i362 ac IL1* 28° 

3363 oC Ai, SEH ICPRTG 

1364 ; 

1365 ROPKO! & EOaAdes «GO LOAD MICROPROGRAN 

1366 oc m.1*874 sDIiS@aB@_E UPON ENTRY. FILA 2D 
1367 * & BRD 2966 #05 wITH EQS 20 - ABOR 
1365 oc &L2(ROTMCS > eS¥aRy OF HICRO Cape 

1369 ec AL ZCROFMCED sEND OF HICROECOHE 

1370 

1371 sic X86? «SiO! «DISABLE ATTACHMENT 

4372 Lio EOOFF (¢ XRi } eHORC ofMITraALzZE NB G-3 = OOFF 

1373 L110 XAASS eo MOBI eI NITIALIZE HOB 2-3 = aads 

41374 3 Soxricr eBRaNCy TH EXECUTE MICROPROGRAM 
1375 Be M12 2BSe eERRGR HALT ~-2BE— 

1376 oc 42° 50004 cE WECTED DATA 

3377 

1378 sig x°86* »S1OF eDISABLE ATTACHMENT 

1379 SRS STATA. MOBO eSENSE HDB 0-2 

1380 cic STATAC sE0GFF (2 oXR1} eCOMPARE = TO COFF 

138i JE ROTTO} oJUMP ¥F SO 

1362 RO?TKOS EQU * 

23a3 8 S¥aTusS eERRGRe GO TO STATUS ROUTINE 
13840 oc 4% 245208 ePRINT ACTUAL. EXPe DATA 

3338S 5¢ XLi° 26 ef FROR MALT —- 26~ 

1386 EQ0FF oC XL2* OOFF * cE XPECTED DATA rs 
1387 : 

1388 RO7TOL SNS STATAC+HOBY sSENSE HDR 2-3 

13a9 CL. STATAC ,E SSAAL 20 XR 13 - eCOMPaRe = TO SSAA 

1390 SE ROTTS? 

3392 ; 
1392 & STATUS eoERRORe GO TO STATUS ROVTI KE 
1393 oc XLEt Zoe ePRINT ACTUAL. EXP. DATA 

1394 oc MLitav7e cERROR HALT -27= 

1395 ESSAA OC XL2°SSaat sEXPECTED OATA 

1396 

L397 RCOFTGZ 8B i. 3 NK eGO TO NEXT ROUTINE 

1398 

2299 RT97aP oC C1s°09 SiL* 

1400 

24401 RO?PMCS EQU *x 

1462 DC HL2° 10468 oo «6St SDR 

1403 oc AL Z2°717405 oi SL HDBi 

21606 oc XL 2°23 240% Oo2 Sti moBe 

1465 oc XL 2° BEE 63 4«6Sl HBSS 

1406 ROFMCE OC Xt.2*5004°? G&4 B0S5Se0 HANG AT ADDR 4 

1407 

LQOB KREKKRSSAGA REMAKE SSAHEATS SSRSHKSHKLRSELERKRERKASE SAS KHAD EWS FRA RTHECHKSS ARK FRBVRRSH 
1409 + ROUTINE GA - BOC MICRO INSTRUCTION ; * 
1430 S48 we FARES HEKSEKATA REE He SM a EH THK SEKAS ES RHRA KK KE ASKS PFARAESTEDAPALKSSBLSSKHESA 
1431 2 * 
1432 # THAIS ROVIINE TESTS BOCe2 CALL BIYS = OF). BOC.2 tLow 6 BITS = 03% 
£413 % BOC ,1 (HE 4 BITS =0) «ND BOCsO fall BITS NWOT ZERO}. THE TEST #€ 
1414 x 3S CONE 8Y SHIFTING GNE BIT THROUGHOUT THE GYTE AND BY SHIFTING 
1415 » ZERG BITS IN A BYTE. s 
1816 *% * 
LHL? SHH KEE SES GOES EREDLAKKK SCHEER THY $ SEKSECTKSL SKS KSEE TAK SARK SKEAKCVKATKKREHKEBWAR 
1416 

3419 RTOA oC xLi1°OAe ROUTINE NUMBER 

1a2o0 oc XL1*°00* NO MANUAL INTERVENTION 

3421 pc AL2(RTOB) ADDRESS OF NEXT ROUTINE = 
153 AN7T6 PROG ID 0891-2 
825034 PAGE tka 


Ea age an eg Ptah ana, Sty Set RAO RUE ata aGe So a a UR adc A ce GO a Mt ee cae Tt EE ee SR ee ee SL SIR RE ent Te ued apie LV SS alice te or bad Mes Sto aaa URS Ths - Se TF mane RI “Ste oe TER En tnt 





me te Ae aR a oe ga Ain Monat Sa age 


PERT NB *234255 
PAGE az 


Fe nel Witogis etl ge 


2224295 
32a 


TOM RAINTENANCE OTAGHCST §C GROGRAR 2B MAENTERMNEE DIAGNCST IC PROGRAM 


8912 DISPLAY aDAPTM TEST , 8912 OfSPLaY ADAPTMR TEST 


GRJECT CODE aBOR STMT SOURTE’ STATEMENT 


i 
A 


ERR LOC OBVECT CODE &DOR STMT SOURCE STATEMENT 





& 


’ 


ae 2422 & sae soze $A2A 1490 oC «-_« ML2*SOR4* = Bk ERROR, HANS 
198F 1423 USING ROSKO » HRI | 14az8 9027 2a2C 2491 oc M2*902T* 25 SOC. O KUSF ORANEM 
10aE C2 04 196F S424 La ROSKO 70 HRI EMNITIALIZE xR1 FOR INDEXING | S oe <— _ sa o Se oe ; —— aa secu 
24025 & 3 43 $430 2 114 3 
1982 1 0S SA38 1F 1426 MVC = MECOP RTOEDPL6.*R1) OVE GP BEING Tested TO | 2432 @DOA 1432 1400 oc MZ°SHGAS 28 GOC.3 MUST NET BRANOH 
1987 ¢O 87 OZ1A $427 8 PR yet PRINT ROUTINE HEADI¢S | e 1433 sSeo ieee 1905 ee ee a =) #UST NET GRaecu 
4 2988 61 1988 3428 oc xt.4*03¢ G5 1.4035 saec 4696 M.2* 9E2C' +2 MUST GRance 
ivsc 10 198C 2429 oc 2928 | ta37 Boze 1a38 $497 DC 8 «XL 2*SOZ8" 28 BRACR. MANS 
21980 Sa06 198E 2430 BC ALAC MICPRT? | tae COZE 1A 1698 oc ML2Z*9QZE* 2C 80C.O HUST Seance 
1431 | & 1438 soz LAC 3499 BC 80 A BSOZD* =—«_- 2D ERROR. Mans 
196F CO &7 5918 4432 ROGKO1 8 LOaOcs «GD LOAD Mi CROPROGRAN iad. 1240 LAZE 1800 oc MLE'2IG0° 28 Snrey HOS 1 = 40 
; ss e e : ' 
ae tage ee “Pg0 with Bese0 ON ADDRESS | @ ines seo iaaz 1802 De metesoD* 30. BoCsd MUST maT BnaneH 
10C4 2981 19CS 2435 oc #.2tROGNCS? eSTaRT OF MICRO CODE | 1aa3 — 1444 1803 oc — 2 os aUST BRANCH 
196 1AGa c? 1436 oc AL2 (ROG MCE? END OF wICROCODE 1aes $032 1AS& 1504 RROR. HAs 
Oe saar : | €; 1447 goss 1a468 1505 0c 0 «XL B*OO3S* «= - 33 BOK. O MUST BRANCH 
isce F3 Se @6 1438 S10 = - K*80* SII eDISABLE ATTACHMENT 1as® S034 1AGA 1506 oc XL2°5036* 34 ERROR, HANG 
19CB 71 68 21 1439. LID ©x0080(. XR1} .HDRO eLOAD NOBI~1 = 0080 | a 1A4B 1140 beee seer oc me iiee: i = eee ee 
1440 | €% 108 Spee AGE 2 XL2*9 . ; . 
i9CE CO 87 Sere 2443 6 DOMICR eGO EXECUTE MICROPROGRAT : 1AasF 9S0F 1A80 1509 Be me? Shor = Sacre _— NOT BRANCH 
9D2 2a 1902 1442 oc i*2ae ERROR HALT <-2A- 1ASi 9E3A 1AS2 1510 mi 2* . ST BRANCH 
1903 sose iope 1043 oC 0 maeSoaae SEXPECTED RESULT | 183 soze 1aS@ 1812 DC 8 «XL2*°S039" 39 ERROR. HANG 
14ae LASS OSC 1AS6 2512 oc ML2°9O3C* 3A B80NC,0 MUST BRANCH 
2905 CO 67 0216 1445 8 LINK 660 TO NEXT ROUTINE | - 4ASY 5038 1aS8 1513 DC 80 CXL2*SO3G8" «63GB ERROR, HANG 
1446 1 EF tase 100 1ASA 15124 DCs XL2"12040" 3C SHIFT HDB © To SET aLt CONDITIONS 
19D9 FOC140C 2D6C3 19pE 1447 RTOBOP OC CLOeDA BOCe 1458 9C3F 1aSc 1515 pc XL2°SC3F* 3D BOC+3 MUST BRANCH 
1468 1A5D SO3E LASE 1516 pc XL2'*SOSE* 3£ GRROR, HANG 
190F 0080 890 14469 x0080 DC xLes0e806 eCONSTANT 0080 .€  1a8F sear 1asO 1517 BC XL2°O8@1" 3F BOC.2 HUST BRANCH 
1450 te mewe mene mene ewe en mamma et ; 1A61 S680 1462 1518 BC xL2°S040° 40 ERROR, HAM | 
1451 # START OF MICROPROGRAM LISTING + 1A63 9443 1A64 1519 pc XL2°94G3" 61 8OCos MUST SRANCM 
LOS] Ba eww ewe we ne we ew ee we wee & 2 1a6S S042 1466 1520 oc xL2*Soas2* 42 ERROR, NANG 
19E1 1853 ROEICS EQU) + . 1a67 9110 1aG8 1521 oc = «XL2*9220% 43 BOC.O MUST NOT BRANCH 
19E2 1040 19E2 1654 OC XL251080" 00 St HOBO TO SET COND 3 1a69 5046 1A6A 1522 ROEMCE OC XL2*So44° 44 HANG, TEST RAN OKAY —— 
19E3 9C03 19E4 1455 BC =—-_-«XLB*9CO3*® 01: BOC 3 MUST BRANCH  & 1523 
19ES S002 1966 1486 oc ML2*°S002* 62 ERROR» HANG 1823 . 
19E7 GOEL 1i9e8 1457 oc XEZ*OCEL* O32 BOC. 0 MUST NOT BRANCH | @ 23524 Stet re ee ea 
19E9 1140 19EA 1456 oc XL2°1140 04 SHIFT HDB 1 = 01 1525 « ROUTINE 08 ~ SBN MICR cTs 
. 19EB 9DOe0 i9ec 1459 oc ML29SD008¢ OS SOC.3 MUST NOT BRANCH { 1526 aaa aac aaa a ae a ce as 
19ED 9901 19EE 1460 DC = «XL2°9901* 06) «-BOCe2 MUST NOT BRANCH 1827 * 
1GSEF 9009 19FO 1461 oc XL2°9609" 07 B8OCel MUST BRANCH | @ 1528 » THIS ROUTINE TEST THE SBN MICRO INSTRUCTION : 
19F2 S008 19F2 1462 SC = XL2*5008* 06 ERROR» HANG 1529 « : 
19F3 9008 L9F4& 1463 oc xL299006¢ 09 B80CeO MUST BRANCH | 1530 ©9664 68646863868 F54 ST ES ESERERE ERE EERSTE SHE GEKERKE SESE SRE ERE KERERKS FECTED 
19FS SOOA 19F6 1464 DC 8 ML2°SO0A*® 0A ERROR» HANG | © 1531 
19F7 1140 iSFB 1465 DC = « XL2°1140* 08 SHIFT HOB 1 = 02 | 1asB os 1a6— 1832 RTOB OC XL1908* ROUTINE NUMBER 
19F9 9D02 19FA 1466 pc M2°9D02* OC 6OC+3 NUST NOT BRANCH 1A6C 00 1A6C 1533 oc m.1°90° NO MANUAL INTERVENTION 
19°B 9903 19FC 1467 pe ML2°9903* 00 B80C.2 MUST NOT BRANCH | G = asp 1ar6 La6E 1534 oc AL2(RTOC? ADORESS OF NEXT ROUTINE 
19FD 9410 19FE 1468 DC = «XL2*9410° =OE «BOCel MUST BRANCH | 1535 
19FF SOOF 1A00 1469 aC XL2°SOCF* OF ERROR. HANG ; 1480 1536 USING ROSKO1,XA1 
1A01 9012 2a02 1470 OC 8 =—«_- ML_2"9012* 10 B0CeO MUST BRANCH | @ = tase c2 01 1080 1537 La ROSKO 16 XR1 INITIALIZE xR1 FOR INDEXING 
21003 5011 1A04 1471 oc XL2*S021° 11 ERROR, HANG 1538 
1A0S 1240 1A06 1472 Dc xL2*1140" 12 SHEFT HDB 1 = 04 | 1A73 1C 0S SA38 67 1539 MVC —- MICOP ,RTOGDPL6,XR1) MOVE OP BEING TESTED TO 
1A07 9D04 1A08 1473 ac XL2°9D06* 13 80C.3 MUST NOT BRANCH “J €2  1a78 co 67 o2tA 1540 8 PRINT PRINT ROUTINE HEADING 
; LA09 9905 LADA 1478 oc XL2°9905* 146 B80Ce2 MUST NOT BRANCH | 1A7C O13 tA7C sal oc xLIEOLe 
1408 9017 AOC 1475 OC = 289817") «=—15 BBCe1 MUST BRANCH 1A7D 19 1a?o 1542 oc w192s¢ 
1000 5016 EAGE 1476 OC =—«-_-XL2°5016* «16 ERROR- HANG |@ 1a7e sree 1A7F 1543 DC MLA CMICPRT) 
1a0F 9019 EalO 1477 oc 7L2°9019° 17 B8O0Ced MUST BRANCH | 1584 a Se 
1411 S018: 2al2 1478 DC =—«s- ML2*S028* 18 ERROR. HANG 1a80 CO 8&7 5918 1545 ROSKO! 8 Loaocs 0G ROPROGRAM 
1A23 1140 2ai4 1479 BC 8 ML2°1100" 19 SHIFT HDB 1 = 06 | G 1084 es 1A86 1546 oC 8 XL "G38 eOISAGLE UPON ENTRY: FILL 2ND 
1A1S 9006 1AI6 1480 Dc XL2°9D06* 14 B8OCe3 MUST NOT BRANCH | 1847 * FSQ WITH BCs.0 ON ADDRESS 
1A17 9907 1A18 2481 BC = XL2e9907" 18 B80Ce2 MUST NOT BRANCH ; 1a8S 1068 1486 1548 BC A 2(ROSNCS ? oSTaRT OF MICRO CODE 
1A19 941£ LAIA 1082 oc XL2°SS1E* 1¢ BOCel MUST BRANCH | @ sas? 1ars 1a88 1549 oc Ai2 CROOMCE) eEND OF MICROCODE 
1418 501D AA1C 1483 DC = «XL Z2*S01D* «1D ERROR: HANG | 1880 
1A1D 9020 1AlE 1484 oc ML2°9020¢ 1 80Ce0 MUST BRANCH 6 1a69 F3 58 80 et 516 Rewer sits oe ee 
1alF SOIF 2AZ0 2485 oc ML2*SO1F* IF ERROR. HANG 1ASC 33 48 0062 is tio )8=6- ZERO, oS: - 
2a22 1140 1aZ2 1486 OC = =—KL2°2140* 20 SHIFT HOB 1 = 1e | 1A90 31 49 0057 1553 LIG = XSSAA HOLS SET HOB 2-3 = SSAA 
1A23 9008 4824 1487 Dc ML2°9D08* 21 BOCe3 MUST NOT BRANCH 1094 31 4A 0057 1554 LIQ  xASSAASHOEZ eSET HOB 4-5 = SSAA 
1A25 9509 1026 1488 oc M2°9509* 22 BGCe1 MUST NOT BRANCH | @ 1555 
ia27 9825 1A2B 1489 oc XL2°9825* 23 B0Ce2 MUST BRANCH | 1A98 CO 87 SSFE 1556 a cou scr 260 00 MICRE PROGRAM - 
, | '@ 
1 OATE O7JUL7S 25CCT7S 155 0NTS PROG ID 0891-2, DATE O7SUL75 = =—«- 2SECT PS 15JAN76 PROG ID 0091~-i 
_ BC NO. B25023 82 £032 8250346 PAGE 12 | EC NO. 825023 @2 £032 25034 PAGE 12a 
_ Re aa, 
| 
1 
& for 
| 
' 
i 
i 
| 
f 


CCCCOCHOCCEOCOOC OCC OOO EOC OE OE HOO OES OEOEES 

















28M HAINTENANCE DIAGNOESTIC BRoERas BART NO. SEBGZES 
: PAGE aa 
egiz2 DiSfLAY ADAPTER TET 
ERR LOC OSAECT cope SOR SYHT SRE STATEMENT 
aR OF L49C 1887 oe BL2 tare cERROR HALT - B= 
14S Sone sae 2868 oc HLA2° Sage cEXMPECTEO GATA 
E62 
LaAGF FZ SB BE 2858 S20 M* 86% sSiey eBIGABLE ATVACHEENT 
{ake Bo 48 SFES t8G% Sys STAT AC eHHG GENE HOR geoz 
L486 10 O81 StES 35 1582 Le STSTAC2R GSE XI( So ML} eChECK FGR EXCES TED RESULT 
iAaS FE Bl of £865 SE HOP RM 2 eGO ON IF peay 
- ieee cD BF Spas i8ee 6 STATUS c ERROR 
qaBo &¢ 3482 1565 aC BLL* BOGE ePRINY ACT. & EXPECTED BATA 
$4835 38 ABS LSGe Xx %.3 BE" sERRANR HAT —EQ-. 
2ABS SSA 3A8S 1867 ROGEK: oc M2*SSe5,° coEXPECTED BATH 
1268 
4aB& 30 69 SEES iS66 ROG, SNS SYATAS eHOE?R eSENSE HDG S=3 
14BA $0 61 SFEG oe 1ST etc STATACe BOSE XS¢ Ro MALE elCHECK FOR EXPECTED @BeuLt 
§aBF F2 Si G6 2573 SE &OS Bo 3 2GO ON JF onay 
ace CO 87 Sbas 252 8 STATUE e€RROR ; 
ACG BO lags 1872 oo MLeggs cPRINY ACT: & EXPECTES para 
LAC? 33 TAC? #874 ae Bib 32+ cERROR HOLT = Bin 
Lace PERE lace? i875 REG xe OC ML BOR EEE < sExXPECTED REsuit 
iSrEe 
ACA BO 48 SFES tS77Y BGGROf SNE STA TAC eH OBS eGERSE HDE 3-3 
3A4CE 10 6: SFESE 50 ists TEC STATAC ROGE XA’ Za ROIS eCHEekK FOR EXPECTED RESULT 
LAD5 Fe 82 O86 aS?S df ROSES oG2 ON IF gxay ! 
240G CO BY S5A5 i Sae & STATUS eP RRR 
ADA £6 if04 PBBE oe MLiezZo: sPRINT ACTe & EXPECTED RESULT 
2865 32 LADB isSes ac B27 32° csERRORN HaLY  -SE- 
ADC FS aK 1,DGD 1683 &OGexK=E oC ML2eF SAF + sEXPECTED DATA 
ESHheR ; 
4ADE CO 87 0236 i889 RGGEGe 8 &E WK 60 TO NEXY ROUTINE : 
LSB6 
1aAE@ FOCSSL OF C208 Lae? £887 RTSSOP ofc CLE'GEH SENS 
tsse 
oe PSHG Gee wee oe ee ee es me en eee : 
Sea = STAR? GF MICROPROGRAM LISTING = : 
BBE pee rae se me oe re ence arene mae em ene meee oe ot ; 
1A5&B i602 Roexcs Eau * ! 
AEG GOS5 LAE? 1585 Re KLZ°SO88 ¢ GO SET BSB o = 5% 
TREX BLAS LAEB 1 SeeG oc. M26 tane OL SET Hoe 2 = AA 
RAEC GPAA LaED 16¢5 Ro XLZ*GSARS Q2 SY HOE 2 = EF 
GREE S38 ILEF L566 BC XL 2* SBSH C2 SEY Hop 3 = er 
1AFG 68FS AFL 1597 oc HL 8GAFS 1 G& SET HOB 4 = FS 
3AFE 6SAF 2aFS 1808 OC AL2°6SaF* O88 SET MOS S = ar 
TaFe 5oa6 WAFS 1860 BReece of ML. 2? S004" G& WANGs TEAT CCKPLETES i 
LéO6 ‘ 
LGGL RWVEKRE PECK HERE STEES ES DBT A BES REE A eR EE fe TRUK oe cols Shep oh oe aA SR a a oe ak Boh as ch ae a ese oh | 
1602 % ROUTINE OC ~ SBF KICRG ITNSTRUCTEON om 
4603 ra ab WE oP ahd oe a A ob OR SR RA RLS REE ROL PASTA R SRS aE hee K REN ERE RE 
£664 % %! 
1495 = THES ROUTINE CHECK THE SRF MICRO IRS TRUC TE GA a | 
1686 % m: 
7 RGR Pek mea ay se Geek eo eae ae a a oe as He op ae EAE OF HE A a Ek aah oF Hak ash ak ew Sha SLY ee we 
1608 
/ AAFS OC LaF G 1606 RIC BC SEQ 8 OC+ ROUTINE WuM BER 
LAF 7 OO LAF? L6RG pc BL2fOCe ND HANUAI ENTERQVE WTI GN ‘ 
LAF B 1868 LAPS 1632 ce AL2ZERTOD) ADORE Ss OF MEKY ROUTI Ae 
1612 | 
1808 i613 USEING RGAK OLE KE 
AFA Ce O3 1H08 iSiea LA RO AKO’ .X AL UNEP POLY ZE RRY FOR INDEXING 
1625 
TAFE 1C OS Sa38 ae 2626 Riv C HICOP s RT CADPL 60 R73 MOWE GP BERG TESTED Te ‘ 
4803 CO BY S214 8627 S PRINT PRINT ROUTINE HEADING i 
1BO? O14 BO? {518 oC MRL ORe 
1896 19 1808 16129 oc H%itese ' 
1809 5A 46 ipGa 1620 oc ALZOMECPRTS ! 
ig2za | 
4808 CO 87 5915 1622 RG eK iLGaocs oGU LOAD MICROPROCRAR 
1B9F 83 ISH 7623 OC ¥L23°635* eDISABLE UPON ENTRY. FILE 2ND 
i620 ¢ FSG wliTH 8Cs5,0 GN AOMRESS | 
f 
: DATE CTIUL 75 25 cc T75 1Szaa7s. PROG FO O881-2) 
EC NOs 825N23 82 £032 S25¢63e PAGE i3 


be 
_ $84 NARKTENANCE GIAGNESTIC PROGRAH PART NOe  42BKeES 
€3 Pace SBA 
er DISPLAY ADAPTER TEST 
i we 
BER LOC OSZECT core ASBDR STHY SOWUNCE STATERENY 
& 4820 isse 2e84 1625 BO BERD ANESS eSTARY OF MICRO. CODE 
iG@l2 18S 1823 1626 Be AL 2CROaNTEE s€Ro OF #ycRocaDEe 
1627 
ES 131836 FB 58 eo 1628 SiG - x Se 58709 eBESAQLE ATTACHMENT 
f6i7F Si €& GOSe 1620 230 xFFPS. apeg oSET HOB 4-5 «= EPEE 
e $82 31 48 GDEF 2636 LiG $5 eA.woaa oSET HDB e-3 = ssaa 
; is32 
1BIF CO a? sare 1632 8 RGM ICR e606 EXECUTE MICRO ePROSRAN 
1H2EB 3S 1623 1633 Be ¥Lg sae eERROR HALT ~BG- 
€>  1pes gas 1825 1634 Bo = XLE*Sonee cENPECTED RESULT 
1536 
jo i386 #3 88 80 1636 SiQ@ x®go° stint eOlSARE ATTACHMENT 
& i829 36 c& SPES 4637 SNS  STATAC’eMDSe eSENSE MDS 6-5 
488D in G1 SEG 23 $436 CLO = STAT ACORGAERI C2 BRI} cCOMPARE AGAINST EXSECTES 
" 183¢ Fe @3 98 1439 SE ROABSL aCGNTINVE TF Key 
& 1838 CO BF SHAS 1809 8 STATUS cERROR 
BES 26 BBS 1648) ac XLiteoe SPRINT EXP. & ACTs VALUES 
3B3A 37 $838 1642 Do. MLLSBTe eERROR HALT ~<BT=- 
i) -$B3@ Esea L83C 1643 RNOsExe ae XLQ*SSRAe sEMPECTED RESULT 
3628 
1H38 30 so SEre 1643 RCAGOI SME STATACeNDEY s8ENSE HDE 2<5 
€ YB@, 8 83 RFES ce 2a CLE SVAT AC. AGKEXE (2 2KR1 3 «CGKP ARE AGAINST EXPECTED 
1846 FE 81 Og S87 Je ROABOR CONTINUE IF ONAY 
. 1849 Cf BP Soa5. 2668 B Status 2ERROR 
f: seen e¢ LBS 21649 iC MLE © 2G* oPRIRY EXP.s & ACT: RESULTS 
BEE 3H 184E 26sec pc xLi'Bes cERROR HALT <-3aq 
$G4F 0486 3BSO i662 ROAEX? BC 44.2904¢85° cEXPECTED RESULT 
& 16SzZ 
B51 CG BT Gets 1655 ROaABOR B INK oGD YO NEXT ROUTINE 
2 1684 
GS 1855 FecRecEscace ISA 1655 RYCAGP ac CLEsO0 sBre 
L656 
LEBG beeen women ee we ee ee eet a eG Git 8 oe at vies 
= 8656 *% START GF MICROPROGRAM LISTING @ 
SSB Bie ee a er re ee em ee ere a ee ae a te oe ec mee BE 
LBEE 7666 Roamcs EQU # 
me «=—(i«<wW SSR RAR £85 164i oC ML2°C8A4° OF SBF. MDE & = BE 
86D SSS LBSe 186¢ oc XLE*CS55* Of SBFo HDG S = HA 
ae LESE C2eG 1850 oo M.2*°C2FB* C2 Sere FOB 2 = 06 
5 2861 CS¢e LBse GC ag eCaPree os SBF, HOB 3S = 88 
ce 1853 5096 1864 ROSMCE Me XL2°SOCAS Ge HahiGe PROGRAM COsPL ETED 
ge. Re Aa AER Sah ge mE SO oh ah eR ah ok a a eae he alee syrah oh abe ah a Oe Bak aes RR ORS aA BS Hea 
= S25 ROUTI HE OO - EC XECRO INSTRUCT FON Pn 
LOGE Hada yee SPARES RSLS AS GEAS VSS ARREARS EATS SS ME Dw RARE RES EES oH 
ee 16TG # ; * 
t47, # WaikS ROUTINE TESTS THE fc #ICRO PRSTRUCT LOM & 
L672 5 #* 
& LGP$SZ SP eLeHABeee eS drt wtaga dees Ms 3h dh Me ES a ae SR ae eS Oh a Oe an A ewe ae oe DB a, a 22 8 ay aR ye a Sie os oh oe ay se ahs ap ah oe ER 
: LE7S 
i655 Gp 1865 L7H Kos BC AL bP oD* ROUTpRE MuMReER 
ES iges as 1866 2676 ox XLisGGe RO MANGSE INTESV ENT Fon 
£987 3564 iBGeQ i6FF DC AL Z2€ RY OE } ROGRESS OF WEXT ROUTENE 
iS7FE 
& Le7& 367% USING RGBKO, xe 
$869 C2 03 1B7A L686 LA ROBKOLs ARI ENZTIALIZE MRL POR EXDEXENE 
LGaE 
E2 sep 1¢ O8 SARS 4: 168Z MYC  - KIC OP ART OBO L6 exAi? ROVE OF BEING TESTED To 
3872 CG ST GELAé a¢ée3 Ea PRI PRIM PRUTINE HEAT NG 
4SFS as era 1.Hsea Ot BEEPS RS 
€s  ier7 is iS?P?F 1688 DC LLLS BHE 
4878 Saag LETS 16386 pc L2tMICPRY} 
1687 
Ge ieta co s7 5016 668 ROBKOY 5 LOA DE S oGC0 LOAD MICROPROGRAK 
AB7E 83 IBTE less oC ML Lesage eDISABLE UPON ENTRY. FILL 2ND 
16e0 x FSQ 85TH BCSeG ON ADDRESS 
Go ierr teca LEEO 1693 be A. 21 ROBMCS } oSTART OF KICRO CODE 
288: 380% i1B&Z i492 oc AL.2 CROGHCE} oENG OF MICROCODE - 
Soe OV SULPL zS (CT 7S LSJANTS PROG ID G891-2 
EC NOe 625023 82 £032 825034 PAGE 23a? 
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e912 OGSPLAY ACAPT ER TEST e" DISPLAY ADAPT ER TEST 
ERR LOC SBJECT cane ADDR STNT SOURCE STATEMENT ERR LOC OBZECT CASE ADDR STMT SGURCE STATEMENT 
2693 E> 1 eF6 a2 18F6 1761 oc mreaze sERAOR HALT —32- 
3883 F3 SB 80 1694 SIG x*BGt eSTOI eDISABLE ATTACHMENT wpe? $017 18F68 1762 oc XL2*S017* sEXPECTED OATA 
1866 31 48 0059 2695 LIO 0 FFF eS oSET WS 6-7 @ FEFF 8763 
1e8a 31 4c S6HO8 1696 £16 ROGFF -MDES «SET MOG 6-9 = OOFF | €& 3eF9 cO SBF 0216 i?T64 a Lie o6G TO KEXT ROUTINE 
1607 1765 
ICE CO S7 S4FE 1698 8 DONICR 2°60 EXECUTE NIC ROPROSRAN 18FO FOCS*00£3C205 tC02 1766 RTCCOP oC CLésce Tae 
2892 3c 1692 1699 DC MLE S3C* cERROR HALT -3C- i & 1767 
1703 | 1769 * START OF MICROPROGRAM LISTING * 
1895 F3 S68 60 1762 SIG = - K* 804 » SI CI eCISAGLE ATT ACHHENT i =) BTT%O fe mn nnn ne nn nn one * 
1696 30 48 SFEsS 1763 SNS STATACenoBS eSENSE HDB 6-7 | 2CO3 1771 RocMCS EGU + 
269C 1D 01 SFEG6 31 1704 cLc STAT &Co ROKEK 3 (20 XRI 3 eCOMPARE OR EXPEC TED / e 1003 7485 1¢04 1772 pt ML 2* 7A 06 €C SET 48 asc §5 
1941 Fe 81 96 1705 JE ROB861 »CONTIMIE TF OKAY  €s 1C0S FBAA ifo06 i773 oc ML2*7Baa* 61 tc SET HOG Be AA 
1BA% CO 87 SOAS 1706 8 STATUS cE RROR 1COF Facs ic0B 1774 oc ML BOF ACR 02 ‘Y'SMe RESETS ALL CONDITIONS 
18A8 20 18Aa8 1707 : oc ML*20° ePRINT EXP. & ACT. DATA C: 3009 9De0 1coga 1775 oc Xi 2°9000* @3 80¢.3 MUST NOT BRANCH 
1BA9 3E 18A9 1708 ec RLi° SE eERROR HALT ~BE- i €3 2COB 9961 tcoc 1776 oc XL2°9902° 96 B80C2.2 MUST NDT BRancH 
1BAA SSAA 1BA8 1709 ROBEx1 OC XL2*55a4° eEXPECTED RESULT : 1C60 9502 1CoE 1777 pc ML2°9502° 6S B0C.1 MUST NOT BRANCH 
i720 ACOF FaSC 1c10 1778 oc ML2eFaSCe 06 TENe SETS COND 1 ON, 2 AND 3 OPF 
18AC 30 4¢ SFE6 1711 ROBBOL SNS  STATAC +HDBS «SENSE HOB 8-9 > e114 spe3 © 1012 1779 Dc M%L2°9D03° O07 BoOCe3 KUST NOT BRANCH 
1880 15 0; SFE6 45 i712 cc STATAC cROBEX2( 2e XK1) eCOMPARE AGAINST EXPECTED 1213 7OK4 2014 1760 oc ML 2°99048 ee 80C.2 MUST NOT BRANCH 
1885 F2 81 O8 1713 J ROBB 2 sCONTINYE IF OMay C 1¢18 94938 iCté i7al pc ML2*O408* 09 B80Cel MUST BRANCH 
1866 CO 87 SOAS 1714 8 STATUS cERROR ae 1C17 SOOA 2018 1782 oc Mm 2°500a° GA ERROR. HANG 
1eB8C 20 igec 1715 oc MLit2o¢ ePRINT ExPs & ACT. YALMES : 1¢39 FBZa I1C1IA 1783 oc ML 2*FESA* o8 TEN. sETS COND 2 ON, 1 AND 3 OFF 
1880 3F 18BD 1716 oC ™L2°3SF° eoERROR HALT ~3F= 1038 9005 icic 8784 oc XL2°9D95 * SC B0Ce3 MUST NOT BRANCH 
1688€ FFOO 1BBF 1717 ROBEX2 DC XL2* FFOO® eEXPECTED RESULT C: 2Cib S506 icte 1785 pc 1.29 9506¢ OD S80C.1 MUST NCT BRANCH 
1718 ICIF 9610 1C20 2786 pc XL2°*9810° CE ROCs 2 MUST SRANCH 
18cO cO 87 9216 1719 ROBBO2 B LINK eGO TO NEXT ROUTINE 1¢21 5S0aF ic22 1787 DC - XL2*S00F ¢ OF ERROR. HANG - 
£720 t 1€23 Feee2 1C26 1786 oc M2°FBe2* 30 TBNe SETS ALL CONDITICNS ON 
18C4 F0CK4940C9C3 18C9 1721 RTOBOP DC CLG*OD C8 ic25 9043 iC26 1789 oc xL2*°9C13° 42 ce So 
1722 a 1¢27 S012 128 1790 pc m.2°5012° 12 ERROR, 
LUTZ 8 we me me me en ee on emer mH > i1c29 93815 iC 2h 1791 oc xL2*9815* 13 86C,2 MUST BRANCH 
1724 * START OF MICROPROGRAM LISTING ¢ 2 1C2B $014 icec 1792 pc ML2°*50148 14 ERROR. HANG 
at JE LP 2S me cee oe erence an ame co eect om a con ow eh a 202D Gai? I1CZE 1793 oc Xrz2°*eai7¢ 25 BoCei MUST BRANCH ae eee 
18CA 1726 ROENCS EQu * Cc 1CaF sols 1c30 1794 pc ML2*S5016* 16 ERROR. HANG 
LBCA 7655 iBCe 1727 oc 1.2° 7655* OO IC SET HDB 6 = 85 1¢31 $017 1632 1795 ROCMCE DOC XL2°*SO17*® 17 WANG. TEST COMPLETED GKAy 
18CC 77AA 18CD 1728 oc XL2°?7Aa" O01 IC SET HOB 7 = AA 1796 
18CE 7err 1BCF 1729 pc *L2°*7eFF® o2 IC SET D8 8 = FF : & 1796 
1809 7900 1801 1730 oc XL2°*7900 a3 Ic SET "woe FS = O00 : GS 1797 Bee ee ee ae ee ce on ee aera eg 
18D2 S604 1803 1731 ROBACE DC XL2°SO04* O04 HANGe PROGRAM COMPLETED i798 * ROUTINE OF + TeFR MICRO INS TION 
1732 , % : ; € 1799 KHKSRGCAEKRAKKKSE SKS RKECKE HS SHKVLSEKKSABHAS SHE TEAK RSCKAKE HHS PKEAKLE SKKLTKAKCE KHK EBS 
L733 HOLES SEETESS HEHEEEEE SE SERGE RHEE HE SE OHS EAE THERES ERKEREEREE ESS HHS HE SKE! 1800 = * 
1734 # ROUTENE OF = TEN MICRO INSTRUCT ION * 1601 # THIS ROUTINE TESTS THE TBFR MICRO INSTRUCTICN - , i= 
LZ3IS BRHOKSA CTE HEHE EESEESESESE TESEACES AHKAKE REAR ESR ES EKE SSS HKG SEK RRERRE KSLA SEARLS, e 4602 * , * 
1736 »* = L803 SHS HSK ET AEE SHES ERES EK EERE SELEAEE EERE SEES EEE HEE SHS TEREEEREGE ARE SSH BERT HH 
1737 « THIS RCUTINE TEST THE TEN MICRO INSTRUCT ION *, 1804 
1738 * * ic¢33 oF 1¢33 1805 RTOF oc XLYcors ROUTINE NUMBER 
1739 SHOE EERE SLES ATERCHE TE EERE AES SHA HE ERAL LSS AREER SC LEILEEEA RS LHESKHAEARAAS HERS 1034 co 1034 1806 oc Xe1*oo8 NO MANVAL INTERVENTION 
alba 1c35 1094 1C36 1807 Dc a 2(RT19) ADDRESS OF KEXT ROUTENE 
18D4 OF 3604 174) RTOE DC xXiL2¢0€8 ROUTINE NUMBER | § 1808 
18D5 00 1BOS 1742 oC ™L1*00* NO MANUAL 2NTERVENT ION | ic48 1809 USING RODKO1sxXR1 oak 
1896 1¢33 1eD7? 1743 Dc AL ZERTOF } ADDRESS OF KEXT ROUTINE e 1C3B? C2 01 1C48 1810 La RODKODeXRI IMEITEAL ES ZE MRY FOR 1 RE 
1744 | €3 2821 
1BED 1745 USING ROCKO1eXRY ic3B ic OS Saze@ 19 1832 NYC MICOP eRT COOP 6 eXRI} WCvE OP SEING TESTED TO 
1808 C2 01 1BE9 1746 La ROCKO1 XR INITIALEZE XR1 FOR INDE XIN @ 160 CO 67 O21a 1813 8 PRINT PRINT ROUTINE HEADING 
1747 i €& 1C@6 02 1C44 1816 DC RLUCOLs 
igoc ic 05 Sa38 19 1768 vc MICOP RT COP(6exR1) WOVE OP BEING TESTED To 1685 19 2C4a5 1815 pc t1*2se 
18£1 CO 87 O21A 1749 8 PRINT PRINT ROUTINE HEADING 1C45 SA46 ica? 1816 oc AL2CMICPRT) 
1BES 01 1geS 1760 oc HLItOR* E3 1C#8 CO 87 59:8 1@i7 ReoKoO! B LOAOCS 260 LOAD NICROPROGRAM 
IBE6 19 1866 1753 pc 1L2*258 | icec &3 icec 1818 pc M1883 eDI SABLE UPON ENTRYs soon 
ipEe7 Sase 1BES 1752 oc ALZUMICPRY} id Sa teig * FSO WiTr 805-<0 GN ADDR 
$753 1c4D 1062 ICSE 1826 pc AL. 2(RODMCS? eSTART OF KICRO CODES 
1BE9 CO 87 5918 1754 ROCKO: 8B Loancs 2GO LOAD MICROPROGRAM | 1C4F 1099 1CSO 1821 pc &L2 CRODMCE) eEND OF MECROCODESes 
18ED 63 1BED 1755 oc ¥L 1° 83* eDISABLE UPON ENTRY: FILL 2No S 1822 ep ieecte areubenseaeN 
iTS6 / FsQ gITH 68CS,.0 GN ADDRESS 1¢Sl CO 87 SarE 1823 8 OOM ECR 2G OGR 
IBEE 1003 1BEF 1757 oc AL2 CROCHES ) eSTART OF MICRO CODE. 10655 44 1C5S 1828 oc XL2 Sage eERROR HALT ~aa~- 
1BFO 1¢32 ipFfl 1758 oc AL 2CR CCNCE) eERD GF MICROCODE e 1¢36 SOle 1CS7 1825 oc xL2*50185 * eEXPECTED CATA 
17S9 1a26 : 
18F2 CO 87 S4FE 31760 8 DOMICR eGO EXECUTE ICROPROGRAM 1€58 co 87 0216 1827 8 LIK e6O TO NEXT ROUT INE - 
6 
paTe 07 JUL75 25 CCT7S 1SJANTS PROG ID 0891-2: DATE OF MLTS 2sccrTs 1SJ ANF6 PROG ID 693 ey 
} £C NO. B25u23 a2 £032 8250346 PAGE 14 eo NQ. 825023 62 £032 a250364 Pace 14a 
: : : : 


7 
Its 
' 


t 


a 4 7 * A 
oe 

t 

ME ae a . 


@20202020830088 8068080880 0 











eoeoeotceeoeeeeeeeeeeeseeseeevneeeeeeee 8 
i . " | - | 


PE gaa & tne ig Sot Shae Sa teen. Si ek tiles ith” Meas. SOS - of Capes oe ‘ or - a ony Rot te et ee Pa eee tela ce ea, cin print ih iene ae LR ee! Sele tt STE ae ek setae 





v3 
ofA 


PBK MAINTENANCE DIAGNCSTEC PRGGRAM PART NOW #234296; _ 1M MAINTENANCE DIAGN EST IC PROGRAM PART HO. 230255 
PAGE +s | ; PAGE isa 
| ; 
CR1z PLSPLAY ADAPTER TEST | ce BISPLAY ADAST SER VEST. 
BRR LOC GBYVECT cane AGDR STMT SOURCE STATEMENT | BRR LOC GHSECT CCQDE ADSR STUNT SOARCE STATEMENT 
1828 | & 1896 © START OF NICROPROGRAWY LISTING <¢ 
4c SC FOC EE BRC abe aCG3 41823 RToeooP BE CLA? OF TBER* BES i Za a ee a ge ere eee 
2820 i ices is: Owes EGu 
1062 3833 RotwCS Eau 8 | € 3ce8 7aeF 1cCa 1899 pe XL2°79FF* 60 BC. SET MOG Se FF 
toss Pas eee tess Sc evopaes, Oy Te Sev roe 8 mas ieee ass ieee too) Rigvrapas Og fet Sev sae BT os 
1064 Tasaa icéS 1833 oc ML 2° PBRA © O23 «iC SET HD hh ‘i z 3 ’ ~s SET + 
oe 166 FOAC 1cay Lesa DC MB FOAL % 02 it SET HOB Cc =AC | e 1CF aeny 1208 i¢62 oc ELP tAZOi* S03 BR O3 WITH OC SHOULD BE NO CHaNcE 
ices FORD igs? 1835 oc W2° TBBDs o% IC 5ET HEE D -e5 i 320% S203 lcDe $903 De ML2tEZNS2 O6 Ci TO SE SURE nna 2 = 03 
noe ce ee See eee (© ites toes feos isos esavenoss op emvors sane 
$CSC PFO secon 1837 aT MLZ07Fag + 05 i€ SET HOB F mag ; &> COS & © € c * ERR « * 
it&E SAOD MC 6F 1836 ic 2° BagDe 96 TeFR RESETS ALA COND ETIONS 42D? AES 4fOe i996 oc XL2* S205" OF 4 GS WITH FF TO INVERT ale BETS 
1C7O BDoO ic7? 1930 oc RL EeoDoge OF SCCS MUST NOT SAANCH To ioc De 1coS E22c lena 1907 pc 4. 2tE Bec O68 Ci TH TEst MDD 2 = 2C 
3072 9OOs 1273 4265 oc SLZ*ego22 $8 s8c2 MUST NOY SRANCH TH 203 i E* 3COS Stos 200C koa ac ML. Z*9TOB? 8 86C.3 SUSY shaves 
1C?7& 9S02 IC?S 2841 Dt ML 2°9502" oo «B80C1 wvUST NET BRANCH TQ 162 1cDD SOA icdDE 1309 BC KLZ*BOOA+ GA ERROR. MARS 
1C¥S BadC ICT? 1842 os NL2*6a0c# G2 TaFR SETS COND: NDT RANDS none 3cOF agoe 1c&o tpto BC Mi 2° 302° 08 kA FE BETH 2c | 
1C78 Spoz 107 1843 oC NiLBsgGoz® 92 BOSS MUST NOT BRANCH To 3163 ote 8262 E33 2CES 2911 anc RiLZ*ESBOZ* ef C1 TO CHECK HOE B =< 03 
1OPA S906 ICTS 1548 pc % 2rescoas oC | «6«BOCR MUST NOT BRANCH TO 204 3ce2 gan ICES o oc cea = nen pe tea 
1070 84 OF 1C7D iaes BC XLZ*Sa0F @O BOCi MUST Br : 1CE5 SOSE LCES 201 De MW. SISOOE * Ro 
{CFE SOGE iC?F 1886 oc HL. 2° SO0E * GE ERRDR HANS | & 4C&Y SOOF ICES 1948 Riomce OC KL2*Sogrs OF HanGe TEST COMPLETED 
1089 880E «$82 Lae? Bt XL 2° SBOE * OF TBFR SETS COND2.NOTEANDS | 8315 
z rs 8@pe . @WISYT NOT BRANCH TO 105 : 1915 
eee sae re yee gs : ~ oe ae : ge" z oe i a & y ES Ses ME ape Se aE He as os Ss oe sha hE IR AE oe cig ok he Gi he Bek oe ak Mah Sk OPA aa a ae ay ewe ee SH ah Ne ae he ee See He eh, OP Se hs DP es a a 
3C8a 9505 3095 1g4as oc M2 °SS66 11 8001 MUST NOT BRANCH TO 166 1 Ges 8956 5B hak abe ¥ * be 
IcB6 98146 1¢c8? i850 oC KXL2eOosiae 32 S86C2 BUST BRANCH | iSi? x ROUTINE 11 ~ CIR MICRO INSTRUCTION TESTS * 
1¢88 80135 ig ag 188i io AL2° S633? is ERROR HANG ‘ 3 £918 Bet SES i Se he BO ea Be He EO ES See ST eH AH ME He eH BW EE HB UE MS ee HE MH ie Me he Me we He 2 HK eK HH a GS WI 
icBs Sa0r iCSB 1852 de *L 2°85 OF * i@ TEFR SETS ALL CONDITIONS i & , 1919 & ™ 
ICBC 9C17 1CBDb 1853 BC MLZeeci7s 25 BOc3 wUST SRAKCH 2920 2 THES ROUTINE TESTS YHE CIR WICKS INSTRU TION * 
icBE Sols ICSF 1854 ot Mi. 24 SOH1G * 16 ERROR HANG 1 eat £921 * % 
1C8$0 $2819 1CSi 18655 oc Mi 24819 ¢ 37 Boc2 MUST BRANCH & ESSS SRVASSEAE KRENK AKA AGM PAS HEREC RSE PSRHER ERE SSHRC A HSOKRKARKRTRSEKE SHAKES 
icve 8018 icg3 18S6 DC xLe9'S048° 18 ERROR HANG 3923 
1096 9418 1CS5 1i8s7 pc ML2*9e1g 2 19 «6Gc1 MUST BRANCH € ICED 11 $CES 1926 R32 BC XLESLLE oe eveee i . 
1426 SOis 1C2eo7 1888 oc Xi2*aegiar aa ERROR HANG ' & es ZLEA OG ~CEA Lacs Bo ALi tGHe RO MANUAL £F ERVENT ION 
ices SgiB 1C9S 1859 RODMCE oC MLZ2°SO18*’ 1B HANG TEST COMPLETED cKaY : ICES ip3e ICES 1926 pc ALZt{RTi 23 ADDRESS OF NEXT ROUTINE 
eg a 1860 FSRESHHARES ER SA AALALS HLALSRARSHEARSEVEGERRE KER RAS HEH MAE EARN ee IH ee RH é 127 . 
1B6L » ROUTINE 10 = XR MICRO ZNSTRUCTION TEST * £2 ICFE 1928 USING ROFEKOS0XRY 
LBSQ FKRASHHS GAEDE S GHSATDSSE SE FURS HRT SEKY ARKTS RLS HLA HR AALAERY SH KAKT SEAR TERE 2CEB Ce 83 1CFE i9g2¢ LA ROF KOOL, KRY INIT aALiZe ¥XRI FOR INDEXING 
1863 * 1936 
1865 « THIS RCUTINE TESTS THE xR MICRO INSTRUCT ION = ce 1CFi ic 8S Sage i9 1931 av MICUP ORT OFGP( 62 KRA} #OvE OP BEIAG TESTED To 
is6S « . * 1CFS CO B87 SBIA 1932 € PRINT PRINT ROUTINE READING 
BGG SHASHEARKRSREKEARASKESHE SRACKSA SSH KSARAACSHE SFKAIRESSAKEAEVTHASHHKSEH HKKS HS € ICFA Gi IicFa 19633 pac MLitoze 
. 1867 aa 2CFB i9 1CFE 1934 - oc 3° 258 
1094 10 109A 1868 RT19 pc MLU2108 ROUTENE wUeBER ICFO GASES {CFG i935 oc AL2 (MICE RT) 
1C9B oO 1098 18869 oc XL 200° NO MANUAL INTERVENT IDN _ 1935 : : 
1C9¢C 18S 1C9D 1870 oC ALZIRTIALG ADDRESS OF KEXT ROUTINE > ACFE CG 87 8915 1937 ROFKO B LOADCS «GD LOAD SAICROPROGRAK 
ier. ado2 &3 qDo2 1932 DC XLit sze eDISASLE UPON ENTRY. Firhi. 2nd 
1CAE 1872 USING RIOKOL sxf1 1939 * FSO wivr 805.0 ON ADDRESS 
1C9€ C2 01 1CaF 1873 LA RLIOKOLARRE INIVIALIZE XR FOR INDEXING Cc: 1003 1916 1094 1945 oc AL2 CROF NCS) eSTART OF MECRO CONE 
1674 Apes ic3? 1p0S i945; DC AL ZR OF MTE) eEND OF MICROCODE 
1€a2 1C 08 5038 29 187s MVC MICOP SRTLOOF( 6 ex!) MOVE OP BEING TESTED To 1942 
1CA7 CO 87 0214 1876 8 PRINT PRINT ROUTINE HEADING €3 007 co 87 S4re 1943 8 DOMICK e60 EXECUTE MICRO COUE 
icaB O1 2CaB 1877 Doc KLI®Og® 1D08 228 1DGB i944 DC MEL28age eERRGR HALT ~88~ 
1cac 19 1cac 1878 DC ILi¢ 28+ G 300C S00F 1D0G 1945 oc XLE*SOOF® eEXPECTED RESULT 
ICAD SAGG 1CaE 1879 oc a 2¢M TCPAT} : 1Sas 
: 1880 1D0E CO 87 0216 1947 8 LEnK 2GO TO NEXT ROUTINE 
iCAF CO 87 59148 lea61 R10K032 8 Loaccs 260 LOAD My CROPROGRAM es 1S48 
1cB3 83 1cS3 1882 oc wLa9aye eDISABLE UPON ENTRY, FILL 2n0 gS IDl2 FLeiaOcscsss IDLF 1949 RTOFGY Oc CLE*i3, Cire 
1883 2 FSG @#ytei BOSs0 ON AGDRESS 2250 
1cBa itce iced 1884 oc 4.2 CRYOMTS ) *START OF MICRO CODE . $95) Heme n een ee ee. Ca ot te a oe cn ar 
1C86 1CES icey 1695 oC AL Z2ERLOMCE) eEND OF NI CROCODE e 1952 % STARY OF MICROPROGRAM LISTING * 
1885 : ‘ LOS B Bir ee ee i ee rs en ee ee iin tens H 
1cBS CO B87 SéFE 1887 6 DOMICK e600 EXECUTE MICROPROGRAM ID18 i9SSa RoFMCS Eau s 
1fBC 4A 1cec isee Dc Kii* as cERROR HALT ~aA~ €& ibis ves 1019 1985 oc XL2°7ESC* GO 1€ SET HDB £ = SC 
1CB8D 500F IcBE 1889 oc mL 2°scors cEXPECTED RESULT IDia 7FSB 101B 1986 DC XL2O°7FSS* OF IC SET HDB F = 56 
1890 101C 76283 IDiob iS57 DE ML2°*768if O02 tc SEY HOE 6 = A: 
1C8F CO 87 0216 1891 8 LINK e600 TO NEXT RCUTINE € oie 728c iDIF 1958 Dc M2°735C! o3 fC SEY NDS 1 = SC 
44892 : 1D20 GEQ6 $021 1959 DC XL2°BEOS* GA CIR RESETS ALL CONDITIONS 
1CC3 FIFO4SOQ0E7D9 iccS 1893 RT10GP oC CLGt1TO NR 1022 9pc0 1023 1960 oc xL2°9D00% oS BO6C.3 #usT NOT BRANCH 
18946 & 1024 9901 £O28 196; oe XL2°9901" 06 G80C.2 MUST NOT BRANCH 
2895 tome ne ee omen ee ene eens p26 9502 1D27 1962 pe xL2°9S02* oF B8OC.! muUST NOT BRANCH 
! DATE O7JUL 75 25ccT7s 1SJANTS PROG 1D 0891-2 DATE OT JULT> 25 ect7s 1SSANTS , PROG 3D 0391-2, 
EC NDe 8<5023 82 932 625034 PAGE 18: EC NO, 825023 82 £032 825034 PAGE 425A 
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STMT SQURCE ST ATENENT | * ERR Lec GBsECT CODE &OOR STMT SOLRCE STATEMENT 
1963 Bc ML2°SBEO1*® O8 CIR. SETS ALL CONDI TICAS | €é 2OZD HHSEEERAESEERESESRRE FER SELLER AY SEEM EEEEE SBS ORESESE LESS TERESA GEA E HESVTARE TS 
1964 pc ML2°9COB* C9 BOC.3 MULT BRANCH \ 2030 * ROUTINE 13 - BR MICRO INSTRUCTION TESTS * 
31968 ac Xi 2*S06a* GA ERROR. HANG | e 2031 SEGRE SA HS EHEEEEKSEEESHES SF SEEBRKTSE SE KKK SRBESHA SFE ELE SLACKELKAKEREKS SHRREREE AH 
1966 oc M2*BFOE* 08 CIR SETS CGND 1 RESETS 2. 3 2032 % * 
1967 oc MLZ*9ROE* OC BOC.1 MUST BRANCH | 2033 + THIS ROUTINE TESTS THE SRANEM REGISTER INSTRUCTION * 
1968 pc ML2°S00D* aD ERROR: HANG 2034 * wITHIn THE FIRST 1K AGORESS OAV. USING GNLY REGS 00 TO OF. 
1969 oc ML2°9003* OF S0C.3 MUST NOT BRANCH | @ 2035 = * 
1970 ROFRACE BC XL2*500F* OF HANG. TEST COMPLETED | 2036 « BRANCH REGISTERS ARE DONE &¢ FOLLOws: ° 
1971 2037 * * 
1973 | 2038 « FROM ADDRESS 000 TO ADDRESS 101 * 
POTS FAHe ESAS EES EH OSS SEB ES ERAT EEE GEESSHERERE HUME DEKS FE ARLEKALEKE SSOTHEOARES HE 2039 * FROM ADDRESS 101 YO ADORESS 202. * 
1973 + ROUTINE 12 - CI MICRO INTRUCTION TESTS * 2040 FREM ADDRESS 202 TO ADDRESS 303-6 * 
1974 Rbaukasobenc dea chd0e ub sdqabeeesaccsdecseus bes bucneeascesseaesudeceeen| & 20e@1 * FROM ADDRESS 3093 To ADORESS OO86e & 
1975S * * 20a2 & FROM ADDRESS 060 TO ADDRESS 295. * 
1976 « THIS ROUTINE TEST THE CI MICRO INSTRYICTION : e 2083 ¢ FRCM ADDRESS 205 TO ADORESS COG. * 
1977 «& * 2004 « FROM ADORESS 006 TO ADDRESS B0T« & 
3978 CIMEST SET SER TONERS LOO TELA TP ree eT ey, hy 2065 * FROM ADDRESS 307 To ADPRESS 168. « 
1979 2066 + FROM ADDRESS 108 TO ADDRESS 1H. * 
1980 RT12 OC xLi¢a2* ROUTINE NUMBER | & 2007 * FROM ADDRESS 10A TO ADDRESS 308. * 
1961 oc ML1° 00° NO MANUAL INTERVENTION | "2068 FROM ADORESS 308 TO ADERESS 20C. & 
1982 oc AL 20RT13) AODRESS OF NEXT ROUTINE ' 204¢ ¢ FROM ADDRESS 20C TO ADDRESS 20E. * 
1983 | & 2050 + FREM ADDRESS 20E TO ADDRESS OOF. * 
1984 USING ROEKO1exXRI | 2051 * . 
19868 a ROEKO2eXR2 INITIALIZE KR FOR INDE XING | o 2ZOS2Z SEREKERKERKSERKS THK ERSSAAERSKAL ELE SKCKSEK HEE SHELG S CKKSEHKHCRE SKKKS LEKKRA SSS 
1986 i: : 2053 
1967 vc MICOP oR TOEOP(6 xR} MOVE OP BEING TESTEc TO ' ipae 13 tp8S 2054 RTi3 OC XLi¢i 3 ROUTINE NUMEER 
1988 8 FRINT PRINT ROUTINE HEADING ae 1BDEA 00 1DBA 2055 oc x%L2°00° ND MANUAL INTERVENTION 
1989 pc MLYeATe ... 1D8B 1€93 108c 2056 oc AL2 (RTE) ADORESS OF NEXT ROUTINE 
19906 oc wae2se i 2057 . 
1991 pc AL2(MICPRT) ; 1099 2058 USENG R1IKO1eXR1 
1992 : €  sDep c2 01 1099 2059 LA RII KO1,XAR INITIALIZE XR1 FOR INDEXING 
1993 ROEKO1 B LoaDcs 26O LOAD MICROPROGRAN 2066 
1994 oc XL1i*e3° eDISABLE UPON ENTRY. FILL 2@ND es 1091 CO B7 0214 2061 8 PRINT PRINT ROUTINE HEADING 
1995 « FSQ wITH BCS,0 ON ADDRESS c 1D95 01 IDSS 2062 ec MLL°oie 
1996 oc M2 (ROEMCS?) e START SF MICRO CODE 1096 27 1p96 2063 DC 1L.3°399 
1997 Oc AL.2 CROEMCE) eEND OF MECROCODE iC: 1097 1DEE 1098 2064 oc AL 2(R17THOR) 
1998 oe 2065 
isos 8 CONICR GO ExECUTE MICRO PROGRAN , 1099 CO 867 $918 2066 R1KO01 8 LOAOC S eGO LOAD MICROPROGRAM 
2000 pc XL 1° 86° eERROR HALT —~66~ po os 1D9D 91 109D 2067 Dc XLI*91° eL Bal CODE IN 1ST FSO 
2001 pc ML2°50108 eEXPECTED RESULT €: 1D9E 1DEF ip9F 2068 oe ALZ2(RIINCS) eSTART OF MICRO CODE 
2002 aes 10a: 1€32 1041 2069 pc AL2(RLINCE? eEND OF MICROCODE 
2003 8 Link eGD TO NEXT ROUTINE 1042 CO 87 5918 20706 8 LOAOCS eLGAD CODE IN SECOND F SQ 
2004 ' (1006 82 10A6 2071 BC xLi°82¢ 
2008 RTOEGP DC C1612 cre ‘ 10Aa7 1633 10A8 2072 oc AL 2UR1IMC2) 
2006 3DAD 182 1DAA 2073 pc AL2 (QR11NC3) 
BOT @24en seid pin coee ene cccaekeaneeg Cc (1088 CO 87 $918 2074 8 LOADC Ss eL OAD CODE IN SRD 256 wEoS 
2008 * START OF MICROPROGRAM LISTING * | 1DAF 84 1DAF 2075 pC KL 1Bee 
2009 Re we we ne eee mew we ere ow oem mee 3DeBo0 1€€3 ipal 2076 oc AL2 € Ri i MGA) 
2010 ROEMCS EQU- +* | €: 1082 172 1083 2077 DC 8 AL 2(R11MCS) 
2031 pc XL2*7cCaa® 00 ic SET HDB C = AA | 21084 CO BY $918 2078 B LOADCS eLOAD CODE IN 4TH 256 wOS 

8 #0 77 ‘ 
re oc eee t07r* o1 1 sé BO = | : 1088 a8 1968 2079 oc XLI*AG* 
2013 ec Mm 2°ECBS 02 CI AND RESET ALL CONDITIONS €>  -1pe9 1€73 ipea 2080 oc AL 2(R13NCE) 
2014 pc RL2*9000° 03 80C.3 MUST NOT BRANCH | 7688 1£92 1De@c 2081 pc AL2Z(RLI MCT? 
2015 oc ML2'9901¢ O04 E0C.2 MUST NOT BRANCH 2082 
20136 pc XL2*gSo2" 05 G0C,i MUST NOT BRANCH | € 1 pap co 87 sare 2063 ) DOMICR GO EXECUTE MICROCODE 
2017 oc ML 2° ECAAS 06 CI AND SET ALL CONDITIONS ON | 10C1 4€ 1DC1 2086 oc xXE1°4E* eERROR HALT ~4E= 
2018 oc m2*9Ca9° O? $0C,3 MUST BRANCH | e ipc2 SOOF 19c3 2085 oc xL2° SOOF * eEXPECTED BATA 
2019 oc xL2*So08" 08 ERROR» HANG 2086 
2020 oc ML2"ED TE * 09 CI AND SET ConD 1 GMs 2 aND 3 OFF | 19¢% co 87 0216 2087 8 LINK eGO TO NEXT ROUTINE 
2021 oc XL2*9Q9038 OA 80C.3 MUST NOT BRANCH { 2068 
2022 oc NL2°*960D¢ 06 BOC.) MUST BRANCH | i] 1DC8 DIDGELESSOFIF HO IDEE 2089 R1L1IHOR OC CL39*ROUT 13 BR MICRO GP YEST: 1K ADDRESSES* 
2023 oc XL 2*500C ¢ OC ERROR: HANG 1000 C2 09a0Dacec3D O56 2089 
2024 ac XL2* EDTT ¢ 00 SET ALL CONDITIONS On. | LOWE 4006 CIAOE3CSE ZES © 2089 
2025 pc xL.2° 90105 OF BOC.3 MUST BRANCH | G IDEO SEeoF1DZe0C1C ce 2089 
2026 pc xL.2*SO00F*? OF ERROR, HANG 1D€8 OO C5 E2ZE2CSE24 € 2089 
2027 ROEMCE oC KL2°50108 10 HANGs TEST COMPLETE | @ 2090 
2028 2ag1 Ee re ow oe oe i cee on ee 0 ae oe ae ee are ee eee a ee ememete E 
2028 | 2002 * START GF MICROPROGRAM LISTENG « 
LSJANTS PROG 1D a al OatEe OF SULTS 25 ccTTs ISJANTS PROG ID 0891 mee 
825034 - PAGE 6 | EC NO. 8258023 S2 £032 825038 PAGE 16A 
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IBM MAINTENANCE DEAGNCSTIC PROGRAM PART NO 4234255 T8M MAINTENANCE DIAGNCSTIC PROGRAM PART NO 4234285 
PAGE 17 PAGE 17a 
8912 — DISPLAY ADAPTER TEST a eats DISPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
Hoge 
209 3 Bw wen we ee oe eee ee ee ee ne : 1E6F 300F ’E7O 21623 oc XL2° 300F 20E BR TO ACORESS OOF 
1CEF 2094 R1iMCcS EQuU * 1E71 S20F LE72 2162 RIIMCS OC XL.2°S20F * 2O0F ERRGR.e HANG 
IDEF S010 lpFO 2095 pc xL2°5010° 000 80S.9 TO ADDRESS 010 e 1£73 2163 RLIMC6 EQU) # 
1DF2 5001 1DF2 2096 oc xL2*S5001° 001 ERROR. HANG. 1E732 $300 1E74 2166 pc XL2°5300¢ 300 ERRGRe HANG 
1DF3 5002 DFS 2097 DC xXL2°5002¢ 002 ERROR, HANGe 1E75 5301 1E76 2165 oc ML 29532018 301 ERROR» HANG 
1D0FS 5003 10F6 2098 oc XL2*° 5003? OC3 ERROR:e FHANGe . 1E77 $302 iE7SB 2166 Bc xL2*S302¢ 302 ERRORs HANG 
1OF7 3205 10F8 2099 oc xAL2°32058 004 BR TO ADDRESS 205 LE7T9 3006 1E7A 2167 oc xL2*°30048 303 BR TO ACDRESS 004 
. 10F9 5005 IDFA 2100 oc XL2*S005* QOS ERROR» HANG 1E76 5304 1E7C 2168 oc xL2°53048 304 ERRORe HANG 
1O0F6 3307 l1DFC 2101 oc AL 2°3307¢ 006 BR TG ACORESS 307 1E7D0 S305 1E7E 2169 oc xL2°53052 305 ERROR. HANG 
10FO 50067 lOFE 2ig2 oc XL2e*soo07e OGC7 ERRGRs HANG lE7F S306 3E8O 2170 oc mML2°S306* 306 ERRORe MANG 
1DFF 5008 tE00 2103 oc xL2°5008¢ 008 ERROR, HANG 1Eal 3108 1E82 2371 Dc XL2*31088 307 BR TO ADORESS los 
1E021 5009 1E02 2104 oc xXL2*so0o09¢ 009 ERROR» HANG 1E83 $308 1E86 2172 oc xL2°S308* 308 ERROR» HANG 
tE903 SOOa 1604 2105 oc XL2¢*soode OOA ERRORe HANG 1E85 S369 1E86 2173 oc XL 2*520¢¢ 30S ERROR». HANG 
1E0S 5008 1EQ06 2106 oc *L2° 5008 COG ERRORe HANG 1687 S3O0A 1E8S 2174 oc XL2*530a° 3O0A ERROR: HANG 
1&07 S00Cc 1~06 2107 oc M2°5C0C * GOoC ERRORs HANG Ess 320c 1EBA 2175 oc xL2*320c* 308 BR TQ ACDRESS 20C 
1E0¢9 50900 IEOA 2106 oc XL2°*So0o0ods 90D ERROR: HANG 2&€88 S30Cc 1E8C 2176 oc ML2*S530C* 30C ERROR: HANG 
}TE0B SOOE 1eE0Cc 2109 oc xL 2° SOQO0E ¢ GOCE ERROR: HANG tEeDd S300 2E8E 2177 oc XLe*Ssoo 3200 ERROR. HANG 
1E0D0 SOOF LEOE 2110 oc XL 2°*SO00F ¢ COF EXPECTED DATA “ LEBF S3CE 1E90 2178 oc XL2*S30E * SOE ERROR+e HANG 
1EOF 7000 tE10 Alli oc xL2°7000°8 O16 IC HOB 90=60 i 1E91 S36F 1E92 2179 RiIMCT DC XL2*S30F ¢ 3OF ERROR». HANG 
YEW 7iCi 1E12 2112 oc XL2°7201° 611 IC HDB C1=01 2160 
1E23 7202 3E14 2113 oc xXL2*7202¢ 012 IC HDB 92-02 2180 
1E15 7303 1616 2114 DC X_2° 7303¢ 013 IC HDB 0O3=02 > C16] HERE LERERRERE HARES LAE SE SALE ARK RRA RD EER EEE AEAARE EEK ERE REREERE ER ERER EEE 
1E17 7404 1£18 2115 oc x 2° 74048 014 IC HOB 04-04 2262 * ROUTINE 14 ~ INC MICRO INSTRUCTION TEST * 
1£1¢ 7505 1ELA 2116 oc XL2°* 75088 015 fc HDS 05=05 : ZLB FI AHGETEEREEEAR SEES EASES EEAAEAEE EKER AERE ERS HEELS HEAR OS TE ERERDEN SORE ESS 
E18 7606 WEIc 2117 5c M2" 76062 616 iC HOB Qe6=06 & 2284 * * 
1E1D 7707 TEXE 2lisa oc XL2*77o7e O17 fc HDB O7=07 2185 * THES ROUTINE TESTS THE INC MICRO ENSTRUCT ION. ALL. COME INAT IONS® 
1E1F 7608 1€20 2119 oc xL2° 78088 Otg IC HOB 98=96 2186 * OF INCREMENT FROM 1-256 ARE TRIEO. * 
1E2: 7909 iE22 2120 oc aL 2*7909" 019 Ic HDB 9O9=09 & 2187 x & 
TE23 7AOA 1E24 2121 oc XL2*7AGac O14 IC HDB OARA 2188 FEGLRE ERE RE SERERSEAES KEARSE SAS HLS REAKEA TABLAS 6 OFS HS EEAERH RSS S OEREEE RE 
1€25 7608 1E26 2122 oc 42° 7808" 01g ic HDB 08=09 2189 
lE27 WoO lE26 2123 oc %2°7COC « oeic £C HOB Gc=0C c: 1ESS 16 1E93 2190 RT14 dc XLie*gse ROUTINE NUMBER 
1E29 7DO00 YESA 2124 oc XL2°*7o00o' , O10 tc HOE OO r0D 1E9e co JEG4 219% oc Xt OOS NO MANUAL INTERVENT ION 
1€28 7EOCE lE2c 2125 oc 4%. 2° TEOEs OLE IC HOE OE=0E 1ES5 iF27 1E96 2192 be A 20RT15) ADDRESS OF NEXT RCUTINE a ee 
1E€20 7F oF 2E2E 2126 oc XL2*7FOF® GiF 3C HOB OF =OF és 2293 ; 
’E]F 3101 YE30 2127 oc XL2°*31038 o20 ER TQ ACORESS 101 1E4S 2194 USING Ri zZKO1>eXR1 
YE3i1 S021 YEBZ2 2128 RiIMCE OC UL 2°5021 * O21 ERRORe HANG 1E97 C2 03 i1LAB 2195 LA Rli2x01eXR1I INITIALIZE XR3 FOR INDEXING 
1633 2129 Riimc2 EQu) « Cc: 2196 
1£33 5190 1E34 2139 oC XL 2° 512008 1600 ERRORe HANG : 1E98 ic 0S Sa38 22 2197 MYC MICOP »sRT120P(66xR1? MOVE OP BEING TESTED To 
1E35 3202 1E36 2132 be %.2°*32029 101 BR TG ADDRESS 202. 1E40 CO B87 O21A 2198 8 PRINT PRINT ROUTINE HEADING 
tE37 $102 1E38 2132 oc Xr2°'5102¢ 102 ERRGRe HANG C; LEAS 01 1EAS 2199 oc ALI*Gae 
2E39 5102 1E3a 2133 oc ML. 2¢5103¢ 013 ERRORe HANG 1EAS 19 LEAS 2200 oc Ir1l?*2se 
1€36 51 04 1E3c 2134 oc AL2*51048 014 ERRORe HANG ; 1EA6 Sade LEAT 2201 oC AL2(MICPRT ) 
1E3D $105 1E3€ 2135 oC xL2°5105¢ 015 ERROR. HANG €} 2202 
1LE3SF 5106 1Eao 2136 oc x2°51068 C16 ERRGRe KANG tEAB CO 87 5918 2203 R12K01 B LOACCS eGO LOAD MICROAPROGRAM 
1E41 5107 1E42 2137 oc XL2°*51078 017 ERROR. HANG ; TEAC 91 LEAC 2204 o¢ ALI®S2® eLQAD IST FSQ 
1E43 310A 144 2138 oc ALZ2*310A*8 108 BR TO ADORESS 10a ' C: 3 EAD 1ECB lEAE 2205 oc AL 20R1Z2MCS) e START OF MICRO COCOE 
1E€S $109 1E&6 2139 oc W2*sioge 209 ERROR». HANG (EAP 1F O02 1EBO 2206 oc ALZ(RI2MCE) sEND OF MECROCODE 
1€47 3308 1Eas 2140 oc XL2*3306* 10a BR TG ADDRESS 306 . = 1EB81 CO 87 $918 2207 B LOADCS eGO LOAD MICROPROGRAM 
1€49 §2:08 14a 2141 oc xL.2°*S10B°6 2108 ERROR. HANG ; €: tEeB5S A2 1E8S 2208 oc w1tAat eLOAD 2ND FSO 
1E4B $1 0c tEac 2142 oc XL2°S20c¢ 210C ERROR» HANG 1E66 iF O3 LEB? 2209 oc ALZ{RISMC2) 
1€40 $10D E4E 2143 oc XL2*5100¢e 100 ERROR, HANG te€B8 F256 1EB9 22130 Bc AL2(Ri2MC3} 
1E4F 510E 1ESO 21446 oc ML 2°510E # LOE ERROR. HANG ‘ f 2211 
1651 Si OF LES2 2245 RiiMCc3 DC AL2°*S510F « 26F ERROR, HANG IEBA CO 87 S4FE 2212 E OGMICR oGS EXECUTE MICROPROGRAM 
1E53 2146 Riimc4 EQu * : 1E6E SO ‘EBE 2213 dC RL1i¢ Soe eERROR HALT -50- 
1ES3 52006 1ES4 2147 oc ML 2°52000 200 ERROR. HANG e 1EGF 5016 ECO 2214 cc mM 2°*S01se eE XPECTED RESULT 
IESS $203 1ES6 2148 oc XL2*s2018 201i ERROR. HANG 2215 
tES7 3303 ‘E56 2149 oc XL 2¢3303¢ 202 SR TO ADDRESS 3023 : YEC1 CO 87 0216 2216 & LINK eGO ¥CO NEXT ROUTINE 
1E59 5203 1ESA 2150 oc XL2*5203° 203 ERROR. HANG €3 2217 
1ESB S204 1ESc 2152 oc XL2*S520a¢ 204 ERROR, HANG LECS FilF4asocsosc3 1ECA 2218 RT1LZ20P OC CiL6*14 INCe 
1ESD 3006 IESE 2152 oc XL 2* 30068 205 BR TG ADDRESS 006 2219 
1ESF 6206 1660 2153 Dc XL2°5 2060 206 ERROR» HANG © S306. we se hie ees eeac aes le eh oe 
1€63 $207 1E62 2154 oc AL2° 52078 207 ERROR. HANG 2221 * START GF MICROPROGRAM LISTING © 
1E63 $208 1664 21355 oc XL 2°S206¢ 208 ERROR, HANG 2222 Fe mmm nH ewe eo wenn om ee see ee ee ee an wa 3 
1E6S 5209 1E66 2156 oc XL2° S209 8 209 ERROR» HANG & 2ECB 2223 RL2ucs EQy * 
1E6? S20a 1EGS 2157 oc ML 2° S20A * 20A ERROR, HANG 1ECB 7Aa00 (Ecc 2224 oc xXL2°*7A0Q08¢ OO ICs SET HDB 4 = C9 
1E69 S208 1EGA 2158 oc XL2*°S5208° 208 ERRORe HANG : 1ECD 7704 1ECE 2225 6c KL2°*7704¢ Oi ICs PUT RETURN aooR IN HOB 7 
1E66 320E IE6C 2159 oc L2* 320E°* 20C BR TO ADORESS 20£ & 1ECF 7600 1EDO 2226 oc XL2* 76008 O02 ICe SET HDB & = Go 
1E6D 5200 1E6E 2160 oc x. 2*5200° 200 ERROR, HANG 1ED1 §100 L1E02 2227 o¢ ML2°S51008 03 80Se0 BRANCH TO INCREMENT RUUTINE « 
OATE O7SUL TS 25¢(ct7s ISJAN 76 PROG ID 0891-2 © O7ISUL 75 2esmccrT7s tS JAN7T6 PROG ID oBgi-2 
EC NO, 825023 824032 825034 PAGE 17 FC NOe 825023 82 £072 825034 
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16M MAINTENANCE DIAGNCSTIC PROGRAM 


PART NOo 4234255 1BM MAINTENANCE DIAGNCSTEC PROGRAN PART NOo 42342€5 
PAGE 16s. PAGE 18a 
8912 DISPLAY ADAPTER TEST _ 8912 DISPLAY ADAPTER TESY 
t 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1€03 EA10 1ED4 2228 oc ML 2"EALO® 04 Cie HDB A MUST HAVE iG IN fT r LF SA SASS 1F 38 2295 oc AL2Z(MICPRT) 
1E05 9c 07 1E06 2229 voc xL2*9Cco7e 0S B8O0Ce3 MUST BRANCH : 2296 
1ED7 5006 1ED8 2230 oc XL2*S006°* 06 ERROR: HANG 2£3C CO &F S918 2297 R1I3K0O1 B LOaOcSs eGO LOAD MICROPROGRAM 
1E09 7601 LEDA 2231 oc XL2°76801? O07 Ce SET HOS G = O14 i 1F40 83 1F40 2298 oc xXL1° 683° eDISABLE UPON ENTRY» FILL 2ND 
1E08 770A WEDS 2232 oc XL2° 770A° Q8 ICs PUT RETURN ADOR EW HOS 7? ee 2299 FSQ wiTH BCS.0 ON ADDRESS 
1EDD 5100 JEDE 2233 pc XL2*51008 0S BOSe0 BRANCH TO INCREMENT ROUTINE 1644 iFS6 iF 42 2300 oc AL2 (R13KCS } oSTART OF METCRO CODE 
(EOF 1810 1EE9 2234 oc AL2*1610° GA INCREMENT HDB 8B : if43 1FA3 144 2301 oc AL 2¢R1I3SMCE} eEND OF MECROCCDE 
1EE1 1840 1EE2 2235 oc XL 2¢ 18406 OB SHIFT HDS 6B LEFT ; 2302 
7EE3 1840 1EE4 2236 oc Xi 2° 12840 ° oc & TIMES 1F4S CO 8? S4&FE 2303 8 DOMICR °GO EXECUTE MICROPROGRAN 
1EES 1840 WEES 2237 DC xXLE¢ 16408 ao f £F49 52 1F4e 2304 pc XLieS2e cERROR HALT -S2- 
GEE? 1840 1€EB 2238 pc XL 2° 18408 oe iF 4A S026 1°48 2305 oc Xi.2*5026¢ eEXPECTED RESULT 
SEE9 9418 1E€A 2239 oc XL2*°94168 OF SGRANCH TO END IF HI BITS = 6 230% 
,E&B BAOB 1EEC 2240 oc XL2* BACB® 10 CIRe COMPARE FOR CORRECT RESULT e 1F=4C CO BF 9216 2307 B LINK 2GO TO NEXT ROUTIRE 
LEED 9C13 LEGGE 2241 oc ML 2*SCL3s 11 WILL BRANCH EF OKAY 2308 
ZEEF S012 1EFO 2242 pc XL2°S012° 12 ERRORe HANG - 1650 Fi F5460400309 1-55 25309 RT130P DC CL6ez2S LRe 
LEF1 18490 1EF2 2242 pc xL 2° 184068 13 SHIFT HDB & ARGUND ASAIN f. 2310 
1EF3 1840 1EFQ 2244 oc XL 2° 1846 * £4 QALY ewe cee wee omens oe wee mmm wah 
1EFS 1840 1EF6 2245 oc XE2° 18468 is . 2312 # START OF MICROPROGRAM LISTING © 
TEFF 1840 1EFS 2246 oc XL2° 1840 ¢ 16 £ Q2BLB Ke ewn we we ee ce een seme nee 
1eEF Oo 51900 1EFA 2247 oc XL2°53008 17 RETURN TO INCREMENT ROUTE NE 1F S56 2314 RiBMCS EGU & 
1EFB EAOG 1EFC 2248 oc KL2¢EAaGt 28 ENDe TEST Tea? HDS A = BS 2 IF 56 7F3AA iF 57 2315 oc XL Z® F2AAS CO IC, SEF HOB O32 = AA 
tEFO 9C18 LEFE 2249 oc ML2°9Ci8¢ 49 «MUST BRANCH € 4°58 7155 1FSS 2316 DC XL2°7155° O1 IC, SET HOB O1 = 55 
ZEFF SOTA iF00 2256 oc XL2°*SO0iA* 14 ERRORe HANG : FSA 2FCS 1F 58 2317 OC KL 2° 2FOR* 02 LRe SET HDB OF = AA FROM HOE 63 
ifO1 S018 $F02 2251 RiBMCE DC XL 2¢ 50188 38 HANGe END OF TEST . 165C EFAA 1F50 2318 ac ML 2S EFAA® G3 Ck, CHECK THAT HDB OF ES = && 
2252 5 LFSE 9C 06 iF SF 231¢ oc XL2* 9COG* 04 BOSe3 MUST SRANCH 
IF CS 2253 RizgMc2 EQU & , FEO S$o0S RFE 2320 Oc xL.2°5005° OS ERROR. HANG 
LFOB LALO 1F0% 2254 oc ME SP LALO® 460 INCREMENT ROUTINEs INCREXENTS HDB A 3F 62 2F 52 1F63 2321 pe XL2Z"°SFOR® C6 LRe SET HDS OF = SS FROM HOB C1 
iFoS Laic 1F06 2255 oO. MELZ°LALGs LCL 36 TIMES AND RETURNS YO MAIN ROUTINE. . LF6& EFSS iF 65 2322 OC XL 2° EF SSE o7 Ci, CHECK THAT HDB OF = 55 
1FC?7? 1AIG iF og 2256 pc ME 2° LALOS 162 : LF5S OCCA LFS? 2323 DC XL 2*SC 08% 68 BOC.2 MUST BRANCH 
1FO9 1A10 LECH 2257 oC ML2e1aice 30 . ge 6B S009 iF6S 2324 Bo xL2° S009? og ERROR, HANG 
$FOB 3810 tFOC 2258 oc HE2°R ALGE 464 i LF6A 202F 1=68 2325 oc ML. 2* 202F¢ OA LR: SET HDB 10 = §5 FROM HOS OF 
1FOGB LA10 1FO0E 2259 oc MLZ?uaioe. £05 . 1f6C EBAA LF 60 2326 pL MH Z°EBAAE 08 Cl, CHECK THAT HOB O03 DIO NOT CHANGE 
iF OF ALC 1F10 2266 bc AL2°SALG® 106 ’ RFS6E 9COE 3E GE 2327 oc ML2°9CQE® OC 8OC.3 MUST BRANCH a 
RELL Laid 1FL2 2261 oc KLZSL ALO? 107 : 1E79 S00D 1F7i 23268 Oc xL2* 5900 * OD ERROR. HANG 
IF1S 2A10 1FL&@ 2262 Ds ML Z*2ALG® 102 > 1°72 PSEF LF73 2329 De XL2*7S5FF ¢ OE IC. SET HOB 5S = FF 
IFiS LAL0 iFi6 2263 oc MELZOq ALG? 139 LE7S& 2516 1F75 2330 BC XL2* 252 G¢ OF LR, SET HOB 0S = 55 FROM HOE 26 
41F17F 1LA1i0 1F 18 2264 oc ML2° 2aige ida i 1F76 E555 1F77 2331 pc ML 2¢ESSSe 10 Clie CHECK HDB 05 = SS 
1Fi9 LALGS LFIA 2265 oc M221aias ice aa ie¢78 9C1i3 2F 72 2332 cc KL2*9C13° ii B80C.3 MUST BRANCH 
1F16 LALO if ic 2266 oc MLZ? ALO? 10¢ LF7A S012 1F 7B 2335 ace M2° S012¢ 12 ERRORs HANG 
1F1D 1A10 ELIE 2267 DE MLStpaioe 400 € LETC PSEFF 1F 7D 2334 oc wo. 2° 76FFE 13 iC. SET HOS G6 = FF 
JFLF LALO 1F20 2268 oc RLASLAILGE LGE ; LF 7E 2623 LF 7F 2335 pc XL2° 26238 14 Re SET HDS 16 = A FROM HDB O3 
iF2i 1Aio 1°22 2269 oc ALZ*L Ale 10F is 1580 E€6FF iF 8% 2336 aC xi. 2° EGEF 15 Cl, CHECK THAT HOB CS STILL IS FF 
1F23 3607 iF2a@ 2270 oc XL 2° 3607 210 BRe BETURN TO MAEN ROUTINE | € $F B82 SC1iB LF83 2337 oc MiB teczSae 16 BOC.3 HUST BRANCH 
iF 25 5141 1626 22741 RL2HCS DC MLZSESILL? 413 GRRORe NANG 1F84 S017 iF SS 2338 DC xiL2° SOL7? 17 ERROR: HANG 
2272 Mp 1F 86 2616 LFB7 2339 ec XL. 2° 26168 18 tiRe SET HDB 06 = AA FROM HOG 26 
2272 ' €. 1F G6 EGAA 1FE8S 23460 oc XLB° EG AAP 19 CE, CHECK O6 = AA 
2273 RASS ARERR GE HSHECETE HSL IE RETHS AAAS AER SLSR SS SS GHRHRS SELLA BRASS SSS H a LFeA 9CIC 26 8B 2341 pc KML 2* 6CEC* 14 80Ce3 MUST BRANCH 
22746 & ROUTINE 25 - LR MICRG ENSTRUCTION TEST e i78C S018 2F8D 2342 oC 2° 50188 168 ERROR. HANG 
2eTs BS EERE EOS EAHSGSRSRAVS TS FIVHHCRLGSE LS VES AAS GEL ERH REE LEK SEEKS EAS SRR EERRE ES t: LF BE 2430 RF BF 2243 pc XL25 24301 1¢ &iRe SET HDB 14 = 55 FROM HDS $0 
2276 & x, 2€9G 2614 FSR 2344 BC ML Ze 2614° 10 LR, SET HDB 06 = 5S FROM HDB 146 
227T # THIS ROUTINE CHECKS YNE LR MICRO IssTRuCyECh wITHIN THE * . 4F 92 EGSS 3F93 2345 Oc KL2*E6S52 $E Cle CHECK THAT HDB O€ = $5 
2278 *® HOB®S ONLYe THE ABILETY TO L.OaD FROM AND TO EXTERNALS e Gs FSS 9CZi 3F95 2346 oc ML2ee9c21° 1F BOCe3s BUST BRANCH 
2279 & WELL BE CHECKED LATERe 2 1F96 5020 LES? 2347 oc ML 2250208 20 ERRGR» HANG 
2286 ese LR CK OF &ST HOE ANY ; MRS , $F OS 2436 3f°99 2348 Bc XL2*243G6e 21 LR» SET HDB 16 = AA FROM HOB 14 
228i @ «| €- F@A 2616 2F9B 2349 pc XL2°2616° 22 iLRs SET HDB 06 = AA FROM HDG 16 
2262 ASRS KHOR EERG CS LRT LAS GERAERRSS THEE SS SEK SHE HHL AEG ESS GES HSE RRS ASSESSES iF GC EGAA 3€&90 2350 pe XL 2" EGAA® 23 Cle CHECK THaT OB 05 = AA 
2283 eps 1FS9E SC 2E 1F9F 2351 pe XL2Z°OC26e 24 80C.3 MUST BRANCH 
iF 27 iS $F2? 2264 RTS oc MLgeise RGUTINE NUMBER | e. LF ac S625 1FA1 2352 ac KXL2°5025° 25 ERROR: HANG 
sF28 00 1F26 2285 oc XL 1° BOF NO MANUAL ENTERVENT FON iFA2 SO26 LFA3 2353 RLSMcE OC KL2°5026* 26 HANGe TEST COMPLETED 
1F29 IFAs 1F2a 2266 oc Mm ZERTIS) ADORE SS OF AEXT ROUTING \ 2354 
2287 | @ 2354 
IFSC 2268 USING RESKO} oRRE D 35S HRAEL ASHE LASHESAGRESE SHS SEREESS OSE SEESES SSS HRS SEG ES LAE AES SSS BEES S SY 
1F28 Ce O21 1F3C 2289 LA RESKOL,RAL ENITEALZZE AR FOR INDEXING \ 2356 * ROUTINE 16 - TSN MICRG INSTRUCT EGN TEST 
2290 | @ 2357 A DEREAGRHSESSASERALAHOL SEE GLOORS HPARGREHSO* FHT HE FILSASAAELROSIISSVAL HSS 
1F2F 1¢ 0S Sass 19 229% vc M2 COP RT; SOPC HE cXRI? MOVE OP SEING TESTED To \ 2358 * * 
1€©34 CO B87 O24 2292 8 PRINT PRINT ROUTINE HEADING | 2359 x THIS ROUTINE TESTS THE BASEC FSN*S WHICH ARE IN A KROWN * 
iF 38 O01 $€38 2293 oc XL.1 202% & 2360 * QUIESCENT STATE. OTHER TSN*S @xyLt BE CHECKED LATER © * 
1F39 19 3639 2204 pc ILit2se | 2361 * a ~ 
Ce 
DATE OTJUL TS 25 aCT75 IS IANTS PROG ID 0891-2; ~ oATE OTIUL 75 25ccT7$ LSIJANTE PROG 10 0891-2, 
EC NO. 825023 82 £032 825036 PAGE ie | EC NOy 825023 82 £032 825034 PAGE 13° 
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-2BM MAINTENANCE DIAGNCST IC PROGRAM 


6912 


ERR LOC 


LFAa 
LFaSs 
1F a6 


1F as 


aFac 
1F 81 
1F SS 
1F B86 
1F87 


iFfes 
1F 80 


1FBE 
iF co 


iFc2 
1FC6 
1FCc7 


1FCc9 


1FCo 


iFos 
ifos 
1f0O7 
iFo9 
tF9e 
iF00 
1FOF 
t€E2 
IFES 


tFES 
IFES 
iFE? 


iFES 


FED 
FF. 
iFF2 
aFF3 


IFES 
aFF9 


Date 
EC NO. 


OISPLAY ADAPTER TEST 


OBJECT CODE ADOR 
16 LE Aaa 
oo 1FAS 
1FES 1FA7 
1FB9 
c2 01 1FB9 
1¢ 05 SA38 19 
CO B7 021A 
01 1F eS 
19 1FB6 
SAG 1F B88 
co 87 5916 
e7 iFBD 
1FO3 iFBF 
1FES 1€¢1 
co 87 Sere 
s4 1FC6 
$008 1FCc8 
Co 87 0216 
F1F640E3E2DS 1FD2 
1FD3 
40E1 1FD4 
1&2 1FD6 
48E3 1F08 
&8E4 iFDA 
aves 1FOC 
aEES6 2FOE 
4408 1FEO 
$007 1FE2 
5008 1FES 
17 IFES 
00 1FES6 
2042 1€E8 
1FFS 
C2 01 1FFS 
co 87 O21A 
01 1FF 2 
10 1FF2 
2625 IFF a 
co 87 S918 
83 IFES 
OPJUL7TS. = 25 CCT 7S 
825023 82 £032 


PART NOe 4234255 
PAGE 4319s 

7 ~N 
STMT SDURCE STATEMENT 
2362 FERRERS KE OSE EREERE EROCKKHRGS SRK LARK S HOW SERS HEB HREKEKSSESERAAE CREERER 
2363 
2364 RT16 pc m1°268 ROUTINE NUMBER | 
2365 oc XLISO08 NO MANUAL INTERVENTION 
2366 pc AL 2CRT17) ADDRESS OF NEXT ROUTINE 
2367 
2368 USING R14KO2 XR 
2369 LA R14K02.XR1 INETIALIZE XR FOR INDEXING 
2370 
2372 MVC MI COPeRTIA0F 16 oXR1) ROVE OP SEING TESTED To 
2372 8 PRINT PRINT ROUTINE HEADING 
2373 pc XLieoie 
2374 oc Tuiezee 
2375 oc AL 20M ICPRT) 
2376 
2377 R16KO1 B LOADCS «GO LOAD #ICROFROGRAN 
2378 oc xLi*sv? eDISASLE UPON ENTRY< FILE 2ND 
2373 « & 3RO 256 wOS w/B0Se0 TO ADDR. | 
2380 oc AL2CR14MCS) eSTART OF KICRO CODE 
2381 oC AL2CRIGNCE) eEND OF MICROCODE 
2382 
2383 8 COMICR «GG EXECUTE MICROCODE . 
2386 oc XLI*Sa? eERRDR HALT -S4- 
2385 oc xi 2° 5008¢ 2eEXPECTEO DATA 
2386 
2387 8 LINK eGO TO NEXT ROUTINE 
2388 i 
2389 RT140P OC L.6*136 TSNe 
2390 
2391 se wee © or ew ow we er en ee ee ema ww 
2392 * START GF MICROPROGRAM LISTING « 
2393 teee oe eee mete ee esses pewséeecsnd 
239% RIGNCS EOY * 
2395 oc XL2*aC0E1¢ 00 TSNe MUST NOT BRANCH | 
2396 oc XL2*41E2¢ 01 ‘TSN, MUST NOT BRANCH 
2397 oc ML2Z*SSE3* O02 TSNs KUST NOT BRANCH | 
2398 oc XL2*48E4¢ 03 SNe MUST NOT BRANCH | 
2399 oc M2° 4DES* O0@ TSNe UST NOT BRANCH 
2400 oc ML2*4EE6* OS YSNe MUST NOT BRANCH 
2401 oc XL2* 44088 06 TSN» MUST BRANCH | 
2602 oc xL2°S007* O07 ERROR. HANG 
2403 Ri4NCE DC xL2*s500a* O08 HANGe TEST COMPLETE | 
2404 
2404 ; 
2405 Be ree et ene eeeeet etree tree ee et meres tess tetregetes 
2406 * ROUTINE 17 - SSF/SSN MICRO ENSTARUCTION TESTS 
2407 pauawesssks1csasetoseceesessceseci ses tate © ce as snataeenseniacseen 
2408 « *: 
2409 = THIS RCUTINE TESTS THE BASIC SSF AND SSN MECRO INSTRUCT IONS | 
2410 * BY MANIPULATING BITS 2. 3 AND 13 GF THE 2/G REG, OTHER SSF *| 
2411 2 AND SSN ENSTRUCTIONS WILL BE TESTED LATER. «! 
2012 « i 
2413 +Oessenesonceseaeesesne SOG es eeeaeONEA See SIETEE SEER ESSE SES SESS EHS AET ES 
aa 
24615 RT17 = oc MLA Te ROUTINE NUMPER | 
2416 oc xLi*oo* NO MANUAL INTERVENTION | 
2017 pc AL2(RTIB6) ADORESS OF NEXT ROUTINE 
2418 | 
2419 USING ®15K0O1eXR1 | 
2420 uA R1SKOl1 oXAI INITIALIZE XRi FOR INDEXING 
2421 | 
2422 8 PRINT PRINT ROUTINE HEADING 
2423 oc m.3° 018 ; 
2426 pC 1L.1° 20° i 
2425 oc 4.2 (ATI SOP) 
2426 
24627 R1i8KO;3 6B Loancs eGO LOAD mI CROPROGRAM ' 
2428 oc xLI*S3e eOISAGLE UPON ENTRY. FILL 2ND 
ISJANTG PAOG 10 eee 
825034 PAGE 
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IBM MAINTENANCE DIAGN(ST {C PROGRAM 


~ S912 


C 


ERR Loc 


ey 


am PN 
* Se ® : 


f 


Tee Ee Tee eee 


» 


2FFA 
iFFC 


1FFE 
2002 
2003 


2005 


2009 
20231 
2019 
202i 


2026 
2026 
20 2A 
2c¢2c 
202E 
2930 
2032 
2034 
2036 
2038 
203A 
203c 
203E 
2040 


2042 
2083 
2044 


2046 
204A 
2048 
2046C 
204€ 
2052 
2O0SA 
2062 
206A 
2072 
2079 
2079 
207E 
2080 
2082 
2086 
2087 
2089 
2088 
208F 
2090 
2092 
2090 
2098 
2090 
2998 


oate 
EC NOe 


DISPLAY ADAPTER TEST 


OBJECT CODE ADDR 
2026 1FFe 
2041 1FFO 
CO 87 SAFE 
S56 2002 
S000 o. 2604 
cO 87 0216 
DSDGESE340F IF 740 2025 
€2E2C661E2E2D £40 
D4CSC 3D$D640D é07 
40 ESCSE2E3 

2026 
10086 2027 
42€1 2029 
432 20928 
4AE3 2020 
1204 202 
4207 2031 
$006 2033 
1304 2035 
430A 2037 
$009 2039 
1008 20358 
&2E&4 2630 
a3£5 203F 
S000 204! 
18 2042 
60 2043 
2152 2045 
co 87 O21a 
01 ZOLA 
27 2046 
2078 2060 
CO 87 2079 
ODIDG6EQAE340F1F £40 2078 
C2C103400eC9¢ 2D9 
064006076 0E3C £E2 
E35E40F1D240C 1¢4 
C409C SE 2E2C SEZ 
co 87 $918 
91 207D 
20a8 20 TF 
20e5 2081 
co 87 $918 
62 2086 
20&6 2088 
20cr 208A 
Co a7 $918 
Be 208F 
20FO 2091 
2118 2093 
co 87 5918 
as 2098 
231¢ Z09a 
2351 209 
OF MILTS 25¢cT 75 
625023 82503. 


PART NOe 4234255 
PaGEe 198 

STMT SOURCE STATEMENT 

2429 & FSQ WITH BCS*eO0 GN ADORESS 

2430 oc AL 2 CRISMCS) eSTART OF MICRO CODE 

2431 oc AL 2(R1S5MCE) eEND OF MICROCODE 

2432 

2433 8 DOMZCR eGO EXECUTE MICRO PROGRAM 

2434 DC XL1° S6* eERROR HALT -S6= 

2435 oc Mi 2°S00De eE xPECTED DATA 

2436 

2437 B LINK eGO TO NEXT ROUTINE 

2438 

2439 RT1S50P OC CL29¢RGUT 17 SSF/SSN WICRO OP TEstT® 

2439 : 

2439 

2439 

2440 

2441 Been n ewe ee on ee ee we enn tt 

2442 * STARY GF NMICROPROGRAN LISTING * 

2943 Bo nnn eee nn ne en ne oe eee wn 

2444 RIEMCS EQu * 

2445 oc xL2*1008¢ 00 SSFe RESET BITS 2203 AND 13 OF 1/0 REG 

2446 oc XL2°42E1° O01 TSNe MUST NOT SRANCH 

2447 oc XL2*°*43E26 02 YTSNs MUST NOT SRANCH 

2448 pc ML2*4AE3°® O03 TSN» MUST NOT BRANCH 

2449 oc XL2*°4204°8 04 SSNe SEY 8IT 2 OF Ivo REG ON 

2350 oc XL2°42078 CS TSNe UST BRANCH 

2451 oc ML 2*S0068 06 ERRGRe HANG 

2452 oc XLZ*1304¢ O07 SSNs SET BIT 3 OF 3170 REG GN 

2453 Dc XL2t*azoae 0&8 TTSNe MUST BRANCH 

2454 pc XL2*5009° 09 ERROR» HANG 

2455 oc XL2¢100B 5 OA SSFe RESET SITS 2.3 AND 13 OF 170 REG 

2456 pc XL2*42E 48 08 %@TSNs MUST NOT BRANCH 

2457 Bc XL2°43E5°¢ OC TSNe MUST NOT BRANCH 

2458 RiSNCE OC mL2° S000" OD HANGs END OF TEST rr re 

2459 

2459 

2960 SHRHSSTERKSEKSS SE TAKTSES KS SHTKTCAS KEK FELLSE CSKKRCSCCAKAK KS BRAKASRLAKSSE STKE FSVVSSAS KE 

2461 * ROUTINE 1386 BAL oP * 

2QES KHSEASHKISERPFSES SHRKEKSEAKHK OES VSSEKGEHS STAB SSE SLSSRHKY TH ARKKAS KA LSSERARSERRAAKS SS 

2463 atT1a oc M2?1ae ROUTINE NUMBER 

24664 oc xL1¢600°8 NO MANUAL INTERVENTION 

2465 oC AL2 (RT29) ADDRESS OF NEXT ROUTINE 

2466 * 

2467 8 PRINT PRINT ROUTENE HEADING 

2468 oc XL2°O1* 

2469 oc Izeage 

2470 oc &2(R34HOR) 

2471 8 RT3460 

2472 R3AHDR OC CL39*ROUT 128 Ba wICRE GP TEST: 1K ADDRESSES® 

2672 . 

2e72 

2472 

2472 

2473 RT35GO B LOAcCS GO LOAD MICROCODE IN 167 Fs5Q0 

24a7a oc Mitore 

2475 oc AlL2 (RB4MCS) STARTING AOCRESS 

2476 oc AL2(R3I6MCE) ENE ADORESS 

2477 ) uGaocs 6D LOAD MICROCODE IN 2ND FSQ. 

2478 oc xLi*eze 

2479 oc AL 2(R 326401) ADDR OF 1ST WORD 

2480 oc AL 2¢R34NC2) ADDR OF LAST WORD. 

2481 8 LOaocs GO LOAD MICROCODE 

2482 oc w3°Bee ADDRESSES 200.2FF 

2483 oc abla (R34MC3} 

2484 oc AL. 2ER3ONCA) 

2485 6 &Gaccs GO LOAD MICROCODE 

2686 oc xL12* age ACORESSES 300-3FF 

2487 OC aL. 2CR34ANCS) 

2488 oc ALA CR3I4mC6) 

ISJANT6 PROG ID oegvi-2 

625034 PAGE 190° 
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PART NOs 4234255 
PAGE 20 PAGE 20A 
8912 DISPLAY ADAPTER TEST , 8912 DISPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
2090 CO B7 S4FE 2239 8 OaKICR GO 00 MICROCODE c 211C 2557 R34MCS EQU * 
Zoai 34 20a1 2490 oc MLissae ERROR HALT <3é~ 21i1c 5300 2110 2558 Dc xL.2° S300¢ 300 80S¢0 ERROR, HANG 
20A2 S215 2043 2491 oc XL2°5215° EXPECTED RESTS 7 214E 5301 211F 2559 ec xL2°5301° 300 86549 ERROR o HANG 
20oaa CO BF 6216 2492 8 LINK EXIT ROUTINE : 2120 5302 2121 2560 pc XL2°5302* 302 BOSe0 ERROR» HANG 
2493 Home wee m nme me meee mewn ce cwommme cet 2122 $303 2123 2561 pc ML 2°S303* 303 BGSed ERROR» KANG 
2494 * START OF MICROPROGRAM LISTING * 2124 S304 2125 2562 oc XL2°53046 304 805090 ERROR» HANG 
2495 Nene hee ee Se eer 4 2126 $305 2127 2563 DC XL2*°5305* 305 809520 ERROR: HANG 
i 2ZOAB 2496 R3IAMCS Eau % 2128 5306 2129 2564 RC W2tSs06* 36 BoSed ERROR» HANG 
20A8 7103 20A9 2497 oc mE2°7iaie COG FC hex" 02" 242A S307 2125 2565 pc XL2° S307 ° 3G? g0Sc0 ERROR. HANG 
29aa 9003 2048 2498 oc ML 22 D003? QO% BAL FO AQDREss OOS £ eL2c 5308 2120 2566 oc XL ee SBoee 408 BoSet ERROR, HANG 
BRAC $002 Z0AD 2499 oc HL2°S002% Goes BOS 0G ERRGR.» MANG , 2L2SE S308 2LBF 25867 pc XL 2° S309 8 309 BOS60 ERROR:s HANG 
@O8E BiSF 20aF 2550 BC RL 2°B USF s cog CER Gisdr 2139 S3Gk 2i31 2568 Oc ALZ2S3OR" BOR 80586 ERROR, PANG 
2080 9CO6 208i 2503 oC RL 2* SCGE* 634 BCS TQ ADDR O66 é 2132 53GB 2i3s 2569 oC ML 2° S3a% ¢ ACB BOS«o ERROR. HANG 
2052 3005 2083 2592 oc XLe2* 5005? e055 BOS +0 ERROR. KANE : 2234 S350C 2235 2576 oc XLE*BSGC* BOC 805.0 ERRURe HANG 
2ee4 dOOS 2085 2503 oc XL 2°DGCE® 096 BAL TO ADDRESS OCF 2136 S3e0 SiR? 2573 ate xXL2*530p* 30D «89500 ERROR. HANG 
2696 $007 20g7 2506 oc RLZe SGOT e OOF BOSeG ERROR» HANG ‘ 2E38 S30E 2139 2572 DC XL2° S308? BCE 8¢5.9 ERROR: HANG 
Z0E8 7606 2089 2505 BC RL 2° 7608% GOs EX Gok GG8 2138 S30F 2136 2675 pc XL2°S3Ge* 30 BOS 6B ERROR, MANE 
2084 B65F 2688 2596 oc XL 2*BGSF ¢ oases CLR QG0 2i3c S3if PLSD 2576 Oc M_2ESBia? 3246 BOS<a ERROR: RAMG 
2e6c scoc 2080 2507 aC ML 2? 9COCce GOA g0ces FO ASDR GoC £ 222E Foe 2iBE 2575 pc XLB¢POGGE ¢ Bag 1C Gs Keqgee 
2G6BE Soos 20RF £568 ec RXL2* 56082 oon B25 68 ES@ROR., HANG : 2449 BOSE 2L4t BS76 OC KL 29 BG SF? 3n2 CER GO, BF 
20C0 ZEAL ROCL 250¢ oc ML Z*2Eaue coc LR 3E:63 r 2142 OFLS 2423 asTy De MLZ@SFags 233 80023 YO ADDRESS 315 
2OC2 DOOF 26c3 2515 oc XL2@* DCOF s ess Bal TO aboRess ook j Z2L4&e S32 2245 2878 Bo NEG" SS2e% BLS BAS 06 ERxeGR. HANG 
26c4 SG60E 20cs 2811 oc MLZ*SOce * ese BOGS" ERROR. HANG , 2L4G POLS PLS? 2579 ac ML B® FGLSs 325 LC Gext3e? 
20cé Bi SE 20c? 23542 oc RL.2? BISE* GGF tR OQhe SE 21483 90S 2249 25389 ac we. BESOSF® 3G CIR 00.3 
20C8 SO'2 2cce 2513 oC ML2* GORE SiG SGC ot TO ADOR O42 i ZiGa SFIS 2448 2583 ec WLE°9FIDs 317 S0C.3 TO ADDRESS 319 
2uca SOL 208 2514 ac MoZ°SORS Sah BSeG ERROR, NANG 24ac S318 2ial 2682 ac viL2?S318* 316 809.40 ERRGORs HANG 
20cc F000 20C0 2515 oc MB* FOGG G12 s ‘% 2RaE DBL 214" 2583 oc aL Z*DBZiL® 319 BAL TO AGORESS 211 
#9CE SOSe 20CF 2516 Be H. 2° BOSE® G23 . £ 2450 SBiA ZiSi 2564 Ragwce OC XL2°SSiA® Bik BOS.0 ERROR. HANG 
£000 9016 2608 2517 oc WL EPSCES® 8b8 80Cs3 TG ADDR CIS oo 
2ab2 5025 20p2 2518 Dc KLB* SOU5* StS B0S«8 ERROR. HONe 
2606 D190 2005 2519 ne MLZID1LGO® St6 SAL TO aDORESS 100 es 
2006 5017 2007 2520 BC KRLZ*SOL7*, Git BOS29 ERROR. HANG = 
-- 2one 810C 2009 252: Dc HL2*Bioc? GiS CER Gletc oti eh att oo ae Sal It om 
290A SCIB 2008 2522 oc M2ESCiBe 619 8OC<3 TO ADDR 918 €} 
200C So1é Z0DD 2523 oC MLZ°SOLAS OLA BGS+O ERROR: HANG 
200E B05F 20pF 2524 oc Xi. 2° OSF & G38 CER 06+3F : 
2080 9CLE 20EL 2525 oc RL2Z°OCre® Gig foC63 76 ADDR OLE & 
20E2 SO1D 20E€3 2526 oc ML2eSO3De O10 SiS ed ERROR, KANG 
20E4 D20F Z0ES 2527 R34KCE BC XL 2°D 20F & CIE BAL TQ aDDR 220 
206 2528 R3S4NCL EQU % & 
20€6 0102 20E 7 2525 oc 2? 0102! 490 GAL TO SODRESS 102, os 
20ES S105 20€9 2836 oc 2951038 20% 8G5e26 ERROR, HANG i 
R0EA 2CSE 20Ee 2531 pc XL2"2cSEe 202 &R HDB SE TO wpe oc 
2GEC ccrG 26€D 2532 DC XL 2sccr os 403 SBF e Gle xtFot 
29EE 5018 20EF 2533 R34mMC2 OC XL2°50 28° 20% B8OS°8 TO ADDRESS O12 
20FO 2534 R3aMC3 EQU + ig 
20fe@ 8200 20F1 2535 DC XL2°S20G6% 200 B8fS90 ERROR sHANG 
20r 2 S20i 20F3 2536 oc XL2°52616 201 BOSe6 ERROR sHANG | 
RGF & S262 20F5 2537 aC REZ? S202% 292 B05 00 ERROR «HANG | & 
2OFG SZO3 20r7? 2538 oc ML ZtSecse 203 B8OS66 ERROR MANG 
26F 8 Sz04 Zerg 2539 ac KRL2?S204¢ 206 8USe0 ERADE. HANG 
20FR S208 29FB 2546 oc M22 S205" £05 BOSeo ERROR HANG & 
20°F" 5205 20FO 25461 Be KL 2*8206* 206 #95.9 ERROR sHARS 
20F8 S20T 20FF 25%2 be WLBESZO7T 207 BLS60 ERROR. HANG - 
Ztae $208 219 2543 OC m_2°se0e¢ 208 86520 ERROR eHANG & 
Zie02 Szo¢ 2103 2544 oS XLZ&’S ZOO e £09 B0Se0 ERROR HANG 
BLiG& S204 ZiCS 2525 bc XLZe S299 204 80920 ERROR e NANG 
2106 5208 Z2ic? 2546 c M295 Z0B 0 208 86506 ERROR HANG & 
2206 SzZoc 2109 2547 oc KLZ*S20C7 20C S8O5e6 ERROR e HANG 
ZiGa 5200 2808 2546 oc KL 2*S20D¢ 20D §8698GSe9 EMROR eHANG 
2iex S20F 2iod 2546¢ oc RLZ?*S20E2 Z0E 80500 ERROR oHANG & 
BioOE D321 2iOF 2550 oc MB*DSits 20F BAL To ADDRESS 311 
2big S210 2181 2551 oc ML2*S2Z19¢ 230 805-0 ERROR sHANG 
2282 7313 2313 2852 oc xiL2* Paise 2ii tS OS 03=13 @ 
2114 B35E 2231S 2553 Dc MLZ*B3SE° 232 CIR G3. 
2116 9215 2437 258¢ oc XL2°*SE3S® 213 89C.3 To ADDR 225 
2418 S224 2219 2555 oc RLZ*S214¢ 214 BOSe9 ERROR.» HANG i 2) 
2iRa $215 2138 2556 fzanCce OC 3. 2°5225° 218 6805.0 EXPECTEO RESULTS | a 
S&S 
DATE O7 SUL 7S 28icT7S BSIAN IS PROG 10 6391~2. DATE OTSULTS 25ccTt?S iSsanve PROG 10 eagi~gs 
EC MO. 825023 82 £032 a25934 PAGE 20 €c NO. 825023 826032 825034. PAGE 20a! 
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PART NO. 4234255 iBM MAINTENANCE OIAGNCSTIC PROGRAN PART NO. 8234225 
PAGE 21 & PAGE 214A 
8912 DISPLAY ADAPTER TEST . 8912 OI SPLAY ADAPTER TEST 
x, 
ERR LOC OBYVECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT cacE AODOR STMT SOURCE STATEMENT 
2586 FRSERE STEER AA RE RAALSS SERGE REA MSS HHS SKS VSARAE SARE RKHT AER ERE SERRE BER RR  C 210A BSA9 2108 2652 oc xXL2°* BS age 028 CIR 35-09 HDB 3S=S37 
2587 * ROUTINE 19 CHECK FOR INTERFERENCE SETHEEN LE oP AND LR OP. * 210¢ 9029 2100 2653 oc XL2* 90298 02¢ BOC OsSELF ERROR: HANG IF NOT 
2588 FERREKEHHERERARAEA ERA ARS ESR HH AR HHRMA AAK TAKA RAKARR RATA RA EE hE eR 2ipeE SO2A 21D0F 2654 R3AMCE BC mL2*So2a% 02h BGS 0,SELF EXPECTED RESULTS 
21S2 19 2152 2589 rtigo oc xLi*® Lge ROUTINE NUMBER €: 2655 
§= oc XL. 2 ° ‘ NCO MANUAL INTERVENTIGN 2656 * BEGIN PART 2 OF ROUTINE 
ae, Bee aise boa, oc pera rae ADOR OF NEXT ROUTINE 21E0 F3 Sa 89 2657 RT BAAP2 SIG X® 80% «SIG? DISABLE RESET 
2892 f 21E3 31 46 op56 2658 Liza XAASS eHDS8O L19 TO HOB 60701 AND 20/23 
2186 cO 87 O21A 2593 8 PRINT PRINT ROUTINE HEADING 2:E7 F3 $8 co 265¢ sig K*CO&s SIOI ENASLE ATTACHMENT 
215A Ol 215k 2594 pc XL2°0O28 ZIEA 34 48 0059 2660 Lic XFFFF sHDEG L110 16 HOB 10711 AND 36/316 
2158 14 2158 2595 Dc ILi *20° 21EE CO 87 S5¢18 2661 B LOADCcS LOAD MyICROCCBE 
2185C 2175 2150 2596 DC AL. 20 R 3AHDR } 2iF2 83 2lF2 2662 oc *L1*ayze 
2iSe co 87 2176 2597 8 R3 AGG - 2i1F3 2202 2iF4& 2663 oc ALZ CRS AMC 3 
2162 DSDGESES40F IF S48 2175 2598 R3BAHDR OC cCL20°ROUT 19, LE OOPSLA OPs 21FS 2227 21F6 2664 oc AL 2CR3AMNC23 ene 
21IGA 4003C580D6D76 103 25°98 2iF7 CO 87 S4FE 2665 8 Ccomicr GO Do My CROFROGRAM 
2172 09460607 2598 : 2iF8 3c 2iFB 2666 oc xL1i*3c# ERROR HALT 3C 
2175 CO 87 5918 2599 R3AGO 8 LOADC Ss LOAD MICROCODE f 21FC S012 21FS 2667 oc m2°*SO22°* EXPECTED RESULTS 
217a 83 217a 2600 oc XL1*S8s¢ 2iFE CO &7 0216 2668 8 LINK 
2176 218A 2it 260% oc AL2CRZSANCS} START ADOR , 2669 
2170 210F 217E 2602 pc AL 2(R3AMCE) END ADDR & 2670 tenn nnn nnn ny 
2l17F CO 8? S4FE 2603 B OGMICR 0G MICROCODE 2671 * START GF MICROPRGGRAM LISTING * 
2183 3a 2183 2604 oc xML2*BAt ERROR HALT 5 BET 2 Bem em er ewe ee oe ee ee et 
218 SOZA 2r85 2605 oc 4.2°*SO02A* EXPECTED RESULTS € 2202 2673 R34MC1 EGU * 
2186 CO 87 2iES 2606 B RTS APS BR TO PART 2 2262 EGAA 22035 2674 oc XL2°EOAR® 000 ci COcxK* AAT 
2607 he 2204 $COs 2205 27675 DC XL2*9C03% oo1 BOCs2 TO ADR O003e BR TF EQUAL 
2608 Bre 0 er re et ee mee ee ee em wwe K e 2206 5002 2207 2676 oc XL]ot¢*soaq2e G02 80S.60 ERROR NANG 
2609 * START OF MICROPROGR aM LISTING » 2268 €155 2209 2677 oc XAL2*E155* o03 Cr Gi oX*§5t 
SE i ee re ee cee ee ee ae ee ae ee ete eee : 220A 9C06 2208 2678 pc xL2°*9C06 * 004 80C.3 TO ADR 066 BR IF Eauayg 
2184 2613 R2a4mCS EQu 2 a z20c 5005 226GD 2679 oc AL2°S00S5* eos 80S 20 ERRGRe HANG 
2164 7665 2188 2612 oe %Lo%7605* 000 TC G6ex"*GS? 220E 8640 220F 2666 oc XL2°B0aor 006 CIR 06%25 
218C 7715 218D 2613 oc A 2° 7725" oo. Ic O75xe21S¢# 3 22196 9CO9 221i 268i pc XL2*9Ocog¢es OO? BOCe3 TO a~DbR 3095, BR IF EQUAL 
z2l8E 76825 2ise 2614 oc XL 2*7825* 002 IC 08:x*25? €. 2212 5008 22i3 2682 oc xXL2*socge cos 80S 3.0 ERROR. HANG 
€190 7935 21913 2615 dc AL2* 7935 | 0a3 IC O09 eX#35¢ 2214 6141 22i5 2683 pc XL 2°B1818 OOS CIR 03021 
23192 7002 2193 2616 oc M2'*7002* oc4 IC O0exX*O2° MBAR =G2Xx es 2226 9c 0c 2217 2684 Ou AL]2+ococe OOA SOCe+2 TO ADR ooCe BR IF EGUAL seca eae SN er et Sills 
2194 7100 2195 2617 oc KXL2*7 1008 005 It OLex*gQge MBAR =0236 a 2218 5008 2219 2885 Dc M4 2°5c 888 GOS §805+0 ERROR. HANG 
2296 7Cc22 2197 26:8 oc xL2*7C 22° 008 IC OC .Xt*2Za HDG OC SET TO 22 221a Bore 22ig 2686 oc NR2'Bor7o0« OOC CIR 10e30 
2198 2506 2199 2639 bc XLE* 2506" 907 LR 095.06 HOS OS SET FS os . Z2iC SOF 2210 2687 oC XLZ*®*Ocore 00D S0C+e3 TO aDR OOF. BR re EQUAL. 
E194 2527 2198 2620 oC xL2o"*2es27* e08 £R 15,07 ROB 15 SET TO 15 € 221€ SOOE 22l\F 2686 DC RL. 2* SOGE ¢ GOE 8OS.0 ERROR. HANG 
219C 2888 21i9D 2621 ec a2 52588 * ooo tR 28208 HDS 25 SET TO @5 2220 8173 2221 2689 oc AL2*Bi7is SOF CIR iie31 
E1i9E 2549 219F 2622 oc XL2°25A9° COA uR 35,09 HOB 35 SET Ta 35 we 2222 9Ci2 2223 2690 oc AL2*93Ci as aig B8OC.3 TC ADK olSZ. BR IF EQUAL. 
2iao0 ob58c 2iAl 2623 oc Me*osac? e908 LE 25:30C WRITE MSG BFR FROM OC ‘ 2224 S0iz1 2225 269: o¢ ALZ°*SOLie O11 BOSeO ERROR: HANG 
21A2 85 06 2Z2iAZB 26284 bc XL 2°BS062 coc cre 0&,06 HOB OS STI£t=05 2226 50i2 2227 2692 REAMCe DC XL2¢SGize G12 B80SeC ExPECTED REsSu TS 
21a% g6O00 21a8 2625 pc XL2*9000t ooD BOC 0+SELE ERRORs HANG IF NOT 7 2693 CERES EERNRE EM HERES SARA RAGE EE RARE BARE OEMS OHREL ESE SRARRAS HHH SERRE EA 
21A6 8527 2iAT 2626 oc xt2°8527¢ GOE CIR 15,07 HOSE i8 STILL=153 © 2594 * ROUTINE 1A. ADDRESSING aBOVE YK + 
Z1A8 SOGF 2LA9 2627 oc XL2°SO0F € Ooce BOc 0eS&.% ERRGRs HANG IF NOT 2695 ¥ % 
Z1lAA 8588 2%AB 2628 bc xL2*885e8@3° 010 CIR 26.02 HOB 25 STIitL=257 2696 % PART ie JF YHE 2ND 2K FET STORAGE CARO igs PRESEAT, * 
21aC 9011 21aD 2629 oc MW2°9012« 013 BOC 0:SELF ERRORs HANG IF NCT : :¢ 2697 % MICROCODE IS LOADED INTO IT. ADDRESS 000 & 
21AE BSAS 214F 2630 oc xLe* 8S age 0142 CIR 35209 Hoe 35 STyii=35? 2698 x BALS TO IT. % 
2180 9013 2181 2631 oc ML2° 9013" 3 BOC 0 »SELF ERRTRs HANG EF WOT PE99 * 
2182 oDes 2183 2632 oc W2°0D45* O14 LE 025 READ MSG BFR TG OD @ 2700 * PART Ze %F THE 3RD 2K FET STORAGE CARD 1S PRESENT: = 
2184 sD0c 2185 2633 Bbc ML2°¢ BDOC® 015 CIR COe0C MB CACOR 0200} 227 2701 * MICROCODE IS LOADED INTC IT AND ADPRESS 000 * 
2186 90:6 2187 26348 Oc m2°9016% 016 Boc 0; SELF ERROR: HANG IF NGT @ 2702 * BAL *S TO IT. % 
2188 7659 2169 2635 BC XL2*76S0° O17 IC) OSe Ke Sot HOB O06 SET TO 50 2e7as & 
218A T7Si 2188 2636 oc xL2°*7751°¢ o18 IC OF exX*51¢ os OO? SET TO $1 2704 HR RE EMRE A A RR Oh AO TEE Ee SARK ELH SHES A SES SEROOT ETERS OU ERERR ER 
21ac 78es2 218D 2637 oc *L2'*7e52" 019 ic O8e xe Soe HOB cB SET TO 52 . 2226 1A 2228 2705 RIA oc ML eras ROUTINE NUMBER 
2iBE 79583 218F 2638 oc xL2*7953° OLA 1c) 609,X753* HDB OS GET TG 53 € 2229 00 2229 2706 OC XL2 “OOF 
21Co 25a9 21C1 2639 oc XL2*2S5A9° a8 LR 35209 HOB 35 SEY TO 53 222A 22F1 2228 2707 oc AL ZERTI BD ADOR OF NEXT ROUTINE 
2lc2 2588 21C3 2640 oc xL2°2588! 01d LR 25,08 4056 28 SET TO 52 a 222C CO 8F 021A 2708 8 PRINT PRINT ROUTINE HEADER 
2iC4& 2527 21¢S 2641 oc XL2725278 015 &R 35207 HOB 1s SET TO 53 ‘3 2230 01 2230 270¢ dC XL28OR8 
21c6 2506 21CF 2642 oc xXL2°2506* OIE LR 05,06 HDpea OS SET Ta 50 2231 18 223i 2710 oc rWitaze 
2i1Cea o&45 21¢9 2643 oc XL2*0EaS? O1F LE v€s25 RD MSG BFR TO HDB oF ye 2232 2262 2233 27114 oc ALZ2(RSO0HOR) 
21CA BEOC 21C8 2644 oc xL2"*BEOC* 020 CIR GE.OC MSG BFR STILL 227 &. @234 CO 8% 22853 27i2 8 R&0Go 
2i\cc 9021 21CD 26465 oc XL2°9021¢ 021 BOC 0. SELF ERROR» HANG IF NOT - 2238 DODGESE3R40F1C 120 2252 2713 R&CHDR DC QL27*RGUT 1A ADDRESSING ABOVE ine 
21CE 8506 2iCF 2646 oc xL2 ° BS06 & 022 CIR 05.06 Hpa 05=507 a 2240 CiC4C4D0SCSEZE ocg 2713 
2100 S023 2163 2647 oc W2°*9023¢ 023 BOC 0O»sSELF ERRORe HANG IF NOT ee 2248 OSC7S40CiC2DSE C5 2713 
2302 8527 2103 2648 oc 2° 8S27° 028 CrR 15,07 HOB 248817 2250 &0F102 27iz 
2104 9025 2toS 26469 oc aL2°9025° 025 SOC 0+eSELF ERROR. HANG IF NOT 2253 co 87 $918 273% R40G0 65 LOABCS 
2106 68588 2107 2680 oc xL2°*8588° 026 CIR 25-08 HOS 25=527 & 2257 OF 2257 2715 oc ML1I*oF® IN 1ST FET STORAGE & FILL wiITH 
2108 9027 2109 2651 oc XL2*9027°¢ 027 SOC 0.SELF ERROR.» HANG IF NOT 2258 2270 2269 2716 OC AL2(R40NCS ) 60 S-TO-ADORESS ~- 
DATE O7SUL 75 2SCCT7s ISJIANTS PROG 10 oa9gi-2 DATE O7IUL75 28cct7s ISJAN 76 PROG 16 0891-2 
: EC NOe 825023 82 t032 825038 RAGE 21 e- NOe 625023 62 £032 825034 PAGE 2a? 
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8912 
ERR Lac 
225A 


225¢ 
2260 
2261 
2263 
\ 2265 
2266 
226A 
226E 
226F 
2273 
#2275 
2279 


2276 
22 TF 
2281 
2283 
2285 
2287 
€2a9 


2288 
ee 
g226F 
2291 
2293 
_ 2298 
2297 
22 98 
2z29c 
2a9E 


22a0 
Z22Aa4 
22a5 
22a? 
22489 
22RK 
228E 
@ 2aF 
226% 
£283 
2204 
2268 
228C 
228D 
226F 


#203 
2205 
a22cr 
2208 
22CB8 
22eo 
22CF 
2203 


% _, DATE 
“Ee NOs 


OISPLAY ADAPTER TEST 


OBJECT CODE 


22 GA 


co 87 
EF 
2288 
22 96 
26 

3c FF 
co 87 
60 
$005 
38 62 
co 90 
co 87 


0460 
n002 
6o0ce 
0003 
0064 
woos 
0006 


TIES 
TRE 
S004 
50903 
TIED 
5005 


CO a7 
SF 

a2c3 
2202 


co 8? 
FF 
2203 
22&2 
20 

co 87 
FE 
22€3 
22F0 
40 

3c FF 
co 8? 
61 
5006 
co 8? 


o80o 
D0 6! 
0062 
DOaS 
boos 
0005 
p0G6 
POOF 


$918 


5564 
S4FE 


Sacc 
0216 
2257 


5918 


Seis 


5018 


S566 
SQFE 


OT SULTS 


825023 


ADDR 


2258 


2260 
2262 
2264 
2265 


226€ 
2270 


2270 
227E& 
2280 
2282 
2284 
2286 
2288 
223A 
2288 
228C 
228€ 
2290 
2292 
2294 
2296 


2298 
229d 
229F 


2244 
22a6 
2248 
2249 


22AhE 
2 2B0 
2282 
2283 


228C 
22B6E 


22c3 
2204 
22c6 
22c8 
22aca 
22cc 
22ce 
2209 
2262 


2203 


25 (cr?s 
82 £632 


Soo 
O03 
662 
G03 
68s 
aos 
296 


£29 
40% 
402 
403 
aO& 





BAL 
BAL 
Bau 
BAL 
BAL 
Bay. 
BAL 


EC 9 PPE 
{C6 Fake 
52S «9 
80S ,0 
GOs FSFO 


STMT SOURCE STATEMENT 

2717 oc AL2 (ROOMCE) 
2718 

2719 8 Loaocs 

2720 oc XLi * €F* 
2721 oc AL2(RGEONCI) 
2722 oc A 26R40NC2) 
2723 oc XLi* Zor 
2726 MVE LPCNT XSFE *? 
2725 8 ooM;CcR 
2726 oc XL1*608 
2727 oc MLZ2*S0058 
2728 TBN UDT2sX°o2* 
2729 BF LINK 

2730 6 RA0PT2 

2731 Bowne men me men men erm wea ae aK 
2732 * START GF MICROPROGRAM LISTING & 
2733 Forme n meen ee me mee wee ww ee own wan 
2734 RaOMTS EQU * 

2735 oc XL2*D400° 
2736 oC XL2°D001 8 
2737 OC XL2°poa2¢ 
27368 oc M2°D90R¢ 
2739 oc XL2* 90048 
2740 Dc MLZeDOOS! 
S741 RGGMCE oC RL2toooG + 
2742 RAOMCL EQU = & 

2743 OC ML2°7 7p Fs 
2744 pe KLO°PTFES 
2745 pe XL.2° 5008s 
2746 pe ML2°S0038 
2P4aT pC XL2* TIED? 
2768 R&OMCZ OC ML 2*SGGsa.- 


2749 4 SEGIN PART 


#2750 R4AOPT2 8 


Twa 

LOADCS 
Ki. | 9GF c 
ALZERGOMTS } 
AL ZERRONTS) 


LOADCS 

XLLO FES 

AL. 2CR&OMCS 3 
A 2(R8ONCS I 
XL °20° 
LOADCS 
XLS F Eo 

AL > CRGOMCTD 
Al, 2(R8 O04 CB} 
KLE "GOS 
LPCNT oX* FF e 
CONGR 
RLAPG3e 

ML 2*5096° 
LINK 


&OS 


BOS eG 


QPP YL here ecm ww manen wie en mime meen kao an We ea ae Em ey He Ee Gan OPS es EE 


& STARY GF HICROPROGRAM LISTING a 


2773 JE am Dae op ae a Ue LO Mn MOND EOD AAD TNA? sb RAN wo MDG ae seo eRe OD oo 


275i oc 
2782 bc 
2753 oc 
2a7sa 

2785 8 
2736 oc 
27S? be 
2758 dC 
2759 oc 
2760 8 
2761 oc 
2762 oc 
2763 oc 
2764 oc 
2?76S ME 
2766 8 
2767 oc 
2768 oc 
2769 8 
2770 

2fr2 

277% R4&GMCS EQu 
277s be 
2776 oc 
277 be 
2778 o¢ 
2?79 oc 
2780 oc 
2761 O¢ 
27982 RéGmMCe OC 


2783 
2784 RaINcs Eau 


LS IANTS 
625034 


* . 
Si. 2* Dae ® 
ML2*poeLr: 
XL 2° Boga? 
ML2? DOOR? 
ML 2° OGGe & 
RiLZ* pd0S6 
xL2*Doae* 
M. 2° DOO? 
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Sau. 
BAL, 
BAL 
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FART NOs 


PAGE 


GO LOAD MICROCODE IN 2nND FET 


STORAGE AND FILL wi TH 


BOS-T G~ADDRESS 


EXTEND LOOP COUNT 
BR TO 00 MICROCODE 


ERROR HALT 60 


EXPECTED REsutits 
TEst FOR SRO FEY InSTacLeEp 


EXIT FF NOT 


TG ADGRESS O469¢ 


ERROR» HANG 
ERROAs HANG 
ERROR. HANG 
ERROR, HANG 
ERROR: HANG 
ERROR » HANG 


gC HOB PRP e 
iC HOS 7sFE 
TO ADOR aCe 
ERRORs HANG 
IC HOS 7eFo 


ERAPECTED RESULTS 


609 LOA KICRRC ODE 
FEY STORAGE And Fics 


BOS <7 O-AaDORESS 


GO LOAD MICROCABE IR 
FEY STGRAGE AND FILL 


5Os YG ADDREss 


GO LOAD MICROCODE IN 
FET STORAGE AND FILL 


BOS TS angrRess 


EXTEND LOCr COUNT 
BR To 00 NickocopE 


ERROR HAL~ gi 


EXPECTED RESULTS 


FO ADDR B50 
ERROR: HANG 
ERROR, HANG 
ERROR, HANG 
ERROR. HANG 
ERROR» HANG 
ERROR, HANG 
ERROR: HANG 
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IGM MAINTENANCE DIAGNCSTIC PROGRAM 


22€3 
22E5 
22E7 
22E9 
22E8 
22E0 
22EF 


2aFy 
22F2 
£2°3 


22FS 
22F9 
2 2FA 
22FB 
22F0 
2301 
23693 
£242 
2319 
2223 
2326 
232c 
232F 
2332 
2336 
233c 
2342 
2346 
2344 
2345 
2340 
2346F 
2352 
2356 
235C 
2360 
2SS4 


DATE 
EC NOs 


DISPLAY ADAPTER TEST 


OBJECT CGDE 


4260 
40901 
4c02 
4C 63 
4004 
acos 
4c 06 
SCOT 


F660 
$003 
5082 
16190 
9806 
soos 
Soce 


igs 
6O 
2486 


co 8&7 
of 

26 
2325 
co &? 


21a 


2326 


ADDR 


2204 
2206 
2208 
22BA 
220E 
220E 
22E0 
22E2 


2263 
2264 
22E8 
22E8 
225A 
22EC 
22EE 
22F9 


22F1 
22r2 
224 


22Fs 
22Fa 
22FC 


O9DSESES4OF IC 280 2325 
C20960C108C44 (C2 
CADS4S4OD6D7E25 £40 
CIGHIOB“*HC IC 4€ aHQ 
C€SE2E2CSE2 


Gc O28 
F3 Sa 
F3 58 
31 58 
Of O1 
gO 93 
cO OL 
co eF 
80 
236 
2423 
F3 $8 
31 48 
OC O41 
3A OL 
38 62 
co 90 


2&BAR 
8o 

cs 

26 8C 
B4Ba 
2484 
2332 
S9is 


coe 

2825 
2427 
2427 
oace 
236¢ 


O7SUL 75 
825023 


00 €2 
Sa Ce 
20¢6 
2368 
234€ 
234E 
QD €2 
25ccTt7s 
62232 


STMT SO 


2785 
2786 
2787" 
2788 
2789 
2780 
2791 
2792 R& 
2793 
Z7S& RA 
2795 
2796 
2797 
2798 
279g. 
2866 
2801 RG 
2802 


URCE STATEMENT 
oc %2°*4TOO? 400 
oc XL2°4C02 * 403% 
oc M22acd2s 402 
oc XL2°4co3* 403 
oC XL2°4Co0aer 404 
oC XL 2*4CO5* 405 
bc XL2°4C06 406 
OMCE OC AL2°4C0F? 407 
ONC? EQu = 
oc ML 2° 76QG8 800 
oc XL 2°Soos? 862 
oc XL2*°*S002° ac2 
oC RL 281610" 803 
oc XL2¢O8o06e 804 
oc XL 2° Soos* 80S 
ONCSs DC %. 2*590G6e 806 


TSN eC 
TSN eC 
TSN ec 
TSNeC 
SNoet 
TSN eG 
TSN2C 
Bosc 


tc 6700 
Bcs.G 
80S 2G 
INC sé 
BAL 

80S «8 
BOS. 


PART NOo 
PAGE 


4234255 
22A 


ERROR: HANG 
ERROR» HANG 
ERROR. HANG 
ERROR: HANG 
ERROR. HANG 
ERROR: HARG 
ERRGR,. HANG 
ERROR» HARG 


iC HDS 6=O06 

TO aDGR 803 
ERRGR. HANG 
ENCREMENT HDS G 
TO ADDR B66 
ERRORe MANMG 
EXPECTED RESULTS 


2803 FHSHSLSESCESSTAC ESS RHE ER SSSR OSS EWS MACS ERS AHH ERS SSSS HR ECHLEHHATG LSS SREB 


2606 * THIS ROUTINE LGaDS alt. Of CONTROL STORAGE WETH MICRO-GP * Dogg? 


THE FIRST 26 WORDS ARE THEN OVERLAYED with A MICROPROGRAM: 
THIS MICRO-FPROGRAM OGES A BRANCH REGISTER TG EACH ADDRESS It 
AFTER THE BAL RETURN. 


A FLAG AYTE MUST BE PROVIDED Sy Lig 72 WOR 49. 
fF THIRD FET ENSTALLEDs. 
SF SECOND FET INS TALLEDe 


#wOROD 


BRANCH REGISTER To ALL ADDRESSES WITH BAL BACK-TO 000 


TS SE GRANCMEGS 7O 13 SROQVEDEO 


THE CORK INF ORAATI ON 


SBepheen Fae teeu th Ba @ 


282) SSHRRRE SH RRAA LH AMS Hy SERBS PHDCKS SEALS VSEGSR SKK KGS ERC RRL HERS BRB eat eH my 


CL3T® ROUT 1B BSR AND Bak Sess 


2808 * ROUTINE 2B. 

2805 * 

2607 * BHECH IS A BAL TO ADDRESs 000. 
2808 x 

2009 & 

2810 * 

2842 = CONTROL STORE. 

28i2 * IN HOSB*S BE AND BF §£S CHECKED. 
2613 % 

2634 # THE ADDRESS GF THE FIASY 
2635 * BY L120 TO HOB S 4651? 
2816 x 

2817 » 

261% & Bij = 2 

2819 & Bit v= 3 

2820 # 

2822 aris BC eb eR Be 

2623 | oc ¥LES OO? 

2824 oc AL ZIRT? 

2825 

2826 8 BRENT 

2827 oc mM. 29917 

2828 oc KL.2eRPe 

2829 OC AL 2€ ROE GOR} 
2630 8 RF416G0 

283i R&1HDR oc 

2831 

28314 

2834 

2831 

2832 RT41G60 MYC R&i CTRES be ZERG 
2833 Sia M8 GG" o SLO 
2834 Sia R°Cote SIOE 
2835 PS&iLcs Lia XD060 «CTSTOR 
2836 ALC R&ICTAC 23 2WUN 
2837 cc RALCTRL 23s KOCOG 
2638 BNE RAULCS 

2839 & LCADT S 

2340 He RLL¢ Ge 

2e41 oc ALZEIRGi MCS} 
2842 oc &. 2(2S3NCE} 
28463 SiG X*€o% -S¥Cs 
2844 Lia RSIFRS6HOBS 
2848 ay C R61F, 6423, ZERQ 
2846 SBN R@ELFLGeXtO3 8 
2647 R&IF ET cAN UT2.K2g28 
28468 ae RE7L OF 

2S5AN 76 

625634 


ROUTENE NUMBER 


PRENT ROUTINE MEADER 


ait. ADSRESSES = 


ZERO OUT CGUNTER 
BESABLE RESET 
ENABLE ATTACH NE RT 
a30 TO CTE STOR 
ERC COUNTER 
COUNTER TO END OF CT. ST? 
&O0P Gach IF NOT. 
GO LDAD MECREC IDS 
GOT Fi_a wei Tr 
BOS-TG- ANE 


EMABLE ATTACHMENT 
FERSYT ADDR TG HEBE*S £6e17 
ZERO GUT FLAGS 

SEY 2ND FET FLAG. 

ES 32D FET INSTALLED? 

BR IF NOT. 


PROG ID 
PAGE 


oBegi-2 
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IBM MAINTENANCE DIAGNCSTIC PROGRAM PART NO. 4274255 TBM MAINTENANCE DIAGNCST IC PROGRAM PART NOs &234255 
PAGE > PAGE 23a 
8912 DISPLAY ADAPTER TEST -- 5982 DISPLAY ADAPT TEST 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC GBJECT CODE ADDR STMT SGQURCE STATEMENT 
2368 3A 02 2427 2849 SBN ALIFLG.X*O2° SET 3RD FET FLAG. c 2412 9018 2413 2917 Dc xL2*90la" 016 BOC,0 BR TO ADDR 018 IF NOT 
236C 31 ac 2427 2850 R41LDF LIO R4&1FLG»HDBS LI0 FLAGS TC HOB*s 18,19 2414 SOi7 2415 2618 oc xL2°5017 3 Ci? B0S.56 HANG. EXPECTED RESULTS 
2370 3A 01 5540 285i SBN EHBP,xX*O21°% SET FERROR-HALT—-BYPASS SN 2416 6880 2417? 2919 DC XL2*° 6886" 018 SEN 8,X*80 SET FIRST-CoMP FLAG 
2374 3 FF 5568 2882 Mv 7 LPCNT oX* FF INCREASE MICRO DELAY i: 2418 2926 2419 2920 OC Xi.2* 29288 019 LR 19208 MOVE CORRECTED FLG TS 19 
237% CS BT S4FE 29853 8 pomMica GO EXECUTE MICROPRAGRAH Baye mane Sie oes ng tree ae eo aa ee aoe HDB 16617 
237¢ 5c 237c 2854 pc KXLi°sSce ERROR HALT SO . 4 s ® 
2370 $017 ae 2855 R&iEK1 oC XL 2° 50178 EXPECTED RESULTS f 241eE 2916 2414F 2923 DC xL2'2916° 0iC LR 06,16 WOVE ADCR-HE To HOB 9 
7 237F 0D 01 SFEG 23 7€ 2856 CLC STATACC2PcR4E3EX1 TEst FOR ERRGR 2420 1730 242i 2924 aoc XL2°27308 O10 ENC L?7 INC BRANCH ADDR-LO 
2385 CO 81 02:6 2857 6E LENK EXIT ROUTINE If EQUAL Ss 24622 $008 2423 2925 R4iMCE DC xL2*°5006" GIE 805-406 To abde 00s 
2858 * PREPARATION OF ERROR PRINTOUT €> 2926 
2389 30 48 2486 2859 SNS R41 EXL. HOB83 FEATCH EXPECTED LINK INFO 2927 
2380 F3 S& 80 2860 s1o X*80* ,SIOI OISABSLE ATTACHMENT sh 24924 oo ance ae. tie = Cae coe ADDRESS 
239C 30 48 24668 2861 SNS R41ACL »HDSS FETCH ACTUAL LINK INFO : 2426 0600 L G 
2394 CO 8&7 G21€ 2862 8 UNP ACK UNPACK 2428 C2D9C105C3C84 MF 2423 2930 R&43EM1 OC CL28¢ BRANCH REGISTER TG ADDR KXxxx* 
2398 02 2398 2863 oc XLI¢O2¢ EXPECTED 2430 CSC7TCSEZE3CSD 449 2930 
2399 2486 239A 2866 oc AL 2(R4ELEXL) LINK INFO AND : 2438 poe cease? 29306 
2398 2443 23°C 2865 oc ALZ (R41 Em} } MOVE INTO GUTPUT 2460 EVETETE7 2930 
2390 OC 03 24846 2443 2866 MVC R41EMS(4) eRALEM1 MESS AGEs USED THICE. ; 2446 40C1 D5 C440C2¢€ Ips 2460 2931 RALEM2 OC O.297 aNO BAL BACK TO ADDRESS 00008 
23a3 CO B87 OZI1E 2867 8 UNP ACK UNPACK 4 244C 460C2C1C3D240F DE 2931 
23a7 02 23a7 2868 oc XL1*O22 ACTUAL 2454 40C1C4C409C5E ZE2 2$31 
2308 2488 23AS 2869 oc AL Z2ER41ACL} LINK INFO INTO 7 24S5SC 40FOFOFOFG : 2931 
22an 2472 23a8 2870 oc AL2CR4G1EM3) ERROR MESSAGE. i 2461 O03C9D050240C90 {6 2472 2932 R&iEM3 DC CLIS* LINK INFO WAS XXXX* 
23aC CO B7 O2iA 2a71 B PRINT BR TO PRINT EM1 AND EM2 2469 06460 £6C1E2460E 7E7 2932 
2380 62 2380 2672 oc mitaze i 2471 EVE7 2932 
2381 39 2383 2873 oc TLi°s7e : 2473 D3C9DSD240C90 6 2484 2933 RayEMA OC CLIB*LINK INFO S/B XXXXx* 
2382 24606 2383 2876 oc AL 2(R41ER2) 2478 0640E261C240E 17 2933 
2389 co B7 O2Z1A 2875 B PRINT BR To PRINT 2 2483 EVE? 2933 
2388 a2 2388 2876 bc xLi*s2e SLINK INFO WAS Xxxx° t 2485 0000 2486 2934 R4ALEXL DC XL 2900002 EXPECTED LIAK INFO 
2389 12 2389 2877 DC ILitzar 7 2487 0000 2488 2935 R&41ACL OC XL 2*9000? ACTUAL LINK INFO 
238A 2472 2388 28678 oc AL2(RS1 ENS) = 2489 0000 248A 2936 R4&1CTR DC xL2*0000* ROUTINE 41 COUNTER 
238C €O 87 O2IA 2879 8 PRINT BR TO PRINT C. 2488 0000 248C 2937 xpeco) oc XL2*°D0008 CONSTANT 
23CO B82 23¢0 2880 oc xMLatsz* : CLEINK ENFO S7B xxxx® 2938 
oe 23¢1 12 23C1 28681 oc TLitig* 2933 SER ERREIREneeenee 
23C2 2486 23¢3 2882 oc ALZCRSIL EMG) 2950 £8 SH kRS ER EREL RH REETS HORSES ERAE EK SE EKG KS SERSHEA TAKAABKSE SAH RKAREKRSELAAaRES 
23cC% OC 03 5601 2472 2883 MYC. ERALO GL GD eRSITEMS 2941 * ROUTINE 1C EXPANDED HOB ADDRESSING (10 TO SF) USING CIR OP. * 
23CK OC 03 65FD 24 & 2884 uvC ERRLOG=4 (4) oR41 EME : e 2942 Bee EC re en nr a naan ASO ONS ES 
2360 3¢ Sc 65F2 2885 MMVI ERRHL Te k*SC ee 24e0 ic 2480 2943 aRTic ic XLitict ROUT NO, 
2304 3C 16 65Fi 2886 MV i ERRRTNeXERBHe 248E 360 248E 2944 DC XL2°00* NO MANUAL INTERVENT Ion 
2308 CO 87 63FE 2887 6 ELPG é: 248F 24FF 2490 2945 Dc AL2ZCRTID) ADDR OF NEXT ROUT. 
230C CO B87 0222 2868 8 HALT 8a TO HALT A 2946 « 
23E0 145¢ 23E2 2889 oc XL2¢148C0 2a9g1 Co BF O21A 2947 B PRINT PRINT ROUT. HEADING 
23€2 CO B87 0216 2a90 8 LINK EXIT ROUTINE. ra 2495 01 2495 2946 p¢ MUR os? 
2891 , Bo te we ew ewe et wom enn ee meee me . 3 2496 we 2496 2949 oC IL3 eage 
2892 * START OF MICROPROGRAN LISTING * a 2497 24Ba 2498 2950 oc AL 20R 30HDR} 
2BQE be we ee me em men ee ee mt 2499 CO 87 2488 295: B RT 3060 
23E6 28694 ROINCS EQU & e. 249D OSD6ESE34OF1C 240 2484 2952 RZOHOR OC CL30*ROUT 1C HOB 3y0-3F ADDR: CIR GPP 
2366 2819 23€7 2895 oc XL2*28196 000 LR OBeiGg MOVE FLAG TO HES 908 24AaS C8C4C240F1F06 3 2952 
23€8 265E 23E9 2696 oc XL 2* 265€ * 002 LR 0603& MOVE LINK HA TO HOG 06 Z 24AD €640C1C4C4DS5 £40 2952 
23EA 275F 23€8 2897 oc XL2°27SF* 002 LR O7esF MOVE LINK LO TO HDG 07 a 2485S €3C90948006D7 2982 
23EC CaFo 23ED 2e98a oc XL 2° C6F Of GOS SBF 6eX*FO® CLEAN UP HIGH LINK 248B ¢O 87 5918 2983 af 32060 8 &KOADCS GO LOAD MICROPROGRAM 
Z3€E FE80 23EF 2699 pc ML2°FBBO8 00% TAN EeX? 80% FIRST$COMP. FLAG GN? 248F a3 24BF 2954 pc XLI"aze DISABLE UPON ENTRYe FILL 2NO FSQ 
23F0 $018 23F2 2900 DC KL2°902S* 005 e@gcea TO ADOR O18 EF NOT €> 2955 * WITH BOS*s 0 GN ADDRESS 
23F2 8616 23F3 2901 pc XL 2*86168 006 CIR 06016 HIGH LINK DATA EQuAt EXP .? 24C0 24cF 24Ci 2956 dC AL 2(R 30MCS) SYART OF wICROCODE 
23Fr4 9007 23FS 2902 oc xL2°90075 cory eBoc.o To adoR 007 IF NOT 24C2 26FE 24€C3 2957 pc AL2 (RBONCE? END OF MYCROCODE 
23F6 6717 23° 7 2903 oc XL 2° B717¢0 008 CIR 074617 LOw LINK BATA EQUAL ExP .? Cc: 24c4 CO 87 B4FE 2958 re) DOMICR GO EXECUTE wicROCcOCE 
23F8 9009 23F9 2906 oc wm 2*90098 009 «got .a To ADoR 909 Ie wor 24C8 30 24C8 2989 oc RL 3° 3G* ERROR HALT -~30—- 
23F a 501C 23Fa 2905 oc XL2°5013C8 COA 80Se6 TO ADOR gic 2acs $015 24CA4 29606 OC XL.275015* EXPECTED RESULTS 
23ec 9018 23FD 2906 oc xL2° 90189 008 8ac.0 BR OVER HI INC IF NON-ZERO & 24CB CO 87 0216 2961 2 LINK GG TQ NEXT ROUTINE 
23FE 1630 23FF 2907 oc x. 2°16308 COC «UENC 636 INC BR-ADDRESS HIGH ; 2962 «* 
2400 €993 2401 2968 oc XL2*° E903" GOD CI 09,xX*03* FIRST ADDR GF 2@ND FET? Pt 2962 $a mtn ne we eee ewe ence nh 
2¢02 9011 2203 2969 ac XL2°90218 Q0CE B80Ce40 BR TO ADDR O22 IF NOT @ 2964 * START OF NICROPROGRAM LISTING * 
2404 £801 2405 2910 oc ML2*FBQ1e OOF TEN &.X*O1* IS 2nND FET INSTALLED? 29G8 Fors ce ewe ew Cem wen we ew meme wee 
2406 9017 2407 2911 oc xL2*9o178 010 80C.0 BR TG EXPe RES» IF NOT. 2aCF 2966 R3OMCS EQu a 
2498 E907 2409 2912 oc ML2*ESOTS O11 CI OG,xX*°O7* FERST ACOR OCF 3RD FET? €3 24CF 7385 2400 2987 oc XL 2°73550 000 IC HDB ysess 
240A 9015 2408 2913 oc XL2°*9015¢ O12 80C.0 BR TO ADDR 015 IF NUT 2401 2323 24D2 2968 pc XL2*2323° 001 LR +08 03 TS HOB 13 
240¢ F802 2400 2936 oc xL2*F ao2e O13) TEN 8,X*°02* IS 3RO FET INSTALLED? 2403 2383 2404 2969 oc ML29 23838 202 LR HOB O03 TO HDS 23 
a m, 
24Q£ 9017 240F 2915 oc mL 2°*9017¢ OLe BOC. BR TO ExPe RESe IF NOT. & 2405 2343 2406 2970 DC XL2*°23a3¢ 003 LR HDB C3 TO HDB 223 
2410 £908 2413 2936° oc XL2* E908 ¢ O15 Ci 09.X*06* FIRST AODR BEYOND 3RD FET? 2407 T3ARA 2408 2971 pe ML2°73AA® 004 IC PDB O3=AA * 
au aes ; 
DaTE O7 JUL 7S 25QT7S 15540N76 PROG ID 0891-2 DATE O75UL7S 25 (CTTS AISJANTS PROG ID 0891 ~2 
’ | 
2 EC NO. 825023. 826032 825034 PAGE 23 G NO. 825023 82 £032 825034 PAGE 23a) 
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IBS MAINTENARCE OLAGH EST FC PROGRAM PART SG. 4234255 40% MAINYENANCE DIAGNESTIC PROGRAM PART NOe 4234288 





PAGE ae C. PAGE 20a 
8912 OLSPLAY ADAPT & TEST , C S912 OLSPLAY ADAPTER TEST 
ERR LOC GBSECT CODE SODR STMT SOURCE STATEMENT ERR LOC OBJECT CADE ADOR STMT SOURCE STATEMENT 
2409 FASS 2404 2972 oC RLZ* 7455° 00S iC RDB 04285 & 2992 SHES SHHET ESTAS SLELE SORLS SE COSIE SHEESH SERE SESH ETE HT FRAWBREAELS IEE KG HRSSE SHE 
2408 6413 240C 2973 ec M_2°8413° 606 CIR 04:23 2993 * ROUTINE 10 EXPANDED MDB AQDRESSENG (10-To-3F) USING SHIFT OP. % 
24RD 909 24DE 2074 oc xL2*° eceg? cov B0ce2 TO aDDR SOG | ZIG HEREKSSSLSHL SKS SLE SLAF EORERARSHOG SHEA EKSSALS EAR PO SHHRO SS SSA KKKS HHS SAH HRSS 
2eo0F soos 240 2075 oc m2¢5008" 008 ERRKRe HANG &  BeFF 1p 24FF 2995 RTIOD oC M2 25% ROUTINE NUNEER 
2aEi 2323 26E2 2976 oC XL2°2323" CO9 LR HOB 03 TO mDB 13 2880 06 2608 2996 oC MiL.i*oo* HO WANUAL INTERVENTION 
R4E3 8433 24E4 2977 pC XL2°BS13* O0OA CIR 04.13 a 280; 2583 2502 2097 oc M.2¢RTEH9 DOR OF NEXT ROUTE NE 
L 26ES 9C16 246 2978 oc RL2°*9C16" 0B GOCe3 SHip NOT BR TO ADDR 916 nie 2998 & 
2487 Ga43 24E8 2979 pc XL2¢84e3* G69C CIR 94.23 2683 €0 BF 214 2999 8 PRINT PRENT ROUTINE HEADING 
2ek9 oter 2460 2660 BC M2°SCOF? Gon BOce3 TO ADDR oor BBO? 04 2807 3000 ac XL2°O3 ® 
2486 SOOE 2eEC 2982 BC = A ZISCOE® «60E «= ERROR, MANG —€> ages 20 2508 3001 Dt rLie ae 
26D 2385 2ak€ 2ea2 ac HL2*2583* GOOF tR O3 TO 23 2500 2828 250A 3602 oc AL ZCRBLNOR YG 
22€F 5203 24Fr0 2883 pe ML2*B463¢ 6109 CIR 04523 ee 2508 Co 8? e5aF 3003 8 RT3i6G 
24F2 GET 2aF2 2984 pc MLZ°9C37* O11 BoGCe3 SHLD NOT BR TO ADDR 017 €  —- 88OF DGOSRES ERG GFI C480 252E 3006 R31HDR DC CL32*ROUT 1p MOB 10-3F 2DoR; SHIFT GPs 
2eF3 B3ae are 2985 oc RL2Q'*BZARe OF2 CIR 33206 2517 CececZ2acr iF o6 F3 3004 
2aFS 915 2eFe 2086 oc KL2Z2°OC1S* O13 BoCe«3S TO anor 015 i ed SEF £64061 c4C40595 240 3004 
2eF7 S614 24F8 2987 oc ML2°SO016* 634 ERROR, HANG _{ 882F €atecscseseeDpen7 3006 
26F9 $015 2eFa 2988 pe ML2°SO15* 015 EXPECTED RESULTS 252F ce SF 5915 3008 RT3Zi60 8 L.GABS S GO LOAC MICROPRO GRAM 
24F8 S016 24FC 2989 oc ML2°SO16* 016 ERROR, HANG 2553 83 2533 3006 ot AL 4? SE OI SaBLe UPON ENTRY, FIL& SECOND 
24FD 5017 26FE 2090 R3ONCE OC ML2°SO17* O17 ERROR. HANG &? 3007 * FSQ WITH 805.0 ON ADDRESS. 
2524 2543 2835 3008 oC ML2(R31 4CS) STaRT OF MTITROCODE 
i. 2536 2682 2837 3009 oc #. 2ER3ZIMCE? ENO OF MICROCODE 
| €: 2636 Co e7 sere 3010 8 CONICR GO 90 MICROCODE 
: 2S3c 33 2653c 3013 pc KLieB2° ERROR MALT <31- 
— 2830 $936 283E 3012 oc XL2*S018° EXPECTED RESULTS 
| L: @53F CO BP o216 3013 8 LI eK GO TD NEXT ROUTINE 
: 3914 % 
| SOLS Bere e « ces eae we aw wees wea anes ewes aman 
| & 3016 * START OF NICROPROGRAM LISTING © 
: ; SOL? Brew ec $cc ew cee we wn min en coe omen ewan BS 
2543 3018 RBiKCS EQU * 
| fo 2583 7SAaa 2544 3919 oc AL2*° TSAAS ooo HDS oszaA 
: 2885 2525 2546 3020 oc RL2°2525* 002 LR HDB OS TO 15 
Do 2507 2585 2546 3021 oc ML2°2585? 002 LR HDB OS TO 25 
/£ 2509 2548 254A 3022 oc XL2*2SA5* 002 LR NDE 08 TO 3S 
2648 7591 256c 3023 oc XL2°7S503% G06 IC HOS oseoi 
Lee in 254D 76aa 254E 3024. pc XL. 2° 76AA* 605 §€ #DB o6tAaA 
| &. 25eF 7755 2550 3025 DC 8CKL2S7755* 006 IC #OS o7=E5 
2551 8615 2552 3026 oC KL2'*B61S* 007 CIR 06015 
2553 9006 2554 3027 oc ML2°9008" 608  B80Cc¢d ERROR. HANG 
| €> 2858 1560 2556 3028 BC ML251560% GO9 SL 25 SHEFT HDB 15. NOw=SS 
2557 e715 2558 3029 DC XL 2°68725¢ 0A 8 =6CIR OF 615 
a ed, 2559 9008 255A 3030 BC XL2°9008° 008 s89C¢0 ERROR» HANG 
| €: 2588 seis 255 363i oc XL2'G615* C90C CIROGs1S 
255D 9Co0D 255E€ 3032 ot XL2*9COD* 0D 80Ce3 ERRGR. HANG 
|. 2@88F 18c0 2560 3033 BC XL2¢35CO* OOF SB 25 SHFT MDB 25. NowW=55 
i & 5 (2561 8745 2562 3034 aC XL2*87465* OOF CIR 07 e25 
| 2563 9610 2564 3035 Bc ML2°9010% 010 BOCed ERRGR, “ANG 
: 2565 8586 2566 3036 oc XL2*8S66* O11 CER 25006 
| C3 2567 ociz 2568 3037 oC M2*oC1Z* O12 B0C03 ERROR, HANG 
2569 15€0 256 3038 DC ML2*EsSEO* O13 SL 3S SHIFT NOE 35 NOENSS 
. 2568 8745 256C 3039 BC ML2°B7GS* O16 CIR OF o2S 
i €2 286D 9015 2S6E 3040 oc ML2°9035° O15 S0C20 ERROR. HANG 
; 256F 655 2570 3041 oc XL2°B6SS* 016 CIR O6035 
2572 9C17 2572 3082 BC ML2°OC17*® O17 B6Ce3 SHLD NOT BR TE SELF 
| €> 2873 soa 2574 3043 DE xXL2*S5618° 018 805.20 EXPECTED RESULTS 
275 S019 2576 30446 pe XL2°SO1S* 019 80500 ERRORe HANG 
2577 501A 2578 3946 DC ML2*SOiA* O14 B805s0 ERROR, HANG 
€&> 2879 soi 257A 3066 BC XL2°S01iB* O18  8NScO ERRGRe HANG 
2678 S0ic 257C 3087 DC XLZ2°SOIC* GiC 805.0 ERROR, HANS 
257D 5010 257E 3008 pc M2°S5015* O10 B0Ss0 ERROR. HANG 
' €% 2S SO1E 2580 3089 ac XL2° SO1E* ole 80500 ERROR. HANG 
2€61 soif 2582 3050 R31IMCE OC ML2°SOIF® OC1F 80500 ERROR: WANG 
3051 + 
(& 
: S 
! = 
' DATE O? SUL7S 25 CT 7S ISLANTS PROS 4D G891-2 © ove OTSELTS 25 ccT7S 1SIANTE PROG ID 0891-2 , 
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6912 


ERR LOC 


2583 
2584 
2588 


ase? 
23558 
258c 
2589 
258F 
2593 
2598 
2543 
2Sa8 
25383 
2$5868 
2Sac 
25Co 


25c1 
2S¢3 
2scs 
25c9 
2SCa 
2scc 


2506 
2802 
2s0e 
2506 
2506 
250a 
25vC 
250E 
2s€o 
25&2 
25648 
2S5E6 
2&6 
2S5EA 
2S5&c 
2S€e 
25F 0 
25F2 
25F4 
25F6 
2S5F8 
2S5FA 
2sFrc 
25FE 
2600 
2602 
2604 
2606 
2606 
260A 
260C 
260E 
2610 
2612 
2614 
. 2616 
2618 


Date 


EC NOe . 


DISPLAY ADAPTER TEST 
OBJECT CODE ADOR 
1E 2583 
Go 25e6 
2634 2586 
CO 8? G2ia 
01 2565 
29 256¢c 
2588 258E 
Co 87 258C 
CIODSESES40F1C £40 2588 
C8C4C 240F 1F 06 & 3 
C6401 C4C4D95 £40 
€7D96840E 3C2C 609 
6840C9DSC 3400 07 
&2 
co 87 S918 
83 25c0 
2500 2s5c2 
2633 25C4 
CO 87 S4FE 
32 25c9 
$031 25c6 
CO 87 0216 

2800 
74.04 2501 
7105 2803 

7206 2505 
2321 2507 
2422 2809 
2681 2808 
2762 2500 
2aal 2s0F 
28a2 2561 
8324 25€3 
9COA 25E5 
A334 25€7 
8324 2559 
9000 25e8 
1330 25€0 
8324 25eF 
9c10 25F2 
8684 2sF3 
9ci2 25F5 
AGC? 25F7 
8684 28F9 
9015 2sFB8 
1690 25F0 
8664" 2srr 
gt18 2601 
BAAS 2603 
OCIA 2605 
ARFB 2607 
Baaa 2609 
9010 2608 
1as6 2600 
BAAS SOF 
9c 20 613 
701 2613 
E14 2615 
9023 2617 
1430 2619. 
OVJUL7S 28 CCT75 
825023 82 1032 


| 


PART NO 4234255 

PAGE 250 ¢ 

f 8912 
STMT SOURCE STATEMENT ERR LOC 
30S3 SHARE SEE RS HEHE GER ES AESHSESERAE SEAS TRS HEEB ARS OBARAD ee SHEARER AELEATR 7 261A 
3054 # RGUTINE 1E EXPANDED HDB ADOR. €:0-TO-3F} USING xReTBFA, IkC GPS. - 26ic 
3085 REE ERCE ERS HHH TS BASE ASSANEA TASS EHH REND BE SOE ADD DSE TEER ED Reka RARER 26:e& 
3056 RT1E oC MLIC1ES ROUT Ne 2620 
2057 pc XL1°O05 NO MANUAL INTERVENTION 2622 
3058 pc AL2 CRTIED ADOR OF NEXT ROUTINE 2624 
3059 * 2626 
3060 e PRINT PRINT ROUTINE HEADING 2628 
3061 pc xXL2° O28 262A 
3662 pc Wii*eie 262¢ 
3063 oc AL2(R32HOR) 262E 
3064 8 RT3260 ie act 2630 
3065 R3B2HDR DC G&ali*ROuT 1E HDG i0-3F ADDR: XR» TGFRe INC OPS* t : 2632 
3065 ! 
3065 
secs id 
3065 | 
3066 RT3260 6B LGADCS GSO LOAD MICROPROGRAM | ; 
3067 oc xL2* A3e DISABLE UPON ENTRY. FILL 2nc Fsq! 
3068 * WITH BOS¢O GN aDDRESS | 
3069 oc alL2(R32MCS ) START OF MICROPROGRAM ' 
3070 oc AL 2CR32NCE) END OF MICROPROGRAM 1 
3071 8 OOMyCR GO EXECUTE MICROPROGRAM | 
3072 oc xLi*329 ERROR HALT ~32- | @ : 
3073 pc ML 2°5034° EXPECTED RESULTS 
30746 8 LINK Go To NEXT ROUTINE 
3075 R3mcS EQU x 
3076 Se om re ae 0m Cm cme ed A ape ee A cen tn ee a coe a na te en se wn BE 
3077 * START OF MECROPROGRAM LISTING * | 
3079 pc ML2°7408" 9000 1 HDB O4n04 
3080 pc ML2"°7105* ool IC HOB 01205 | 
3081 oc ML2*7206* 002 IC HOB 02206 | e 
3082 oc xL2*2321¢ 003. LR HOB O1 To 13 
3683 oc ML 2* 2a22¢ 004 LR HDB O2 To 14 | 
3084 oc ™%2°2681* 065 LR HDB O1 To 26 | @ 
3065 oc XL2°2782* 006 LR HOB G2 TO 27 
3086 oc XL2*2AA1® 907 LR HDB 03 To 3A | 
30387 DC = ML2"2Ba2" 006 LR HOB 02 To 38 | @ 
3088 oc xL2*g 320? 009 8 TBFR 13,04 
3089 pc ML2°9COA® COA BOCe3 SHLD NOT BR TO SELF, | 
3090 oc XiE2*AZ34* COB XR 13014 13 NOW=03 | @ 
3091 pc XL. 2° 8324¢ 00C IBFR 13004 
3092 oc M™2°900D" COD 80C,.0 SHLD NOT BR TO SELF, | 
3093 pc XL2°4330% OOF ENC 23 TO=04 | & 
3094 oc ML2°Q324* OCOF TEFR 13,04 i 
3095 pc XL2*9C10* 010 80Ce3 SHLD NOT BR TO SELF. | 
3096 oc XL2*°8684* 011 TEFR 26204 | @ 
3097 pc XL2*°9C1Z® 012 8BOC+3 SHLD NOT BR TO SELF. 
3098 pc XL2*A6C7* 013 R 26,27 26 nowea3 
3099 DC 8 ML2°6684* 014 TEFR 26004 | @ 
3100 pc M™2°901S*" 015 BOC.O SHLD NOT BR TO SELF. | 
3101 oc XL2*2690¢ 016 INC 26 TOro04 K 
3102 be ML2°6684% 017 TRFR 26.04 | @ 
3103 oc XLZ*9CISB* O18 BOCe3 SHLO NOT BR TO SELF. 
3104 oc XL2* Saanes 019° «=TBER 3A.04 
3108 oc AL2°9CiA* OC1A BOCs3 SHLO NOT BR TO SELF. | © 
3106 oc XL2°AAFB* 028 XR 3A,3B 3A NOWEO3 | 
3197 pc ML2*BAAG*® 01C TAFR 3A008 
3108 oc M.2°SO10" 01D BOC.0 SHLD NOT BR YO SELF. | & 
3109 oc XL2*1 aB08 OLE INC 3a TOrO4 | 
3110 oc ML2*°BAA4* O1F TBFR 30,06 
3341 oc XL2°9CZ20* 020 B80C.3 SHLO NOT BR TO SELF. | & 
3312 oc XL2* 7EOL® 021 Ic &DA O&=03 | 
3223 oc M.2°BEL4* O22 TRFR GE 018 
3124 oc XL2°9023" O23 80C.0 SHLD NOT GR TO SELF} | e 
$115 oc mas1aso" 026 INC 14 : | 
| 

iS SANTE PROG ID 0ac1- ~2| © onc 
625034 Pace 28 | eo NO. 


a 


DISPLAY ADAPTER TEST 


QSJECT caoe 


SE14 
8026 
BES? 
9028 
1790 
SES7 
St 28 
8ESB 
e02p 
1880 
8ES8 
SC30 
5032 


OFIML 75 
825023 


ADDR 


2618 
2610 
261F 
2621 
2623 
2625 
2627 
2629 
2628 
2620 
262F 
263% 
2633 


2ascct7s 
62 £032 
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STMT 


3116 
3117 
3215 
3119 
4126 
3i2i 
Si22 
3123 
3124 
3125 
3126 
3127 


oc 
oc 
oc 
oc 
Dc 
oc 
bec 
Dc 
oc 
oc 
oc 
oc 


3128 R32MCE oC 


3129 & 


iS3an76 


8250346 


SOURCE STATEMENT 


M2*BErae 
xL2*9C268 
XL2e¢6E47e 
ML 2°9028 
xXL2*t 7908 
xL2°SBE ATE 
XL2°9C26¢ 
xL2* sesee 
aw. 2990208 
Xi2*1] B80" 
xX. 2° BE SB* 
ML. 2°9C30* 
xL2°5031 4 


025 
926 
027 
628 
029 
Oca 
028 
sec 
620 
O2E 
02F 
Q30 
031 


TBFR CE 0146 

BOC,3 SHLD NOT 
TBFR OE s27 
Boc.c SHLD 
INC 27 

TBFR OF .27 
BOC.+3 SHLD NOT 
TBFR GCE.38 
BOC .0 SRLD 
INC 38 

T6FR OF e038 
8O6C.3 SHLD NOT 
80S 00 EXPECTED 


not 


NOT 


PARTY NO. 
PAGE 


BR TO SELFa 


Ba TO SELF 


SR 70 SELF 


BR TO SELF 


8R TO SELF 
RESULTS 


PROG 10 
PaGe 


423425 
aSa 


Lceneemebiameneeidebnasemenemeeretenmne tena hereneeae rere 


0891«2 
28a' 


‘ . 
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PART NG. 42346255 IBM MAINTENANCE DIAGNCSTIC PROGRAM PART NO. 4234255 
PAGE 26 4. PAGE 26A 
8912 DISPLAY ADAPTER TEST 8912 DISPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
SLSL SEHOSEKERKASSE SSH SSLASKRHSACERKSTKSESSE MOSCA KHKKRY CHEK LEK ESSRAERKKHRKSHEKKER Cc ZIG] SSSA HSHE EES SSATABKLAFRAHSERS CHAKA FRATARSKSKEC SRK KKECKRESKKERKE KK WKEKKLEKR BSR 
3132 * ROUTINE 1F EXPANDED HCE ADDR.(10-TO-3F} USING BR OF. & 3193 * ROUTINE 20 ~ MEAR/SCURAR HARDWARE TESTS * 
BASD FHASSKRAKSAAKKEK CES KCEH AS GRECKASEKAK EGALKESS KHSCKEK ESSLKS RAG AKBRRALCBREKR SE HH ZSLVR RKEHTKHPIRHSSSSHK SH SL LH VHS RKRSCAKLSRLSEE KCKCHKAKKCR FRE CCK EK ZVISCKCCHSLR LHS SKS H HESS 
2634 1F 2634 3134 ARTIF DC) OxLaSRF® ROUT NBe > 3195 * 
2635 00 2625 3135 oc XLitoae NO MANUAL INTESYENT RON 2196 + THIS ROUTINE TESTS THE #BAR AND CURAR HAROWARE ANO THE SSN * 
2636 2688 2637 3136 DC AL AIRVT203 ADDR GF NENT ROUTINE 3197 wHICH MOVES THE VALUE OF MBAR TO CURAR. THE VALUES USED ARE % 
‘ 3137 « fy 3498 * T7EFe CO0s S55 ANC @4Ae THE MICROPROGRAM Is ENTERED 4 TIMES. * 
2638 CO B7 O2iA 3138 8 PRINT PRINT ROYUTINE KEADING 3199 * B8O0Sei WHICH TESTS FoR MBAR = CURAR 15 ALSO TESTED. * 
263C 01 263C 3139 DC mL2eo2? 3200 # we 
2630 1D 2630 3340 bc ILge2goe € SZOL SHCSSSARARASRS STAG ARTRE SERASPRSSRKK SHS SHRP SAH RE SHS HEAR SS SHH H VSP SE GE age he GwS 
263E 2660 263" 3141 oC AL 2(R2 33H 5} 3202 
2640 CO 87 2661 BieeZ 8 RT33GO m 2688 20 2688 4203 RT20 BG wLptZ207 ROUTINE NUMBER 
2644 DODGESES40F1C 640 2660 53143 RESHOR OC Cu29* ROUT 2° HOB 10-3F aDDRS SR OF: ae 2689 oO 26BG 2204 oc RL2° OG6 NO MANUAL INTERVENT [OR 
264C CBCACZ40F 1 F065 FS 3143 26BA 2772 2655 3265 pc AL 2¢R 722) ADDRESS OF KEXT ROUTINE 
2686 C640C1 Cale 095 E46 3143 3206 
265C C2094006D7 3143 €. 26C8 3207 USING RISKOL XR 
2661 CO 8? $918 3144 RY¥3360 8 LOASC Ss SO LOAD MNICRGPROGRAM - 268C C2 92 2668 3208 LA RLGKGAI,RRL ENSTEALEZE K@i FOR INDEXING 
2665 91 2665 3145 oc MLiegae 3205 
2666 267€ 2667 3146 DC AL 2CR33MCS} START OF MicROCOpE . 26C0 CO BY B2la 3220 3 PRINT PRixt ROUTINE FEAD ING 
2666 2699 2669 3147 DC AL 2(R 33NCE) END OF MICROCODE " 26C4% G1 26C4 3211 BC MLE PGES 
2664 CO BF S918 3148 8 LOADCS Gq LOAD MICROCGDE :, 26cs 18 26c5 3212 DC Wbeaae 
266E A2 266E 3149 pc MitAze IN 23ND FS@ t. 26C6 2749 26C7 3213 oc ALS ERTIGOPS 
256F 269A 2670 3150 oc #1. 2¢R 3S3SMC1Y START OF MICROCODE 32i4 
267% 2687 2672 3351 oc AL 2ERS3MC2 ? END OF MICROCODE a 2ecu CO a7 SGi8B 3235 Ri6K8i 8 LOADS 6GO LOAD MICROPROGRAM 
2673 CO 87 S4FE 3152 8 DOMICR So Oe MICRECOLE ae 26cc 83 2ecc 3216 oc MLE ° BS" sDISABLE UPON ENTRY. FILL @ND 
2677 33 2677 3253 oC XU2° 33¢ ERROR FIALT <-33- 32i7 # FSQ with BCS,0 ON ADDRESS 
2678 5107 2679 3154 oC RL2°5107¢ EXPECTED RESULTS 26CD ZP4E 2,CE 3218 ac OL2 (RAGHCS? eSTART OF MECRG CODE 
267A CO BY O216 3155 B LINK EXIT ROUTINE a 26CF BTTE 2600 3219 oC AL 2€R 16MCE} aEND Of MICRCCHDE 
BISG Fe wwe eee coe ean ee wom ar wes rotenone 3229 
31S7 * START OF MICRGPROGRAM LESTING « 2601 OC 01 26F8 SGER 3223 BC RLGEXZ( 2) sXOTEF «Puy FERSY CONSTANT IN PROGRAM 
BSE Ba mwa mee ms ee coaw an me me mesan eect mech no ine wine o 2607 74 45 39 3222 RLGRPT LIS RIGEX2(, XR1? HOES eL Gap CONSTANT 78 HOB 10~21 
267E S159 RBBMCS Agu & . 26DA SC OC 5564 3223 ev yx LPCNT ¢%eoce sIHCREASE DELAY 
“= 267E Tid 267F 3160 DS MLZ°7202% G80 ITC HOB FisOL . 260E CO SF S4FE 3224 8 DOMITR eGG EXECUTE MICROPROGRAN sence ae 
2680 7202 2661 3161 oC XL2* 7 202% Ooi Ic HOB Ofe¢2 & 26E2 58 2382 3225 oc MLB SBe eERROK HALT -Se~ | 
2682 7303 2683 3162 oc NL 20 F3aog? coe io HDB g3x03 2663 5019 Z26E4 3226 DS XLB?S020% sEXPECTED DATA | 
2684 7aoD 2685 3163 DC 42? 7aope 603 ié HOG o4=200 = 3227 
2686 2521 2687 3158 oC RL2° 252) % 604 LR £O8 OL TG 1S_ HOE 1S Now=68 E 26ES 30 80 SFES 3228 SNS STAT ACs HORS e SENSE CURAR CONTENTS | 
2688 2622 2689 3165 DC 4.2% 2622" 608 LF HOB O2 TG iGe HSB 16 NOws0Og , 26ES 1D Gi SFES 36 3229 Cue STATAC, RIGEXZ C2oKRI} sCOMPARS FOR EXPECTED VALUE 
2684 2723 2688 3166 oC XL 2° 2723° Go6 LR FOB O63 To if. HOB 17 HOWw=O8 1s 26EE F2 81 G8 3236 JE Ri6BO2 sCONTINgE 1° OKAY 
268C B2B24 268D 3167 oc ML 2° 2e2ge OOT LR RDB 66 TO 18< HOE 18 NOw=eD a 26F1 CO BF S0a5 B231 RLSRTN B STATUS eERRGR 
268E 2982 268F 3168 oc ML. 2* 2gait 608 LR HOB OL TO 29. HDB 29 Now=Roa 7 26F5 29 26f5 3232 oc MELE Be sPRINT ExPs & ACTs DATA : 
2690 2462 2691 3159 Dc ML2°2 282° 909 LA KDE O2 TO 2A. HOE SA NOY=Ge 3 26F6 5° 26F6 3233 oc ML ae see eERROR HALT -SB~ 
2692 2843 2693 3170 BC ML 2° 2BAZe COA LR HDB O3 To 38. HDE 3g NOK=03 t; 26F? 9060 26F8 3234 R1IGEX2 BE RLZeos eEXPECTED DATA FILLED IN 
2694 2CAi 2695 317} OC XLZ"*2Cars OOB LR FOG Of FO 3Go HDB 3C NOW=g2 3235 
2696 3538 2697 3172 DC xL2* 3538e aoc BR 15,38 To ADDRESS i600 ‘ 26F9 0D O01 26F8 56 ES 3236 RI6802 CLE RAIGEX2€ 290 XO7FF sCHECK FOR LSING DATA = YFF 
2698 Sood 2699 3173 R33SMCE OC K.2* 8600p © OCD 805-0 ERROR, HANG <; 26FF F2 81 16 3237 JE RAG SOS aif SO {NSERT NEXT DATA 
B17 « 2702 0 G1 30 OnS2 3238 rol RY GE X26 2s kRU Pe ERC o CHECK FOR USING DATA = O06 
269A 3175 AgSHCi Eau a eQvo7 F2 61 16 3a3¢ JE RISBOS eff SO INSERT NEXT DATA 
2694 S100 2698 3176 ac MLZ*5iGG ® ioe @O$.0 ERROR. HANG > 270A SD Gi 35 a5 3240 CLE RiGENZ(2 eKRPPoMOZAAC oNREY cOHECK FOR YSEING BAYA = ZARA 
269¢ 35768 2699 3177 pc x. 2°35 7B ° 3o2 BR 15,38 TQ ADDRESS 10% 270& Fe Bi 6 3241 JE RL6B05 wif SO INSERT NEXT BATA 
269E Side 269F 3178 oc ML2°S202° 402 BOS.0 ERROR, HANG 2712 Sp 6% 30 43 32462 Cuc RL GEX2Z (2 eKAL }oKOSSSC,IGLF oCHECK FOR USING DATA = 86% 
2640 THEO? 26AL 3179 oc MLQO PSO? 103 iC HDB O5=0F7 ae 2715 £2 61 16 S243 JE R2L6B06 e8F SG EXIT ROVTINE 
26A2 2pA5 26423 3180 oc mM. 2*20a56 204 “R HOB OS To 306 NDE 3p, NOw=67 Fi S224 
2844 3CFE 26AS Biss oc XLZ°SCFD? 1a5 BX 30.30 TO AGORESS Oy ere : 2718 4¢ O1 30 GDS2 3248 RI6803 we RESERZS 12 eo eRE FP, ZERO oSET EXPECTED GCATA @ $00 
26A6 S106 26a? 3182 pC MLZ*S106% 206 805,06 ERRORe HANG €> 27ip 00 e7 oF 3226 8 RALSRE TE « MRI} oGJj REPEAT ROUTINE 
2608 SLO? 2689 3283 Oc * 2° SLOP e 167 BOS.,0 EXPECTED RESULTS. " 2726 SC o1 36 8S S2%7 RISBOS MVC RIGEXZL2cKRADO KOZAK MRL) SET EXPECTED BATA = BAA 
PGAA BLOB 26AB 3284 BC BLE" Stoae 206 805,60 ERR@ORe Mans 2726 DO BF OF 3286 & RASRPTEsxRDI 3G REPEAT ROUTINE 
26aC 5102 2680 3185 pc MEY SLOBe 103 80Se0 ERRGR. MANS € 2727 SC gi 36 as 4259 RISBOS MYC RIGEM2(Z0XR1}.XOSSSl oKGb » SET EXPECTED O4TR BSS 
2bhe Si Os 2GaF 3796 oC MLZ *SIGAS 308 805,09 ERROR: HANG 2728 00 87 OF 32508 B RiGRPT( oXRI } «GO REPEAT ROUTINE 
2680 Sio8 2681 3157 oC ML2* S2088 108 G60SeG ERROR: HANG B2S2 
2682 SLo¢ 26B3 3168 DC KES s2aC# Aot BGs.5 ERROR, HANG S 272 CO SB? 0216 S252 Risk06G E LINK eG TO NEXT AGUTINE 
2006 3995 2685 3189 BC XHL2° 3995? 70D BSR 29015 TE ABORESS i634 =“ 3233 
26g6 $1 OF 2687 3290 RABMEe DC W.2" SR GEP {SE 805,90 ERROR, HANG BP32 OCDSELESCOF2F COO 2789 3256 RTIOP OC CLZ@°RQUT 20 NBARVCURSR TESTS* 
273A DAC2T1ID961 CIE 409 3254 
2742 CLIOS40E SC SE2E H2 32546 
3255 
278A OS55 2748 3256 X0SSS DBC ML.2° 9SS5° a@GRK CONST AX? 
740 OZAA 2740 3257 XOZRA BC HLZ2 G2AAS eGRK CONSTANT ie 
; DATE OF SULTS 29 KCTS ISJANTS PROG ID O89i-2: O?7 JUL?7E 25 iCT 7S ISS ANTS PROG 10 6891-2, 
EC NO. 9825023 82038 225634 PAGE 26 EC was 825023 82 £032 825034 PAGE 26a 
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PART NOo 4234255 IBM MAINTENANCE DIAGN(STIC PROGRAM PART NO. 4234285 
PAGE et se, PaGE 27a 
aoi2 DISPLAY ADAP TIR TEST , 8912 DISPLAY ADAPTER TEST 
ERR LOC OBJECT CaCE ADOR STMT SOURCE STATEMENT ERR LOC QBYVECT CODE AGOR STMT SOURCE STATENENT 
4258 . 2786 CoO Si 0216 3325 BE LINK EXIT ROUTINE 
3299 Hemme mn rn me en wee ow enn nnnt 27BA 30 20 SFEG6 3326 R17PO CLI SVATAC ox * 208 *STATAC = €2 IF DATA ERROR 
3260 * START OF MICROPROGRAH LISTING * . 276E Fe C1 6S 3327 NE Ri 7TRLT elF NOT. TAKE THE HALT 
BPEL tame a on ee ee ee ee ene & i 27c1 F3 58 86 3328 SIQ  x*go*ssicr eOISABLE ATTACHMENT 
274E 3262 R1I6MCS EQu * 27c& 30 848 2845 3329 SNS R1L7L1 eHOBC sFETCH MBAR (HDB 60°02) 
274E 2E10 274F 3263 OC ML2*2E10* 26 LR.» MOVE EXPECTED DATA TG HDB oF : 27c& 30 69 2842 3330 SNS R1I7L2sHOBI eFETCH FLAGS (HOB 52-03) 
. 2750 2F11 2751 3266 oc XL2°ZFIR& OL LR, MOVE EXPECTED DATA TO HDB OF i 27CC 30 4A 2844 3331 SNS RIL7L3sHOEZ eF ETCH EXP esACTe DATA 
. 2752 200€ 2753 3265 oc xL2°* 2008 ¢ 92 ERs CCAD MSAR HE FROM HDB OF 2700 SC 04 65F8 3332 MVE ERRLOG-9,C*M® e INSERT CHAR FOR LOG OUT * 
2754 210F 2755 3266 oc KL2*210F* 03 LR»e LOAD MBAR LO FROM HDE OF 2704 79 FF SA 3333 TeF RI7L 2-1 £oXRi OXPFES eTEST FOR FAILURE OURING WRITE 
2756 1704 2757? 3267 DC xXL2*1704? 04 SSN» LGAD CURAR FROM MBAR 2?07 F2 10 OD 3334 JT R1 76802 esUmP IF SO 
2788 7000 2759 3268 pc ML2°7000¢ 05 Ce RESET MBAR 270A OC 04 2868 28C7 3335 MVC = R17M105) oR 17ME eI NSERT *READ* IN MESSAGE 
275A 7100 2758 3269 oc XL2"*7100% 06 ICe RESET MBAR 27E0 3C D9 6SFS 3336 MVE ERRLOG-8 .C*RE eMOVE CHAR FOR LOG GUT * 
275C S40E z7Sp 3270 oc XL 2°540E* 07 BOSe2 SRANCH IF MBAR = CURAR 27E4 F2 87 OA 3337 J R17803 eGO UNPACK REST OF DATA 
2?sE 1120 275F 3272 oc XL2°<1108 0&8 INC. INCRe MBAR LO 3338 
2760 39007 2761 3272 oc xL2°90078 09 68CC.O LOGP BACK IF NOT ZERO : 27E7 OC 04 2888 282 3339 R17802 MvC = R17M1(5).R17MS eINSERT *WRITE*® IN MESSAGE 
2762 1010 2763 3273 pc XL2€2010° 04 INC. INCRe MBAR HI es 27EO 3c E6 65F9 3346 MVI ERRLOG—6& 0C® we e INSERT CHAR FOR LOG GUT * 
2764 E00eB 2765 3274 DC XL2°E008* 0B cls TEST FOR END 27F1 CO 87 021E 3341 17803 B UNP ACK «GO UNPACK MBAR 
2766 9c12 2767 3275 pe m.2°9C12¢ oC §80C.3 SRANCH iF ERROR Ms 27F§ 02 27FS5 3342 Doc XLI* 02° 
2768 $007 2769 3276 pc XL2*5007¢ 06 B0S.0 RETURN TO LOOP . 27F6 2840 27F7 3343 oc AL 2CRI%L1) 
276A 24020 2768 3277 DC XL 2*2A20* CE Re LCAD MBAR HI TO HOB IA 27F8 2898 27F9 3344 pe AL2ZCRI7MZ) 
276C 2821 276D 3278 oc xL2*2821° OF Re LOAD HBAR LO TO HDB 18 A 27Fa CO 87 O21E 3345 8 UNPACK °GO UNPACK EXPECTED DaTA 
276€ 5010 276F 3279 Dc xL2*solo® 10 HANG, TEST COMPLETE € > 27FE 02 27FE 3346 oc mito 
2770 59000 2771 3280 RI6MCE OC xL2*50008 12 BRANCH TO RESTART PROGRAM 27FF 2843 2800 3347 oc AL2(R1I7LS-1) 
3261 ; 2801 28AC 2802 3348 Dc ALZ2(R1 743) 
3281 Ges 2803 cO 87 O21E 334¢e 8 UNPACK eUNPACK REC'D DaTa 
3282 HO ERE SEESERESERERE EES OG AEREHS EADS EEKHSKKAE LEAKE FBR EKEAKLA LSE CARERS REARS RE 2807 02 2807 33590 oc xLi*o18 
3283 * ROUTINE 21 MESSAGE BUFFER ADORESSING TESTS * 2808 2844 2809 3351 oc AL2€R2 73) 
3284 * * €}  2a0a 2880 2808 3352 Dc ALZCRI7N@) 
3285 = MICROCODE. RUNNING IN CS ADOR G00-TO-OFFs LOADS ALL FET STORAGE * 3353 
3286 © CARDS WITH INCREMENTING DATAs 01~TO-FFs (HEX GO IS NOT USED.) = 280c Oc O62 6SFC 2858 3354 MVC = ERRLOG~ SC 3) eRI7M2 ePUT ADDR IA LOG GUT * 
3287 * STARTING AT ADDRESS ¢@1006 * c. 2812 oC o1 SSFE 28 3355 avo ERRL OG—-3 (2 »eR17M3 oP UT EXP e DATA IN LOG Out = 
3288 * AS EACH BYTE IS WRITTEN» IF IS READ BACK FOR VERIFICATION. * 2818 Oc 01 6606 28 3356 Myc ERRLGG—1 (2) «RI PMS ePUT ACT CATA IN LOG OUT * 
SS Sore es 3289 &* AFTER THE WRITE-wWITH-READBACK-CHECK PASS IS COMPLETEe THERE % 281 CoO aT O21A 3357 8 PRINT «GO PRINT MESSAGE Be Pi a Bo 
329¢ * IS A SECOND PASS THROUGH WITH READOUT AND CHECK ONLY * €: 2822 B82 2822 3358 . xLita2e 
329] FESERS SASEREHE SKATE SESESETRERMTKADS EKGLSERSREKTSL AKERS RSASEEBKSERAD HSE KES EKEER 2623 SO 2823 3359 Oc m1*&3e «LENGTH 
3292 _ 2824 2880 2825 3360 pc AL.2(R17NS) *AODRESS 
2772 21 2772 3293 RT22 oc XL2 2218 ROUTINE NUMBER C 2826 CO 87 63FE 3361 RITHLT B ELPO eGO PRINT LCG OUT * 
2773 09 2773 3294 pc XL1* O08 NO MANUAL INTERVENTION 282A CO BF O21A 3362 8 PRINT «GO SPACE 6 
2774 2946 2775 3295 oc AL 20RT223 ADDRESS CF NEXT ROUTINE . 282E 96 2E2€ 3363 oc xL1*968 
3296 €3 3364 
27E7 3297 USING R217802,XR1 282F oC O06 283A S5€ 3365 “vc RITHC (1) eSTATHC e INSERT CORRECT HALT CODE 
2776 C2 01 27E7 3298 LA RITBOS*cAR} INITIALIZE XR1 FOR INCEXING : 2835 cO 87 0222 3366 B HALT °GO HALT 
3299 €: 2839 148¢ 283A 3367 RI7HC DC xXL2¢745C° eHALT -SC- <88- OR -eC+ 
2770 CO BT O21A 3300 8 PRINT . PRINT ROUTINE HEADING 2838 CO 87 0216 3368 8 LINK eGO TO NEXT ROUTINE 
277E 01 277E 3301 oc m.2¢038 3369 
2Q77F 27 277F 3302 oc TLi'3ge C. 283F 0000 2840 3370 RI7L1 DC xL2°o8 L0G AREA FOR HOS 00-01 
2760 2869 2781 3303 oc &L2¢RT170P) 2841 oCco00 2842 3371 R1%2 OC XL 2° 0 «L0G AREA FCR HOB 02-03 
33046 2643 0000 2844 3372 R1i7%3 oC 2°08 eLOG AREA FOR HDR 64-05 
2782 co 8? 5918 3308 R1i7KO: 8 LOADCS *GO LOAD MICROPROGRAM € 2848 6101 2846 3373 RI7P oC XL2°8201* ePARAMETERS GET FILLED IN 
2766 83 2786 3306 oc x1° B39 eCISAGLE UPON ENTRYs FILL 2ND 2847 DSDGESES4OF2F 406 2660 3374 RTI7OMr DC CL39*ROUT 21 MESSAGE BUFFER ADDRESSING TESTS® 
3307 = FSQ wITH BOSe0 ON ADDRESS ie 2S6F OSCSEZE2CIC7C se0 3374 
2a7evr 268 2788 330a oc AL2 (RITMCS) eSTART OF MICRO CODE : 2857 C2E4C6C6CS094 1 3374 
2789 2945 2780 3309 ec AL2CR1 7MCE) eEND OF MICROCODE " 285F C4C4C9CSEZEQC S05 33746 
3310 2867 C740E3CSE2ZE3E z 3374 
27668 3B 02 2845 3311 SBF «RAT P=1 oX#028 C: 3375 
278 38 02 OAnc 3312 TEN UDT2,X*02* 286E D4E2C74B40C2E4C6 2888 3376 RIIM1 DC CLZO°MSGe BUFFER ERROR DURE NG XXXXX* 
2793 CO 90 2798 3313 BF R17 PR 2876 Cé&C5D940C5D9D §06 3376 
2797 3A 02 28485 3314 SBN RATPH3,xX*02¢ Ce 287E BI40CAESCOCED £C?7 3376 
2798 F3 58 co 3325 RI7EP S30 x*COr.SIOx 2886 40E7E7ETETE? 3376 
STE 71 48 SF 3316 RI7RPT LIO 1 7P(.xR1) HOBO eLOAD PARAMETERS INTO HDG 10712 . 288C 6B40C1C4ACHD94 C7E 2898 3377 Ri7M2 OC CLI3¢, ADDR = XXXX* 
27al 3a 01 5540 3317 SBN EHBP.xX*G1° «SET ERROR HALT BYPASS BIT GN € 289% A0E7E7TETE? 3377 
R7AS 3C FF 5564 3318 uvi LPCNT,X* FF eINCREASE MICRO OELAY 2899 6840C4C1E3C14 (C5 28AC 3378 RI7M3 OC CL20". OATA EXPECTED «= Xx® 
3319 . 28a1 ETO7CSCIESCSC 400 3378 
27a9 CO 87 S4FE 3320 8 COMICR eGO EXECUTE MICROPROGRAN €: 28A9 7ESO0E7ET © 3378 
27a0 SC 27AD 3321 oc xL2°SC® eERROR HALT ~SC+ 28A0 6840C4C1E3C14 M9 26BD 3379 R174 OC CLI7®s DATA REC8*#D = xXxX* 
27AE SO3E 27aF 3322 RI7EX1 OC %. 2°S03Ee oE xPECYED DATA i 28BS CSC37OC44N7ES CE7 3379 
3323 €; 2880 £7 3379 
2780 ©O 01 SFEG6 27 oF 3324 CLC STATACC 2) oR1 PEXS «TEST FOR ERROR 2668E ESOSCIE3CS 282 3380 Rims DC CLS* wRETE* : a 
: ' © 
; DATE OT SULTS: 26ccT7s ISJANT6 PROG 10 0891-2 DATE OT IUL7S 28 (CTS ISJANTS PROG ID 0891 -2 
EC NO. 825023 82 £032 625034 PAGE a7 e* NOe 826023 - 92 £032 825034 PAGE 27a*- 
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4234255 
PAGE 28 | %. PAGE 28A 
8912 DISPLAY ADAPTER TEST , . 89%2 OISPLAY ADAPYER TEST 
& 
ERR LOC GBYECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC GBYECT CaDE ADDR STMT SOURCE STATEMENT 
28C3 99C€5C1C440 28C7 3381 R1i7RGE CC GLS®*READ 8 | z 293C 7415 2930 3449 oc XL2*74a15¢ 3A YC ©oX6g5e CHANGE EXP-eDATA TO 15 
3382 293¢E€ S023 293F 3450 oc xL2°*5023° 38 605,0 Te ADE 236« CATA INC 
33GB Pewee ee emer we ew eet : 2940 F302 2941 3451 oc XL2¢F302¢ 3C TBN 3ex*oZ? TEST FOR FEY 3 INST FLAG 
3384 * START OF MECROPROGRAM LISTING & | é 2942 9C23 2943 3452 oc XL 2° 9C23? 30 B0c.3 TO AOR 23e DATA INCe TF SO 
3385 $0 ew ne ere ee eo ee ee om meny i 2984 503¢ 2945 3453 RI TMCE OC xL2*sosze? 3E 60S:0 HANGe EXPECTED RESULTS 
28C8 3386 RIMWCS EQU 2 { 3458 
28C8 2310 28C9 3337 oc XL2*2310e OO LRe SET HOB 3 ® DATA FLAG | S 3455 RVSSKRH HHS ea ke ERP SCRE KL SAARC SKSSE FSHSHVGSHE SVS SKN HSK SKS SHORE KH VRS LERSKS SKS 
* 28CA 24114 28CB 3388 oc xXL2°241438 O21 LR, SET HOB 4 = DATA TO BE WRITTEN 3456 * ROUTINE 22 MBAR INTERACTION me 
28cc 7200 28C0 3389 BC *L2°72008 O62 Ce SEY HDB 2 = WRITE FLAG | S457 SHRERKEG HERS SESSA LRE ESSE SRESEE SES ELE S TESA RES SOKKSS PRARSS HDRES OSESES 
28CE 7001 2eCF 3390 oc XL2*7G01* 03 ICs RESET MBAR HI = 0} | & 3458 * MACRO~1s LEO HDB 0C+Ci=0000 * 
28D0 7190 2801 3391 oc XL2* 7002 04 ICe RESET MBAR LG | 3459 ¢ & 
2802 0584 2803 3392 oc XL2°O584°8 OS Ls BRITE FROM HOB « TG MSG, BUFFER 3466 * MICRO-3. MHAR TO CURAR STROBE. % 
2804 O54a5 2805 3393 oc XL2°05458 0G LEs OVE DATA 7Q HOR OS FROM MeBe | & 3461 * ENSURE HBAR=CURAR, * 
26806 8405 2807 3394 oc M2°B405 * 07 CIR: CHECK DATA 3462 % WRITE HEX "FF TO ALL FDB*S THAT ARE ®SONE-ADOR<-BIT® ABAY. % 
‘ 2698 9COA 2809 3395 oc ML2°¢ocoare 0&8 80C.3 BSRANCH IF DATA GKAY { @ 3463 * ENSURE MBAR STILL EQUAL CURARe * 
28DA 5009 2808 3396 DC XL2* 50098 OS ERRORs HANG 3 3464 * & 
286BC 11316 2800 3397 b¢ AL2°7ZL10¢ CA INC. INCREMENT MBAR £0 | 3465 * MACRO-2 LTO TS ALi HOBt*S THAT ARE "ONE-£0DR=-BITCAMAY WETH ate 
280E SCOF 280F 3398 BC RLZ*OCOFre 0G 80Cs63 IF ZEROe INCREMENT HI | 2 33866 + DATA OF FFFF. an 
28E9 F360 28€1 3399 oc XL. ZF 3608 oC TBNs TEST FOR DATA TC BE INCREMENTED & 3467 # MICRG-2 INSURE MBAR STILL EQUAL CURAR». % 
28E 2? 9C13 28E3 3200 oc XL2°ocise 9D S8ac.3 BRANCH FF SO 3466 % * 
28E2 5005 28ES 3801 o¢ Mm 2'*SGoOse cE 8085.9 LoapP i rs S469 YRESHESKAARHKA ERS HSGCAHSS HR SERSGERHKKAKSSSEKSSSE VSIA ASK ASKREGACTELY SRK KVRM SME 
28E6 1016 2BE7T 3402 oc XL2*101028 OF kENCe IARCREMENT MBAR fr 1g 2946 22 2946 3470 RT22 oc ML Ge Zee ROUTINE NOs 
28E8 F018 28€9 3403 ra XL2°FC36* 30 TSNe TEST FGR END | = 2947 00 2947 3471 pc XL2* 008 
26E& 9$00C 28£B 34604 bc M_Z*900C @ 120 BoC. O IF NOT RETURN TO LoceS Bae 2986 2Ase 2949 3472 oc al 2¢RT 23} 
28EC $016 28ED 3405 oc XL2'5018° 32 B80Se0 BRANCH TO READ t.GoF | & , 3473 
@8EE 1410 28EF 3406 DC “ ML2tiaio0¢ 12 INC. INC HOB 4 TO NEXT DATA TO BE USED | 7 294A CO BY O2ia 3476 B PRINT PRINT ROUTERE FEADENGS 
28F 9 9C16 28F1 3407 DC KL2°9C3H 6 2% 8B8OSe2 BRANCH FF ZERG i a 292E O31 294E 3475 oc BLGORe 
28Fe $005 2e@3 34ca oc XL.2* 50059 35 @809S5eG RETURN TO #REITE LoGR t 294F 718 294F 3a7é pe ZL¢ 9oG0 
26Fa 1416 2BFS 3499 oc M2014 de 6 INC. ENC HDB 4& AGAIN | / 23560 296D 2951 3477 DC AL, ZERSSHDR } 
28F6 $005 27 3410 oc AL2°SQOSet i? BOS?O RETURN TO BRITE Looe a 2952 CO &F 296e 3478 & GORTS2 
BSE i 8 2956 DSOSESEZ4°F SF 540 2960 347¢ R4&GHOR DC CL2a*ROUT 22 MBAR INTERACT EONe 
3412 # READ Loap ¢ : 295E O04C2 C3 09420C9D SER 3679 
Sore eee ae 3413 | . 2966 CSDRCICZE3CSD O5 3479 amen ccmmticnenaetetmntemtr manatee nt itr 
28F8 Teer 26F9 3416 pec RL2° T2FE e 18 ite SEY HOB 2 = READ FLAG ‘ 296E Co 87 5918 3489 DSORT4S2 B LOADS ‘ L980 MECNOCCHE fo 
28F 4 7OOQ1 2aF8 3415 oc RL2°*7oo. ¢ 19 «es RESET MBAR Hr & OF | - 2972 SF 2972 348i B¢ 32° BF? FILL WITH B0S~ Ta-An5k 
28FC 7100 28Fp 3416 Oc RLZ° FTIGO? zA TCeRESET MBAR LO . 2973 29FB8 2S74 3482 oc AL ZC ROSNCS . 
@B8FE 2434 e2erF S417 oc XL.2%2a7 1s iB tRe SET HDB 4 TO DATA EXPECTED | é 2387S 2hee2 2976 3483 oc AL 2ERB2MCE 3 
2900 7599 2901 3418 oc XL2° 7599 5 1¢ Ce PUT oo EN HOB 5 2¢77 €3 58 86 3484 Sia N*@GesSxor BCIisas_e RESET 
2902 0545 2903 3419 oc KL2° OS4ge 10 LE» READ MSGe BUF. TO HBB S : 297A 31 66 OD62 3485 £20 2EROeNDRO RBAR ¢ HOB 00704 ZERD 
2904 8405 2905 3426 oc ML 2eBsoge 16 CilR,e CHECK FOR EXPECTED RESULT é 2srve co B87 S4Fe 3486 8 COMEICR : 60 00 MICROCOSOE i. 
2906 GC 21 2907 3421 oc XL2*oc2s3 4 if BRANCH TF OKAY 2682 70 2982 3687 o¢ MLL PEP O® ERROR HALT 70. 
2908 $020 2909 2422 oc ML 2? 50206 20 ERROR» MANG : 2983 5023 2984 3488 oc si. 2° SOL32 EXPECTED RESULTS 
2908 1130 2908 3623 pC KL2°3236% 2% InwCe INCREMENT MBAR LO 3 3489 
290C 9C28 2990 3426 oc XL2°9C2Be 22 S0Ce3 TO ADDR 28 IF ZERO | 3490 * START MACRO-2, 
290& F3e0 29GF 3425 oc RL2°F 386% 23. TNs 3s€6 TEST FOR DATA YRCRE MENT | 2985 F3 58 80 BaQy Sia MX? BO* SY OIF OLISABLE RESET 
2920 9C26 2923 3426 o¢ AL S*9CZ62 24 609.3 TO ADDR 26 IF s0 €s 2988 31 49 ODS9 3492 Loa XFFFF.HDBI HDB O2/03=F FFF 
2912 S03C 29i3 3427 se ML 2* 501C8 25 80Se0 TG aDDR ic YO READ LooR | 29ec 31 44 ODS9 3493 Lrg XFFFF sHDOBS HOB 04/0 S=FFTF 
293@ 2410 2931S 3428 oC M. 2°12 4108 26 %&§INC NOB & TO NEXT DATA TO BE USED | 2990 31 4B OD59 3494 Lia WEF pHOaS HDS O6/O07 =FEFFE 
2316 C29 2917 3429 oc XL2°O9TC29 27 80Ce3 Se TO aoSR 29 se ZERO ; C3 2994 31 4¢ ens9 3295 Lis KXFFFF 6 HO BS HDB GO8/09=FFFF 
2918 S0ic 2919 3435 oc RL2e S02 ¢ 28 80520 TO ADDR 1C TC READ LOoOF | 2998 31 @&dD ons9 3496 &FO XFEFF HOSS HOS OA/0 Be FFFE 
292A 2816 B 343i ac ML S*2e10% ao I Ht & in = ? ‘ ‘ 
291¢ S01C 201 3632 He: GaLStBOICe ck Gbsy6 Vu Anon Ve GO UREAN esas Pe. cone sce eee ey Gyo" necro ue WUE OL/OrSEFER 
3833 % READ LOOP ENG TESTING | ~~ 2eaa &3 58 CO 2499 siQ = K°C6* .-Sz08 ENABLE ATTACHMENT 
2G1E 1026 292F 3834 oc ALZ*iGide 28 INC MBAR HE | 29A7 33 €8 Op59 3500 i210 XP FFF eHDEO HDB 1090/3 1=F FFE 
2920 E608 292% 2435 oC wL2°*EOoge 2 Ci Geko TEST FOR IST ADDR GF FET 2 &: 29A8 31 49 OD589 3502 REG XFPEF OBL HOB 2/3 3eF FFF 
2922 9035 2923 S436 oc 3_2°*GSC3S e 25 80C,3 BR TG ADOR 3S IF sO | 294F 31 4A GOS¢G 3502 L1G 4F FFF. HDB2 HOB 146/18 %F FFF 
2924 EQOE 2925 3a357 oc KL2° EQOES 2E CL G,X*°OE TEST FOR 41H QUAD OF FET 2 | 2983 31 48 epse 3503 Lic XFEFF HOES HDB 26/1 7eF Fer 
2926 9C38 2927 3436 of ML. 26 9C3Q2 2 BOC +3 BR TG AaCOR 3s IF sa Cc. 2987 31 4c OnpsSs 3504 Lia XF FFF sHDB4S HOG 26/1 OSF FFE 
2928 E9010 2929 Base bc M.2°EGICs SO CE Ge K*iG8 TEST FOR 2S7 ADDR OF FET 3 | 2986 31 4D 6D5¢ 38658 LG RPPFE, HDBS HBS Lasisgerrrer 
292A 9C3C 292R 3646 oc RL2°SC3ce 31 4 G6fC.3 SR TO ACGR SO fF sa | be 293F 31 4F€ a559 3506 Ris XFPFEF eHDBS HDG iC/iDeFFFF 
2320 E018 2920 Baqi DC XL 2t*e ai gee 32 8 Gex*iBe MARXEMUM AnOSeSS? \ i. 2903 3: 4F 0059 3507 LiG REPRE, HOB? HOS @E7 iF see rE 
292& 9C3E 292F 34463 BC RL2e3CsEs 33 86C,3 JO ENO AT ADOR OSE. 29C7 21 88 0059 3598 Lid XFEFF MN? BB L@ap 
2930 $023 293) 3463 oc ALZ* SQ23 38 Ba5e2 BSR TG aAGOR 23 TU DATA INT 7 23CB 31 8S 9n595 3509 FG XFFFPF «Xe 89s HZ 
2932 F301 2933 34446 pc Mi. 28F 30g so 35 TEN 3exX*o;48 TEST FOR FEY 2 INST FLAG | { 29CF 31 BA 9059 3510 L350 XFEFE, MBAS pe oS 
22932 9C23 2235 3445 BC AL2* 9T235* 36 86C¢3 TO ADR 23¢ DATA INCe Ie $0 2903 31 88 eD5s¢ 3511 LAr WEF eX? BBs to 
2936 SOS3E 293F 3446 oc 28 §0 3E 2 37 80506 OTHERWISE BR -TO SE, END. | ‘ S07 31 BC ODS9 35i2 i.i0 XFFEF .X* So * FETE 
2938 F302 2939 3407 a¢ Xi 2*F392° 33 TON 3eX*o2 TEST FOR FET 3 INST FLAG i .. SOB 31 8D °n5¢ ; 3513 £10 XFFFF Xe ape 
293a 9c23 2938 3268 SG = =§— HLaeeceset 39 80C¢3 ¥O AOR 23, CATA ImCe IF SO is 29DF 32 BE GDSe BSi4 tio MFFFE o x6 Bee a 
j 
ol | 
DATE OF IULTIS 25 <Ct¥Fs ES JANTS : PROG ID baae-e DATE OF JUL7TS 25 CCT75s LISJANTS PROG i0 089i-2 
j EC nO. 825023 82032 825636 — PAGE a EC NGe 825023 822032 825034 Pace 2@a!/ 
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6912 
ERR toc 


29E3 
29€7 
29€6 
29EC 
29€€ 
29F0 
29F 4 
29F5 
29F7 


29F8 
29FD 
29FF 
2a01 
2A03 
2a05s 
2a07 
2ac09 
2a08 
2a00 
2A OF 
2at1 
2ai3 
2ats 
2al7 
2aig 
2a18 
2A1D 
2a iF 
2a2i 
2A 23 
2a2S 
2a27 
2a29 
2a28 
2a20 
2A2F 
2a31 
2a33 
2a 35 
2a37 
2a 39 
2438 
2a30 
2a 3F 
2a41 


2a43 
2445 
2Ae7 


oaTE 
EC NOs 


DISPLAY ADAPTER TEST 


OBJECT CQDE 


31 8F ODS9 
co 87 $918 
SF 

2a43 

2a48 

CO 87 S4FE 
v1 

$002 

co 87 0216 


1704 
5403 
5002 
72°F 
T3FF 
74aFF 
75FE 
Tarr 
7OFF 
2029 
2129 
<229 
2329 
2429 
2529 
2829 
2929 
2089 
2189 
2289 
2389 
2489 
28589 
2e89 
2989 
20A9 
21a9 
Z22a9 
2349 
24aa9 
25a9 
28a¢ 
29A9 
$423 
S022 
$023 


$4 02 
$001 
$002 


OF JUL 7S 
e2s023 


AD0R 


29E8 
29ED 
29EF 


29F4 
29F 6 


29Fa 
29FC 
29FE 
2400 
2a02 
2A04 
2a06 
2408 
2a0a 
2Aac 
2a0€ 
2ai0 
2A12 
2A14 
2A 16 
2ai8 
2ALA 
2aic 
2ai€ 
2A20 
2A22 
2A24 
2A 26 
2a28 
ZAZA 
2A Zc 
2a2E 
2a30 
2A32 
2A34 
2aA36 
2a38 
2AZA 
2a 3c 
2a3€ 
2040 
2482 


2aa3 
2aaa 
2A86 
2a48 


25 CT TE 
82 2032 
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PART NO. 4234255 
PAGE 29 

STMT SOURCE STATEMENT 

3515 LIQ XFFFFex*eFre 

3516: R42mMI2 B LGaocs GO LOAD MICROCODE 2. 

3517 oc L1¢eFe 

3518 oc A.2(R420C1) 

3519 oc AL2(R42MC2) 

3520 8 DOMICR GG DO MICROCODE 2 

3521 oc” MLA*71¢ ERROR HALT 

3522 oc XL2* 5002¢ EXPECTED RESULTS 

3523 8 Link 

3524 

3525 * START OF MICROCODE 1. 

3526 Berm en en eee ce meee comme ero me ® 

3527 * START OF MICROPROGRAM LISTING * 

392 G8 Bowen nen enw nn nn me ee ne eet 

3529 Re2eMCS EQU 2 

3530 oc XL2*3 7048 000 6SSN A MBAR TO CURAR STROBE 

3531 oc 2°S4030 001 80Se1 TQ ADDR 003 IF MBAR=CURAR 

3532 oc xL2°5002°¢ 002 g80S-0 ERROR. HANG 

3533 Doc XL2°72FF e 003 «IC 2ex*FFt 

3534 oc XL2*73FF * 004% IC 3eX*FF? 

3535 pc XL2°74FF e 00S IC 4asx*FFe 

3536 oc ML2°7SFF* O06 IC SoXtFe* 

3537 oc XL2¢7GFF e CO7F IC Bex*FFE 

3538 oc XL2°*79FFe O08 IC BeX* FFF 

3539 oc %L2*2029¢ COS tR 36009 

3540 oc XL2*21298 OOA LR 11-09 

3541 oc ML 2*2229° 008 LR 12,09 

3542 cc XL2*23296 e0c L&R 12.09 

3563 oc XL 2° 2a298¢ 000 &R 14,09 

3544 oc ML 2° 25298 QOE LR 18.09 

3545 oc XL2* 2829 * GOF LR 18,09 

3546 pc ™L2*°2929*. O10 LR 19209 

3547 oc Mm 2*2089°8 O11 «LR 20,09 

3548 oc XL2°2189¢ @12 LR 21209 

3549 oc ML2*22a58 O13. LR 22,09 

3S50 oc XL2°*223898 014 LR 23.09 

3551 oc XL2* 24a9° O15 &R 24,09 

3552 oc mM 2*25898 016 &tR 2£.09 

3583 oc xL2*2aes*: 017 &R 28,09 

3554 oc xL2*2989° 018 LR 2909 

3555 pc M.2°20A9* 039 LR 30,09 

3556 oc XL2*21a9¢ O1A LR 32.09 

3557 oc ML2*°22A9° O1B LR 32,09 

3588 oc XL2°23a9¢ OC LR 32.909 

38559 oc ¥L2* 28098 01D L&R 34,09 

3560 oc ML 2°*28a9¢ OE LR 3er09 

3561 oc XL2*28age O1F LR 38,05 

3862 pc M2°*2Ga98 020 LR 39:09 

3563 oc w.2°'*Sa2ze 021 BOSe.1 Ta ADDR 023 IF MBAR=CURAR 

3564 oc ML2°*SO22* 022 80520 ERROR: HANG 

3565 RG2MCE DC mM. 2*Sq23¢ 025 BOSe0 EXPECTED RESULTS 

3566 : 

3567 teem mw ce wewe oo Meh I ree Cm-sey At ein camera den we IE 

3566 * START OF MICROPROGRAM LISTING © 

3569 Go cme ewe cee come am oe ome pmmnaiaS 

3570 R&encl EQU * 7 

3571 oc XL 2°Sa028 000 80Se1 TO ADOR O62 IF MBAR=GYURAR 

3572 oc XL2°S001° 001 8650 ERROR: HANG 

3573 ROBMC2 DC m2* S002¢ O02 85S+0 EXPECTED RESULTS 

3ST 

36975 S8§RSKTKSSTLSESKESASEEREGEKES SSEASARIRKS HERES STKSSKAKHSKRKESKRARSE SE SERSESHKERE 

3576 @ ROUTINE 23 - ATTACHMENT CHECK TESTS * 

BST SSSTKSSKESSLSE VS THE KLEASY OLBASHKHERAHAVAKE SRESRRAKACKSTKS SCKSKAVKSE SSEBKREESTX 

3578 s *& 

3579 THES ROUTINE TESTS THAT ALL DIFFERENT TYPES OF /¢TTACHMENT * 

3580 *« CHECKS CAN GE DETECTED. IT DOES THIS BY USING DIAGe LATCH 2 * 

3581 « WHICH CAN GLOCK THE PARITY ElTe * 

35a2 * * 

IS JANTG PROG ID Qesi-2 
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-. 8932 


" ERR LOC 


abe 
ps 
aa av 


2a4a9o 
Z2AaA 
2a48 


2AaaDd 
2a81 
2as2 
2a53 


TN, OED 


2 


2a55 
2a59 
2ASA 
- 2asp 
i. ABR 
2064 

267 
"fans 
2a6C 

2A60 


oY, 


2a7i 
2074 
2a78 
2a7B 
2a7E 
2a8s2 
2ae3 
2A84 


CX. 


Bx 
we 


2a8e 


2AaGF 
2aS2 
' 2496 
i 2A9A 
2a9ea 


249c 
2a9F 
2AA3 
2AA6 
2AKA 
2AaB 
2aAD 
2aBi 
2482 


O° 


2Aa83 
2a86 
2aBA 
2ago 
2aci 
2ac2 
2ace 
2ace 
2ac9 
2ACA 
2ace 


2ad2 
2a08 
2a09 
2a0c 
2aE9 
2a81 


oO 


QaTE 
EC NOe 


1e 6 6 


® @ @ 


isocgece 


DISPLAY ADAPTER TEST 


OBJECT CODE 


23 
oo 
2880 


co 87 
01 
18 
287F 


co 87 
01 

F3 58 
31 59 
F3 $8 
F3 $8 
co 87 
80 

sO 

co 87 


F3 56 
31 S9 
F3 58 
F3 58 
co 87 
60 

Ss 

co 87 


F3 $8 
31 4A 


F3 5&8 
30 aa 
co 87 
8s 
Sa 


F3 58 
31 5é 
F3 58 
co 87 
SE 
$001 
cQ 87 
838 

SF 


F3 58 
33 $8 
F3 $8 
co 67 
69 
$002 
co 87 
868 

61 

31 49 
Bi 4A 


F3 58 
33 48 
F3 Sa 
co 87 
a1 
62 


0214 


5918 


Sa . 
So8D 
80 
€0 
61E&6 


S038 


84 
5060 
80 
Eo 
61E6 


5038 


84 
0956 


60 
SFE 6 
6156 


co 
2a5F 
so 
S4FE 


626 


co 
2261 
eo 
S4FE 


G61E6 


0D56 
0055 


84 
3198 
Ea 
61E6 


OT 4IULTS 
625023 


ADDR 


2a49 
2AaA 
2a4c 


2a51 
2A82 
2aS4 


2a89 


2A68 
2A6C 


2Aa2 
2a83 


2A9A 
2a98 


2ARA 
ZAAC 


2A4B} 
2a82 


2aci 
2ac3 


2ac8 
2ac9 


2aEO 
2AE1 


2sccr7s 
82 £032 


STMT SOURCE STATEMENT 





) / _ = 7 : . eis 


PART NOs 
PAGE 


42348225 
29a 


3583 CREASE EAE SRAKSERS BSS HESS SERSEES SE EEERE ERASE SEARED OEEEESEOEEEEEREREREEEOD ER 


3584 
3585 RT23 
3586 
3587 


3588 


3589 
3590 
3591 
3892 
3593 
3594 
3595 
38596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 

3612 
3613 
3614 
3615 
3616 
3617 
3616 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3646 
3643 
3642 
3643 
3604 
3645 
3646 
3647 
3648 
3649 
3650 


ISJANT6 
828034 


$10 
i Se] 
$19 
SIG 


sic 
Lic 


$10 


L10 
i190 


siG 
L190 
$10 


oc 
oc 


x.1° 236 
XL1°o* 
AL.2 CRT24 ) 


PRINT 
xLitoye 
Iu2¢2ae 
AL2(RTISCP) 


tLoaocs 
ML1i9018 

x* 64° ,SIol 
X%2205e0P OEC 
x°80* eSICI 
X®°EO* - S101 
TST CHK 
xLi*aece 
m3°S0* 
LOGP 


X*84%eSIO! 
X1415 eoPCECc 
Xe 6O* «SiO! 
X*EO*sSIgt 
TSTCHK 
wieoe 
XL1°S8e 
Loop 


X*B4%eS1CI 
XAASS sHD&2 


X*80* sSIG!I 
STATAC eHO82 
TST CHK 
XL1* ast 
X25 SAS 


X*C0*%-.SIGI 
X2204sCTSTOR 
X%*°80* eSI Or 
comicr 
XLi*SE* 
xL2°*S5003 4 
TST crK 
xLI*sge 

%L1° SF ¢ 


X*CO¢ »SZQ1 
X2503eCTSTOR 
X* 80" eSIO! 
DOMICR 
XL1*60¢ 
xL2*S001* 
TSTCHK 
XL1*a6e 
ML*61e 
XAASS oHDE1 
XAASS eHDE2 


X*84* ¢SIQI 
X0155 ,H1DB0 
X*EO* eSIOL 
TSTCHK 
43° Sit 
X41 *62¢ 


RCUTINE NUMEER 
NO MANUAL INTERVENTION 
ADCRESS OF NEXT ROUTINE 


PRINT ROUTINE HEADING 


eGO PUT BOS DeADOR IN CTRL STORE 
iST 256 wOoROS 

eCISaBlLeE & SET OFAG 2 LATCH 
eLOAD OP DECODE with BAD PARITY 
eOISABLE ATTACHMENT 

eENABLE MICRO CCNT ROLLER 

«OP ODECQDE CHECK SHOULD CE 
PENDING 

eERROR HALT -So- 

GO RESTORE GP CECODE REGS. 


DISABLE & SET DIAG 2 LATCH 
ePUT BAD PARITY EIN GP OECODE 
e DISABLE 

eENABLE Mz CROCONTROLLER 

eOP DECODE CHECK SmhOouULO BE 
PENDING Bs 
eERRGR HALY -5SG— 

eGO RESTORE GP CECODE REGS 


eDISABLE & SET DIAG 2 LATCH 
ePUT BAD PARITY IN MOB 4-5 


eRESET ATTACHMENT 
eCAUSE ATTACHMENT CHECK 
eHDB EXT PARITY CHECK 
SHOULD BE PENDING 
eERRGR HALT -5a- 


eENABLE ATTACHMENT 

o&@DOAD 1ST WO = LR HOB 4 To 2 
eDISABLE ATTACHRENT 

eGO DG PRG 

eERROR HALT ~SE- 

eEXPECTED RESULT 

eHOB CHECK SNOULO BE PENDING 
FROM BAD PARITY ON A REGs 
sERROR HALT ~SE=- 


eENABLE ATTACHMENT 

«LOAD ist wD « LR 3 Ta $ 
eDISASLE ATTACHMENT 

«GC DO PRGe 

eEPROR HALT ~60~ 

eEXPECTED RESULT 

eHDB CHECK SHOULD BE PENDING 
FROM BAD PARITY ON 8 REG. 
eERROR HALT ~61~ 

ePUT GOOD PARITY {IN HDB 2-3 
ePUT GOOD PARITY IN HDB 45 


eDISABLE & SET OIAG 2 ON 

*PUT BAD PARITY IN BAR LO 
eENASLE MeCe & RESET DIAG 2 
eCCNTROL STCRE ADDR, CHECK 
SHOULD GE RPENDENG 


eERROR HALT <-62< 
PROG 10 0891-2 
PAGE 2a) 
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: _ PART NOe 0234255 
PAGE 30. k,, ' PAGE 30A 
8912 DISPLAY ADAPT ER TEST - 8912 DISPLAY ADAPT R YEST 
fg. 
es 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CGDE ADDR STMT SOURCE STATEMENT 
3651 : &3 3717 * IT DOES THIS BY PUTTING INCREMENTENG DATA IN EACH BYTE. 256 * 
2aE2 F323 SB 84 3652 SIO = x* 84° »sIOY sCISAGLE & SET DIAG 2 3718 * PASSES ARE MADE SO THAT EACH pYTE WILL HAVE ALL COMBINATIONS # 
2aE5 31 48 SA0B 3653 L7G WUNs HOBO ePUT BAD PARI Ty IM MBAR HI 3719 * OF DATA EN E£Te THE DATA IS WRITTEN AND REAC AND CHECKED USING * 
20E9 F3 58 EO 3654 SIG = X* Eo® Ss IOL sENABLE NC.o ERESET DIAG 2 & 3720 * MBAR AND MICROPROGRAM TO ADDRESS EACH BYTE, * 
2AEC CO 87 61E6 3655 8 TST CHK eCONTROL STGRE ADDR. CHECK 3721 * THE ROUTINE IS DONE EN TWO PHASES. IN THE FIRST PHASE, THE * 
2aFO 61 2AFO 3656 pc ML2eayze SHOULD BE PENDING i 3722 % MICROCODE IS LOADED IN THE 3RPp 256 WORDS ANC THE FIRST 10924 % 
C 2AF1 628 2AF 1 3657 oc xLi*°66e eERRGR HALT ~-66- | €3 3?23 » BYTES ARE EXCERCISED. THEN THE MICROCODE £8 LOADED IN THE * 
2aF2 31 ¢e 0058 36586 LIQ XG202-enDEs ePUT GOOD PARITY IN MBAR iat 3724 # FIRST 256 WORDS AND THE 2ND 1024 BYTES ARE EXCERCISEDes * 
3659 ic 3725 * IN A MACHINE WITH 2 STGS» THERE ARE 4 PHASES DCNE To TEST * 
2aF6 F3 $68 E4 3660 sta K°E4S SLOT eENABLE MoCo #ITH DIAG 2 GN es S726 % SOTH STGSe In THE FIRST TWO PHASES: THE MICROCODE IS IN THE * 
2aF9 CO 8? 61ES 3664 B TST CHK eCONTROL STORE ADDR CHECK | B727 « ZNO STG ANDO THE 1ST STG ES TESTED. ERRORS IN THE 25ST STG ARE * 
2aFO 81 2AFD 3662 oc au 28 830 SHOULD BE PENDENG 3728 * DENOTED BY HALT ~SB-. XN THE NEXT TWO PHASESe THE MICROCODE +» 
2aFE 6B 2aFE 3663 oc ML.2°6B? eERROR HALT <6B- , é3 3729 « iS IN THE 4ST STG ANG THE @NO sTG Ig TESTED. ERRORS IN THE * 
3654 3730 * 2uG STG ARE DENOTED BY HALT -8C-, = 
3 B) abe @aFF Co 87 59138 3665 — B LOancs oGO PUT 80Se0 ADDR IN CONTs STGo!| 3733 * 
2803 61 28603 3666 oc MLGPORe | ZI73S2 KERKAH RES KEKE KE RHELKKA SLHKCKSHS SHH AGEN GLH SETH KS FES OKRRKHSSEK SSS SES CHE SAR SES 
3667 3733 . 
2804 F3 58 CO 3668 SiC X* CO" oSEQI oENABLE ATTACHMENT ite, 2880 24 2380 3734 at24 oc XLLt2as ROUTINE NUNBER 
2607 30 58 5SFE6 3669 SNS STATAC eC TSTOR ei NCREMENT #@EAR io 2Be1 O06 2B81 3735 BC ML1*9006 NO MANUAL ENTERVENT E Ot 
2608 31 S58 2867 3670 LIO x0S84eCTSToR oL CAD WORD IN CONT. STORE oe 2BB2 2D0C7 2883 3734 oc ALZ2(RT253 ADORESS OF AEKT MOVT INE 
286F F3 58 B89 3673 $10  XeB0s sSIOI eDISABLE ATTACHMENT fo 3737 
2812 F3 58 C5 3672 Sio X*CO*%s SIQI eENABLE ATTACHMENT ae 2BG4 CO aT 0214 3738 , 8 PRINT sPRINT ROUTINE MESSAGE 
2815 30 58 5FE6 3673 SNS STATAC.SCTSTOR eINCREMENT MIAR a 2888 01 2888 3739 pc MEZ*OLe 
2819 F3 S8 Ea 3674 sic X°ES* »SIOL eENABLE M.Ce & SET DIAG 2 ae 2689 31 2889 37490 oc TLLeage 
3675 2 PROG. WILL LR FROM HDB 4 To C: 288A 2000 2888 3741 pc ALZCRTEDCP) 
3676 * MeBe WITH BAD PARITY Bra2 
2E1C CO B87 B1E6 3677 B TSTCHK eCONTs STORE wRITE CATA CHECK Ped 286C 38 08 O26ea 3743 TBN S@OYTE3SSS¥IC oTEST SSw 1C On 
2820 32 2820 3678 oC = XL * B28 SHOULD GE PENDING i, ¢¢ 2690 CO 10 6216 Brag st LE NK eff SOe SKIF THIS ROUTINE 
2821 6D 2521 3679 oc x 3° 605 eERROR HALT -60- > 2894 35 Of 020A 3745 . SBF SBYTE2:SS¥i7 eRESET SENSE SWITCH 17 
3680 | 3746 & 
2922 F3 88 co 3661 sio X8COe oSIOL eENABLE ATTACHMENT & 3747 * BEGIN TESTING LO HALF OF FIRST STORAGE WITH 
2825 30 58 SFES6 36 a2 SNS STATAC ,.CTSToR ef NCREMENT WEAR 3748 * THE MICROPROGRAM RUNNING IN THE I HALF 
peae yeree 2220 F3 $8 EO 3683 SIQ yx EO oskGi cENABLE MoCo RESTORE GOOD DATA = 2B98 CO 87 $918 3749 RTIVST B LOAOCS 266 LOAD 1ST 256 WOROS WITH A ene 
282¢ F3 58 80 -3664 $70 M° 80% ¢SIGI eDISABLE ATTACHMENT » 3 2B9C 94 289C 3750 RT1ISMi DC MLG*Sas WETH A BRANCH TO 3RD 256 
3685 2890 2p08 2B9€ 3751 pc AL.2CR2DNCS ) 
282F F323 58 cA 3686 $10 K* CG SIO eENABLE WITH GIAG 2 ON 42.8 2BsF 2065 2BA0 3752 oc AL2(REDMCE? 
2832 31 SS 2263 36387 u10 XE101 »CTSTOR eWRITE BAD PARITY EVEN BSYTE G3 2BAi CO B7 5916 3753 B LOADCS 260 PyY BOS FO ADDR. IN THE 
2936 F3 $8 80 3688 S30 =X9BO¢ oSkOr 2 DISABLE : 2BAS 32 2BAS 3754 DC ML2C BQ @ND 256 WORDS 
2839 F3 58 €0 3689 si0 XHOEO* ,SIOL eENABLE MeCe is oe 2806 CO 387 8918 3755 8 1LGADCS oG@0 PUT PROGRAM IN BRD 256 WOSes 
283¢ CO B67 61ES 3690 8 TST CHK eCeSe DATA CHECK sHOULD BE éo 2BAA Ad 2BAA 3756 oc MLIPAe 
2840 84 2840 3691 oc XL2°B4e PENDING os 28AB 2006 20aC 3757 oc AL 2(R20MC19 
241 74 2841 3692 oC MLL Fae eERRGR HALT ~T4= i @ 28a0 2043 2BAE 3758 pc AL 2¢R2DNC2) 
3693 1 G2 3759 
2842 F3 S68 C4 3694 $10 x?ce*.sio? eENABLE WITH DIAG 2 ON 2BaF 34 Of S546 3760 SBN EHBPe Xe O12 eSET ERROR HALT BVPASS ON 
2845 31 88 2565 3695 i709 XE 003 eCTSTOR eWRITE GAD PARITY ODD BYTE ' 2683 3¢ 14 3553 3761 My E LPCNT=10 X® 8a" cE XTEND LOOP COUNT 
2849 F3 S8 80 3696 SIQ = x#BOe oSEOI eDISABLE | €) 2e87 F3 seco 3762 SIO XeCOe oe SIOF ENABLE ATTACHMENT 
284C F3 68 EO 3697 S16 =X*EO* s SX G1 eENASLE M2. : 28BA 33 @A 2DBC 3763 L.£0 XOOCOs HOB? PROVIDE START AODR 
284F CO 87 61E6 3695 8 TST CHK «Ce Se DATA AND HOBZEXT CHECKS | 2B8E 31 46 S6F4 3764 LiQ Xo400cHOeSs PROVIDE END ADDR 
2683 sc 2833 3699 pc MLi° ect SHOULD BE PENDING { > 28Ce CO 87 S4FE 37658 8 DOMICR eGO 00 MICRCPRGGRAM 
2858 78 ; 2654 3790 oC 3° 798 sERROR HALT +7a~ 26c6 88 2RC6 3766 RTIOMS DC XL1°8B* eERROR HALT <88= OR -8C~ 
2855 CO 87 5918 37031 8B toaocs eGO PUY CROD PARTY IN CoSe hah ke 28C7 s2i€ 2BC8 3767 R2DEX1 OC RxL2°S2iet sEXPECTED RESULT 
2889 01 2889 3762 pC XLS ORS | | 3768 
285A CO 87 0216 3703 8 i INK «GO TO MEXT RCUTINE : 2BC9? OG O1 SFESG 288 3769 CLC STATAC{ 2deRQDERI e TEST FOR ERRAR 
3708 > os 28CF CO O41 2TBA 3770 BNE &817P0 aPRINF OUT If ERROR 
2B5E 2206 2BSF 3705 x2204 OC = xLae220e8 $. <7 | & 3774 
2860 2503 2663 3706 K2803 1¢ %.2* 25030 | 3772 @ 
2862 £101 2863 3707 XE2I01 ac ML2*E0R8 : 3773 & BEGIN TESTING HI HALF CF FIRST STORAGE with 
2868 £003 2865 370e xEQ03 OC xL.2* E0039 i €3 3774 * THE MICROPROGRAM RUNNING IN THE LOW HALF. 
2865 OS8e 2867 3TOG X0SB4 oc YL Z2tOS8Ge 2803 CO 87 5918 3775S 8 Loancs ei.GAD 2ND BIiCROPROGHAN 
2868 OSDGESEICOF2F 0 2E7TF 3720 RTIEGP Oc CL26°ROUT 23 ATTACHMENT CHECK® | 2807 83 2807 3776 RTi9NE OC ALI °83* 
2879 CiESE3CIC3C8D 4S 3710 G 2908 2006 2a09 3ST? pc AL. 2(R 2DMNC3? 
2878 OSEBA 0C3CECSC 202 3710 2BOA amar 2606 3778 DE M2(R20MCS) 
37as SRLS SIPARCAES CRECE SKS F HK ELLE LEKELS SHECKREKK SK SCAR KLRVSRET SARE SEK GRRLESRHY LH | 3779 
B7i2 ¢ ROUTINE 24 ~ CONTROL STORE SCAN *: €3 2B0C 3A 0} 5540 3780 SBN SHEP exe Ors eSET ERROR HALT @YPASS ON 
SVED FS GEA CVRE RSS AAGEREKLS HFSS OOSETHSS GRHKTHG SE SEKCHE LATTES RSSHSERR ER: SHER HE | 2BE0 3C 1A 5563 3783 ave LPCNT@-1sekK%iae o& KTEND LOGE COUNT 
3724 % 3 2866 F3 $6 co 3782 sto X°CO? +SIQL EMAGLE ATTACHMENT 
3728S THIS ROUTINE WILL EXCERCISE ALL GF CONTROL STORAGE INCLUDING * € 2 BBE? 31 4A SOFS 3783 Lio X%0400-HDB2 PROVIDE START ADDR 
3t16 * THAT PART WHICH IS USED AS THE MESSAGE SUFFER. an *, 2B&B 31 48 208 3784 LIB 8 xXo0B00eHDeS PROVIOE ENO ADDR . 
} 
DATE O7 SULTS 25 UCT 75 LSELARIS PROG 1D 0991-2; DATE OT SULTS 2S5CCT75 2SUAN TS PROG XO 0691-2. 
EC NO. 625023 82 £032 625934 PAGE 30 EC NG, 825023 82 2032 a25036¢ Pace 308 
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16M MAINTENANCE DIAGNCSTIC PROGRAM 


PART NOe 4238255 16M MAINTENANCE DIAGNCSTIC PROGRAM é PART NO. 4234288 
PAGE Bag PAGE 31a 
e932 DISPLAY ADAPTER TEST . 8912 DISPLAY ADAPTER TEST 
é 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
2BEF CO 87 S4FE 3768S 8 COM ICR GO DO 2ND MICROPROGRAM € 287 2087 2c88 3853 oc AL 2€R2DMCA) THRU O3FF 
28F3 688 26F3 3766 RTIOMT CC XLIesee eERROR HALT -8B- OR -ac- 2Ca89 Co a7 5918 3854 8 isaocs «FILL 0400 THRU O7FF wITH 
2BFe SO1E 2BFS 3787 R2CEXZ2 OC XL2*S01E° EXPECTED RESULT es 2c8c 7F 2C8D 3855 DC MLit7re BOS~70- ADDR. 
28F6 0D 01 SFE6 2—AF5 3768 CLO = STATAC(2) eR2DEXx2 eTEST FOR ERROR {gC BE 20 2C8E 3856 pc XL1°20° 
28FC CO 01 27BA 3789 SNE R17PO ePRINT GUT IF ERROR 2ceF co 87 5918 3857 e Loancs FILL 0800 THRU O9FF WITH 
37906 y 2c¢3 73 2c93 3858 oc MLIt73° «BCS TO ADBR 
3792 * of 2c94 40 2c94 3859 oc xL2"ao* 
. 3792 * BEGIN TESTING LOW MALF OF 2NO FET WITH 2¢95 Co 87 5918 3860 B Loaocs - LOAD 1ST MICROPROGRAM AT 0A00 
"7G3 % MICROPROGRAM RUNNING IN HIGH HALF. 89s Ec 2C99 386i DC XLI°EC® FILL THE REST OF CS WETH 
2cQ0 Co 87 5918 3794 8 LCAOCS GQ LOAD AOR 006 WITH BAL TO f 2C9H 2006 2c9B 3862 oc AL2(RZ0MC1? BOS~TO-ADDR 
2C06 OF 2c¢04 3795 pc MLICOFs 6600 ANDO FILL wiTH 2c9c 2043 2c9p 3663 Dc AL2(R2DMC2} 
2C05 2Da2 2Co6 3796 pc AL2¢(RZ0KC5) B0S-TO-ADDR THRU O3FF _.  BC9E 40 2C9E 3864 oc M1e4o8 
2C07? 2083 2c08 3797 oc AL2 €RZDNCB) i 3865 
2coe co 87 5918 3798 8 LGADCS GO LOAD ADR 400 TO OSFF wITH 2c9F 3a 01 554D 3866 SBN EHP x02 SET ERROR-HALT-B8YPASS ON 
2cop F3 2c00 3799 oc ALISEZe BOS~TO-ADDRESse 2CA3 3C 1A 5563 3867 MVI- LPCNT~16e x" 2 at EXTEND LOGP COUNT 
2CoE 2082 2C0F 3800 pc AL2(R20KC5) e 2Ca7 F3 58 CO 3868 SIG = x*CO's SIO! ENABLE ATTACHMENT 
2c10 2083 . 2cli 3801 pc A 2(R 20MCE) 2CAA 31 4A 2062 3869 LIQ X1000 eHpe2 PROVIDE START ADDR 
2ci2 20 2612 3802 oc XL2e20¢ 7 2CAE 31 4B 20C6 3870 LIG %1400,HDB3 PROVIDE END ADDR 
2€13 cO 87 S915 3803 8 LoaDC s GC LOAD ADR O660 wITH FIRST c 2cB2 CO 87 S4FE 3871 8 DOMICR GO 50 MICRG 
2017 EF 2017 3804 oc MLLER! PROGRAM AND Frit REST OF STG 2CB6 6D 2CB6 3872 oc xL1*ape ERROR HALT 
2€18 2006 2¢19 3805 oc ALZ2¢RZ0MC3 3 BOS-70-ADDR. ips 2cB7 521E 288 3873 oc XL2°S21E° EXPECTED RESULTS 
2C1A 2003 2C1B 3806 oc AL2(R2DMC2} i 3874 
2c2c 20 2c1c 3807 pc XL1°208 : 2CB9 OD 01 SFE6 28c8 3875 CLC STATACL2)eR20EX? TEST FOR ERROR 
2C1D 3A 01 $840 3808 CONTUE s8NH EHBP,x° 01° SET ERROR-HALT-8Y PASS ON _- BEBE CO 01 27BA 3876 BNE R17PO PRINT GUT TF ERROR 
2€21 3¢ 1A $863 3809 MVE -LPCNT~1-xe1A0 EXTEND LOOP COUNT : &S 3877 * 
2c28 F3 $8 CO 3810 SIO x" Co*.star ENABLE ATTACHMENT 3878 * BEGIN TESTING HIGH HALF OF 3RD FET wITH 
2C26 31 4A 208E 3811 LI0 = K08006enDB2 PROVIDE START ADDR ae 3879 * MICROCODE RUNNING IN LOW HALF. 
2C2C 31 468 20C0 3852 LIQ x09C00sKOB3 PRGYIDE END ADDR € > 2ec3 ¢6 87 5916 3880 8 LOADCS GO LOAD ADR 600 WITH BAL TO 
2030 Co 87 Sere 3313 8 DOMICR GO DO MICROPROGRAM 2CC? OF 2CC7 3881 pc XLIfOFe 2800 AND 
2034 8c 2034 3614 oc aL SSC ERROR HALT * ee 2cc8 2088 2cce 3882 Dc AL 2(RZDNCB) FILL wiTH @cS-To~adcR 
235 S2iE 2c36 3815 oc XL2°S21E¢ EXPECTED RESULTS &.  2CCA 2089 2ccB 3883 oc AL2(R2DMCC) THRU O3FF 
3816 ‘ . 2ccc cO 87 5918 3886 B Loapcs GO FILL 0400-O7FF wITH 
Bee | wiebeaec 2C37 OD O1 SFE6 286 3617 CLO = STATACL 2)eR20EX2 TEST FOR ERROR C 2CD0 7F 2CDO 3885 re XLI*7Fe 80S-TO-ADOR Soe ee ee 
2C3D CO 01 278A 3918 BNE R170 PRINT OUT IF ERROR _€>  e2cpi 20 2cDi 3886 pc MLAieloe 
3619 & 2cp2 Co 87 5918 3887 8 Loancs GO LOAD 2ND MICROPROGRAM AT 
3820 * BEGIN TESTING HIGH HALF OF 2ND FET WITH :  2CO6 EF 2c06 3888 oc xLI* eRe 0800 AND FILL REST CF CS WITH 
3821 # MI CROPRGGRAMMING RUANIAG IN LOW FALE > i €> 2e07 2044 2008 3889 DC AL 2(R 2DMC3) _- 8OS=To-anoR 
2C41i CO 87 5916 3822 B LOADCS GG LOAD ADR OOO WITH BAL TO ZCO9 2Da1 2cDA 38690 oc AL2(R2DMC4) 
2045 OF 2c45 3623 oc MLAtGFe 6400 AND eC 2C0B8 40 2CcOB 369} oc XLIP aos 
2046 2084 2047 3824 Dc ALZ{R2D0NCT) FILL WITH 8CS-TO-aDO0R pe 3892 
2C48 2085 2¢49 3825 oc AL 20R2DMCE> THRU OSFF ; 2€DC 3A 01 5540 3893 SBN ENB e x8 O18 SET ERROR-HALF<6YSASS ON 
2C4&4 CO BF 5918 3826 8 Loancs GO LOAD 2ND MICROPROGRAM AT ~. 2&0 3c 1A 8563 3894 MyI  - LPCNT<2,Xx°2Ae EXTEND LOOP COUNT! 
re cee ee eee Sg en eae: Ge eee eee 
e 3896 ° 2 PROVIDE a E 
2C5i 2081 2052 3829 De ALZ (RZOKCO) | 7 2CES 31 4B 20c6 3897 L1O %1800.HDEe3 PROVIDE END ADOR 
2C53 20 2¢53 3830 Dc aLitzoe | €3 e2CEF Co e7 sare 38968 B DOowICcR GO 00 MICRCFROgRAM 
383% | 2CF3 8D aces 3899 pc ML. 3° BD ERROR HALT 
2054 3a 01 SS4D 3832 SBN EHBP.x*0O18 SEY ERROR-HALT-BYPASS ONe 1G 2CF& S01E 2CF5 3900 DC XL2°S01E¢ EXPECTED RESULTS 
2CS8 3C 1A $563 3833 MVI-_LPCNT<19 142 EXTEND LOOP COUNT. " 3901 
2cSc F3 58 CO 3834 SIG = xeCoeestat ENABLE ATTACHMENT 2CF6 OD 01 SFE6 2865 3902 CLC STATACEL 2) oR EOEXZ TEST FOR ERROR 
2CSF 31 6A 20C0 3835 LIQ §=6©x0C00,.HDE2 PROVIDE START ADDR |. BFC CO 04 27BA 3903 BNE RI7PO PRINT OUT IF ERROR 
2C63 31 48 20C2 3836 L190 x10060eK683 PROVIDE END ADDA | {.: 20900 co 87 0216 3904 8 LINK EXIT TO NEXT ROUTINES 
2C6? CO 67 SAFE 3837 8 DomicR GO DO MICROPROGRAM 2004 3905 R20MCS EQU- + 
2c6B sc 2c6s 3338 oc MLissce ERROR HALT | 2004 5200 2005 3906 R20MCE OC XL2°S3200" 50Sc0 TO AMOR. 200 
2cec SO1E 2C6D 3839 pc ML 2*SOiE? EXPECTED RESULTS | @ 3907 
3840 3908 « 
2C6E OD Of SFE6 26 °5 3841 CLC —s- STATAC(. 2) eR 2DE x2 TEST FOR ERROR | 3909 » 
2C7@ CO 01 27BA 3842 BNE R17PO | PRINT GUT IF ERROR | S 3910 « 
3863 » 3911 x 
3685 « | 3913 4% START OF MICROPROGRAM LISTING # 
3846 * BEGIN TESTING OF LOW HALF OF 3RD FEY with | SQl6. Been Sane ees ences n ead endeonunee 
3847 % MICROPROGRAM RUNNING IN HIGH HALF. 3915 * 1ST MICRO PROGRAM 
ae 38 OZ O0a0c 3848 TON UDT2ex*o2" TEST FOR 3RO FET INSTALLED | © 2006 3916 R20MC1 EQy 2 
2c7c CO 90 0216 3869 BF LINK OUT IF NOT 2006 7F00 2007 3917 pc XLZ2°7FOO# CO Ce SET HOB OF TO START DATA (00) 
2c80 cO 87 $918 38590 8 toancs GO COAD ADDR COO WITH Bat TO | f 2008 240F 2009 3934 oc XL2° 240F* 01 LGAD START DATA INTO HDB 04 
2C ee oF 284 3851 oc XL *9F 0ac0 | €>  200a 7200 2008 3919 DC =§- ML_2*72Z200" O02 Co SET HOB O2 TO INDICATE WRITE 
2c85S 2086 | 2C86 3882 oc AL 2¢R2DMC 9} AND FILL WITH BCS-TO-«sD0R | 200C 2014 2D0B 3920 oc XL2*2016* 03 LR 0926 START ADOR HI . 
DATE = OT yuL 7S 25 6CT?S 1SJaNnTs PROG 1D 0893-2 DATE OTJULTS 25 «ct 7s ISJANT6 PROG ID 0691-2 
Ec NO. 625023 62032 625038 Pace 31 oe NOe 828023 82 £032 825034 PAGE 31a? 
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PART NOe 4234255 1BM MAINTENANCE OLAGN(ST IC PROGRAM PART NOe 4234255 
PAGE 32.3 : PAGE 32a 
egi2 DISPLAY ADAPTER TEST i 8912 OISPLAY ADAPT R TEST. 
to Xt 
ERR LOC GBVECT CODE ADOR STMT SOURCE STATEMENT ' " ERR LOC GBJECT CGDE ADDR STMT SOURCE STATEMENT 
200E 2115 2deF 392: oc XiL2*2115°2 0&2 LRIeLE START ADDR LO : er 2n7c 1F1i¢ 207D 3989 o¢ ML oegF 30° 1¢)0—OCUd ENC INCREMENT THE START CATA 
210 0584 2011 3922 oc XiL2°0584" QS ts WRITE MeBe FROM HDB Of , 2D7E 9001 2D7F 3996 oc XL2 2900 3 * 1D 80C.e.9 LGOP IF NOT ZERO 
2032 0545 2013 3923 oc xXL2°0S45* 06 LEs READ M.B. DATA TO HOB OS 2086 so:E 2081 3991 R20MC4 BC Xo 2° S01E°® LE HANGe TEST FS COMPLETE 
2014 Ba0s 2015 3924 be XL2°B405* O07 CIRe COMPARE DATA i €° 3992 
208G S2E1 2017 3925 oc xXL2*°92Ei3* 08 80C,.0 BRANCH IF NQ COMPARE i 2082 3993 R2OMCS EoU o 
; 2018 2410 2019 3926 oc ML2*24108 G9 INC. INCREMENT SATA 2082 0G00 2083 3994 R2DMc6 oc 4. 2*H6008 200 BAL TO ADDR 806 
‘ 204K LEG 2018 3927 oc yL2°2110° CA INC. INCREMENT ADORESS > 3998 
. 201¢C 9205 2010 3928 oc XiL2°s20s° OB @e0ceO0 LOOP fF NOT ZERO 3996 
2D1E 1010 2D01F 3929 BoC 2*1070° oc INC. ENCREHENT HZ sDDR- 2b84 32997 RebBmec?7 EQu bo 
2320 8016 202% 3930 ot Xi2* 8016* O00 Cie TEST FOR END : ge 20e4 04no 2085 3998 Rz04cae oC ML. 2° D4aGO & 000 BAL Y¥O ADDR 460 
2022 3205 2023 3931 oc xL 2292058 CE BGCep RETURN TO LGCR IF NOT or 3399S 
3932 % Se 2086 6036 R2DMCS EQ’ C4 
3933 * START READ LOOF i. 2086 paoo 2087 4601 R20MCA OC Mi. 2°DAGO® 030 BAL T ADDR ACO 
3934 # i 4002 
2034 ?2FF 2025 3935 . oc XL2* 7 2eF¢ CF Ce SET HOS G2 TO INDICATE READ 2086 4603 R20MCB EGU a 
2026 2014 2027 3936 oc ML 2° 29148 30) «6«£§R 0,14 START ADDR S47 : Cc 2088 38eo0 2089 4068 ReOecc OC Xt 2% O80 % COG Bak TG ABDOR 896 
2028 21:35 2029 3937 oc ML2°2ULE8 22 &R 4418 START ASDR LO - - 6095 
2624 240F 2028 3938 oc ML2*%240F? 2 &R, SET HDB G4 TG START BATA 208A BPNSESES4O0F2° 440 205A 4008 RTZOOP BC CL4@®*ROUT 2% CONTRGL STORE TEST {SxEPRPEO IF S$S¥ if pude 
202¢C 9545 2020 3939 oC Mm. 2° 05458 13 LEs READ Me Be TO MDE 85 i 20020 C3DE0SESD3DES 240 4906 
202E $405 202F 39a0 oC *L2°B495 ¢ 1% ChR, COMPARE DATA : 2098 E2E306N9C S46E sch 4866 
2030 92E2 203% 3942 oc XLY]*O2Eee * 2S 689C.9 BRANCH EF ERROR 2DA2 E2ES404DE2 02 CSD? 4686 
2032 2410 2D33 3942 oc M291 asg® $6 ENC. INCREMENT DATA é 20AA OF7CS5C440C 9064 2 £068 
ase 41110 2035 3943 oc XL2°2130% 37 INC, INCRHENT ADDRESS 2082 E26&64&oFic3ssod 605 4006 
2636 92i3 2037 3944 oc xi 2* 9213 18 600,90 accor IF NOT ZERO us 208A SD 8006 
2b38 1616 2039 33945 oc ML 2*°igids 2S INCo ENCREMENT HE ADDRESS é 2pap ocoe 2OBC G4uG7 XOGQO0 ac MLZ°0590% 
2034 8016 2038 3926 oc AL2*BGi6* 2A Cie TEST FOR END ADDRESS te 2080 o309 20BE 4008 XGGO@ Oc RL.2° GEOG? 
203C 9213 2030 3947 sec M2°9213* 28 80C-.9 LOOP IF NOT END fo 2peF occa 20C0 4009 xo0ceG ac 2% 0C90% 
2D3E iF 10 2D3F 3648 oc XLZ2°2F ioe 20 «4§NCe «INCREMENT THE STARY CATA ee 20Ci 1000 20C2 4019 xX1000 be XL2° 20002 
2040 $20% 2061 3949 oc x. 2°9203 2 iD 868C+0 tone fF NOT ZERO : 20C3 3460 2OC& 403% X2400 OC KL2Z2* 4600? 
a0&- S2i€ 2043 3950 Rethic2 oc ML2*S2U5 2 gE NANG. TEST 19 COMPLETE ai 2008 isce 2DC6 4012 X2E0G oc KL2* 2E00 
3951 * sj Te 
3982 24 : BOR SRHTHH SOLS GR SSLSRSRRS PARKES HLS SKK FRE SLKA SESAKS CVS SHS EASRSSRK PERS RR RH 
en ae BSE « 49015 % ROUTINE 25 = SPaRe *. eet 
395@ % _ ROY & Wage wae the oh Ree Ss HE KSS BSS Ck Sh AHS SESH ESS SRR SHH SS SESSSBIRSK S&H sh 
3955 & aND MICRO PROGRAM : 2017 
3356 : 20C7 23 20C7 4048 RY2S Bc 4¥u2 fF 25? ROUTINE NUMBER 
20466 3957 R2GMC3 EQU = €: 2pcs So 2pce 83:19 oc Yn 3 F OS HO MANYAL INTERVENT f0N 
2044 TFOO 2085 3958 oc 42° 7E SG ® 6G ce SET HDB OF TO START BATA C30} i 2D0C@ 2DEe 20€EA 2029 ac  Z2ERT AE} ADDRESS Of NEXT ROUTINE 
2646 240F 20e7 3939 Be XLZ* 2k @ Of LOAD START BATA INTO HOB O4& Pes 20C8 €O BY 3214 &G23 8 PRUNT 
2048 7206 208g 396H oc x2 F20Q* 92 ICs SEY HOB 02 TG INDICATE BRITE &. ROCF Of 20GF 42022 BC ME. £ FOR € 
208A 2014 20486 3961 ac ML. 22 2OUSG @ O63 LR Geia START ADOR HI 2560 oD 20090 4023 Bc TLS e aBe 
204C 2115 2D4D 3962 oc Mee@* 211s? 0% £R 2615 START ADDR LO ss 2008 25E3 2002 4024 ac AL 2( 2 25HNOR? 
204E 0564 Sper 3963 oc aL Be OSBae OS LE eRIiTE MeBe FROM HDB 06 i é 20D3 Co SF? S236 4223 & $. 2 EK 
2080 0545 208i 3964 ac AL 2*O5458 0G LEs READ MeBe OATA TE HOB OS . 20D7 OSCSGESES4GF2F £20 2DES 4626 REEIDR OC CLiSt*ROuT 28 erPaRer 
2052 38405 2053 3965 oC Hi.2* B405e GP CiRe CEMPARE DATA . SD0F E2DPCLOSCS $026 
2D54 $060F1 2035 3966 oc MLATOOER & oe BOC.O0 BRANCH IF NG COMPARE ! a R027 
2086 i410 2087 2967 os FL2¢3910¢ Oo UNCe INCREMENT DATA i S029 SPSSTHSRE AAAS Ke RLSRR HGH ANAK SRR HES SESAHKSCSTSEHLSRKS & SE SSRSHRKS SSITASHSRESRESS 
2058 21190 2DS¢9 3968 Sc MZ*2Bikg? OA INC ENCREMENT ADDRESS O29 & ROUTINE 26 = Lia HOS 18 TESTS * 
2054 9005 2058 3969 Oc XLZ* 90053 08 860C,9 LnOP IF NOT ZERO | eS 40590 SSVAAKAERS AVLACHAE SHEL PS SELLAaRSCH SE SHS HLS SIS PES SIF SI SKE HS SERH RRS Rwy wh Hay 
2oSc 1610 2085 S379 x ML 28°agiase oc FNC e INCREMENT WI ADDRe : $O3i % * 
2D05E BO0LG 2D5F 3973 Oc ML2*B0i6@ QD ke TEST FOR END 4032 YHIS ROUTINE CHECKS THE YSN THAT DETERMINES THAT HOS 2A HAS & 
2060 3005 206% 3972 Bc xL2* 9608? GE #20¢.0 RETURN TG Lease EF NOT | & $933 % BEEN LC CADED BY THE PROGRAM, ¥F CHECKS THAT THE TSN COMES ON % 
i S973 « 49034 PROPERLY AND THAT E71 15 RESET By SSF Ce 7 aLSo TESTS THaT * 
3374 & START READ LOOP : 2 &635 * THE TSN OGES AQT COME ON TF ANY GTHER NDSB*S ARE LOADED. 
33ers | 2 4036 2 , & 
2082 V2rF 2063 3376 ac 42° 7 2FF ® OF #€. SET HDB 62 TO ENDICATE READ ; GOB P me Hees ee He hah ae ae By ae ah eh eM ae Hh Mh ah Gee aH GM SH RS HB Mah BA W HI MH MH MAB AH oh Fs oS Hh Vy Hy 
2066 26074 2065 32°? oc MLA*ZOLS* 20 48 0,1% START ADDR 4.0 ‘ &G38 
2066 2115 2067 3978 oc MLS? 2iyes ii L&R Osge START ADDR HE : &: 2BES 2S Z2DES 4039 RY26 ec XLEt 268 ROUTINE NUMBER 
Z2H63 246F 2069 3979 oc wu 2* ZaQrs 32 LR, SET HDS 0&2 Yo START BATA | eDES o0 20ES 249466 BC me 2 9OG 9 NQ MANUAL INTES VENT EON 
206A OS45 2D6E8B 39860 of ALZ* OSa5® a. $%Ee READ MeBe TH HOB OS : i SEG SES ROET 458% oC AL AIRY Sy? aBORESS OF NEXT ROUTE ME 
2D5C 8605 2D6D 398; ae M.2°B@G5* 24 CIR, COMPARE DATA | @ 4002 
2D6E o2€2 20G6F 3982 oc XL2 29 2E2 * 25 86.6 BRANCH If ERROR { 25F4 4663 USING ALBKO ie KAZ 
2070 1419 2074 3983 oC X27 igig® 26 INC, ENCREMENT DATA eDEa Ce 02 20%% 2068 g& RI BK04 oXRi ENETZALYZE KRY FOR INDEXING 
2072 1819 2073 3964 no MW 2°24104 87 ENC IMCRHENT ADDRESS | & 8045 : 
20 7& GO13 2078S 29089 bc XL2*O9O13* 1S BOC.S LOOP IF wot ZERO ' 20EC CO GF G2is 4066 3 PRINT PRENT RGUTENE HEADING 
2076 £G19 ap7? 3936 oc Hi 2% 1901708 IP TNs INCREMENT HI ADDRESS : 2BFC 01 2DFOQ 2087 Be ML2 FOE * : 
2n78 ea6i6 2079 3987 Bc W2*bg7iS* 3A Ci. TEST FOR END ACBRESS | 3 2CF1 15 20F 2 4048 a¢ Wee eRe 
207A 9033 2D?eB 338e oc Xi.2°9013 418 80C.0 “LOSP IF NOT ENC | 20F2 2E4A SBFSE 40%9 oe. ALZIAT 2 Bap} me 
| | & 
BATE OTIVULTS 25 COT 7S LSSANTS Prog 1D OBS2-2, DATE OTSUL TS 25eeT#S § SJANTE PROG ID wares 
: EC NG. 828023 82 £032 326034 PAGE 32 | EC NO. 825023 82 5032 S280 32 - PRGE _ Bea 
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164 MAINTENANCE ‘OIAGN CST IC PROGRAM 


8912 DISPLAY ADAPTER TEST 
ERR LOC OBJECT coDE ADDR 
20F4 co 8&7 S918 
20F8 83 20Fs 
2DF9o 2&48 2DFA 
2DF8 2 5E 20F¢ 
7 20FO CO 87 Sarre 
2E01 69 2Eoi 
2E02 5002 2£03 
2E04 31 4D opse 
2E08 CO 87 Safe 
2E0C 6A 2E oc 
2E00 S007 - 2E0E 
2EGF 31 48 ODE2 
2E13 31 49 od62 
2E17 31 4a opeze 
2E18 31 48 0062 
2E1F 31 4¢ on62 
2E23 31 4E Meo 
2E27 31 4F on62 
2E28 CO 87 SaFE 
2E2F 6c 2E 2F 
2E30 so09 2E3i 
2E32 CO 87 0216 
RES6 OSDGES E34 0F QF e940 Z2EGA 
2E3E ESEZDS840C03C 90 cag 
ie 2E46 C8CACZFi C) 
2E 48 
2E&B icos 2€4C¢ 
Z2E4D acco 2€4E 
2ESF Soo02 250 
2ES1 «905 2E52 
2E53 5004 2E 54 
2ES5 1Cos 2€56 
2E 57 4961 2eSa 
2€59 S007 2€ 5a 
2ESB 49e€2 ~ 2€Sc 
2E50 5009 2ESE 
2ESF 27 2€ Se 
2E60 00 2€60 
2€61 2€7%¢ 2€62 
2E63 CO BT o21A 
 2€67 O12 2E67 
2E68 oD 2E 6s 
2E69 2E7B 2€6a 
2EGE CO 87 02:16 
2ECF 0906 E4E340F2F 240 2€78 
2€77 €207¢C109¢5 
OaTe 07 SULTS 25 CCT Ts 
EC NO. 825023 82 £032 
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PART NO. 
PAGE 


«GG LOAD *I CROPROGRAM 
*OISASLE UPON ENTRY, FILL 2ND 
FSQ wItTH 805.6 GN ADORESS 

e START OF micRo COBbE 

ceENO OF MICROCODE 


°GO O00 FIkst PHASE 
eERROR HALT -69- 
*EXPECTED sror 


e080 LIQ TO HOB ia 


eGO DG NEXT PHASE 
eERROR HALT ~6a~ 
cEXPECTED stop 


«O00 ALIO to ALL NDBES 
EXCEPT Hoe iA-1660 THIS must 
NOT SET YSN LIG HDBIA 


«GO RESTaRT 43 CROPROGRAM 
eERROR HALT -6c- 
eEXPECTED RESULT 


eGO TO NEXT ROUTINE 


CL2i*ROUT 26 TsN LIO HDBiA® 


we cee h 


SSFe RESEY TSN 9 

TSNe MUST NOT BRANCH 
HANGe END OF FERST PHASE 
TSNe MUST BRANCH 

ERROR, HANG 

SSFe RESEY TSN 9 

TSNe MUST NOY SRANCH 
HANGe END OF PHASE 2 
TSNeS MUST NOT BRANCH 
HANGe END OF TEST 


STMT SOURCE STATEMENT 

4050 

4051 R18K01 5 Loaocs 

4082 oc XL1*E36 

4053 = 

4056 oc AL2(R18MCS) 
4055 o¢ AL2(RIBMCE) 
4056 

4057 8 SOM ICR 

£958 oc XL *69¢ 

4359 oc XL2¢S5002¢ 

4060 

4061 iis KAASS PHDES 
4062 

4063 e Comicr 

4064 oc XL1 &6 gz 

4065 oc AL 2° S5007¢ 

$066 

4067 39 ZERO.MDBO 

4088 Lio ZERO;HDS81 

4069 iro ZEROsHDED 

4070 aro ZERO , MOBS 

4071 t10 ZERO. HDBR 

&072 tro ZERG, HORS 

4073 Lig ZERO . HDB? 

4074 8 Com IcrR 

4075 oc XL3226Co 

4076 oc XL2°5009% 

4077 

6078 8 LINK 

4079 

40860 RV180P OC 

4080 . 
4089 

4031 

4062 BR SR Rn a een tecen ag 
4083 * STaRT OF MICROPROGRA~AM LISTING « 
&9084 BOR ee ee ee ee ee 
4085 RiBNcs Eau * 

4086 oc W2¢1Coge 00 
20sy7 o¢ XL2*49eoe G3 
4088 oc XL 2*So002¢ o2 
4089 oc XL2*49058 03 
4090 oc XL2°50088 04 
4091 oc MLZ*ICOg® os 
4092 oc XL2°4geye 06 
4093 oc XL2* 50078 Oo? 
40904 oc 2° 49E2 © 0a 
4095 R1BMCE oc XL2* 50098 09 
4096 

4096 

4097 


4098 

4099 

4100 

4101 RT27 oc 
4162 oc 
4103 oc 
e106 8 

4105 oc 
4106 oc 
4107 oc 
4108 8 

#109 R2MmOR oc 
4109 

4110 

42232 

4312 


1SJAN76 
825036 


XLieaze 
XuL3*Qoqe 
AL2 CRT26 } 
PRINT 
XLL*Oge 
TL 1 ge 


A. 2(R27HOR) 


LINK 


ROUTINE NUMBER 
NO MANUAL INTERVENTION 
ADDRESS OF NExt ROUT INE 


CLI3*ROUT 27 SPAREe 


PROG 10D 
PAGE 
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18M MAINTENANCE DIAGNCSTIC PROGRAM 


x. 


8912 


ERR LOC aavECT CaoeE 


i 


O © 


"3 
\.. 
os 
ke 
CC 2e7e 
2E70 
: 2€ 7E 
= 
2E80 
. 2686 
4 2685 
: 2E 86 
2e88 
i 2 8c 
2594 
2&99 
CC: 2&9 
2&96 
C 
2690 
€} eat 
2Ea8 
2E a6 
€) 2&7 
2EAa9 
€2ean 
_ 2EAE 
© 2eee 
. 2882 
{>  2€8s 
2E68 
€*  2e8e 
2€c2 
© 2€c3 
" -2Bes 
€C: 2ece 
2&0: 
DATE 
Ec No. 


© 


on) 


DISPLAY ADAPT ER TEST 


ADOR 
28 2E7C 
a0 2E75 
2eE99 2E7F 
CO 87 O214 
O1 2E 64 
oo 2685 
2E98 2&87 
CO 87 0216 
0906 £4 E340F2F &5 2EOS 
E207C10sc5§ 
29 2ESS 
oo 2E9A 
2Fao 2E9c 
2EAO 
c2 01 2&a9 
CO 87 oO21a 
01 2EAS 
10 PERG 
2€E5 2EA8 
co 87 S918 
83 2EaD 
2EE6 2EaF 
2F3F 2E8)1 
F3 $8 £qQ 
0D 1D 5512 56 32 
F3 58 80 
CO 87 Sere 
80 2EC2 
5028 2EC4 
co 87 0216 
D906 E4 E34 OF 2F MO 2ee5 
ET0&C 9E 340504 D9 
OT MILTS 28 (Ct 7g 
826023 825032 


a 
oS 


* 

PART NO. 4234255 

PAGE 33a 
STMT SOURCE STATEMENT 
4113 * ROUTINE 28 - sryQg NON@-IMMEDIATE TESTS * 
4114 a NAMSNSSANS SENSES CHARS ERR EHEDEROESeRHeERONSenssHDaEeaEssaesnnns 
4115 « ™ 
4116 # THES ROUTINE TESTS THAT WHEN A STO NON-IMM Is ISSUED, THE * 
eil7 * IR/1IQ BITS ARE LOADED INTO HOB 16-17. aND THAT THE ATTACHMENT # 
4i1B « BECOMES BUSY WHEN THE sio SVC REQ. LATCH COWES ON. IT THEN * 
4119 * TESTS THAT THE MICROPROGRAM CAN RESET SIO SVC REQ wiTH SF CG. # 
4120 IT THEN CHECKS TO BE SURE THAT THE HOB*s BEING MANIPULATED * 
4121 DURING THE IQ/IR CYCLES OF THE SIO NON~IMM WERE HANDLED * 
4122 x CORRECTLY. THE MICROPROGRAM IS THEN RERUN AND A TEST IS #ADE 2 
4123 * TO ASSURE THAT A S10 NON-IMMEDIATE ISSUED WHILE THE ATTACH * 
4124 * SENT IS BUSY WILL HANG THE CPU UNTIL BUSY DROGPS, * 
4125 « * 
$126 CN NNOAAERESNRGSHASEE FANN SEHR SURE ESEH SER CUHESESHOEESHRERESHEEONeaee 
4127 
$128 R128 Doc XLIe@ 29% ROUTINE NUMEER 
4129 oc XL1*008 NO MANUAL INTERVENTION 
4130 oc AL 2(RT29} ADORESS OF NEXT ROUTINE 
4231 
4132 8 PRINT PRINT ROUTINE HEADING 
4133 oc XL1°O48 
%134 DC ILasige 
6135 DC AL2Z(R28HCR) 
4136 8 LINK e TERMINATE 
#137 R28HOR OC CLAIZ*ROUT 28 sPaREr 
4137 
4136 
4139 ee eUT Ene ge eteeeetses ses nesesaeeensess nevasecaneceseeesomsnes 
4140 * ROUTINE 29 — TRANSMIT ¢ RECEIVE WORD READY TESTS * 
2143 eS AMAANSOINSSUREG ANON GNSRERSSAERESARSEREELE SEO SEE TENSOEESEESESeeee” 
4142 « ey 
4143 « THIS RCUTINE CHECKS THAT TRANSMIT anc RECEIyE woRD REaDY AND & 
4144 = THE INVOLVED TSN*S aRE WORKING PROPERLY, a woRD OF ZEROES 
4145 « IS TRANSMITTED ANC WRAPPED EACK IN DIAGNOSTIC MODE. MOQ CHECK = 
4146 * ES MADE ON THE OATAe * 
4147 x * 
4148 ST ISS2¢S9RAS9SANSURS atRaHOSneecRenEnseesESEneseaEnsssceeeereuenenness 
4149 : 
4150 aT29 oc XLi*29* ROUTINE NUMBER 
415% oc XL1 2008 NO MANUAL INTERVENT Ion 
4152 oc AL 2CRTZA) ADORESS OF NExT ROUTINE 
4153 ‘ 
4154 USING RIEKUL.xXRI 
4155 La RIEKO1 oe XR} ENITIALIZE xRi FoR INDEXING 
4156 
4157 8 PRINT PRINT ROUTINE HEADING 
4158 oc mMi*ois 
&159 oc ILi*2|ge 
4160 oc AL2 (RTL EOP) 
4165 
4162 RieKo; 5 LOancS eGC LOAD #ICROPROGRAN 
4163 oc XLi¢s3e eOISABLE UPON ENTRY. FILL 2ND 
4164 & FsaQ WITH 8cS20 On &4O0RESS 
4165 oc AL 2(RIEMCS 5 eSTART GF MICRO CODE 
4166 OC AL2(R1IEMCE) eENO OF MICROCCDE 
4167 
#168 sto X*EO¢ eSICr e ENABLE MICROCONTROLLER To 
4169 CLC RE PEAT(30) »REPEAT (0G A ORY RUN TO SET UP 
8170 $i0 X*60*.SIOI POWER UP CONDITIONS 
4173 
4172 8 DOMICR eGC EXECUTE MICROPROGRAN 
4173 oc XL2°B8O8 eERROR HALT ~ae- 
4174 oc XL2'*So25e eEXPECTED RESULT 
4175 
4176 8 LINK eGO YO NEXT ROUTINE 
4177 : 
4178 RTIEOF pc A29"ROUT 2s xMIT & RCV BORD READy® 
4176 
ISIAN VE PROG Ito 0891-2 
825034 PAGE 3za? 








18M MAINTENANCE OGIAGNCST IC PROGRAM — PART NO. 4234255 IBM MAINTENANCE GIAGNCST IC PROGRAM PART NOe 82348265 
PAGE 34 . PAGE 34a 
8912 DISPLAY ADAPTE& TEST . 8912 DISPLAY ADAPTER TEST 
: 
ERR LOC OBJECT CADE ADOR STMT SOURCE STATEMENT ERR LGC OBJECT CODE ADOR STMT SGURCE STATEMENT 
2E09 C3ESS0E6D6D9C «40 4176 oa 2F41 00 2F3i 4244 oc XL1*o0* NO MANUAL INTERVENTION 
2EE1 DeCcsCc1Cc4sEes 4178 2F42 3049 2 a3 4245 .o¢ AL 2ERT2B} ADDRESS GF KEXT ROUTINE 
4179 4246 
8180 Bem nm mee wn ne ee mew wo coe ero nowt Cc 2F62 4247 USING RI FKO?2XR1 
4181 * START GF HEICRGOPROGRAM LISTING & 2F4é C2 01 2F62 4248 LA RiIFRSO1 + kRL “ENITIALIZE xRi FOR INDEXING 
8182 Fe wm em ewe we mw ewe eee wc eo ee oe ront F 4249 , 
2EEG 4183 RIEMCS EQU & A 2F48 CO 87 G21A $2569 8 PRINT PRINT ROUTINE HEADING 
. 2EEG 5026 2EE7 4164 oc % 2°5026° 90 «6©80S-0 «GO SET INSIDE sRAP 2F4C O11 2Fac 4251 oc ML 1°O%% 
2EEB oBBO 2EES 4185 oc XL2*O B80 * O1 LE DESELECT ALL LENES t 2F4D 19 2F40 4252 bc 1% 25e 
2EEA 1FO04& 2EEB 41656 oC ML 27 1F 06 * O02 SSNeF YFURN GN DIAGNOSTIC HODE ye. 2F4E 2FAS 2FaF 4253 oc ALZ@RFIF OF) 
2EEC 1008 2EED 6187 oc XL2*1606°2 O03 SSFeG RESET 1706 REG BITS 22343 4258 : 
2EEE C760 ZEEF £188 ac xL.2°0780* O04 LE LOAD 1/0 REG & KIT WORD {ZERGES) . 2F50 OC C1 3022 302A 4255 MVC RI FMCE~6 (2} > HDB90G6 
2EFO 40E&1 2EFi 4389 oc XL2°*&CGE] * OS TSNe0 MUST NOT BRANCH o 2FS56 OC Of 3024 30X 2256 MYC RiF MCE-4(2}) -LISELA 
eEF2 O7 BO 2EF3 4190 oc ALe* O7802 oS Lee RELOAD £70 REG 2FSC OC Ci 3026 3045 &257 MYC RIFMCE-202) -WRPIN 
2EFa4 4009 2EFS 6191 oc xL2°4900S¢ O07 TSNeO MUST BRANCH ae 2F62 CG 8&7 5938 4258 RiFKOi B LOADCS eGO LOAD MICROPROGRAM 
2EF6 $008 2EF?T 4192 oc XL 2*5008 086 ERROR, HANG be 2F68 83 2F66 4259 oc XL 1°86 30 «DISABLE VvPON ENTRY, FILL 2nd 
2EFs 41F&2 2EF9 4193 bc AL2Z2*44 52° 9e@ TSNei MIST NOT SR ANEH $266 * FSG WiTH 80500 ON ADDRESS 
Z2EFA S60C 2EFB 4194 Be XL 2*°&00C ® GA ISN.ed MUST BRANCH a, Hee 2Fé? 2 at 2F68 4261 oc AL ZeRiFMecs) eSTART OF MICRO CODE 
@EFC 5008 2EFO 4195 oc XL2*5008° 08 ERROR, HANG i. 2F69 3028 2F6a 4262 BC. AL 2 RLF RCE} oEN.) OF MECKOCOCE 
2EFE 41€3 2EFF 4196 oc XL2°*4@1£3¢ OC TSN, wUST NOT BRANCH , <= 4263 
2F 90 400F 2FOi 8197 oc ML 2*200F 0 8D TSNeO HKUST BRANCH i 2°68 31 3 SS&Ei 4264 LEG XOSFF eHDSO eL GAD DATA FAT TERN 
2F 02 SOC 2FO3 4198 bc XL2'soceEes¢ OF ERROR. HANG . 2F6F 3C 15 5564 4265 avo LPCNT oX* 19% eINCREASE HICROPROGRAM TIRE 
2FQ9% 41E4 2FC5 4199 oC ML 2° Q2E 48 GF YTSNei MUST NOT BRANCH 2F73 3& 01 S540 4266 saN EXBS -X27 02° eSET ERROR BYPASS BIT ON 
2F06 £2012 2F07 4200 oc mi. 2°4012° 9 YSnN,0 MUST BRANCH : ; 2FT77 CO B87 SAFE 4267 8 BENICR oGO EXECUTE MECROPROGRAN 
2F08 S011 2eFO9 4201 oc XLUZ2°SOVi*® 32 ERROR. HANG € : 2F78 8&2 2°78 4268 oc xL2* 62° cE RROR HALT -G2< 
2FOA 41ES 2FoB 4202 oc XL 2°@iES? 22 TSnel MUST NOY BRANCH : é 2F7C S037 2F?7O 4269 REFEXI pC . XL2°5037¢ eEXPECTED END OF TEST 
2Foc 4015 2FOD 4203 boc XL2°*4015* i3 TSNeG MUST ERANCH 2 2F7E 40 91 18 SFES £278 ac RiFEX1€2 .XR1) -STATAC eTEST FOR actual. END OF TEST 
2FOE $014 2FoF 2204 oc KXL2*S914 & 416 ERRORe HANG &. @F83 F2 B81 04 R273 JE RIF GO2 eJUMP IF sO 
2Fi0 41&6 2F8i 4205 pc XLZ2°41EG¢ 35 TSNest MUST NOT BRANCH 7 2F86 CO 87 S2esa 4272 B PZ GREG eERROR GO PRENT 170 REG 
2Fi2 42038 2F 413 4206 oC AL 2*4028¢ 16 TSNoO MUST GRANCH is Gee &273 
2Fia SOV? 2FiS 8207 dC AL 2*50LF e 17? ERROR. HANG €: 2FSA CO B87 02:6 &S27% RIFBOR & CaN o69 TO NEXT ROUTINE 
2FiG 414A oF i? 6268 oc ML2°G21 A*, 18 TSwNe1 MUST BRANCH THIS YreME ; £275 
2Fi8 5019 2F 39 4209 oc XL2°*Soise £9 ERRGRs MANG oa 2ESE OSPSESES4GFZECISZ0 SEAS 2276 RTEUFAP OC GLsSe*ROuUT 2A AMITPREC 4.4. BITS? Senne annem ice ieen tn eae 
2Fi& 4OE7 2F38 a2Z19 oc XL 2° 20E7*t 4& TSne0 MUST NOT BRANCH Tez S YEE : & 2FS6 ETD4C SES6IDGE SCS 4276 
@Fic o244 2Fip 4212 oc BL 2°O2a4 4 35 ces PUT 70 REG INFO HOB o2 : 2FSE “OCI D3DS&OCe2c $E3 S276 
2FiE a1 Fa 2FiF 4232 oc AL 2*a@jiF&S? 410 0 TSNe? MUST NOT BRANCH © 2Fas E2 &276 
eF20 ALF 2F2i 4213 oc RAL Z2°a ize « 35 TSNed LOOP UNTIL REC. woe ROYo ON AGATA ss S277 
2F22 $010 2F 23 4234 oc X2° SO1o* 3& 898-9 BRAKCH BACK TO ABOVE word i ROT B Ro mee we nearer wee eee ew cman cm ar rsew seers HY 
2F2a 7400 2F2S 4235 pc mL 2°7a008 af 6kCe SET HOB 4 = 06 | 4279 * START OF MECROPROGRAM LISTING * 
2-26 4122 2F 27 4236 oc XL2°6122 & 20 TSN,y1 MUST STyLL BRANCH BZEO Berweee ce women sees re cocoa mi erin vio camer eco vine tome we we OE 
2F26 $021 2F 29 6217 oc RL. 2° S023 4 21. ERROR, HANG | S281 KERSVKSESRAPARKACHSEA SIR AK SSA KEKE SKVSKSSEKERKELSE GES EFASKHCLHKAAKSD KRSEAHESEER KH HHS 
2F2A G26 eF2s 4218 oc RL 2°O 282° 22 LEe PUT £70 REG IN 4#DBB 02 | 4282 *® THE FOLLOWING MICROPRGGRAM 15 USED BY ROUTINES 2Ae 28+ 2C 020 ¢3Ca « 
2F2c 41€9 2F 2p 6219 oc RL Zea EG e 23 TSNel €ysT NOT BRANCH © 4263 x ¥#ORDS O3D. OSE & OSF ARE MOCIFIED TO SUIT THE USING ROUT Ineo & 
2F2E 1F 08 @F2F 4229 oc xXL2*iF ose 2% SSFeF RESET DZAGNGOSTEIC HOCE | £284 # = 
#30 $025 2E31 4221 oc XL22°50258 25 HANGe TEST COMPLETED | 4285 * SEE SELOW FOR CHOICES 
2F32 1£04 2F 33 4222 oc M2°LEGS 6 26 SSneE TURN ON ENSE DE BRAP SB 8286 SASS SKERSEK TKK ILE CAM AeEKKKESERHKKSRRVHY S LBS SHwTCHLH CHI ARESEAREKLELELKSERS RGB 
2F34 70090 2F35 4223 oc L297 OCH 27 Ue PUT G66 IN HDB 00 TO DESELECT LINES | &237 
2F36 CABO @2F 37 2224 oc XL 2* QO asge 28 CEeDESELECT ALL ALY LINES» | 2Fa? £288 RIFMCS EQU g 
2F38 ocso 2639 4225 pc XL 2*°OCBQ* 293 wLe OESELECTS ¢ ' es 2FAT 7aA00 2FAB 4289 oc RLZ*7 ANG * 920 Ic ZERO OVT HOB Ad 
@aF 3A 0080 2F38 ¢228 role Xt.2* 0089 # 2& t& DESELECTS B | 2Fae 5638 2FaAa 8290 pc ¥L2°S036e 02 S8OSe0_ TQ ADDR O35 
2F3C 0£30 2F 30 8227 oc ML2*QEBG® 2B Le OESELECTS E | 4 2FaS S662 2Fac 42972 oc XL. 2° SO02t 02 ERROGRe HANG 
ZF3E $001 @F3F 4228 RLEMCE OC ..2*5003° 2 896-0 TO ADDRESS O04¢ eC: 2FAD 2010 @FAE 4292 oc XL 2°20108 93 ERe HOB OO = BITS 22623 TO BE WRAPPED 
4229 - | 2Fare 2111 2FBC 4293 oc AL|*2zize 04 LPRe HDB O1 = BITS @-11 Fo SE WRAPPED 
4229 i. @F el err. 2FB2 294 pc XL2¢ 7aFFe OS Cs S€¥ RESET PATTERN To FF 
4230 BHVSTS IHD YAETHRGRSKCH ASKS GSHS HSER K FELKKSS KAA TKK SE LAKHS EAR SERLLS SHH Pe doe H ee, € 2Fe3 Ei00 2F84 4295 BC ML 2*E40G8 06 Cys TEST BITE TO BE WRAPPED = 00 
@231 ROUTINE 2A - DATA BRAP TEST {ALL BITS) $! 2F 85 3c09 2FB6 £296 o¢ ML a*§ scog* oF 80C.3 IF SO LEAVE RESET PATTERN = FF 
&232 CEHEESOIGE SES RERLEL SESS ISESARESSG RH CELGLSEALE SHES CSLSE LEAS AAAS SAHTSRAE QFE? 7400 2Fea 4297 oc XL2° 74008 O08 [Ce CHANGE RESET PATTERN TO 90 
82335 & ; a ss 2F eo 7569 2FSA 6298 oc x 2° 7S00° 09 %$(C-. RESET RECe CHeme IRBECATOR 
4232 & THES ROUTINE wRAPS ALE BITS IN OFAGHRSTIC MGDE anno TESTS 2! im arF6e i508 2FBC 4299 oc AL274506¢e Of® SSF. RESET RET. CHK e 
4235 *% THAT THE BiTS RECEIVED ARE THE SAME AS THOSE YRANSMITTEBS x! 2F8G Yous 2FBE 4300 5c Hi. 2* PESSZe O08 Ceo INETT ALE ZE RECERVE HOB OS 
4236 % THE DATA TG SE USED IS SUPPLIED BY PRE-LOADING HOS LO-ife %: C3 2FB8F 2704 2FE0 8361 DC XL 2* 27045 CC LRe TNETIALIZE RECEIVE HDS Oo? 
4237 «© THE DATA PATTERN IS WRAPPED AND CHECKED 255 YTIMESe THE = = 2FCi F301 2FC2 4302 oc M2°7301° oD INITIALIZE COUNTER To o3 
a23e * MECROPROGRAM FOR THIS ROUTINE 1S USED FOR THE NEXT 3 ROUTINES *: : 2FC3 19006 2FC& 4303 oc RL2°4 0088 OE RESET i790 REG BITS 263915 
4239 SV SUPPLYING DIFFERENT DATA 10 HDS igo-tle ey €: 2FCS iF 64 2FC6 2304 bc HL 2°LFOae oF SSN... SET ON SEAGNOSTIC MODE 
$280 % * 2FCF Face 2Fcs 43905 oc XL2* rooge 40 TONs CHECK FOR BIT 2 TO BE ON 
4261 SEGLOGSERSES EASED £982 ORNESYSTS SORE REELS SSM ULESS CASSEL ERE tET OLE SEO TESS s 2Fcs 99013 FCA £306 Dc KL2* 90152 i! 8cc.,0 SRANCH IF BIT 2 SHOVLO se OFF 
2242 & 2FCB 1264 2°¢cc 4307 oc %L 2°43 2088 12 «SSN. SET BIT & OF i vD REG ON 
2F40 2h 2F 69 42463 RTA oc ¥.3 8 BRE ROUTINE NUKRBER 2Fco F902 2aFce 4308 oc HL29Fao1* 33 TSN, CHECK FOR BIT 3 TO BE OFF 
: DATE OT SULTS 25¢cTv7s LSJANTS PROS 1D 0891-2 DaTE O7IULIS 2S&et7s 158anN7s ; PROG IO 0991-2, 
Ec NO, 825023 82 £032 625034 Pace 34 EC NGe 825023 825632 825634 ’ PAGE hy S4&A 
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18M MAINTENANCE DIAGNCSTIC PROGRAM 4234255: 





PART NO- 18M MAINTENANCE DIAGNCSTIC PROGRAM PART NOs 4234285 
PAGE S87 PAGE 38a 
8912 DISPLAY ADAPTER TEST i 8912 OISPLAY ADAPTER TEST 
f : 
ERR LOC GBVECT CODE ACOR STMT SOWCE STATEMENT | ERR LOC OBJECT COCE ADDR STMT SOURCE STATEMENT 
2FcF 9016 2FDO 4309 oc XLZ°9016¢ 14 B0C.0 BRANCH IF SO | Ch 3047 5040 3048 4377 ywRReQUT DC XL2°*50408 BOSe0 TO ACR 0406 
2F01 1304 2FD2 4310 Dc ML 2°13G66° iS SSNe SEY BIT 3 OF 170 REG ON G37 GQ RRBRERARL HEARSE AHKAEBEKER ERS EAARE ALARA SARA ARE ALARA ERA HEEAEKEKEKKERERRER EEE 
2FD3 O781 2F04 4311 oc XL2*o7el? 16 LE, LOAD I7G REG AND TRANSMIT WORD &379 * ROUTINE 28 - DATA wRAP (NO BITS) * 
2FDS 4017 2FD6 2322 oc aL2°4017° 17 YTSNeO WAIT A CYOLE i € 9380 ERE KEKKS FERESKSERASRA CK SASREKKASRKALEAKRAKSHHESETS TLS SKE SSELSRHRKS ORE ASEESD 
2FO7 1008 Z2FD8 4313 oc ML2°1 008° 16 SSFeO RESET BITS 203013 OF 1/0 REG | 4381 * * 
2F09 0784 2FOA 4314 oc XLZ*O754 ¢ i@ cEe CHANGE BITS 4-35 OF X%/0 REG AND 7 4382 * THES ROUTINE IS SIMILAR TO THE LAST ROUTINE EXCEPT THAT NO a 
4315 * START ANOTHER TRANSMI Te €3 4383 * BITS ARE WRAPPED. THE MICROPROGRAM LOADED AND EVERYTHING x 
: 2FDB8 a01C 2FOC 43126 oc XAL2*aOic? JA TSNeG MUST BRANCH ~ 43684 x EXCEPT THE DATA IS THE SAME. * 
2FOD $016 2FDE 4317 oc 4% 2°50:36° iB ERROR: HANG | . 4385 * * 
2FOF a2 1& 2FES 4318 oc xiL2°431¢e* 3C SNe? WALT FOR RECe WORD READY DON Cs 8386 SHREK REASHHHKAALRAEE ORES ILRATAAARKSE RK KARKAKE EK KE AKT KEARSE KEARSE AKAKAS ER 
2FEL SO1C 2FE2 4339 oc xXL2*soics 1D 68Os.9 RETURN TG PREVIOUS WoRD i 4387 
2FE3 a744 2FEA 4320 oc XL 2507845 JE LEe MOVE IYO REG TO HOB OF ' Bt 3049 26 3029 £388 RT28 oc MiseBe ROUTINE NUMBER 
2FES 41€&: 2FE6 4321 oc xL2°4 1L£1° LF TSNel MUST NOT BRANCH f 364A O09 304A 4389 oc XL1*O0O8 NO MANUAL INTERVENTION 
2FE7 8222 2FEB 4322 oc XL 262228 20 TSNe2 CHECK FOR BIY 2 ON | 3048 30C1 304c $396 dc AL 2QRT2C) ADORESS CF AEXT ROUTINE 
2FE9 c602 2FEA 4323 oc xXLe* Cg02"* 2i SBF. SET SIT 2 FLAG OFF IN HDB 06 — 4391 
2FES 4324 e@FEC 4324 pc XL 2°422a8 22 TSNeS CHECK FOR SIT 3 ON | €> 3077 4392 USING ROCKO eXRY 
2FED C601 2FEE 4325 oc xL2°C601 23 sBF,. SET SIT 3 FLAG OFF IN HDB 06 \ i 39040 C2 01 3077 4393 LA R20K01,XR1 INTT£aLzZeE XR1 FOR INOEX INC 
2FEF 4a26 2FFO 4326 cc XL2°*4@ A260 2% TSNsA CHECK FOR BIT 153 OFF to 4394 
2FF1 C680 2FF2 4327 oc wL2*C 680° eS S68. SET BIT 13 FLAG GFF IN HOB 06 t 3051 CO 87 O21a 4395 B PRINT PRINT ROUTINE HEADING 
2FF3 4834 2FF4 4326 dc XL2°absas 26 (TSNeB CHECK FOR RECEIVE CHECK a 3205S 91 3055 4396 DC XL1*o9ue 
2FFS 8600 2FF6 4329 oc xwL2°*S8600* 27 CIR, CCMPARE HDE G6 WITH OC tn ary 3056 tea 3056 4397 oc ILi* ogre 
eFF? SC2ZA 2FFS 4230 oc XL 2°OC2ae 28 BOCs3 ERROR IF NOT THE SAME 3057 SOBA 3058 4398 oc ALZ2€RT200P} 
2FFS §035 2FFA 4331 oc xL2°S035* 29 BOS 0 TG 4DR 356 DATA ERROR ‘ ~ 4399 
2FF6 870: 2FFC 4332 oc “xL 2°83 7018 24 CiRe COMPARE #958 O07 WITH Gi i 2 308% ¢cO 87 5918 4400 8 tcadcs eL GAD PGM TO SET CURAR 
2FFo SC2D 2FFE 4333 oc ML2*9c2p" 2B BOC.,3 ERROR IF NOT THE SAME bok 305D 33 305D 4601 DC XLE*B3e 
2FFF Sots 3000 4334 oc xAL2°S5035°8 2C 80S 0 TO ADR 35- CATA ERROR . 3O0SE 32088 30SF 4402 oc a_2{R20KCS) 
3001 7683 3002 4335 boc xL2*7683¢ 2D IC, INITIALIZE HDG 06 AGAIN : 3060 30C90 3061 44093 oc AL2 (R20MCE} 
3003 32310 3008 4336 oc XL2*2 370° 2E %INCe INCREMENT THE COUNTER £3 3062 F3 58 £O 48604 £30 X*E0* eSIOI sENABLE MICRO CONTROLLER 
3005 9C37 3006 4337 oc xL 2° 9C37# 2F GOC.3 BSRAWCH IF END OF TEST i 44965 * TO SET CURAR 
Joo? 411€ 30906 2338 oc ML 2°ALiEt 30 TSNei REC « £DOe READY MUST BE ON AGAIN . 3065 OC Of 3022 3024 4406 MVC RIF MCE<-S i2) eHOS90G 
3009 F303 300A 4339 oc xiL2*Fsoie 31 TSN, IF NOTe CGUNT MUST BE SDD , i 3068 OC Q1 3024 302¢ 2407 yc RiFMCE-4¢€2) .LISELA 
3008 SCoE 300¢ 43406 oc XL 2° oc o£e , 32 80Ce3 IF SOr RESTART PROGRAM . 3071 CC 01 3026 3046 &4&C68 HVC RIF MCE~2 (2 )sWRPIN 
Laern 300D 5033 BOCOE 434i oc XL2*Sos3° 2 ERRORe HANG fe 3077 CO 87 5916 4409 R2eoxol B LOADCS «GO LGaD MECROPROGRAM a I oe 
SO0F 7SFF 3010 @342 oc XL2° 7SFFe 3Q RECe Chk. SET HOG S = FF ‘ ee 3078 83 307B 4410 oc XL 1° ase eDISABLE UPON ENTRY, FILL 2nd 
3031 SO35 3012 4343 oc XL 2*5035¢ 35 CATA ERROR». HANG 44il1 & FSQ WITH BOSeS ON ADDRESS 
3013 S036 S616 4344 oc XiL2°S036° 36 DUMMY HANG : Bf 307C 2FA?7 3070 4412 5c AL 2(RIFMCS) eSTART GF WICRE CODE 
3015 S037 3046 £348 oc XL 2*So0s7t 3? HANG. END OF PROGRAM : . 3O7E 3028 BOTF 4413 oc AL2CRIFMCE) eENn OF MicROC ODE 
3017 GABA 3036 4366 oc XL2°oaSa* 32 LE AA DESEL ALi DRSRECS DECUDE aA 4416 
3019 o868A 30lA 2347 oc XL2°*OB8BAS 39 LE BA DESEL ALL DRYREC; OECODE 8 7 3080 31 48 On62 2455 uLr0 ZERG se HOBO ei.0AD DATA FATTER 
3018 OCSA 3G01C 4348 oc ML2°*GCSBA* BA LE CeA DESEL ALi DR/SRECS DECODE C ! [% 3084 3C 10 5564 4416 My I LPCNT Xe’ 308 ®INCREASE MICROPROGRAM TIRE 
3010 ODBA 301E 4349 oc XLZ?OOBA® 36 LE DeA DESEL ALL DR/REC; CECODE BD x 3088 3A O01 55aD 8417 SBN EHGP sXeO20 eSET ERROR ByPASS BIT On 
3O1F CE BA 3020 4350 oc AL2"°OEBA! 3C LE Eva DOESEL ALL GR/SREC? SECODE & ; 308C CO 87 S4FE 4418 8 DOMICR oGO EXECUTE MICROPROGRAN 
3921 aco0 3022 #351 oc ML2°O0000* 30 IC GeX*ZZ2° FILLED IN BY USER. C3 2090 64 3090 4419 ec MELISS eERROR HALT ~8au 
3023 0000 3024 4352 oc KL2°GOC0O* SE LE 209 FILLED IN BY USER. 3091 5037 3092 4420 R2Gx1 OC XL 2° SC37* vEXPECTED END OF TEST 
3025 0090 3626 #353 oc XLz?0000° AF *SET INSIDE wet OR* BCS TO G40 7 3093 4D 01 18 SFE6 4425 cL R20EX LC Se RRA eo STATAC esTEST FOR ACTUAL END OF TEST 
3027 $003 3028 46354 RIFMCE Oc XL 2°65003"* a0 BOS.0 TO ADOR O23, BY USER. {. 3098 F2 Bi 04 4422 JE R20801 eJUMP AF SO 
4355 39098 CO 87 S252 4623 8 PYTORESG eERROR GO PRINT 170 REG 
4356 4424 
4357 = CHOICES FOR WORD O30 : €; SO9F CO 87 aO216 4425 2080: AB LINK oGO TO NExt ROUTINE 
3029 7960 302A 4358 HDEV8O DC 4tL2*79808 ic HOS @ EQAL 86 LOADED BY USER { 4426 
3628 7940 302C £359 HOEg40 OC we 2° 79808 IC KDB 9 EQUAL 40 LOADED BY USER a 30A3 DSCHESES4OF 2C 240 SOBA 4427 RTZOOP oC CL24*ROUT 28 XMIT/REC NO BITS?® 
3020 7926 302E 366 HDE9Zz0 OC XL2°79208 IC HOE 9 EQUAL 26 LOADED BY USER € 3OAB E7ND4C9E3Z6109C 5C3 &&27 
302F 79190 3036 4361 HWDBgLloO OC X%L2*° 79108 ic HDB 9 EQUAL 10 LOADED BY USER 3CB3 4005 0540C2CSE 2E2 4427 
3631 7908 3032 82362 HDESOS OC xL2¢°7908 : IC MDG 9 EQUAL 08 ECADEO BY USER BAZ BB rm en ce et ete ra an eee ee ee oe a ae en ate sane om ete 
3033 7904 3034 4363 HOBVO4 OC Xt2°*7904° Ic HOB 9 EQaAL C64 LOADED BY USER 4425 * START OF MITROPROGRAM LISTING 
3035 7902 3036 4364 ®DE902 OC ML2*7902" 1c HDG S EQUAL G2 LOADED BY USER GE BO He me ee we ee cee wee re on eres eae ee omen ee Ho wen ae 
3037 7903 3038 4368 HDSG0;1 Oc XL2* 7yeo1* ic HOE S&S Equar 01 LOADED BY USER : 3O0BS 4631 R2CMCS Eau * i 
3039 7900 303A 4366 HDB990 OC xL2*7 2008 IC HOB 9 EQUAL 00 LOADED BY USER €: 30BB 7000 30BC 4432 OC XL2e7C008 0O ICs SET HDB oc To zERC 
4367 : 3O060 717% SOBE @433 oc XL 2°*7371% O23 Ce SET HOB Ci TO 73 
4368 * CHOICES FOR WORD O3E 2 SOBF 1704 3O0CG 4834 R2GMCE DC KLe2¢y70e* O2 SSNe LOAD CYURAR FROM MBAR 
3038 ase 303c 4369 LISELA OC *%L2*O ABQ LE LINE-SEL-A FROM HOB Go LOADED BY USER BE 4435 
3030 oB88B9 3SO3SE 4376 LISELS DOC 4%.2°OBa9* LE LIWE~SEL-8 FROM HDB GS. LOADED BY USER 44385 RBS RRBRLEKA EE SARE SEA SEHD WE SHS HE TO ERE TE RE TESA ES 
S03F Oc89 3040 43713 &ISELC DOC XL2]°0 Cage LE LINE-SEL-C FROM HOB GS. LOADED BY USER i 4437 % ROUTINE 2C = DATA WRAP (ALTERNATE BITS AA} * 
3641; oD8s 3042 4372 LISLO OC XL2* CO8gS* LE LINE-SEL-D FROM HOB 9. LOADED BY USER i & 4436 SEERE HAH AERHERREREVKE SHAIKH CMH HHEA PHM HES REEMA DHEA RH BERT HH ARLABL BRS 
3o0e3 CESS 30446 4373 LISELE OC mM. 2°*OEB9? LE LINE-sEL-E FROM HOB Ge. LOADED BY USER : 4439 % * 
a374 ; S8A0 x fHIS ROUTINE IS LIKE THE LAST ROUTINE EXCEPT TeAT ALT. (AA) * 
4375 * CHOICES FOR WORD 03F \ © 8441 BITS ARE WRAPPED. THE MICROPROGRAM LOADED AND EVERYTHING * 
3045 100 3046 9376 wWREIN OC XL2*2 EOS SSNE SET INSIDE wRaAP 4822 + EXCEPT THE OATA IS THE SAME. * - 
; DATE O7IUL 75 25ect 7s ISJANTS PROG ID 0891—2 DATE 07 JUL75 25 ccT7s 1SJAN76 PROG ID 0891 -2 
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PART NOe 423425 
PAGE sé PAGE 36A 
| 
egi2 DISPLAY ADAPTR TEST . 8912 DISPLAY ADAPTER TEST 
ERR Loc oBJECcT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOUSCE STATEMENT 
4443 * a f 3148C OC 01 3026 30 46 4507 MVC —- RAIFMCE~2(2) .WREIN 
4444 » eae caGeeeenedsennsen SEESREERESAEE SSE EEE ESSERE SEH ERELEAES ATES BEST IS ESS 3152 co a7 5918 4508 r22K01 8 Ltoadcs «GO LOAD MICROPRO GRAM 
6445 ie Wee 3156 83 3156 6509 oc @1°83* eDISABLE UPON ENTRYc FILL 2ND 
B30Ci 2c 3OcL 4446 RTEZC pc m172C8 ROUTINE NUSEER t 4510 % FSQ WITH BOSeO ON ADDRESS 
30G2 00 30C2 4447 oc xL 12008 NO MANUAL INTERVENTION 3157 2Fa7 3iS8 4Sii ae ALSOCRLFRCS) eSTART OF MICRO CODE 
30C3 3130 30c4% 4448 oc AL2<RT2D? ADORESS OF NEXT ROUTINE f 3159 3026 3iSA 4512 BC AL. 20R2FMCE) «END UF MICROCCDE 
. 8449 . 4533 
- 30C5 CO BT O24 4450 8 PRINT PRINT ROUTINE HEADING a 3158 31 68 3198 4514 Lic ¥0155 HDEO eL OAD CATA PATTERN 
30C9 O1 3009 4451 pc MEL? Or? ZasF 3C 10 S564 4515 mv I LPOCNT 2 X21G° siNCREASE MICROPROGRAM TE ME 
3GCA 19 Boci. &452 oc wir2se : 3163 3a Gi S&40 4516 SBN EHBP +xX#6278 eSET ERROR BYPASS GIT ON 
30cB 3iar 30CC 4453 oC At2 (RT21 063 3167 CO 87 S4FE &517 5 NOMICR +GO EXECUTE MICROPROGRAM 
44584 : 32:68 8&8 3166 ¢518 oc x1 esses eERRGR HALE ~88- 
30E3 4465 USING R2ZIKOLy KRG : 316C S037 3160 4519 RZ22Ex%2 BC ML2°*5Q37° sEXPECTED END OF TEST 
30CD C2 O61 30E3 4456 RZ2ist LA R21LKOLXAL INETEZALEZE XR FOR INDEXING BL6E 4D 01 18 SFES 4520 CLC R2ZGEX1€ 2eRXRib oe STATAC eTEST FOR ACTUAL END OF TEST 
4257 = 3:73 F2 Bi OF 452) JE R2280 2 oJUMP IF SO 
ZOOL OC O01 3022 3058 4458 MVC Ri FMCE- 612) HOSSSO e 3176 CG 87 525A 4522 B PLOREG sEBROR GO PRINT I/O REG 
3007 OC Of 3024 30X 4459 avec RLF MCE—4 (2),LEISELA 4523 
30DG GC OL 3025 3046 4460 MVE RIEMCE-262) e#RPIN : 337a CO BF 5216 $524 R22801 8 LINK GO TO NEXT ROUTERE 
30€2 CO 87 5918 4461 RZiKOL 8B LOadcs 260 LOAD MECROPROGRAM ae 4525 
3GE7 63 BOET 2462 oc xXLLcCasze eDISABLE UPON ENTRye FILL 22ND ZL 7E DODGESES4OF2C*G 31F6 4526 RT 22aP DC SL25sROUT 20 XMITZREC ALY BITS” 
£463 2% £SQ WETH G0S2eC ON ADDRESS 3286 ETD4CGE 361IDSX LS 45 26 
30E8 2F AT Z0ES 4464 oe AL2«(RIEHCS } eSTARY OF MICRO COGE % BiBE SOCIDSES40C2C SES 8526 
ZOEA 3028 30EB 2465 oc AL 2(RIF HCE) «END OF MECROCODE 3196 E2 4526 
4466 a5 Bis? 0155 31298 8527 xG15s oC MLS°O1SS* eALTERNATE BIT PATTERN 
B3OEC 31 48 2740 4467 1a RXOZAAsHDEO eL OAD DATA PATTERN &> : 4528 
SOFO SC 30 5564 4468 MVE LPCNT 5 X® 30° eT NCREASE MICROPROGRAM TIRE 4528 
3O0F&a 3A 0% 5540 &469 SBN EHBP>e X5OR7 aSET ERROR BYPASS BIT GN a522 peaeecsgu seen tett© 190 UN UAGHEASOEENAEES TES DEERE GEES SEAT SSS SLL LLT SONNY 
BOFB CO SBF SaFE 4670 a CONICR «GO EXECUTE BICROPROGRAM cS 4530 * ROUTINE 2E - TRANSMIT ZEROES TEST * 
SOFC 86 3Cec 847% pc XL 2° S6SG* «ERROR HALT ~RE@ $33: * maeneagecaeeatHeGAedhO2a RSS 9SEHERTH LIE EERLIL SHEETS ESTAS AERES SE ISS SS 
30FD 59037 BOFE 4672 RZIEKi BC XL 2° SORT? ,EXPECTED ENG OF TEST 4532 * * 
SOFF 4D 01 186 SFES Ga7s CLC RELEKEL (2 sMRLPCSTATAS eFEST FOR ACTUAL END OF TEST 4533 % THiS ROUTINE CHECKS SSN 9 BRHICH CAUSES THE ATTACHMENT TO * 
3i0@ F2 8 O04 447% JE R23801 : eJUMNP re SO 4534 & TRANSMET 13 ZEROES INSTEAD OF THE DATA TN THE 370 REGI STERe e 
ne 3107 CO B87 S25a @47S 8 PICREG sERROR GG PRINT I/G REGS 4535 % SSN 6 1S TURNES CN AND THE IG REG Is LOADED YeICEs aT THE SF cence cence 
a&76 es 4536 * END Of 13 CYCLES RECEIVE WORD READY 1S CHECKED TO ASSURE IT * 
3208 3D 42 0A03 4a7F R22801i Gi PRITNe H8G2° aTEST FOR ROUTERE 42 6537 % DID NOT COME ON CINCICATES ALL ZERDES TRANSMITTED}. THEN: s 
Bi0F CO B1 aFF4 4678 BE 4 OR2 eRETURN EF SO £538 % L3BKORE CYCLES LATER RECETVE wORD READY MUST COME ON AND THE a 
Bilis cO BF 0216 4479 8 LEwK 2GO YG NEXT ROUTINE ee 4539 * WORD RECEIVED Ig CHECKED TO BE SURE IT iS THE SAME AS THE * 
4466 &520 * ONE TRaANSMITTES. THIS ROUTINE ES SONE BY WRAPPEZNG IN DIAG=- s 
Li? DYSDS6ESERAOF 2c 240 Siar 4481 ara,or oC Ches¢RauT eC NHETZREC ALY Birs® $541 *% NOSTIC MGDE « & 
BLLF EVOSCSES61LD9C ECS asl 3 4542 % * 
B12? €0C1D3E340C2C fE3 4482 4543 ® pceceucaceueaceesst SUh2SS02 E5408 LEREESE CTE SEE REE SSRESA LTO SSS ESTES SS 
Bi2F E2 $581 : £544 : 
4682 _€) 3199 2 3199 4585 RTZE OC MLLeZes ROUTINE NUMBER 
8482 . BiSA 00 3Zigk 2546 oC Ke 2 oar NO MANUAL INTERVENT TON 
8483 even se eeeh beeen BO 0SE AERTS LENE TET ERERESESE OS HOT SERSARE ESET ERES ESS SES SES 31i9B 3244 329¢ 4547 oc i 2ERT2F } ADDRESS OF REXT ROUTINE 
4484 % ROUTINE 2D ~- DATA BRAP CAL TERNATE BITS 55) ei @ 2546 » 
2485 * peneenss eens HFS HE SCERRERL ESE HSE TEAAEEGES GET INTL SESE LES E SES SEES ES 3tas 4649 USING RZ3BKOUoXRE 
4486 @ %! 319d C2 O28 3LAD 4550 LA R25KGi oXRI TNMITIALIZE XRG FOR INDE xine 
4487 & THIS ROUTINE I¢ LEKE THE LAST ROUTINE EXCEPT THAT ALT» <s5) &! es 455i 
&¢88 % BITS ARE WRaPPED. THE MICROPROGRAM LOADED =ND EVERYTHING ® Biai £8 BP 022138 4552 8 PRINT PRINT ROUTINE HEADING 
889 EXCEPT THE BATA IS THE SAME>s * SkAS G1 3iAS 4553 Bc RL O74 
aago * a €3 3406 13 3iA6 4554 oc ILitig? 
4491 « caesceunesestbenthe Oe tkOEHESSEOR ATES DEE EERED SIE SED ESOS EOSSSES SON SSS SiAT 3103 31A8 4855 oc ALZCRTZSCP 3 2 
$892 : 2556 : 
32130 20 3130 8493 AT 25 oc m.29202 ROUTINE NYURBER € Bea®Q cO 87 5938 45587 RAMOS LOEADC S$ «6G LOAD MI CROPROGRAM 
3831 60 BiSL S494 oc Mi esos NO HANUAL INTERYENT ZEON 31a0 &3 3iad 4558 DC Xi. % °S 3? ~DESABLE UPON ENTRY¥e FELL. BHO 
3332 31909 3i3S3 4495 oc &LZiRT2E} ADDRESS OF KEXT ROUTINE J 6559 % FSO WITH BOSeO ON ADDRESS 
4496 € 3, ae 31Be BiAF 4560 oc 0 AL 2UR23MCS) .STARY OF MICRO CODE 
3:52 4497 USENG RAZZKGL oXMRE as 3iaG 3243 B3iBLi 4861 CS a 21 R230 CE} sEND OF MICROCADE 
3Bise ¢c2 04 3152 S85 LA RZ2KGL. SRE ENETSALIZE ERE FOR gNDEXING ae &562 
S499 c- BEBZ2 BC 2G 3BS64 4563 a LPCNTsX220% sEWCREASE MICRO DELAY TINE 
3138 CO 87 O2iA 4500 8 PRINT PRINT ROUTINE HEADING 2186 CO ST S4FE &564 a GOMICR +GO EXECUTE MICROPROGRAM 
333C O12 313¢C 4502 oC mR. EOGTE . SiBA BA Siga #565 oc RLY" SAE eERROR HALY ~-GAn 
2130 19 3130 6802 oc ILa* 25° 3 3188 5933 318C 4566 oc 1. 2*S033¢ sEXPScTED BATA 
SLZBE 3196 313f 45053 oc AL 2ERT220P) ; e567 
&504 = 3ESD co B87 0236 4568 8 LINK «GO TO NEXT ROUTINE 
3440 OC Of 3022 365A 6505 avec RLF MCE-6 62 Po HDSSAG : £3 aS69 
3346 QC O21 302% 36x 4506 ave RIFEMCE~4¢2) oL 3 SFLA BSici OWS6ESESSOF2C 240 BS1ip2 aS7o RF 23CP ow CLIS?* ROUT ZE MMET ZERCES® = 
“ i & 
DATE OTIULTS 25 (cY758 ISJANTSE PrRaG 1:0 es93—-2 DATE OTSULTS 25 ccr?Ts LSI AaN76 PROG 15 9agi -2 
: Ec NG. 625023 822032 825038 ' Pace 36  €C NOs e25023 62 £032 B25034 PAGE 3éa’ 
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TBM MAINTE NANCE OI AGNCSTIC PRAGRAN PART NO. 4234255 IBM MAINTENANCE DIAGNCSTIC PROGRAM PART NOe 4234285 
PAGE 37 | : PAGE 37A 
8912 DISPLAY ACAPT ER TEST | . 8912 DISPLAY ADAPTER TEST 
¢ 
ERR LOC OBYECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
31CO E704CGE34 GEQC ED9 £8706 | ¢ 4636 = PUTTING THE ATTACHMENT IN OIAGNOSTIC MODE AND ACTIVATING SSN 6 # 
3102 o6c5SE2 4570 | 4637 * e4ICK BLOCKS THE parity SIT ON THE WORD TRANSMITTED THEREBY e 
4572 { 4638 % CAUSING A PARITY CHECK IF BIT 12 SHCULD HAVE BEEN One ALL e 
3104 4572 ReNCS EGU os | €3 4639 * SITs ARE USED IN BOTH THEIR O AND 1 STATES. * 
3104 5034 3105 48573 oC XL 2°SO348 90 @80Se0 66 SET INSIDE #ras | 4640 x ® 
3106 0889 3ip? 4574 oc x%L2706389° Gio LE. OfSELECT ALL LINES | 4641 NESSES ES REL EL ES SARADEAGEAED RSENS HS ERR EES EES SERE RR SEER ERE EKERS ERROR ERE 
3158 7306 3109 4575 oc XL2*73008 OZ Ce SET COUNTER (HDB 03) TO zERa {> 4642 
e 3iDa 1008 3208 4576 ac XL 2*1008* C3 SSFsQ RESEY 170 REG BITS 2.3213  * 3248 2F 3244 84643 RTS oc 4115 2F eo ROUTINE NYyWEER 
230C 7FAA 3100 4577 oc AL Z* 7F Aat® C& Ce SET HDB CF = AA CBITS TO BE xMiITTED) bo 3245 00 3245 4644 oc XL1*008 NO MANUAL INTERVENTION 
3ipE 7400 3S1IDF 4578 oc M2°74a00* 05 IC. RESET HOB 04 (RECEIVE REGe} es 3246 32&8 3247 £645 oc AL2(RTSO) AODRESS OF NEXT ROUTINE 
SIEO 1304 S1iE1 457¢9 oc AL2°33046°8 O06 SSNe3 SET BIT 3 OF IvO REG ON ot 4646 
B1E2 itFO8 31E€3 4580 oc XL 2e¢yF Oge o7 SSNeF SET DIAGNOSTIC MODE ON ' . 3254 4647 USING R24KO1eXRG 
JiE4 10046 31ES5 4581 oc AL Z*100G5 0& SSNsO SET XMET ZEROES ON / 3248 C2 01 3254 4642 LA R28K01 oXRi INITIALIZE KR1 FOR INDEXING 
31E6 O78F 31e€7 4562 oc XL2° O7aF e OS ‘LOAD 170 REG & XMIT 23 ZEROES . 6649 
31E8 S00B 31Eg 4583 oc x 2°5008 ¢ SA BOS20 WAIT A CYCLE 7 324c CS 87 O214 4650 8 PRINT PRINT ROUTINE HEADING 
SIEA O78F 31EB 4584 oc XL2°*078Fe OB iGAD 170 REG AGAIN 7O xMmiTt DATA é 3250 01 3250 4651 oc xLaeope 
SLEC 400E 31E0 4585 oc XL2°4OQcEe* OC FSNeO MUST BRANCH (XMIT BO ROY ON) oo 3251 17 3251 4652 pc wit2ae 
31EE SO0D 31EF 4586 oc xL2*500D+ 00 ERROR» HANG s' 3252 32862 3253 4653 oc ALZ TRT24 CP} 
SiFO 41€3 31F1 4587 oc AL2*areze OE TSNel MUST NOT SRANCH {REC. wD RDY OFF} : c. 6654 
3if2 5010 3173 4588 cS XL2°5013 08 OF 80S+0 TO Count CrCLées 3254 ¢O 87 5918 &65S R24Kk01 A LOAaDCS °0G6O LOAD MICROPROGRAN 
SIF4@ SOl1s 3iFS 4589 oc XL 2°*5013 © 10 = 3258 83 3258 4655 oc XL3*83° eOISABLE UPON ENTRVe FYEL OND 
3IF6 S012 31F7 4590 oc xL2°SO12° 43 , € 4657 * FSQ@ WITH B8Cse0 ON ADDRESS 
3iF8 S013 31F9 4S91 oc XL 2°5013% a2 3259 3283 325A 4658 oc & 2(R24NCS) e START GF MECRO CODE 
31FA 50146 31FB 4592 oc AL]°SG149e¢ 13 as 3256 32EA 325¢€ 4659 oc AL2CR2QMCE} eEND OF MICROCODE 
3iFc 5015 31FD 4593 Dc XL2*S5015¢ 14 &- 4660 
SIFE $016 SIFF 4594 oc %42°S5016e 35 32S0 3C OF 5564 4661 Mv LPCNHT »X* OF? eTRCREASE HMICROPROGRAM DELAY 
3200 SO01T 3201 4595 oc XL2*S0378 26 / 3261 CO 87 Sarre £662 8 CONICR «GO EXECUTE MICROPROGRAN 
3202 SG1a 3263 4596 oc XL2* 50182 i? ; fos 3265 @8& 3265 #663 oc XL1*see eERROR HALT -8E- 
3206 a1&2 3205 4597 oc ML2*4i1€2¢ 18 TSNel 6MUST NOT BRANCH 3266 SO2F 3267? 4664 oc XL2°502F 8 eoENXPECTED DATA 
3206 4063 3207 4598 oc XL2*°490E3° 29° TSNeQ MUST NOT SRANCH ‘ 2665 
3208 e1F&a 32909 4599 oc ML2*41E4e IA TSNQ1 “UST NOT BRANCH io 3268 CO 87 O2i6se 4666 8 LINnNk eGO YO NExtT ROUTINE 
Z2caA 1008 3268 4600 oc XL2°20088 | 16 SSFeO RESET 170 REG BITS 253413 4567 
pee 3 220c 41&5 3200 4691 oc ML2°S1E5* ic TSN,.1 MUST NOT BRANCH 2 us. 326¢c 09 DS ES ES40F2¢ 640 3282 4668 RT2490P oc SL235*ROQUT oF TEST REC. CHECK? tema nen teen 
220E 41€&6 320F 4602 DC W241 E6¢ 1D IN FOLLOWING SEQUENCE CF woRDSs i { 327¢ ESCSEZESR0D9C SCZ 4668 
S2ico 4167 3212 4603 oc XL2°Qi ET* 1é : . S27€ 4840C 3caecSc3p: 4663 
3212 41€8 3213 4604 oc M.2°G41E88 iF i 4689 
3214 4169 3215 4605 oC ML2*41E9% 20 gg $670 Benn mn ne ee ee ee f 
3216 416A 3217 46606 oc XL2° 41 EAt 2! $671 * START OF MICROPROGRAM LISTING «* 
3218 41&86 3219 4607 ac XAL2°*41EB*. 22 ; 8ET2 Rew m mn mn ew ee ee eee 
F21A S1EC 3218 4608 BC XL2°@2ECe! = 23 & 3283 4673 R24MCS EQU  * 
S21C 4127 321D 4609 oc XL2*azo7s 2&8 TSNel MUST BE ON CREC, wD RDY.) . : 3283 §030 3284 4674 oc ML2¢sosce Q0 8GS.0 GS sey INSIDE wsRAR 
Fe2ie— S025 321 46106 oC XL 2*S0256 25 OUMNMY #wORD Pas 3285 opag 3286 4675 oc XLe* Osseo? G1 DESELECY Lines 
7220 $026 3221 4631 oc xXL2* 50268 26 ERROR: KANG | €. 3287 7300 3288 4676 oc XL2°730Ge 02 ICe SET COUNTER YS Z2EKO 
S222 04448 3223 4612 oc MM 2°044458 27 LEs EMPTY 1/70 REG i 3289 1008 3284 4677 oc %2°1003? C3 SSFe0 RESET I/Q REG BITS 203013 
3224 #1EF 3225 4613 oc XL2*21EE* 28 TSNel MUST NOT BRANCH AGAIN ! 3 3288 1508 328C 4678 oc xL2°1 5088 0&4 SSFeS RESET REC. Chee 
3226 42eEF 3227 4614 ac ML 29 42EF ¢ 29 TSNe2 NUST NOT BRANCH {1/0 REG 2 ofr) | €: 3280 74aAaa 328E 4879 oC XL2*F4AA?P O05 ICs SET HOB 4 To XMZIT IST PATTERN 
3228 @32c¢ 3229 4615 ac XL2*°432c 8 2A TSNe3 MUST BRANCH €1/7G REG 3 ON} S26F 1F 048 3290 4680 oc ALZ*iFaage OG SSNeF SET DIAGNOSTIC #ODE 
3224 5028 3223 4616 ao XL2°502Be 28 ERRORs HANG ! 3291 1604 3292 468) DC XL2°1so94e O07 SSN.6 SET BLOCK Sit {2 ¢PaRrTy) 
322C Baor 3220 4617 : oc XL2"*BaoF «¢ 2C CIRs CHECK DATA Same AS XMITTED €> 3293 120¢ 329% 4682 oe M2*1204e O83 SSNe2 TURN aN SIT 2 CF Ivo RES 
S322 9C2F S22F 4618 oc XL2°*9ocore 20 805.3 MUST BRANCH ! 3298 oO7se 3296 4683 o¢ xL2'o7eage G9 LE. LOAD I7O REG £ xXMIF WORD 
3230 SOZE 3231 £619 oc Xi_2* SO2ZE* 2E ERRGRs HANG ! . 3297 410¢ 3298 4654 pc xL2*410ce OA TSNel WAIT FSR RECs WDLe ROw ON 
3232 46FF 3233 4620 oc ML 2*4BFFS 2F TSNsB REC. CHKe MUST BE OFF | €: 3299 Soon 3294 4685 DC AL2*'*SOOA* O08 50S.0 BRANCH BACK 
7234 1310 3235 4621 ec xL2°1310¢ 30 INCe INCR, COUNTER - ! 3268 4B0E 329C #686 oC XL2°*4R80E* OC TSN:& RECe CHK MUST BE ON 
3236 9¢33 3237 8622 oc m.,2°9C33¢ 32 80Ce3 BRANCH If TEST cVER ‘ 2290 S000 329E 4687 oc ¥L2°SGGD ¢ 0D ERRGR,. HANG 
3238 Sc08 3239 4623 oc xXL2°S5008° 32 80Se0 RESTART TEST i CG 329F 1508 32A0 4688 oc XLZ*350e¢ O£ SSFs5 RESET RECEIVE CHK, 
323n 5033 323 4624 oc XL2*°*S5033° 33° HANG. TEstT COMPLETED oKay i 32ai 4BE1i 32A2 4689 oc xXL2°6BE1°® OF TSN.B MUST NOT BRANCH 
323C 1€048 323D 4625 oc xL2°1E048 24 SSNeE TURN ON INSIDE wRaP ! = B2a3 0604 32ae 9890 pc XL 2"°O686 8 20 LE. PUT Iva REG IN HDB 06 
323€ 7900 323F 4626 oc xXL2°7900* 35 ICs PUT 00 IN HOB 9 To DESELECT LINES \ t- 32a5 1008 3246 4691 oc xXL2*1 008° 11 SSF,O0 RESET 170 REG 20313 
3240 oAae9 3241 4627 &C %.2* Onace =6 LEDESELECT ALL ALT LINES. S2a7z7 1604 32A8 4692 oC XL2*° 1604" 120 SSNe6 «SET BLOCK BIT 12 CPARITY) 
3242 S001 3243 4628 R23MCE OC x. 2° 5001 ° 37 805.0 RE TURN TO ADDRESS 001 : 32a9 7555 324A 6693 oc x.2° 755856 13° SET HO8 5 To NEW PATTERN 
4629 1 €> 3208 1304 32AC 8694 Dc XL2e"1308* 14 SSNe3 SET BIT 3 OF 170 REG 
4629 i 32ap 0785 32AE 6695 ac xXL2'*o97ass 2S LE. LOAD Ifg REG WITH NEW PaTTERN 
4630 g | SSRN S OES EASES OER ER SO HELE SS BEKO EEKEEE EAS EREN SOREL EERE EER RENEE ORES S2aF 4118 3280 4696 oc XL2¢a1389 £6 TSN» i WAIT FOR REC ¥O ROY YO Come ON 
4631 ROUTINE 2F ~ RECEIVE CHECK Tests *! ‘e 3281 50i6 3282 2697 oc xL2°So%6® 17 805.0 acer EacK TO PREVe WO 
4632 Fn NSSMSGRANIYSSAGANSSELE SOEUR SSEIEE LSS OREN ORES ORME REEDED ES, 3283 0644 3284 4695 oc XL 2*0644°8 18 LE. UNLOAD 170 REG TO HOB 6 
4633 + . * a 3285 45918 3286 4699 oc xl2*46158* 39 #YSNeB REC. Ck > MUST BE GN 
4634 « THIS ROUTINE TESTS THaT THE PARITY CHECK CIRCYITS ON THE DATs ¥; = 3267 SO1A 3288 4700 ec xL2*501a¢ 2A ERRGR+ HANG 
4635 2 RECEIVED GY THE 1/0 PEG aARE WORKING FROPERLY, THIS IS DONE BY * 3289 1508 32BA 4701 oc L2*3S598¢ 16 SSF,5 RESET REC. CHK. a 
| iC 
DATE O7JUL 75 25¢CT75 IS JANT6 PROS ID casi-2 DATE O7SUL 75 25icT7s5 1SJAN76 PROG 10 0891-2 
EC NO. 625023 822032 825034 PAGE 37 EC NO. 9825023 82503. 825034 
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TBM MAINTENANCE DIAGN CST IC PROGRAM PART NO« 4234255 IBM MAINTENANCE DIAGNCSTIC PROGRAM PART NO. 4234255 
PAGE 38. PAGE 38A 
8912 DISPLAY ADAPTER TEST a912 DISPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADOR sTMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3268 a4Be2 32B8C 4702 oc XL2°4BE2¢ iC TSNe& UST NOT BRANCH NOW ie 3321 F2 81 08 2769 JE R2580i e JUMP IF OKAY 
4703 4770 
3280 SO01E 32eE 4704 oc ML2°SOiE8 2D =OUMMY WORD 2324 CO 87 SCAS 4771 R25ERR 8B STATUS eERROR, GO PRINT OUT 
228F 1006 32C0 47095 oc XL2°1008° LE SSFeO RESET I/0 REG 203013 3328 08 3328 4772 oc XL2*o8s ePRINT CURAR ERROR MESSAGE 
32c1 1204 32c2 4706 oc ML29*1 2048 1F) SSNe2 TURN BIT 2 OF 1/0 REG GN 3329 91 3329 4773 oc XLGe Oye esERROR HALT ~Gi=~ 
22€3 0784 32¢4 4707 Dc XL2*0784% 20 LE. LOAD I/O REG & XMIT wD 7 332A 0060 332B 4774 R25Ex1i OC XL2°O8 EXPECTED DATA GETS FILLED IN 
: 32c5 4123 32C6 4708 oc XL2"ai23e 21 TSNel WAIT FOR RECo WDe avy bites &775 
32C7 5021 328 4709 DC ML z*50218 2 BOS.0 BRANCH BACK B32¢ cO B87 0216 4776 R25B801 B LE NK GO TO NEXT ROUTINE 
32c9 4863 32Ch 4710 ac XL 2° eBE3* 23 TSNeB MUST NOT SRANCH - &777 
32CB 43£4 32ccC 4711 oc XL 2° 43649 24 (TTSNeS MUST NOT BRANCH 3330 OSD65E4ES40F3F C40 3350 4776 RT25OP OC CL33°ROGUT 30 CURAR SET DURING REC DATA® 
32¢D 4aE5 32CE 4712 oC ML 2° 4AE5° 25 TSNeA MUST NOT BRANCH 3338 C3E4CSC10940E £5 4778 
32cF 4228 3200 4713 oc XL2° 42286 26 TSNe2 MUST ERANCH 3340 E340C&E4DSCODEC? &778 
3201 5027 3202 4734 oc ML2°S5 927° 27 ERROR, HANG 3348 4009C5C340C4C £3 4778 
3203 0644 3204 4715 oc XL 206648 26 LEs UNLOAD 170 REG IH HDB 66 3350 Ci 4778 
3205 B406 3206 a716 oc xL2*8496% 29 CER, CHECK FOR EXPECTED RESULT 4773 
3207 9c2c 3208 4717 oc XL 2° 9c 2¢ # 2A BOCe3 BRANCH IF OKAY © 8780 Fe ewer ee wwe meme ome oe em weenie 
3209 S028 B20A 47138 oc XL2°5928° 28 ERROR, HANG 478i * START OF MECROPROGRAM LISTING x 
3208 2310 320C 4729 oc XL.2®1310° 2C INCs IACREHERT COUNTER m RP B QZ Br an me more ee nance ene coe mm em en am cers Ht 
3200 942F BS2DE 4720 oc ¥.2* 942F° 2D 80C,2 EXIT AFTER 16 TIMES 1 f 3351 4783 R2EeéCS Eau % 
3SZ0F 5003 32EQ 4721 oc xXL2*5003°8 2E 895.0 RESTART TEST on 3351 S04E 3352 4784 oc XL 2? SOeke 00 89Sc°0 GO SET INSIDE wRAD 
32E: SO2F 32E2 4722 oc xL 2°SO2F 8 2F HANG. TEST COMPLETEO Okay 3353 oB8g 3354 4785 oc xL2° 08895 Gi LEe DESELECT ALL LENES 
32E3 1604 S32E4 4723 pc XEL2°2E04s 30 SSNeE TURN ON INSIDE #erRap 7 3355 7000 3256 4786 oc KL 2¢ 7OGOe 02 iCs SET MBAR HI = g 
32ES 7900 32E6 4724 oc xL2* ?900° Si 01C, )«=6FUT 00 «EN HOB & TO DESELECT LPNES 3357 7100 3358 4787 pc XE 2° 71008 O03 Ce SET MBAR LO = @ 
32E7? 008g 3B2E8 4725 oc M_2°0A8S8 32 LESDESELECT ALL ALY LEAES. . 3359 1706 3354 4788 ac XLZei Foes 0& SSNe? RESET CURAR 
329 5001 B3ZEA 4726 RBAMCE DC ML2°5004 ¢ 33 S8OS,0 RETURN TS ADDRESS 001 € 3358 7205 335C 4789 oc XL2°*7Z205¢ 0S ICs SET HDB O02 TO 1ST EXP. VALUE 
8727 : 335D 73aa B33SE 4799 oc XL2°73AA8 06 ICe SET HDS 03 TO 1ST EXPe VALUE 
See? i 33SF 76F1 3360 479i pc XL2* 76Fi¢ OF Cs SEF DATA XMITTED TO 2 
4728 FESESE ERR SES HRS SHS RSS LESSEE ASHTRS SESH EHSL S SRE KEKSSSSSVLAGSTR GSE EARE EE t 3361 iF 04 33562 4792 oc MW Ser FoGge 08 SSNeF SEY DOLAGNOSTIC MOCE 
4729 & ROUTINE 30 = CURAR SET DURING RECEIVE DATA MODE x 3363 3804 3364 %793 pc XL2* 4 BOS * O09 SSNe8 SET REC. SATA MODE 
4730 SESSESRER GEER ERESESSE SORES SLAG ESE SANE IE EREEEHE REE ERRE SERS ORME RARER Zs 3365S 1¢08 3356 4794 Oc MEL 2920088 OA SSFeG RESET i176 REG 8275S 223,13 
473i # s ¢ 3367 ofs6e 3368 4795 oc XL 2°07862 OB LEs LOAD 1/70 REG & XMYT BORD 
a 
S732 « THES ROUTINE TESTS THAT BHER FHE ATTACHMERT IS RECEEVING DATA + 3369 410£ 336A 4796 oc XLZeaig&e CC YSNel WAIT FOR REC. woo ROY 
- ae 4723 «% wIiTh SSN B (RECEIVE DATA MODE) ACTEVATED: MBAR BILL BE * s, 3368 590C 336C 4797 oc %E_2°5G0C & GD BO0Sed LGOP BACK a a a aaa 
4734 MOVED TO CURAR WHEN THE CURSOR BIT (85T 3) ES RECEIVED. * E 3360 OF a4 336E 47986 oc XL Z6OF S40 Of LE. EMPTy 240 REG 7O HDB F 
‘ 4735 % THE VALUES OF MBAR MOVED ARE SAA AND 285. CURA IS THEN RESET «= S3GF 1110 3379 47992 oc RLZ*° ani 08 OF EINCe EINCRe BBAR LO 
4736 x» TO ZERO AND RECEIVE CATA HOCE €YSN 8) IS YURNEO CFE. THE = 337i Sc33 3372 4800 pc XL 299C33¢ 10 80Ce3 GRANCH IF MBAR HE NEEDS Inc 
Qa7r37 *% TEST IS THEN REPEATED To BE SURE MeaR ODES AGT GET TRANSFERRED a €. 3373 8200 3374 4801 oc XL2* B2008 12 CIps CHECK FOR MaTcu 
e73a +* TO CURR iM THIS CASE. % 3375S 9C14 3376 4302 ac ML Zt GC RHO 232 80683 SRANCH IBF HE WATCH 
a739 % e 3377 3018 3378 4803 oc XLZ*50i88 33° BOSe0 IF NOT BRaNCM TO CHECK MBAR 
4740 SERSSSSSSES EE EMERS SEH SE EES SEH LES SERS LES ERT ELEETESCHARESE ROSE RS RRSESEE, g . Sat? B30% 337A 4804 Dc ML2°B3OL e $4 CiRe CHECK FOR LO MATCH 
781 ve = B3?7B 9C1i7 337C 4905 BC. AL2°*9ca 7? 15 B8o0C+3 If MaTcHe SET BT 3 
3S2€6 30 32EB 2742 RTSO oC XLL® Zoe ROUTINE NUMEER . 337D 5018 337E 4806 oc ML2¢560188 26 8O0S°0 NO MATCH CHECK MBAR 
32EC 00 32EC a7a3 oc MLIEOOE NO MANUAL EINTERVENT FON 8 337° sos3c 3380 4307 DC xt. 2¢ 5SO3CE 17 80Se0 BRANCH YO SET BIT 3B {cURSOR, 
32€0 33F5 3ZEE e7ae oc AL 2ERT RY} ADDRESS GF NEXT ROUTENE i 3381 EGOT 3382 4808 pc ML2eEOo7e 18 Cl». CHECK MBAR HI = a7 
4745 as 3383 9C18 3384 4809 oC XL2°9C18% 19 80Ce3 IF SO CHECK MBAR LO 
32F8 4746 USING R2SKOLeXRE { e 3385 5604 3386 4810 oc XL2* SOOK# {A 80S:0 RETURN TO LOOP 
EZEF C2 0: 32FB &7&?7 LA R25KG1 XRE INITIALEZE XR2 FOR INDEXING i 3387 E1f0 3388 48ii oc XLZ*ESEO® 18 Cie CHECK MBAR LO = £6 
4a?as ' 3389 9Ci1E 338A 4812 oc XL2°OCi Ee 3C «68CCe3 EF SO, END LooP 
3263 CO 87 O2la 4749 8 PRENT PRINT ROUTE HE HEAaDI AG | Ci 3388 SOOA 33eC 4813 oc XL2°S00A 1D §BOSe0 RETURN TO LOOP 
32F7 Oy 32F7 e750 oc XLS *OLs | 33aD 5041 338E 4814 cc XiL2*SOas 8 1E 805.6 GO CHECK CURAR YALYE & SET HOS 14-16 
32F8 21 32-8 4751 oc IL2e Bye i 33eF 501F 3390 4815 oc RL 2¢SOUF® 1F DUMMY BORD 
32F9 3350 BS2FA 4752 oc 4. Z2CRT SSOP FE | & 3391 8214 3392 4816 DC ML 2°B2LAe 20 CIR. CHECK FOCR CORRECT VALUE 
6753 ‘ 3393 323 3394 4817 c XL2°9C23" 21 BOC.3 GSRANCH ITF HaTCcH 
32FB CO BY S91L& 754 R25K01 8 LOADC S oGO LOAD KI CROPROGRAN : a 3395 5025 3396 4818 pc ML2¢ 50255 22 B8OSs0 SRANCH TO CHECK MISCOMPARE VAL ZO 
32FF 63 32FF 4755 oc ML Reasze oDESABLE UPON ENTRY. FILL 2ND fo 33¢°7 8318 3398 4819 oc XL2°S21BF 23 CIR, CHECK FOR CORRECT VALUE LO 
8756 & FSQ WITH B0S+0 ON ADDRESS 3399 9026 339A 4826 oc XL2°OC26% 24 80Ce3 GRANCH EF CORRECT 
3360 3351 3301 475? oc ML 2ER 25NCS} e START OF MICRO CODE . 3398 5035 339C 4821 DC XL2?503S¢ 25 BOS.0 CHECK FOR VALID MISCOMPARE 
3302 33F4 3303 e758 oc Mi 2ERESMCE} eENO OF MECROCODE | C3 33eD £355 339E 4822 oc XL2?E355¢ 26 Cie CRECK FOR 2ND OR BRO PASS 
4759 ; 339F 9C3E 33A0 4823 oC XL2°SC3E¢ 2% B8O0C.3 BRANCH EF SO 
33904 OC G1 5564 3168 4760 Myc LPCNT KO ISEE 2} eEXTEND MECROPROGRAM DELAY ; oe Z3a1 7000 33A2 4824 OC XL 2¢7G008 28 iC. RESET MBAR HE 
330A CO BT S4FE 4763 8 DOMECR eGO EXECUTE MICROPROGRAN @ 3343 7100 33A& 4825 oc XL2*71008 29 IC, RESET BEAR LO 
330E 30 330E 4762 oc KLE*eoe eERRGR HALT -90< = B3aS 7202 3B3a6 4826 DC XL 2° 72022 2A Ce SET NEW MATCH VALUE 
330F $035 3310 4763 oc 2° S639° oE XPECTED DATA 1 33A7F 7355 3348 4827 Dn ML2° 73550 28 IC, SET NEW MATCH VALUE £9 
&7O4 | c 33a9 SOOA 33A% 48228 c KL2*SGoa8 @2C BOS:0 REXTARY WITH NEW VALUE 
3312 30 ab SFE 4765 SNS STAT AC OBS SENSE ACTUAL CURAR 33A8 76F2 33AC 4829 pc ML 2°76F 26 2D IC, CHANGE DATA VALUE TO £2 
3315 F3 58 69 &766 S10 X*BO%sSiOT eDI SABLE ATTACHMENT ke oe 33aD 7000 33aE 2830 pc XL2°70006 2— Ce RESET MBAR HE 
2316 30 49 3328 S78? SNS R2SEX2 HORE 2SENSE EXPECTED DATA PASS 33aF 7100 3380 483; oc ML2° 71008 2F iC,RESEY mBaAR LO 
33iC 10 O1 SFE6B So 4768 eLe STATAC eRZSE XI C2 ox} «CCMPARE FCR EXPECTED 3381 1704 3382 8832 Oc ML2?°17048 30 SSNe? RESEY CURAR = 
| 
DATE 07 JUL?S 25 CCT IS ISJAN7S PROG 10 0892-2) DATE OF SUL 75 25¢CT7S LSJANT6 PROG ID 0893-2, 
EC HO. 825023 622032 825034 PAGE 38 | _. EC NO» 6825023 $2 £032 825034 FAGE 358A 


© 


eee. 


| @ ®eeeoes?s®e 
©®eoeeoeoeeedegeeedec§ed¢282e8°e0 @ 86 | 








& - & @ | ®& & & | ® | @ © } & e & & @ | @ @ ® | é oa © Ge a é & - = S , e @ @ @ @& @ 
oS 


IBM MAINTENANCE DIAGN{(STIC PROGRAM PART NO. 4234255 18M MAINTENANCE DIAGNCSTIC PROGRAM . PART NO 4234255 
PAGE 39 PAGE 39a 
8912 OISPLAY ADAPTER TEST 8982 DISPLAY ADAPTER TEST 
ne 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3383 1808 3364 4833 oc XL.2*2808°8 31 SSF.B RESET RECe DATA MODE fons 3418 93 3428 4900 pce XL2°93° eERROR HALT -93- 
3385 SO0A 3386 4836 oc XL2¢500Ae 32 80Se0 GO RESTART LOOP ' 3419 $027 343A 4901 oc XL2*5027¢ EXPECTED DATA 
B7 1010 3388 4835 pc XL2°20108 23 ENCe INCR. MEAR HZ Z 4902 , 
ae ait 338a 4836 oc XL2*50118 34 805.0 RETURN TO LOOP i 3418 CO 87 0216 4so3 3 LINK eGO TO NEXT ROUTINE 
3388 E6F2 338C 49837 oc XL2°E6F2e 35 Cie CHECK DaTa = F2 4904 
3380 9Cc3a 33BE 4838 oc ML 2°9C388 36 B0Ce3 IF SO ERROR MAY BE LEGI Te ; 341F DIDS EQES40FSF 1460 3438 4905 RT26Q0P 0c G@29"ROUT 31 XMIT BIT 3 FROM CuRAR® 
338F S028 33c0 4839 oc xXL2*5036¢ 37 ERRORse BUT GO TO END ANYHOW : 3427 E7DACSE340C2C £3 4905 
= 33C1 720600 33C2 48490 oc X2*72008 S38 {Ce SET HI EXP RESULT TCO ZERO 342F 49F3¢0C6CS5B6D 446 4s0s 
33c3 7300 33c4 4843 oc XL2*7300" 39 ICs SET LO EXP RESULT TO ZERO = 3437 €3E409C109 4905 
23CS 1F08 33C6 4842 oc x.2°1F08* 3A SSFe RESET DIAGNOSTIC MODE i 4906 
33C9 1308 33CA 4844 oc XL2°13048 3¢ SSN» TURN GN BIT 3 OF £70 REG 4908 * START OF MICROPROGRAM LISTING * 
33cB 5008 33CC 4865 oc XL2*SO0B*® 30 805e¢0 RETURN AND XMIT CURSOR BIT | & £909 @aeea season cneceteecawocadeunoeuy 
33CD E6Fe2 33CE 4896 DC XL2°E6F2° 3E Cle CHECK FOR 3RD PASS | 343C 4910 R2eEMCS EQU * 
33cF 938 3200 4847 ° +’ -~ Oc xL2°9C38" 3F 680C.3 GO TERMINATE IF So 8 343C SO2A 3430 4911 DC XL2*502a* CO GO SET INSIDE WRAP ON 
3301 502D 3302 4848 oc XL 2°S02D ¢ 40 680Se0 GG DG 3RD PASS a 343E 0889 343F 4912 oc XL2°0889" O01 LE. OESELECT ALL LINES 
3303 7000 3304 4849 oc xL2* 7000° 41 Ce SET MGAR HI = 00 3440 7005 3441 4913 bc XL2*7005° O02 ICs SET MBAR HEI = 0S 
3305 7100 3306 4850 oc XL2*7100¢ 42 1Ce SET MBAR LO = OC i 3442 7iAa 3443 4914 oc XL2e7yAA® 03 (ICe SET MBAR LO = AA 
3307 Seana 3308 4851 OC = XL 2* 544a* 3 680S.1 BRANCH IF HBAR = CURAR me 3446 1704 3445 4915 oc XL 2°21704" 0&4 SSNo7 SET CURAR FROM WBAR 
3309 1110 33DA 4852 oc xL2*1110°8 44 INCe INCR, MBAR LO . 3446 2200 3447 4916 oc XL2¢2200¢ OS LR» SET HDB 02 = MBAR Hi 
33068 9043 330C 4853 Dc xL 2°9043° 45 6GC.0 BRANCH BACK IF AGT ZERG 3448 2301 3449 4917 Dc XL2*2301°* 06 LR» SET HDB 03 = MBAR LO 
3300 1010 330E 4854 oc XL2*10108 $6 INC. INCR, MBAR HI ae 3A4a 76F3 3448 4918 oc XL2°*76F 3° 07 ICs SET HDB 06 = CHAR TO XMIT 
330F £080 33E0 4855 oc xl2*Eoso? 47 CIe TEST FOR END OF NBAR 7 344C 1F 04 344D 4919 oc XL2*1FO4s 08 SSNeF SET DIAGNOSTIC MODE 
33E;1 9C40 33E2 4856 oc XL 2°9C 4D * 48 80¢+3 BRANCH IF ERROR ; 3aaE 7000 344F 4920 pc xL2*7000° 09 Ce SET MBAR HI = 90 
33E3 S043 33E4 4857 oc XL2°5043" 49 BOSe0 BRANCH BACK {> 3450 7100 3451 4921 oc XL2*°7100® OA {Cs SET MBAR LO = 00 
33ES 2A20 33E6 «asa oc mL 2°2A20¢ SA LR» LCAD HI CURAR HOE 1a 3452 1008 3453 4922 oc XL261008* O6 SSF:0 RESET BITS 263.13 1/0 REG 
33€7 2621 3368 4859 oc XL2°2821°8 4B LRe LOAD LO CURAR HOB 18 — 3454 07686 3455 4923 oc XL2* 07868 OC LEe LCAD 1/G REG & XMET WORD 
33E9 S020 33EA 49860 DC xL2*S020e 4€ 605,90 RETURN To MAIN LOOP PS 3456 41 0F 3487 4924 oc XL 2°410F8 0D TSNe1l WAIT FOR REC. wO ROY TO GO ON 
3368 S$0aD 33EC 4861 uc ML2*S504D2 40 80Ss0 ERROR.» HANG NO MATCH FOUND 3458 5000 3459 4925 oc XL2*°S00D* OE 80S°6 SRANCH BACK 
33ED 1608 S3EE 4862 oc xXL2°1E048 4E SSN.E TURN ON INSIDE WRAP 7 345a 0746 3458 4926 DC XL 2° 07440 OF Ee PUT 170 REG IN HCE 07 
33EF 7900 33F0 4863 pc XL2¢* 79008 4F ICs» PUT 00 IN HDB ¢ TO DESELECT LINES : €. 345C 8002 3450 4927 oc XL2*80028 10 CIR» CHECK HI MBAR ADDRESS 
33F1 0Aago 33F2 4864 oc M2°9A89?, 50 LE,DESELECT att ALT LINES. EO 345E 9C13 34S¢ 4928 oc XL2°9Ci3¢ 21 6OCe3 BRANCH EF = YO TEst LG 
artes 33F3 5001 3374 4865 R2SMcE oc xL2°S50018 51 805-0 RETURN TO ADDRESS Ooi ae 3460 5015 3461 4929 boc 1295015 12 6CSeO0 NG MATCHe 817 3 MUST BE OFF 
2866 a 3462 6103 3463 4930 oc XL2¢B1078 13. CIR. CHECK LO MBAR ADDRESS 
£666 oe 3464 9C17 3465 2931 oc N2°9ciTe 14 @0¢*s3 IF EQUAL ®BsT 3 MUST SE ON 
4867 SCSLELSE ERY SERKS SHAGEHHERES SERBS EHEO DERE DSS SEEEKE 4G HSEKEEARSSAR OEE EER ER 3466 43€£1 3467 4932 o¢ M. 2¢43E48 1S ¥FSN+«3 MUST NOT BRANCH 
4868 « ROUTINE 31 - TEST XMIT BIT 3 wHEN MBAR = CURAR ! C: 3668 8019 3469 4933 oc XL2*S019°" 16 80S:0 a@RANCH TO INCR, MBAR 
4869 SROEEA SERS RESAESRASRS OTERO TASH SARS VERERERGEE SEAT HEESEEEREERBSEE DED OEE EEE 346A 6319 3468 4934 oc 4. 2283198 1V YENe3 *UST BRANCH 
4670 + * 346C $018 3460 4935 oc XL2°5018¢ 18 80Se9 ERROR: HANG 
4871 * THIS ROUTINE ASSURES THAT A CURSOR BIT (B1T 3) IS TRANSMITTED »®: Cc: 346E 1110 346F 4936 — oC ML2°11208 19 INCe INCRe MBAR LO 
4872 * WHEN CURAR = MBAR, IT IS OCNE BY TRANSMITTING DATA’ IN * 3470 9C28 3471 4937 oc MM 2°9C 2a" 1A BOCe3 BRANCH FF HI NEEOS INCRe 
4873 « DIAGNOSTIC MODE AND CHECKING THAT BIT 3 RECEIVED 1S atLiways *, 3472 F008 3473 4938 oc XtL2°¢E0068 18 Cie CHECK MBAR HEI = 08 
aa74 + OFF UNLESS MBAR = CURAR., AOQODRESSES WHERE CURSOR IS INJECTED s; €: 3474 SCIE 3478 4939 oc XL2°9OCLE® 1G B8O0Ce3 IF SOs CHECK Low 
4875S ARE SAA AND 255 TO ASSURE TEAT ALL SITS IN THE COMPARE *! 3476 $008 3477 4940 oc 1. 2°*S00B * 10 80S.0 RETURN +O LooP 
4876 * CIRCUITS ARE CHECKED. <i e 3478 E1£0 3479 4941 oc XL2*E1E0* 1E Cle CHECK MBAR LO = £0 
$877 « * €3 307 9c21 3478 4942 oc ML2°9C21° 1F 80Ce3 END OF PHASE IF sO 
4378 POSSESS SO OLS SAEEEE SES EEASES ERE S SS EREEE SER ESSE ESSENSE ESSE TORR RHEE KEES 347C S008 3470 4943 oc XL 2°5008° 20 80Se0 RETURN TO LOOP 
as7o | 347E E355 347F 4944 oc XL2*°E 358% 21 Cf. TEST FOR END OF TEST 
3375 31 33F5 4860 R131 oc XL2¢3 58 ROUTINE NUMBER y 3480 9C26 3481 4945 be XL 2*9C26" 22 BRANCH IF SO 
33F6 00 3F6 a8at oc XL1*00¢ NO MANUAL INTERVENT ION ! . 3482 7002 3483 4966 DC XL2°70028 23 Ce SET MBAR HE = 02 FOR NEXT PHASE 
33F7 3498 33F8 48392 oc A. 2CRT32) ADORE SS OF SEXY ROUTINE | 3484 7155 3485 4947 Oc XL 2° 7155 ° 24 IC. SET MBAR LO = SS FOR NEXT PHASE 
4883 i & 3486 5004 3487 4948 oC XL2*50048¢ 25 BO0S.0 SRANCH BACK YO 00 NEXT PHASE 
3405 2884 USING R26K01oXR} ‘ 3488 1F08 3489 4949 oc M% 2°3FOa* 26 SSe RESET DIAGNOSTIC MODE 
33F9 C2 01 3405 4685 LA R26K0 3, XeI INITIALIZE XR1 FOR INDEXING 348A $027 3488 4950 oc XL2*S5Q27¢ 27 WHANGse TEST IS COMRLETED OKAY 
6886 _€2  3a8¢ 1010 3e8D 4951 oC M2°2010% 28 INCe INCRe MBAR HE 
33FO CO B87 O234 a8es7 8 PRINT PRINT ROUTIRE HEADING ! 348E sScCOoB 346F 4952 oc xXxL2*S800B¢ 29 RETURN TO Loop 
3401 01 34c1 4886 oc XL2°0R° 3490 1604 3491 4953 oc XL2*1E04" 2A SSNeE TURN ON INSEDE WRAP 
3402 1D 3402 4889 oc iL1¢29¢ C: 3492 7900 3493 4954 oc mM 2979008 28 Ce PUT OG IN NDB 9 10 DESELECT LINES. : 
3403 3436 3404 4890 oc AL 2CRT260P) 3494 cAaY 3495 4955 oc XL2*OA89* 2C LE,DESELECT ALL aL? LINES. 
489} i 3496 5001 3497 4956 RZENCE OC xL2°80Q018 2D 8O0Se0 RETURN TO ADORESS 001 
3405 co 87 5918 4a92 R2EK01 B Loaocs eGO LOAD MI CROPROGRAM : ¢& 4957 
3409 83 3409 4893 oc m1. 12°83° eDISABLE UPON ENTRY. FILL 2ND | 4957 
e006 «© FSQ WITH 60S.0 GN ADDRESS SISE 44088 640e Ed SOE OESES O4OE 9898 FEES OESSTESESS OES OSS 59944 0800849908008008 
3a0a 343¢ 3408 4895 oc AL2(R26mMCS) eSTART QF MICRO CODE | @ 4959 * ROUTINE 32 - ATTACHMENT RESET TESTS s 
340C 3497 340D 4896 oc ML 2(R26MNCE) eEND OF MICROCODE 4°60 CESSES SERS EHSE SASEESES SESESESESEESS 9098 585988004554 604 500000080580 000002 
“897 4961 « * 
. S40E OC O21 ES5€4 3158 4898 MVC —- LPCNT 0 X0158(2) e INCREASE MICROPRUGRAM DELA | 4962 *£ THIS ROUTINE TESTS THAT VARIOUS LINES AND SIGNALS ARE RESET 2 
3414 CO 87 S&aFE 4899 6 BOM ICR GO PO MICRORROGRAN : 4963 & BY ATTACHMENT RESET. THIS IS DONE In TWO PHASES. THE FIRST e m 
OaTE O7IUL TS 25QT?Ts ISJanve : PROG ID 0694-2: pate O7JULTS 28Ccr7Ts ISJAN76E PROG 1D 0601-2 
ec NO 825023 82 £032 825034 ‘PAGE 39 EC NDe 825023 &2 £032 825034 PAGE 39a) 


90@ec¢ © o 





 __— eee 


IBM MAINTENANCE DIAGN(STIC PROGRAM 


t 
! 
4 
‘ 


PART NO. 4234255. 
PAGE 40 | 
j 
8912 DISPLAY ADAPTER TEST 
ERR LOC OBJECT COOE ADDR STMT SOURCE STATEMENT | 
£964 * PHASE SETS UP THE VARIOUS SIGNALSe AN ATTACHMENT RESET IS *| 
4965 * THEN GIVEN AND THE SECOND PrASE GF THE MICROPROGRAM TESTS THAT *, 
4966 * THE LINES wERE PROPERLY RESET» THE LINES TESTED ARE: »| 
4967 * SSN F DIAGNOSTIC KODE *| 
£968 * TSN 0 TRANSMIT WORD READY *, 
4969 * TSN 1 RECEIVE WORD READY &! 
4970 * SSN 8 RECEIVE DATA MODE *| 
r ago7i * SSN 0 INTERRUPT REQUEST *, 
a9go7T2 * et 
a973 * coensageseeseseeeesssstseeseensseeanenaeeen te aesess So4aeenee Ceeeee ses | 
4974 
3498 32 3498 4975 RY32 CC maes2e ROUTINE NUMEER | 
3499 00 3499 4976 oc xLE 2002 NO MANUAL ENTERVENTION | 
3494 355A: 3498 4977 oc AL2(RT33? sACORESS OF NEXT ROUTINE 
4978 
3448 4979 USING RZ9KO1eXRE ' 
3469C C2 01 34A8 &980 LA R29K01 eXRI INITIALIZE MRI FOR INDEXING 
agai 
3400 CO 87 O21a 4982 e PRINT PRINT ROUTINE HEADING \ 
Bere O1 Baas 4963 oc MLB OL | 
34a5 12 34A5 4984 oc Wisse ‘ 
3486 3400 BAT £9285 oc AL2CRTSE cP? | 
4986 
3448 €O 87 5918 4987 R29K01 B LOADCS eGO LOAD MITROPROGRAN 
3aac &3 3S4AC 4988 oc XL2 °SS* eDISABLE UPON ENTRYs FILL 2no0 
2989 * FSO WITH 805.0 ON ADDRESS i 
34AD 34DE 348E 8990 pc mM 24R29uCS} e START OF MICRO CODE 
BaF 3559 3480 4991 oc ALZERZOMCED eEND OF MICROCODE | 
8992 i 
3482 32 48 ODE2 4993 Lia ZERG,HOSO eSET HOB fail = G 
3a85 F©3 58 £0 8994 st REEG* -SIGI eSTART MECROPRGGRAM i 
3488 OD 12 34A8 34 4 4995 CLE RAOKOLC LSE sRZSKOE eDELAY 42 CYCLES i 
3aBE F3 58 80 4996 SiG k*80*, Stat DISABLE ATTACHMENT (RESET) — 
agorT i 
34C1 CO 87 S4FE 4998 8 DOMICR <GO DG SECOND PART OF #ICRO : 
3aCsS 99 3408 4999 pc XLE?99* eERROR HALT ~99- 
34C6 5036 34C7 $000 oc w.2°5036° eEXPECTED RESULT i 
$003 ; 
3ac& CO B87 0216 5002 a £3 NK «GO YO NEXT ROUTINE 
$003 
BACC DGDSESESSOF3F 240 34ND 5004 RT290P DC CLigeROUT 32 ATTACH RsT* 
3804 CLEZESCIC3C84 D9 5004 | 
34DC E2E3 $008 
5005 | 
3006 tice em rane wees wee gran man eons eres enema mewn { 
5007 * START OF MICROPROGRAM LISTING + | 
36DE 5009 R2SNCS EcU * | 
3apE— 5037 34pF S010 oc XL2°5037* eco 6805.0 GO TO ADOD37 
3aEO 7900 36E1 S01! oc xL2* 79008 Di ICe SET HOB 0@ TO vé-SELECT | 
3@E2 GA89 34E3 5012 pc x. 2°9A89° 92 LEs DE~SELECT FIRST DRIRC | 
34Eo F2FF 34ES 5023 oc XL 2° F2FFS 03 TAN.» CHECK HOB 02 FOR 2ND PHASE (FF) 
3486 9CIC BEE? 5014 oc xL 2*9C1C * 04 B80Ce3 IF SO BRANCH TC 2ND PHASE | 
ZaES V2FF 34E9 5015 Dec XL2* 7 2FF* OS {Co SET HOB 2 TG FF 
BAER 2022 3eEB 5016 oc xL2*20u2° 06 LRe SET HOB 10 TO FF 
34EC 7000 BeED SOLT oC m.2°7000* GY Co SET MBAR HE = 00 | 
BaEE 7100 34EF 5016 pC XL 2° FLO0* os IC. SET MBAR LO = O06 | 
3aFO 1808 3eF 3 5019 oc MBeLBoae a9 S$SNeB SET REC. DATA BODE 
34F2 $008 B4aF3 $020 pc ML 2° 5608* o& GUMMY BORD 
34F4 1E08 3aFS $022 oC XL27 2 EO@ 8 OB SSNeE SET INSIGE WRAP GN | 
346 1¢C06 34F7 $022 oC cL 27 1C 04" OC §SNeC SET ENTRe REGe OF \ 
34F 8 1F 04 34F9 $023 oC RL22LFOae Sp SSNef SET DIAGNOSTIC MODE ON 
34Fa 1008 34F8 S628 ac KELe*1008° GE §SFs0 RESET BITS 2.3013 IN 170 REG ; 
BaAFC 7403 Baro 5025 oc ML2*7ROR* OF Co SET HDB 04 = 63 
34FE 12064 Barre §026 oc xL2* 2204? 16 S$SNe2 SET BIT 2 GF 1/0 REG i 
B500 1304 3S01 $027 oC xL 2° 1 3086 41 SSNe3 SET SET 3 GF 170 REG ON 
3562 1004 3503 5028 ec 2° 10042 22 $SNeO SET TRANSMIT ZEROES 
3504 0788 3808 Sa2@ oc Xi.2° O7T64* 43 Lee LCAD 170 REG TO KMIT ZEROES 
i 
pare OY UUL7S 2S CCT TS 159 AN FS peoG 10 9a91-2 
: EC NO. 626023 82 £032 25034 PAGE ao 


essen nu0e0e2e0e280202080086 8 8 @ @ 
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he 
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ERR LOC 


€ 3506 
3508 
3S0A 
350C 
3S50E 
3£10 
3812 
3£14 


i 38516 
3518 

BSiA 

35iC 

BS1E 

; 3520 
f 322 
3824 

3526 

3528 

BS2A 

3g2c 
£ 352€ 
3532 

3532 

é 3534 
3536 
3538 
353A 
353¢ 
3S3E 
3560 
3542 
3544 
3566 
3E4E 
356A 
354C 
354E 
3550 
3552 
3554 
3556 
3858 


ont, 


a 


fy 


of 


i 


oo © 


SSSA 
3858 
395¢ 
35S5E 
35648 


C 


O 


3568 
3569 
BSA 
356¢ 
3&72 


an, 
QO 3 


3576 
3577 
3578 
3BS7A 


3580 


ee) 


Dare 
EC NOe 


© 


@ @ 


DISPLAY ADAPTER TEST 


OBJECT CODE ADOR 
5015 3507 
0784 3509 
4118 3508 
$016 3500 
0784 350F 
SO1A 3511 
Oo7 84 3513 
5018 3515 
&OE1 3517 
4aiE2 3519 
SEES 3518 
4BE4 351D 
a4DE5 3S1e 
1008 382i 
1204 3523 
1304 3525 
1E04 3527 
O784 3529 
76a0 3528 
1648 352D 
€610 352r 
S027 3533 
&1E6 3533 
1704 3535 
706i 3537 
ize 3539 
2FO4 3538 
O07 84 3530 
4332 3S3F 
5030 3542 
Food 3543 
¥Fi00 354% 
$436 3587 
5035 3549 
5036 3545 - 
2210 354aD 
73900 3S4F 
oB89 3551 
oc 8S 3553 
QD&9 3555 
OESS 3557 
5001 2589 
33 355A 
Go 36858 
3566 35680 
OC O01 3596 35 

CO 8&7 3584 

34 3568 
oo 3569 
3876 3546 
Oc O01 3596 354! 

Co 8B? 3584 

35 3575 
Go 3577 
BSAe 3879 
9c G1 35936 35 43 

co 87 3584 

O7JUL7TS 2sSccTr7?s 
628023 @2:%*32 


PART NOe 
PAGE 


4234255 
&0A 


STMT SOURCE STATEMENT 

5030 oc XL 2*°5015* 14 80S.0 DELAY 1 CYCLE 

503i oc xL2* 0784" 15 LE. LOAD 170 REG TO XMIT WORD 

5032 oc XL2°4118°8 16 TSNei WAIT FOR RECe wO ROY TO CONE ON 
5033 pC xL2°S016 ¢ 17 805.0 LOOP BACK TO PREVe WO 

5034 pc XL2*0784° 18 Es LOAD 170 REG TO XMIT AGAIN 

5035 oc xL2¢ SO1LA® 19 80S,0 DELAY 1 CYCLE 

5036 pc xL2°07848 1A LEs FORM XMIT WO ROY ON 

5037 oc xL2* 501 8? 18 80S,0 HANG» END OF PHASE } 

5038 * 

5039 * END OF PHASE 10 NEXT TIME MICROPROGRAM IS ENABLEO IT WILL 

5040 * BRANCH To THE FOLLOWING WORE - 

5041 * 

5042 oc ML2°4CER° iC TSNeO XNIT WO RDY MUST NOT BE ON 

$043 pc XL2*41&2° 1p TSNel REC WO ROY MUST NOT BE ON 

5044 pc XL 2'6EES® 1E YSNeE DATA LOGP MUST NOT BE ON 

5645 oc XL2°46E4° 1— TSNeB REC. CHK MUST NOT BE ON 

5046 oc XL2*40E5s 20 TSNeO INTe REGe MUST NOT SE ON 

5047 oc x. 2°1008¢ 21 SSFe0 RESET AITS 2v3e0i3s OF 1/78 REG 

5048 pc XL2°34204° 22 SSNe2 SET BIT 2 OF 176 REG 

5049 oc Mi_2* 3304! 23 SSNe3S SET Bit 3 OF ftv70 REG 

5050 DC ML Ze LEo4s 2@ SSNeE SET INSIDE BRAP GN 

S051 oc XiL2*° 0784? 25 LE» iSao 170 REG & RMIT wD 

5052 pc XL2* 76808 26 Ce SET HDB 6 = 6 FOR OELAY 

5053 DC XL2°1640* 27 Sie SHIFT HDB 6 LEFT 

5054: oc XL2¢F610¢- 28 TBNe TEST HOB 6 FOR END OF DELAY 

5055 pc xL2*90275 29 LOOP BACK TIL 16 CYCLE DELAY GVER 

5056 oc XL2°42£68 2A TSNel RECo WO ROY MUST NOT BE ON 

5087 pc XL2*2 7045 28 SSNe7 RESET CURAR TC ZERO 

5058 BC ML 2°79001° 2C Ce SET MBAR HI = O12 

S059 oc XL2°7122¢ 20 ICe SET MBAR LO = 22 

5060 oc ML2eiF 946 2E SSNeF TURN DIAGe MODE BACK ON 

S061 go ML 2907848 2F Ls LOAD 170 REG & AMET 

5062 DC xXL2eai32e 30 TSNe 1 BAIT FOR REC. wS ROY ON rene nnenernrinmnamce renter atan 
5663 oc ML 2*5030° 31 80S.0 LOOP BACK TO PREV. BO 

5064 oC XLZ2*7Q00 & 32 Ceo SEY MBAR HI = G 

5065 pC XL2* 7100! 33 Ce SET MBAR LO = 0 

5066 DC XL2°S436° 24 BGSci MUST BRANCH 

5067 oC XL2?5035°* 35 B0S0e0 ERROR» HANG 

5068: pc ML 2250366 36 HANGs EXO OF TEST... ‘ 
$069 pc XL 2@?*2210° 37 LReMOVE HOB 10 TO 62 

5670 cc XL2¢7900° 38 ICeSET HD@ o9 TO GO 

sori pc XL. 2*0B889* 39 DESELECT DRZREC 

5072 pc XL2* oO Cag? 3A OESELECT OR/REC 

5073 oc %.. 2t 0089" 3B DESELECT DRY REC 

$074 DC yw. 2° 9889" 3C DESELECT OR/REC 

5075 R2SMCcE DC xL2*5oci? 3D BOS00 KEVURN TO ADD<O1 

5076 

S076 

S077 RERATKKARKKEK SK EEASSHRSRRASTIAHK SRE SHSSTS TSS BHVHSS SVERRRESRSBISARBRE SSK ASS 
5078 *€ ROUTINES 33534035 SPARE> * 
5079 * re eeEedaaeusaeena sd $8es 4222425 S29RRRLSSE LEE ELTSS SET ES SES SRS SSL LES 
$080 RT33 oc XLIt3se 

5081 oC xL.1°00° 

5682 oc AL 2¢RT 34) 

5083 vc SPARUTC(2) -DET33 

5084 8 SP AREX 

soe5 * 

6086 RT34 oc MLie sae 

5087 DG M.1° 90° 

$0838 pc SL.2 GTS 

5089 MVC SPARUT( 2) eOEC 34 

5990 a SP AR EX 

$09, # 

5092 RT 35 oe WAS 362 

5093 oc xLIe Sot 

5094 oc AL2CRT3SE 

5095 wy¥S SP ARUT( 2 32 GECIS 

5096 B SP AREX . 
ISJANTE : PROG 40 08G1~—2 
625036 PAGE aon’ 
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8912 


ERR Lac 


3584 
3588 
3589 
356A 
358c 


¥ 3590 
3598 


3S9E 
35 a0 
35A2 


35A4 
35A5 
35A6 


3Sa8 
35ac 
35aod 
3SAE 
3580 
ae 3564 
388C 
35¢4 
3scc 
3504 
3506 
3S0A 
3508 
3500 
35D0F 
3S€3 
3SE0 
35E6 
3SE9 
35SEC 
| 35F0 
3% 1 
35F3 
356 
35F 9 
3SFO 
35FE 
3600 


3604 
3606 
3608 
360A 


360C 
360E 


Oate 
Ec nO, 


OLSPLAY ADAPTER TEST 


OBJECT CODE ADOR 
CO 87 G21A 
o1 3588 
OE 3589 
3590 3588 
cO 87 0216 
OSDGE SESSOET7TE 140 3590 
E2ce7C109C548 

3596 
F3F3 359F 
F3F4 35al 
F3FS 3543 
36 3SAa 
00 35a5 
3612 3SA7 
CO 87 O21A 
01 3Sac 
22 35a0 
3505 3SAF 
co 87 3506 
DODGE 4E 340F SF £80 35D5 
C2E2C3ICISOE2]C $06 
40C90404CS5SC45 £40 
CSOSC1IC2E1C AC 2 
cice 
co 87 §916 
83 35DA 
3604 350C 
3611 35DE 
cO 87 S4FE 
35 35E3 
5001 3S5€ES 
F3 S86 EO 
F3 68 CO 
cO B87 S4FE 
36 35FO 
5004 35F2 
€3 $8 EO 
F3 88 80 
Co 87 S4FE 
37 35FO 
$006 3SFF 
co B87 0216 

36 04 
4700 3605 
$001 3607 
4704 3609 
$002 3608 
$004 3600 
4705 360F 
O7 SULTS 25ccT 7s 
825023 82532 


ST S&T 


5097 
5098 
5099 
$1900 
5101 

$102 
$103 
5104 
5104 
5105 
$106 
$107 
5108 
$109 
$116 


source 


s 
SPAREX 


* 
SPARMS 


SPaARUT 
DEC3S3 
DEC34 
DEC35 


CLi4*ROUT XX SPARE-® 


ST ATEMENT 

8 PRINT 

oc XLitors 
oc TLiei ae 
oc & 2°CSPARMS } 
8 Link 

oc 

eau SP ARMS-7 
oc C2e33° 
oc CL 2e34e 
oc @2e35 
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$111 * ROUTINE 36 SIO EMMEDYATE TO ENABLE/DISABLE BSCA 

SLL2 Kaaee egy ERRLEKAEKRTS AKHRRKKKSE SKSARIRLL ELK SG AKKSEKK EASE RE RAKKRERKSLKSHEBRKE RE 
5113 * MICRO INSURES SSCA NOT ENABLED. 
5124 « MACRCG ENABLES @SCA. 

5115 « MICRO INSURES SSCA NOW ENABLEC- 

5116 * MACRO OFSABLES BSCA. 

5117 * MICRO INSURES BSCA CISABL ED. 

SLL KERR AESKEAKEAKEAERSEEEER EK EREERERKKVHSRKAK$T CEREKK SE SKEKKERVAKSLACISEKSEKRSERES 
5119 RT36 oc xXL2°%36° ROUTINE NUMBER 

5120 oc XL1°008 NO MANUAL INTERVENTION 
$121 pc AL2(RT37} ADDR OF NEXT ROUTINE 
Si2z2 * 

$123 8 PRINT PRINT ROUTINE TITLE 

$1246 oc m%1°O1? 

$125 oc IL "Bee 

$126 oc AL 2CR3SHOR?} 

S127 8 RT 3560 , 

5128 R3SHDR DC CL34* ROUT 36 BSCA Sig IMMEOS ENAS/DISAS® 

5128 

$128 

$128 

5128 

$129 RT3560 @e ioaocs LOAD MICROPROGRAMN 

§130 oc xLt*asze 

$131 oc &. 2CR3S5MCS) 

$132 oc aL2(R3SMCE) 

5133 8 DOMICR DO MICROPRCGRAM 

$134 oc w1° 35° ERRe HALT 

5135 oc XL26S00118 EXPECTED RESULTS 

$136 sia x®EQ* eSIOI SIO ENABLE &C 

$137 sro X* CO? eX*8G° SIG ENABLE BSCA 

$138 8 OOMICR DO MICROPROGRAM 2ND TIE 
5139 oc m1°36* ERROR HALT 

5140 ’ oc XL2*° S004" EXPECTED RESULTS 

$141 s1a X*EO* oS10r ENABLE wr 

$142 sia x* BOe oe x* 8B* Slo O1SAGLE BSCA 

$143 a DOMICR DO MICROPROGRAM 3ROD TINE 
$144 oc ML1*378 ERR. HALT ' 

$145 pc XL2°S006°8 EXPECTED RESULTS 

$146 8 UINx GO TO NEXT ROUTINES 

Si47 & 

S148 towne e cee ee een mewn mm wn awnewoend 

51a9 * START OF #ICROPROGRANM LISTING * 

S150 ewww mwwe one ew enn caw emer n nn 

§151 R3SMCS EQu * 

$152 cc xL 2° 47008 aco TSNe? BR TC SELF IF 8SCA ENABe 
3153 oc XL2°S5001°8 002 B0S-0 EXPECTED RESULTS 

$154 oc Xi2°a704¢ e002 TSNe7 BR TO ADOR 004 IF BSCA ENABe 
6155 oc XL2°*50022 003 80500 LOGP BACK TO ADOR O02 W-ITING 
S156 « FOR BSCA YO BE ZNABLEDs 
5187 oc xL2e*5006* 004 BOS 0 SECOND EXPECTED RESULTS 
$158 oc M2°4705°¢ eos TSNe7 6R TO SELF BAITENG FOR 
S159 « BsCA TO BE CISABLED. 
ISJaNTe PROG ID 
825034 PAGE 
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sgi2 DISPLAY ADAPTER TEST 
ERR LOC GBJECT CODE 


3610 S006 3611 5160 R3SKCE OC 


mm, 


i 


e00c0 8 68 8 Oo 8 6 


800 


DATE 
EC NOe 


OT SULTS 
825023 


ISJANT6 
825034 


28 CCT 75 
82 £032 
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ADOR STMT SOURCE STATEMENT . 


xL2* 5006° 


606 


80S 00 


PART NO. 4234255 
PAGE @iA 
THIRD EXPECTED RESULTS 
PROG 1D ° 0893-2 
PAGE aia) 





IBM MAINTENANCE DIAGNC(ST IC PROGRAM PART NOe 4234255 IBM MAINTENANCE DIAGN(STIC PROGRAM PART NO. 4234255 
, PAGE 420 PAGE 2A 
e9ie2 DISPLAY ADAPTER TEST . 9912 OISPLAY ADAPT ER TEST 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
5162 ee is ee ec Ee ee ae ee Cc 36AT 5225 R3BENCS EQU 2 
5163 * GOUTINE 37 SIO IMMEO. ENAB BSCA w/2-SEC TIMEGUT STe Av 470 8 5226 Cc XL2*4700° CO TSNe7 BR TO SELF IF BSCA ENABe 
S164 SHSESSESEEAS EERE EEE EEE SEEDED EEE DOES DORE EROS ESESE EES SERRDERE £294 O49 EEE a oe ok aces bh See are aot ie BR TO Scag If proce TeO. REG ONe 
5165 * 31,.M1CRO INSURES BSCA NOT ENABLED AND NO 2-SEC Tele REGUEST * : 36aB8 5002 36ac 5228 oc ML.2*5002" 002 80Se0 1ST EXPECTED RESULTS 
5166 * WACRO ENABLES BSCA = ZEAL 4705 36AE 5229 oc XL2°4705* 003 TSNe7 BR TO OOS WHEN BSCA ENABe 
S167 * 2,.M1CRO INSURES BSCA IS ENAB. BUT NO 2-SEC TeQe REQUEST a 36aAF 5003 3680 $230 oc xL2°5003" 004 80Ss0 TO ADOR 0036 wAIT FOR @SCA ENAB. 
5166 *# MACRO TURWS ON 2-SEC teDe REQUEST Bs 3681 5007 36B2 5231 oc XL.2°*S0075 005 B80Se9 TO “DDR 007. 
. 5169 # 3,M1CRO INSURES 2-SEC TeO. REQUEST Is ON * 36B3 5006 36pn4 5232 Dc XL2?5006* 006 80Se0 ERROR» HANG 
5170 * MACRO RESETS 2-SEC TeCe WETHK TIMEQUT CANCEL CCWMAND * 3685 4606 3686 5233 pc XL2°4606* 007 TSNe6 BR TO ADDR 006 IF 2-SEC TeOe REQe 
Si7i *« 4,.M1CRO ItiSURES SSCA ES STILL ENABLED BUT NO 2-SsEC TeQe REQUEST * = 3687 $008 3688 $234 oc xL2*s5008" 008 BOS*0 2ND EXPECTED RESULTS 
5172 * MACRO SETS 2-SEC T.eGe REQUEST AGAIN * 3689 4619 368A 5235 oc ML2°4619% 009 ‘TSNe6& BR TO ADDR 019 IF 2-SEC TeOe REQe 
Si73 * S.MICRO INSURES 2-SEC TeO. REQUEST IS ONe * 36BB8 S009 36eBC 5236 DC m2*50098 00A 80500 TO ADDR C09e WAIT FGR TeQe REQe 
5174 * MACRO DISABLES 6GSCA eee 3680 $008 36BE 5237 oc xL2*5008° 006 80520 38D EXPECTED RESULTS 
S17S *« 6.MyCRO INSURES BSCA DISABLED ANC 2-SEC TeO- REQUEST RESET * 36GF 4717 36c0 5238 oc XLOQ°a7L7* ooc TSNe7 BR TC 017 IF ESCA STILL ENABe 
S176 HOHE HEEES EE EEEREELE RE EEEERE ST EREEEERS EEE EATERS EERSEREEEEL ERASER EERERE 36C1 Sooc 36C2 5239 oc XxL2°s00c* 000 BOSe0 TO aDDR OOC WAIT FOR BSCA ENABe 
3612 37 3612 5177 RT37 oC XLie37e ROUTINE NUMBER ‘ 36C3 SOOE 36c4 $240 oc XL2*SOOEs OOF B80Se0 ERROR» HANG 
3613 00 3613 Si78 Dc XL2*° 008 NO MANUAL EATERVENT ION 36C5 460E 36C6 5241 oc XL2*460E ¢ OOF TSNs6 BR TO ADOR OOE IF 2-SEC T+Me REQe 
3614 360F 3615 5179 oc A. Z20RT38) ADDRESS OF KEXT ROUTINE x 36C7 S010 36c8 5242 oc XL2*5010¢ 010 80Se0 4TH EXPECTED RESULTS 
5180 * f 36C9 4613 Becca $243 pc XL 2*4613° O11 TSNe6 BR TY AMOR 013 IF S-SEC TeDe REGe 
3616 CO 87 O21A 5181 8 PRINT PRINT ROUTEIAE TITLE 36CB 5011 36cc 5244 oc XL2°S012° 012 80SeC TO ADOR Olle WAIT FOR TeGe REQe 
3614 01 3614 $182 oc ML1*O1° 36CD 5013 36cE $245 oc XL2°S013* 023 680S0e0 STH EXPECTEC RESULTS 
3618 20 361g 5183 oc ILiease es 36CF 4614 3600 35246 oc XL 2° 66148 014 TSNe6 BR TO SELF IF BSCA STiIne ENABe 
361C 364E 3610 $184 oc AL 2CR S6HDR) : 3601 4715 3602 5247 pc ML 2*a7258 015 $TSNe? BR TO SELF IF T.O. REQ STILL ON. 
S61E CO 87 364F 5185 8 RY36G60 34D3 5016 36D4 5248 oc xL2*°5016¢ 016 80S0e0 6TH EXPECTED RESULTS 
3622 OSDGEGES40F SF 340 36eE 5186 R3GOR OC CL4S5* ROUT 37 BSCA SiO IMMEDS ENAB/ DISAB W/T.0, REG* C 3605 5018 3606 5249 oc mM. 2°5028* 017 BOSeO0 TO ADDR 018 OUNNY CYCLE 
362A C2E2C3C140E2C Sp6 $186 a. oe 36D7 SOOF 3608 5250 DC =—=s_—- KL2°SCOF*® = =—0018 )=— 8D Se TO ADDR OOF DUMMY CYCLE 
"3632 #0C9D404C 5C45E80 5186 3609 1908 36DA 5251 oc XL 2°29088 019 SSFe9 SHCULD NOT RST T.C. REO 
363A CSD05SC1C261C4C SE2 $3266 ee 3608 4608 360C 5252 oc %.2°460B* 01A TSNeé BR TO ADDR 008 IF STILL TeGeREQe 
3642 €1C240£661E34 ED6 5186 a 36DD 5018 36DE 5253 RIENCE OC XL2°S01B® O01A B60S0e0 ERROR HANG 
364A 484009C508 $186 
364F CO 87 5914 S187 RT26G0 B L.OACCS LOAD MICRCEROGRAM e 
3653 63 3653 5188 oc mirage. 
3654 3647 3685 3189 oc AL2 (R3GNCS ? a 
3656 360E 3687 5190 Do ALAC RBEMCED | © 
3658 CO 87 SAFE S191 8 COMICR 00 1ST 41 CROPROGRAN 
365C 36 365¢ 5192 oc XL1° 36° ERR. HALT 
3650 5002 365E 5193 oc m%2*S002" 1ST EXPECTED RESULTS | @ 
365F F3 58 £0 5194 S10 X*€0e.S10! ENABLE MC 
3662 F3 €6 CO 5195 si0 = K*CO* ,x* aes ENAGLE @Sca 
3665 F3 58 04 5196 S10 = - X04 S101 |e 
3668 CO 87 SaFE S197 8 COMICR D9 2ND M1CROPROGRAM | 
366C 37 366c $198 oc 1° 370 ERR. HALT 
366p 5008 366E 5199 DC 80s. 2° S008" ‘2nD EXPECTED RESULTS le 
366F F3 S58 EO 5200 S10 = K® E0* S08 ENABLE MC | 
3672 F3 88 04 $201 SIO = K* 04 * XP B68 BSCA 2-SEC TeQ. REQUEST 
3675 CO B87 SAFE 5202 . 8 DOMICR DO 3RO MI CROPROGRAM © 
3679 38 3679 5203 oc L1* 3e* ERRe HALY | 
367A 5008 3678 5204 oc mL 2°S008¢ 3RD EXPECTED RESULTS 
367C F3 $8 £0 5208 SIO -X* £0" .STOI ENABLE MC le 
367F F3 88 00 5206 SIO —_- K* OO*# » Xe BBs BSCA 2-SEC TeDe CANCEL | 
3682 CO 87 SaFE S207 8 COM ICR DO 4TH Mi CROPROGRAN 
3686 39 3686 5208 oc xL1*39° ERROR MALT i @ 
3687 5010 3688 5209 oc 1.2°S5010° 4TH EXPECTED RESULTS 
3669 F3 5e EO $210 S1G —- X*E0% eSICe ENABLE MC 
368C F3 BB 04 S211 “SIO =. X* O4* xe BB BSCA 2°SEC TeGe REQ, | ¢$ 
368F CO 87 SaFE S212 8 oom scr DO STH mi CRCPROGRAN 
3693 3A 3693 $213 oc xLLesae ERR. HALT | 
3694 5013 3695 $214 pc 3.29501 38 STH EXPECTED RESULTS { © 
3696 F3 58 EO ** $215 SiO xX*°EO*,Sio£ ENAGLE MC | 
3699 F3 8B 80 $216 SIO X*80e ex*Ba* OISA@LE BSA 
369C CO 67 SeFE $217 8 Oomicr 00 6TH MICROPROGRAN | € 
36A0 38 3600 $218. oC 8 XL #368 ERR« HALT | . 
36A1 5016 36AZ S219 _ oC XL2*S016° 6TH EXPECTED RESULTS ' 
3643 CO 67 0216 $220 8 LINK GO TO NEXT ROUTINE '@ 
S221 s | 
5223 * START OF MICROPROGRAM LISTING © S 
S228 Beep em ay Se yet re Be Oe BER PUD aE | in 
Date O7 JULTS 25 6cT7?s ISJANTS PROG 10 0691-2 © ie O7IUL 7S 25ecT?s ISJANT6 : PROG ID 0093<2, 
EC NO. 825023 82 £032 825034 PAGE 42 _€C NO. 625023 82 £0%2 a2503¢ PAGE 42a 
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EBM MAINTENANCE DIAGNCSTIC PROGRAH PART NO. S23462E5) {6M MAINTENANCE DIAGNCST IC PROGRAM PART NQo 4234255 
PAGE 4s ii. PAGE 43a 
6912 OISPLAY ADAPTER TEST | 6312 OXSPLAY ADAPT & YEST 
ERR LOC OBJECT Cope ADOR STMT SOURCE STATEMENT | ERR LOC OBYECT CODE ADOR STMT SQURCE STATEMENT 
5255 Pera ae ag Rettttse ssa ste ene eaSTaeee ets seenaE REE SEK EeHSREREERHESERAS| a 3788 OF 3746 5318 oc IL2¢7 se 
S236 * ROUTINE 38 ESCA SIO NON-TMMECTATE x 3749 60C2 3764 5319 oc al. 20S TATMS } 
S287 ROP Yee tut op ee rar hatt ena pnnent Ratete a SeRAUTESete anny 5320 
S256 x mee 3748 CG 87? S4Fe 5321 R3™Ce B DOMICR 80 2ND MICRCOPROGRAN 
S259 * 1, MICRO. ENSURE NCESIG SVC REG ESCA Busy ts +| 37aF 38 374F 5322 oc Ai i*3g¢ ERROR HALT -38- 
S260 * ZERG OUT HOS 162 L7s26e27~ %: : 3750 5018 3752 5323 oc XL2*soiee ExPECTED RESULTS 
S26i 2% «! 37S2 CO 87 S4FE $324 8 DOMTCR DG 3RO MICROPRGGRAN 
7 S262 * 1A MACRO INSURE TIC ESCA NOT BuUSYe. i 3756 39 3756 5325 oc XL 3 *#39Q2 ERR WALT 
5263 * ENABLE BSCA WITH A NGON-IMMEDIATE $20 me} 37S7 5020 3758 $326 Bc xL2* So2ce EXPECTED RESULTS 
5264 »* ENSURE BSCA BUSY * 3759 F3 $8 £0 S327 S10 X®*EO*e SIG ENAEE “Cc 
S265 # call 37SC Ci 8A 3772 $328 Tia BSYER2Z6X*@Aae Tra SSCA BUSY. SHOULON?Y BE 
S266 # 2, yCRQ INSURE 8SCA ENABLED e * 3769 F3 88 co $329 $190 APCOl® oX* eae ENASLE 8S5CA 
5267 # INSURE *SiC SVC REG BUSY ®* iS ON. *, 3763 F3 BA Ce $330 Sia A*C4*.X° Bas SiG NON-1 MMEO 
S268 « INSURE HDS 26427 EQUAL IRe ¥Ge % | 3766 Ci BA 377¢ $331 Tia R37NS} eK *BAt TIG SSCA BUSY. SHOULD BE 
$269 * INSURE HDB iGei? not CHANGED. Be 7 376A CO 87 SBT2 5332 8 PRINTHM ERROR HALT 42 
S270 * wis 37GE 42 376E& 5333 oC XLItage 
S273 * 3, MECRCE RESET @SCA BUSY me 3S76F 16 376F 5334 oc ILite2e 
S272 * INSVRE @SCA BUSY IS RESET. al : 377¢G 8&GF7 377i S335 o¢ At. 20STATSMB 3 
$273 « By 3772 CG 87? SB72 5336 SSYER2 8 FRINT i ERRCR HALT 69 
S2e7e « 2A MACRG INSURE VIG BSCH NOT Busy - 3776 as 3776 S337 oc AL TP Rge 
S27S * ENABLE BSCA AGAIN WITH ANGTHER NON~YMMEDIATE Sid. x) . 2777 OF 377? $338 Bc ILi*ise 
S276 « ENSURE TIO &SCA& BUSY #; £ 3778 690c2 3773 5339 Doc AL 2CSTATNO} 
S277 # CESABLE BSCA * 377A COCO 3778 5349 SNSIT oC XL2°GO% SENSE HOB*®S HERE, 
5278 # INSURE SSCA NOT Busy i 7 377C fF3 8B B90 5344 R37NS1 $;0 X®BO® .X* Ege DISABLE BSCA 
S279 * LLCO HDS 16,17 EQUAL Ccoo we 377F €)i BA 3709 $342 Tia DESERR,X*S8A2 TEG BSCa BUSY. SHOULONE TY ee 
$280 * {1G x06 26.27 EQUAL aooo ae 3783 31 48 opEe2 S343 Lig ZEROs HOES HDB 16°17 SET TO ZERO 
5283 = ISSUE ESCA SIO CONTROL ONLY al ; 3787 F3 SB 80 S344 sia X®§ 80° ,Sicz CISABLE He 
S2G6ze & INSURE BSCA NOT BUSY ik 3734 31 8B ODEé2 S345 irc ZERDs X*6He HOB 26.27 SEY YO ZERO 
5283 *« INSURE HOB 16,17 &NO 26.27 STILA 60OGa * S76E Fz $8 EO 5336 sia X*EO* ,SIOX ENASLE Me 
S284 # TISSUE BSCA SID NON-IMMEDEATE *: ‘ 3791 F3 88 0a 3347 sxc A® 04% e Xe Ge $i BscCA Crt ONLY wo-oOP. 
5285 * ISSUE 32xXxX SEO NONWI MMEDI ATE *! t 3794 Ci Ba 37F9 5348 ris R37H4A8,X*Bat FEO BSca BUSY, SHLD NOT RE 
5286 * SNS BACK ¥CeER FROM BOTH COMMANDS AND CHECK * 3798 30 48 377s 5349 SKS SNSiT eHORS SNS HOG*S 16,17 
5287 * %f ” 378C OD 01 3778 OCe2 S356 CLc SNSET( 2) ,zERC merece anecpeenn tne net 
52e8 Rea aN SESS ERRRREEERSESERAS CIRAE AER SEE ERT EDT ARE ETCH EERE EERIE € 37A2 C&S 01 37E1 S351 ENE HOGER 
S360F 3&4 S6DF 5269 RT3a oc ALI * Sage ROUTINE NOe : 37A6 F323 58 86 5352 sio A®* 80° ,Sictr SEISABLE mc 
36EO 60 36EO0 5290 oC Fi. 38 OQe NO MANUAL IATERYVENT ION i = 37A92 30 88 3776 S323 SNS SNSITsX* €G SNS MDB*sS 26327 
36Ei 3843 36E2 $291 oc &. 2ERTIAQ) ADGR OF NEXT RGUTE NE f 37AB F3 58 FO S35¢e sta M°EG® ,SICY ENABLE Hc 
S292 ; 37680 O00 01 3778 ODvDEZ 5355 CLC SNSIT(23 eZERO 
3&€3 CO BY O21a $293 3 PRENT ! és 2786 CO 01 3TE9 5356 BNE HOBERE 
3S6EF Of 36E? 5294 oc ML Geoge i 378A F3 88 CO 5357 s1o R°COe oX* HB? ENABLE BSCA - = 
36E8 28 36E8 5295 o< 4L.3 °a@3e 378p £3 BA CO S358 sio X*C Of sx® Bae Sic NON-IMNED 
SEES 37139 36EA S296 oc AL 2(R S7THDR} i 37Co FE S#@ 89 S38S SzQa X*86° sSyCz DISABLE mc 
36EB CO B87 371A $297 8 RT 3760 i 37¢c3 30 SB 3773 5369 SNS SNSIT ex* eg¢ SwS NDB*S 26427 
S6EF DODEESESZ46F 3F 24g 3729 5298 R3EMDR OC CReS" ROUT 3A BSCA S10 NGN-LHMEDIATE ARO Tra BuSsY® ' 37C7 F3 S58 £6 $363 S1Cc XE O's SIO] ENABLE xc 
S6F7 CZ2E2C3Ci40E2C SDE 52928 7 37CA 30 8A 3778 S362 Cur SNSIT»x* Bae OID Ic CF *6a* GET To HDS 27? 
JOFF 40D0SD6D560C9D Me S296 ; & 37CE Co 01 37F1 5363 BNE R37E47 BR IF NOT 
3707 CSCACO9CIEBCSA CEL S298 | 3702 F3 S8& 80 S364 SIG x*°SCt »SiGt BESABLE RESET 
370F 05C44 0OE3C9064 coe $298 ! C 3705 €0 87 0216 S36s B LINK BR FO NEXT ROUTINE 
3717 EXE2ES $298 | as $366 
S7iA CO 87 5918 $299 RT27G60 6 LOARB s GO LGAD MECKROCGDE : 370¢ Ca 8? SR72 S367 OFSEARR B PRINTH ERROR HALT 62 
3S7iE 83 S71LE 5300 oc XLa °BZe : 3700 43 3700 5368 oc XLLitage 
371F 2801 2720 S301 oC ALZ2CRIIMCS) | ee? 37CE OF 37BE $369 DC Iki*45° 
3721 3842 3722 $302 oc AL. 20R BIMCE) | 370F 60C2 S37EO 5370 OC AL2(STAT NO) 
3723 CO 8? S4FE 8303 8 cornice 0 MICROCODE Wt S37} 
3727 37 3727 5304 DC ALUet sre ERROR NALT -37- \ - 37E1l ¢cO 87 Sa72 S372 HOBERY 6 PREMTM ERGOR HALT 46 
3728 5006 3729 5305 oc w2°S006e FIRST EXPECTED RESULTS fo 3VTES 94 3S7ES $373 o¢ ML EFASe 
272A F3 58 £6 35306 sia X®EO* »Sray ENABLE MC I BS S7EB i6 S7EG S374 oc iLiegeae 
3720 C1 BA 3743 $367 TrEO BSYERR eX *BA?e Tic 8sca Busy. SHOULDN'T BE, | {3 STET 6176 37E6 $375 oC AL 2OCSTATS33 
3731 F3 e@8 co 5306 $16 X°COt Xe Bge ENABLE 8SCA S3Tré 
3724 F323 BA C4 5309 sia X*CHE Xe BAe S'OQ NON-IT MED | in 37E9 CO B87 SAa72 S377 HDBER2 B PRT ERROR HAL? 45 
3737 €) BA 37¢8 $310 Tra R3ITMC2.K aA 0 TEG BSCA BuSwe SMOULC BE. | €. S7ED 45 37ED 5378 Oc XL2*Qge 
3738 CO 87 SB72 S3ii 6 PRINT % ERROR HALY 40 | S37EE i6 37EE S379 oc TLicgoe 
373F 40 373F $312 oc Meee ge ¢ STEFF e176 37FO S386 oc AL 20S TATG3) 
3740 16 3740 5313 oc Wirtee2e 1 qe S383 
37413 6OF7 3782 S314 oc AA2 (STAT MB) ; 37F1 CO 87 5872 S362 RZSRU47 B PRINTM ERROR HALT 67 
$315 i i 37FS 47 37F5 $383 ae RL 147s 
3743 co 6Y SRT2 5316 BSYERR B PRINT ERROR HALT 41 e: S7FE 16 3TFE S384 OC Inieazs 
3767 a; 3747 S37 oc XLaeage | 3S7F7 6176 2tF 6 $385 DC AL2(STATB3) ~ 
DATE OT JULTS 25 (CT 75 ISYAN VE PROG ID 0693-2) OATE OT IJULTS 25 CCT TS ISJANTGE PROG ID 0893 <2 
EC NO. 825023 82 £032 825034 PAGE a3, - EC NGe 828023 82 £032 82503¢e@ PAGE axa) 
| & 
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es PART NOe 4236255 
PAGE ae c. PAGE a4A 
aol2 DISPLAY ADAPT ER TEST | ¢ e912 DISPLAY ADAPTER TEST : 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
37F9 CO B87 S872 : §386 R37H48 B PRINTS ERR HALT 486 5430 SEBKEHKSRKAKSES SESESRKK $SSESESSEKESIGE VK SE SSKAKAKK KKK KEE HE KEKKHEKARELEKKEKSKKKKKES SS 
37FD 48 37FD 5387 oc XL2* 46° 1 5431 * ROUTINE 39 ESCA INTERRUPT TEST * 
37FE OF ‘ 37FE $388 oc mL2¢°ase Q 5432 HESAKESESTSRRARTL LER $HSERKEEHS AE ESTAS AKE EKTARS &KK ORES KAAS SHESERESEREDS 
37FF 60Cc2 3800 5389 oc ALZCSTAT HD) 1 €3 5433 * * 
5390 | 5434 * MACRO-1 DISABLES ESCA INTERRUPTS * 
5391 ta we nn en we ne ne memes 5435 * * 
5392 * START OF MICROPROGRAM LISTING © | eS 5436 * MICRO-1 PRESENTS INT REG» (NO INT SHOULD OCCUR YETe? * 
: 5393 amr rm nnn nth : S437 * ® 
3801 5394 R37™CS EQU *# i 5438 * MACRO-2 INSURES TIO INT THAT AN INT IS PENDENGe * 
3801 7000 3802 5395 oc xL2* 70008 000 iC DB oo=00 \ Cs 5439 * * 
3803 2620 3804 5396 Dc XL 2° 26208 001 LR HDB OG TS HDB 16 p S440 * INSURES TIO OP-END INT IS PENDING. * 
380S 2720 3606 5397 oc XL29 2720¢ 002 LR FDB OO TO HOB 17 5441 ¥ (THIS SHOULD RESET THE OP~END INT PENDING) * 
2807 2680 3808 5398 Dc xL2* 2680° 003 LR HOB OO Yo HDB 26 €3 5442 * INSURES TIO OP-END INT PENDING NOW NEGATE VE * 
3809 2780 3804 5399 oc xL2°2780° 006 LR HDB 00 TO HDB 27 5443 + ENABLES ENTe (CIENT SHOULD CCCUR.} * 
3808 5805 380C 5200 oc xL2*580S* 00s BOS,2 BR ON BSCA SIO SVC REQ. ERRs HANG 5aaa x RESETS INT REQ. CINTERRUPT SHOULD TERWENATE) * 
380D 5006 380E S401 or XL. 2° SOO6* 006 BOSe0 3ST EXPECTED RESULTSo =e 5445 + DISABLES INTERRUPTS * 
360F 5805 3620 5402 oc m.2°S5808° OOF B8O0Se2 BR GN BSCA SIO SVC REG TO ADD OS 5446 * Py 
3ea1i 5007 3612 5403 DC XL2°5007* 008 BOS*e0 AIT LOOP 5447 * MICRO-2 PRESENTS INT REGe (NO INT SHOULD OCCUR) * 
3813 SOOA 3814 5404 oc M.2°500A* 009 «=68GS.0 DUMMY & 5448 * * 
3815 SOOA 3816 5480S oc XL2* SOOAE 004  BOSe0 ERROR: HANG 5449 * MACRO-3 INSURES OP=END INT PENDING. * 
3617 BO16 32818 5406 oc XL2°8016° COB ClReD0016 5450 * DISABLES ®8SCA * 
3619 9COE 3614 5407 oc 1 2°SCOEe 00C B80Ce3 BR IF EQUAL TO ADDRESS ODE. & 5451 * ENSURES NO CP-END INT FENDINGs * 
3818 S00D 3a81C $408 pc xL2*S00D* COD B80Se0 ERROR» HANG t 5452 3 * 
3810 8720 381e 5409 oc 1.2°8720¢ OCE CIR 1700 | e : 5453 # WACRO-% CAUSE ATTACHMENT CK & INSURE INTs OCCURS. * 
381F 9C11 3820 5410 oc xi 2°*9ci1° OOF B80C.3 BR IF EQUAL TO ADDRESS 011 5 5454 *# * 
3821 S010 3622 5411 oc xhL2°50:708e e100 BOS 60 ERROR, HANG 5455 4HGEESEGEOESSRESAREELESSESSBRERES S OEEX EEE AREERS RELKSES SEKLS EKER ERARER LSS 
3623 2446 3824 5412 Oc XL2*28a6* 012 LR HDB 26 TO HDB 046. CIR BYTE) rm 3e43 39 3843 5456 RT39 oc XLI'3¢98 ROUTINE NO. 
3825 2547 3626 $413 oc XL2¢ 25478 012 LR FOB 27 TO HDB 08+ (1G BYTE) | (3 3844 00 3844 5457 pc xi2e 008 NO MANUAL IATERVERT IGN 
3a27 Y6ece 2828 5416 pc XL2* 76Ca* 023 Ic *08 06 EQUAL C4 3845 3983 3846 5458 _ ec AL2CRTBA) ADDRESS GF NEXT ROUTINE 
3829 778A 3824 S415 oc ML2*°778A° 014 Ic HDB 07 EQUAL BA | : 5459 
3828 8406 3a2c 5416 oc x2" B405* 015 CER 04.06 TEST IF IR EQUAL C4 C- 3647 CO 87 OL1A 5460 B PRINT PRENT ROUTINE HOR 
3820 9c18 382E 5417 oc XL2°9C38", O16 80Ce3 BR IF EQUAL TO ADDRESS 018 j 3848 O01 3848 5461 ec MLEfo1e 
gst A nis 382F S017 3830 $418 oc XL2°¢SoOi7? oi? BoOSeo ERRORs HANG | 3aac ic 364c $462 DC Li? 28s Soop pp gee a ee yg 
3831 8507 3832 S419 DC XL2* 85078 o128 CIR OSeO7T TEST IF IG EQUALS BF i Ce 3B4D 386E 3BaE 5463 DC AL 2( R38HDR} 
3833 9CiB 3834 S420 DC XL2°9C 18 ¢ 019 BoCe3 BR IF EQUAL TO ADDRESS 018 ‘ 3eQ4F CO 87 386F 5a64 e RT 3860 
3Q35 SO1A 3836 5421 oc XLZ°S50ia¢ Oya 86S20 ERROR» HANG ~ 38S3 OSOGELE2Q0F3F S80 386E 5465 R3SGIOR DC CL2S*RGUT 39 SSCA INTERRUPT TEST* 
3837 5018 3838 $422 oc ™%2*5018° 018 B0Se0 2ND EXPECTED RESULTS i f 3858 C2E2c3C140C9DSES 5465 
3839 SB1E 383a 5423 oc w2°Ssies 01C 80Se2 GBR ON BSCA SQ svC REQ To O1E { 3863 CSDEDSE4D 7E34 3 5465 
3838 $01D 3e3C 5424 oc xL2*5010* 01D B80S°0 ERRGRe HANG | 3668 CSE2E340 5465 Leet es 
3830 1308 383€ S425 oc m.2¢ 13088 Ore SSFe3 RESET BSCA SIO SyC REG j €3 ‘ ; - 4 8 oS ee € START MACRO-1 Me SES - - > - 
383F S8iF 3840 $426 oc xL2*SB1F* O1F B0Se2 ERROR» HANG \ 366F Co se? 5928 5467 RT36GC0 B LOaocs GO LOAD MICROCODE 
3841 S020 3642 5427 R3IMCE OC xL2*50206 020 B0Se0 3RO EXPECTED RESULTS { © 3e73 83 3873 5468 oc mL 1*p3¢ 
5428 3874 39A7 3875 5469 oc AL2¢RSEBMCS) START ADDRESS 
| 3876 2982 3877 5470 oc AL2(R3gQMCE} ENO ADDRESS 
bi ad 3678 F3 58 80 $471 $10 X*80*%eS103 DISABLE RESET 32XxXx 
| (3 3878 Fs Se Eo 5472 SIG = x* Eo* »SIOT ENABLE 32Xxx 
387E 3c 00 394C 5473 MvI INTFLG 0 X* 008 RESET INTFELG 
| 3882 F3 88 C2 5474 sito x*°C2*ex*88* ENASLE 8SCA 
| € 3885 F3 86 00 5475 SIO —-X* 00 »x*as* 
3868 35 AO 3948 5476 L INT3BAcCIARZ LOAD INT LVL 2 ZAR 
' 3eec 3c 00 394C 5477 wVE INTFLGseX*008 RESET INT FLAG 
| G S476 * START MICRO-1 AND NACRO-2 
: | 3390 F3 58 EO 5479 SIO =—- K*E0*e SIOX ENABLE MC 
' 3893 Ci 88 3S3A 5480 TIO R3BEGIeX* Be" BSCA ITB INT SHLD NOT BE PENDING 
| C 3897 Cl BC 3BA5 5481 TEQ R3GBINT?X*8C* ESCA INT SHCULO BE PENDING 
| 3898 CO 8? S872 5482 8 PRINTM ERROR HALT 39 
ae 389F 39 3e9F S463 DC XL2°39* Ee 
: ats oe, | (3? 3800 1F 3BA0 5484 oc ILie¢3a¢ Se es = nite ae ye Ye 
| 38A1 60E1 3ga2 $485 oc a 2CSTaTaa) 
, 5486 
| € 3 3ea3 ci 89 38aF 5487 R3SINT TIO R3GIOEexX#89" BSCA OP-EAD INT SHLD BE PENDING 
| 7 38A7 CO 67 5872 $488 8 PRINTM ERROR HALT 3A 
: 38a8 3a 38a8 S489 oc XLaegae 
| €3  3aac 1F 3BAC 5490 oc 8 wa e3ae 
| 3BAD 60E1 38aE S491 DC ALZCSTATMA) 
; 5492 
& 38AF Cl 69 391C 5493 R3GINE TIO R3BE420x#AG* BSCA OP-END INT SHLO NOT BE PENC 
| 3883 3c 0% 394C $494 vi INTFLGeX*O%* SET INT EXPECTED FLAG BIT - 
l¢€ 
, Date O7 SULTS 25CCTTS ISSANTC PROG ID 0891~2:' DATE O7JULTS 23 aT?S LSJANTE PROG ID osei~e 
EC NO. 625023 625032 925034 PAGE an EC NO. 625023 82°32 825034 PAGE ek 
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PART NG. 4234255 IBM MAINTENANCE DIAGNCSTIC PROGRAM PART NOe 8234285 
PAGE 45 i. PAGE aSa 
8912 DISPLAY ADAPT BR. TEST, . _ 8942 DISPLAY ADAPTER TEST 
ERR LOC OBYECT CODE ADOR: STMT SQURCE STATEMENT ERR LOC GBJECT CODE ADOR STMT SGURCE STATEMENT 
- 365A CO 87 385E 5496. 8 NXT 38 DUMMY OP 5564 * C2=INT OCCURRED 
38BE 3D 62 394C¢ 5497 NXT38 CLE ENTFLG,X*O22 OloO INT GccUR? 3940 3D Of 394¢ 5563 1NT3@ CLI INTFLGoX®O1e INF IxPECTEO? 
38C2 CO 01 3924 $498 BNE R3aE43 BR IF NOT f 3951 CO 81 3964 5566 BE INTEX1 
38C6 F3 $8 Ed 5499 S10 —- X* EO", S108 ENABLE MC 3955 35 26 3964 5567 i AEN39 2B FAR 
38C9 F3 88 CO $500 S10 = K°CO* exe Bae DISABLE BSCA INTeos ENABLE 8S5CA 3959 FS 68 01 5568 sIG xX*O1* ,x* age RESET INT 
5501 * START MICRO~-2 395¢ CO 87 SAT2 5569 EHS 8B PRINTM ERROR HALT 29 
c 38CC Co 87 SOFE $502 , 8 cOMICR DO 2 .ND MICRO 3960 39 3960 5570 OC XLI S398 
3890 45 3800 $503 oc XLS 452 ERROR HALT -45~ . 3961 OF 3961 5571 oc wLi%17S9 
3801 5003 38D2 $504 oc XL 2°5003¢ 2ND EXPECTED RESULTS 3962 6123 3963 S572 oc AL2¢STATBOD 
5505 * START MACRO-3 5573 
3803 F3 Sg Eo 5506 SIG X*EO* +SKOr ENABLE mC 3964 3¢ 02 394¢ $574 sNTEX1 MVE INTFLGexXeOze SET *InNp CCCUARREDS IN FLAG BYTE 
33D6 cl 8¢ 36E2 5507 TIO = HAVINTsx®acs SSCA INT SHOULD BE PENDING 3968 F3 68 01 5575 SIG = X®O2*,xX* Ba" RESET PENDING BSCA ENT 
3804 CO 87 S872 5508 8 PRINTH ERROR HALT 44 3968 3D 01 394¢ 5576 cur INTELGeXtO38 INT EXPECTEC? 
38CE 94 38DE 5509 oc MLitage 396F CO 81 3982 5577 BE INTEX2 
3eQDF iF 38DF 5510 or IL2°3i° 3973 35 20 398¢ 5578 L AEH3SCeP} TAR 
38€0 6061 38E1 S511 pe ALOCSTATNA) 3977 F3 86 01 5579 SIO X*O1®,x* Bas PESET INT 
$512 3974 CO B67 5B72 5580 Enzc 8 PRINTH ERRGR HALY 2C 
S8E2 F3 28 80 S513 HAVINT SiO X* B64 eX" SGe DISABLE BSsCA w/G INT RESET 3S7E 3¢ 397E $581 oc xKLi*sce 
36ES Ci BC 3932 5514 TIO) = RBBEAO, KeBC# BSCA INT. SHOULD NOT BE PENDING 337F oF 397F 5582 BC ZL27289 
3EE9 FEB SS BO 5515 $19 Xt aGeeSiGzk OFSABLE RESET 32xx 3980 613£ 398i 5582 oc MZUSTATEO 3 
$516 * START MACROW~4 f 5584 
36EC co 87 5918 5517 B LOADCS GG PUT BOS-TO~ADDR 7 3982 F3 86 01 SS8S INTEX2 SIO X6015 eX B88 RESET PENOZAG ESCA INT 
36F0 03 3aFO 5518 oc Mito IN FIRST 286 WORDS 3965 ©O AF 3945 5586 5 INT 38 
36fF1 F3 S68 es 5519 S10 -¥*84¢ osTaI SET DIAG-2 LATCH < 3989 395¢ 3984 5587 AEH39 OC AL2 (EH39) we, va ee sae 
38F4 31 59 SD8D $520 LO X%2205 .OPDEC LOAD GP-pEC WITH BAD PARITY ~ 3988 297A 398¢ §588 AEHSE “Bc AL ZC EH3C } 
3are F3 Sa Bo 5521 SIG %*80*%.S1G2 DISABLE RESETe ENABLE MC. 7 5589 
38FB F3 58 EO $$22 SIO = x° EO" .Sia1 ATTACH CK SHOULD OCdUR C. 398) D5FO 398E S596 wORONO oC CL2°NO? 
3EFE 3C 0% 390¢ 5523 MYT oo -ENTFLG.xX*O2% SET INT-EXPECTED FLAG BIT 398F C3C3 3990 5591 RICIC odC cu2*ccs 
3902 35 AD 3948 $524 L INT3SA, 1 AR2 LOAD INT LVL-2 7AR 3991 CODSESCSD9IDSE <oF 3926 $592 RICM1 OC CL22¢INTERRUPTS TGOK PLACE? 
3906 F3 86 Cz 5525 SiO =—-_- X*C Se wo XP BAS ENABLE 8SCA INT € 3999 ESE240E-“D6DSD 240 5592 
3909 CO 87 3900 S526 8 NXY242 . DUMMY OP 39al 0703C1C3C540 5592 
SARE 390D 3D 02 3946¢ S527 NxXT124 che INTFLGexXtO2t OIC INT OCCUR? SSGQ Ferm a me ree ee em ae oe eer ae men nen B Pe eS ee et ey 
39213 CO O1 3902 5526 BNE R3SESe BR If NOT & S894 * START OF #ICROPROGRAM LISTING * 
3915 F3 Se 80 5529 SIG - K*80*sS20i DISASLE RESET SSSS Beceem ecw enn remem ne mmnenen can F 
3918 CO BF 02:6 5530 8 LINK BR TO NEXT ROUT ENE 39A7 5596 R3BemcS EQU * 
6331 €3  - 3ea7 4702 329A 5597 pc xL2¢4762° TSHe7 BSCA ENABLED 
391C CO 87 SBT2 $532 R3SES2 6 PRINT ERROR MALT 42 39A2 5000 39AA 5598 DC %2*S000* BGS<0 
3920 42 3920 5533 oC MLI* 82" 39aB 1604 39aC S599 oc XL2*1406* SET INT GN 
3921 11 3921 S534 oc rea 7e €: 39AD S003 39AE S600 oc xXLZ"*S003* HANG 
3922 6087 3923 S535. oc AL2 (STAT NG) *3SCA OP-END INT PENDING? 39aF 146046 3980 $601 oc XL2* 24008 SSN.4 SET INT AGAIN 
5536 3981 5005 3982 5602 R3ENCE DC x2" S005* HANG AGAEN 
3924 OC 01 3990 396€ S537 R3@EO3 MVC = RIC ICL 2) eWORONO & 
392A CO BY SB72 $538 & PRINT M ERROR HALT 43 
392E 43 392e 5539 oc xL17430 
392F 18 302F 5580 oc iszee : @ 
3930 3906 3931 5542 pc AL2 (RICHI? | 
32932 CO 87 8872 S542 R38E40 B PRINTM ERR HALT 40 \ 
3936 40 3936 5543 DC XL 8406 | @ 
3937 141 3937 5544. oc Tureire | ¢ 
3$38 5087 3939 5548 OC = AL AL STATS? © . 
$546 ; 
393a CO a7 S872 S547 R3Gc41 B PRINTM ERR HALT 43 
3O3E 41 393€ ssee8 oc XLi age 
393F 11 393F S849 oc xL1°3 78 : ' @ 
3980 687 3941 $550 oc AL2USTATHE) 
$551 
_3942 CO 87 5872 _S552 R346 B PRINTM. | ERR HALT 46 © - es ie. SEN aie 
3046 48 3946 $553 oc Witaes 
3947 12 3947 5550 oc IL1°38¢ 
3948 6190 3949 S555 DC AL2C STATES) mS) 
$556 cee i : 
a. 5587 OFSCRESOOSSE S ESE BESS $4 OS6ESESEETZEOSE : 
S556 * ROUTINE 39 INTERRUPT SUBROUTINE © © 
S559 £90440 S48 s £OTREESEE SS 09448490 8R E98 : 
394A 3900 3948 S560 INT38A OC ALz2CIAT38) ADDRESS FOR INT LViL-@ IAR 
39ac 00 394¢ $561 INTFLG 0c x.1° 008° INTERRUPT FLAG =) 
S562 DO=ND INT EXPECTED - 
| | 
,  OatEe O7SUL 7S 2scct7s ISJANTE PROG 10 0893-2 Gate OF SULTS 285 acT75 ISJANT6 “+ PROG ID 0891-2 
EC NOw 825023 62 £932 825036 PAGE 4s EC NO. 825023 824032 825036 PAGE asa. 
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PAGE as kL : PAGE &6A 
6912 DISPLAY ADAPT E:R TEST _ 8912 DISPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT / ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
§604 gb SHRAEERERER CRESSLER SE REERAEEREE FEET ES ERER ERE S OE SEES HORE TEES FOESSS EEE f 3A40 38 20 OSO0E 5668 TBN UT3-1 oXe208 IS 8SCA-1 INSTALLED 
S605 * ROUTINE 3A BSCA T2710 NOT ROYSUNIT CK * 3A&& CO 90 3A4C 5669 BF R398 BR IF NOT 
5606 ck GE ee ERAESERESVRRERALHEELES HS EHSEEETRSE ES ERE REE SSA EHR HE EES FERS SER SEES ES . 3as8 Ci BO 3Aac 5670 T16G R39S4eX*#S0° T10 UC TO BSCA~1 
5607 * x BaA4c Cl B88 3A58 5671 R3SS4 TiO R39S30x* a8" BSCA NR/UCs SHLD BRANCH. UNIT CK 
5608 * MACRO ENAELE HC * 3aAS0 CO 87 S672 5672 8 PRINTM ERROR HALT 3Co 
6609 * DISABLE BSCA a 3A54 3C 3AS4& 5673 Dc xLIt*3ce 
=< 5610 + T1Q SHOULD BE NOY ROY/UNIT CK x 3aS5 13 BASS 5674 pc iL1*298 
5611 * ENABLE BSCA & 3a56 6160 3AS7 5675 BC AL 2CSTATB23 
$612 % TIO SHOULD NOT BE NOT ROY/UNIT CK Re 5676 
5613 * OISABLE BSCA | 3aS58 Cl 88 3468 5677 R39S3 TIO R39S3AeK* 822 T1Q NRvUC SHCULS BRANCH 
5614 * TIO SHOULD BE NOT ROY/UNTT CK * Basc CO 87 5872 5678 a PRINTM 
5615 * ENABLE BSCA x. BAGO 49 3a60 5679 oc XL1° 498 ERROR HALT 49 
5616 * « €° 3a6h 13 3A61 5680 oc ILi*igt 
S617 * MICRO SET UNIT CHECK x 3a62 6160 363 5681 oc AL2ESTATE2) 
56138 * * 3A6& CO 87 02156 5662 3 LINK ERROR EXIT 
5619 * MACRO TIO SHOULD SE NOT RDOY/UNIT CK et BA6B CO 8&7 SAFE 5683 R3B9S3A B comicr 
5626 * S10 NON IMMEOIATE To SSCA % BA6C 45 BAGC 56B4 coc XLI° 45? ERROR HALT ~45= 
$621 # 710 SHOULO NOT BE NOT RDVSUNET CK * 3AGD SOOA 3a6E S685 oc XL 2° SQ0A* 3RO EXPECTED RESULTS 
5622 * a & 3A6F F3 SB EO 5656 s10 X*°EG*. SIGE ENABLE MC 
$623 SEGAL ERERDEESREOEEHES OE HEREEREERALERRELLELGHESE HKALE GRAAL EAB HBAS ARS SA72 F3 88 CO 5687 S$;a X8CO* eX? BBe ENABLE BSCA 
39683 3A 3983 5624 RT3ZA DC AL Le Sas ROUTINE NOs ; BA7S £3 BA CO 5688 sia X° GO" sK°SA* BSCA SiO NON IMMEDEATE TO RST UEC 
3984 oO 398¢ 5625 oc XL1 900" & BA7E C1’ 8S 3A8B 5689 Tic R39ESOeX 288" BSCA NRZUC. SHOULD NOY BRANCH 
3985 3AAG 2986 S626 DOG AL ZC(RT3B) ADOR GF NEXT ROUT FRE BSA7C £3 S& SO 5690 sto x°BG* -SICT DISABLE RESET 32xxX 
5627 a 3A7F CO 87 0216 5691 B LINK BR TQ NEXT ROUTENE 
39B7 CO 8&7 G2iA 5628 8 PRINT PRENT ROUTINE HEADER C 5692 
3986 O1 3988 5529 oc xL1° O15 3a83 CO 87 5a72 5693 R3GESA B PRINTM tc > - ERROR WALT 3a a eee 
298C 23 398C $630 ac 112356 - SA8B7 3A 3AB7 5694 oc MLSBas 
3@8D 3965 39BE 5631 pc AL2 CREGHOR} {:  3a86 OF 3A88 5695 oc ILUPIS* 
39BF Cu BT 39E6 $632 8 R396C 3aBS 6140 3ASA 5696 DC AL QE STATELY 
39C3 DGD6ESESGOF SC 320 39E5 5533 BSEHDR OC OL 35*ROVUT 3A BSCA TIO NOT RDV/UNET CHECK? , S697 
39CB C2E2C3C1IA0E 3. OG 5633 . 3A8B CO 87 SB?2 $698 R3SE3RD BS PRINTS ERROR HALT 44 
3903 400SDEES4009C <E8 S633 SABF 44 BASF 5699 OC MLO Gat 
sees 3908 SIESOS5SCGE340C 5 5$33 3A90 OF 3Aa90 S700 DC Hieise een nA A 
39€3 CSC302 $633 be BAG9l 614D BaG2 S701 BC AL2ESTATEI) — 
39E6 F3 58 80 S636 R39GQ S10 K*86%sS702 DISABLE RESET. 32xx — 5702 
39ES CO 8B? 5518 5635 a LOaAdCcSs LOAD MicROCcoDE 5703 
39ED 83 3SED 5636 oc MLitase & 5704 # eee ce een een oem te wm emer em 
39EE 3A93 39EF S637 oc A 2CRSENCS } START AGDRESS 5705 * START OF MICROPROGRAM LISTING # 
3EFO 3AA8 39F1 3638 DC ALZ UREOMCE) ENC ADDRESS S706 Breen enon eee ee wee er ene meee ome s 
39F2 F3 S58 EO $639 S10 X°EO* -SEOL ENABLE MC : & _ + = --3A93 S707 R3SmMCS EquU #* - oe ee Rn ee ee 
a29FS C1 68 3003 5660 TQ RBWLeXtHH BSCA WRVUTe SHOULD BRANCH BASS 73FF 3A94 5708 DC ML 2° 73FF-* 0000s Puy *FF* IN HOB S 
39F9 CO B7 8872 S682 8 PRINTH ERROR HALT 39 3A95 2FA3 BA96 STOS oc XL 2*2Faz* 001 MOVE IT TO HOB 3F 
3OFD 39 39FD 5642 5¢ M2539? C3 BAST 4704 BA98 S710 DC KL2°4708° oo2 SSCA ENABLEO 
39FE 13 BOFE S663 oc ILDP19S ZAe9 5002 BSAQa S711 oc xL2°5002 * 003 wart & LOOP 
39°F 6160 BaA0G S644 oc AL 2USTATB2) Ee 3A9B 5064 BASC S712 DC XL2°5008° 004 IST EXPECTED RESULT 
3a0i F3 88 CO 5665 23951 SIQ x*COfsx*8B* ENABLE BSCA : € BAD 2104 3A9E 5713 DC ML2°12068 ocs SET Us 
3a0e 38 20 OACE 5646 Teh UDT3-1ex*202 iS BSCA~2z INSTALLED BASF $906 3AAO 5714 pe wL2*S006* 006 2ND EXP RESULT 
3a06 CO SO 3A10 S64T eF R39TI BR IF NGT i ai BAA 1104 3AA2 STIS DC XLZ2°21048 007 SET U/C 
Ba0c CL BO 3410 5648 T1Q0 RIFTIsX*S0e TIG UseCe TO BSCA-1 1 €3 3AA3 BFAS BAAS S716 cc ML2°BFAZ° 008 TEST HDS 3F STILL = HDB 3 
Bare Ci 66 3083 6669 REST1 TIO R39EBALK*SH* BSCA NR/UCée SHOULDN'T BRANCH | BAAS QOO0F BAAG S717 pc XL2°9Q0F* 009 SRANCH TO ERROR IF NOT 
3al4@ F3 8S 60 $650 SIG x*g8oe,xeeae DISABLE BSCA | ZAaT SOOA 3AAB S7LB R3SMCE OC xXL2°SOGA® OOA HANG 3RD EXP RESULT 
Bat? ci 88 3A23 5653 TIG R3eS2.x*38? BSCA WR/UCe SHOULD BRANCH 
3418 Co 8B? S872 S682 8 PRINTM ERROR HALT 413 | 
Bale 41 3A1iF S653 pc m3 9428 | 
3a20 13 3A20 S656 oc ELL 29% e 
B3a21 6166 3A22 S655 oc AL 2€STATB2) | 
5656 | 
3a23 F3 58 €0 te . . $657 RESS2 Sid x8 EO? oSl OE ENABLE “C | S$ 
3A26 F3 88 CO 5658 sto K*CO*,K* ast ENABLE BSCA 
3a29 CO 67 S4FE S659 8 DONICR | 
3A2D a2 3A20 5660 pC CL 9028 HALT -82- @ 
3a2E S008 SA2F S6G6E oc 3.2°S5004e ist ExPEC TED RESULT ; 
3Ax0 F3 58 £0 5662 sto X* €0* »SIor ENABLE NC | 
3A33 CO 8&7 S4FE 5663 8 DGMICR | @ 
3A37 43 3A37 5664 oc ML 2°635 HALT ~43- ' 
3A3@ 5006 _ - Ba39 S665 oc 0 xL2* 5006 2ND EXPECTED RESULT | 
3a3i €3 68 EO 5666 si0 x*EO* Stor ENABLE MC | & 
3aA30 F3 88 CO Sé6? S70 X°CO%sk*8ae ENABLE BSCA | e 
, DATE OTSUL7S 25cCT 7S LSUANTS PROG 10 Seis! © owe OT SULTS escct 7s ISJAN 7S PROG 10 6891-2, 
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PAGE 47 PAGE 47, 
a9i2 DISFL AY ADAPTER TEST ; a89i2 DISPLAY ADAPT ER TEST 
ERR LOC CBVECT coDE ADOR STKT SGURCE STATEMENT ERR LOC OCAJECT COE ADOR STMT SOURCE STATEMENT 
57209 SP RSSRETRESARESER LEAR AE EREREERE ERSTE TEE SRE REE EEE SEND ESE EARS AREE EER ES fo 3606 C1 8A 381C 5784 TIG R3BMC2,X"BA* TIO BSCA BUSY 
S721 * ROUTINE 3B ESCA MODE CYCLE STEAL TEST * 3B0C CO 87 SAa72 5785 8 PRINTM _ ERROR HALT = 3C= 
$722 FEES SERSH ERS ARREARS A SSSE RSLS ED OE HARES EER SERHED NSE DEE ERED REREE REE ERE EE 3810 3c 3816 5786 oc XLI*3Ce 
5723 « * €  3B11 16 36811 5787 Dc ILteoze 
S724 * MACRO 1 CLEAR CYCLE STEAL AREA AND SET LAST BYTE = FF. * 3812 60F7 3833 5788 oc AL2 (STAT WE) 
5725 * ms 5789 
‘ 5726 LGAD CRTAR * fF 3614 cO 87 S_a72 S790 S8SYER1 B PRINTH - i ERROR HALT -3D- 
: 5727 * * 3B18 30. 3818 S791 oc XL1°3oe 
5728 * MICRO 1 TEST SSCA MODE CYCLE STEAL LATCH 1S OFF ee 3819 OF 3819 5792 oc IL1¢45s 
S729 * SET BSCA MODE CYCLE STEAL MODE LATCH ON * i. 3B1A 60C2 3818 5793 oc AL 2(STATNO) 
S730 * TEST FOR ONc SHOULD GE . * 5794 
$731 * * 3B81C CO B87 S4FE S795 R2BMC2 B DOMICR OG 2NO MICROPROGRAM (STORE CS) 
L 5732 * WACRO 2 ENABLE MC * 3820 3E 3B20 5796 oC MLi¢zee ERROR HALT -3E~- 
S733 *« TEST BSCA Busy-sHOULD NOT BE. * 3821 S021 3822 5797 DC XL2*5021 6 EXPECTED RESULTS 
? S734 * ENABLE BSCA WITH NON-IMMEDIATE SIO. -_ 5798 
5735 * LGAC BSCA=2- CURRENT ADDR REG a F 3823 5D 01: 57 08 5799 CLC - RBBEX102.XR1 De BCYSTA-2¢eXR1) CHECK FIRST 2 BYTES. 
S736 « TEST BSCA BUSY SHCULO BE. * 3827 F2 81 oD 5800 JE R38B601 JUMP IF OKAY 
5737? * * 382A 1C 01 SFE6 0a 5601 MC STATAC »BCYSTA~2(20XR1) PUT ERROR RESULTS IN STATUS 
S738 * MICRO 2 TEST BSC ENABLED, * 382F CO 87 SDa5d 5802 8 STATUS 
5739 * TEST BSCA MODE Cs LATCH, SHOULD SE ONe * 3833 20 3833 5803 oc *L1* 208 PRINT EXP & ACT RESULT 
S740 « DO 4 CYCLE STEAL OPERATIONS USING *FFAASS2B* DATA PATTERNS 3B3¢ 3F 3834 5804 oc ML1°3Fe ERROR HALT -3F~ 
. Sa, € ef 3835S FFAA 3836 5805 R3BEx! DC XL2°FFAA® EXPECTED RESULTS 
S742 # MACRO 3 COMPARE STORED DATA PATTERN, * - $3806 
S743 SNS CRTAR FOR SAME AS ORIGINALe SHOULD BE THE SAME. * 3837 SD 51 68 OA 58907 R38801 ac RSBEX2(2exXR1)eBCYSTA( oxR1) CHECK 2ND 2 BYTES 
S744 « * ¢ 3838 F2 8 oD 5808 JE R38802 _ . JUMP IF OKAY 
S7@5 * MICRO 3 CO 4 FETCH CYCLE STEALS AND CompaREes * 3Q3E 1C 01 SFE6 DA 5809 mvc STATAC sBCYSTAC 2eXR1) PuT ERROR RESULTS IN STATUS : 
S746 * aa 3843 CO 87 5DaS 5810 8 STaTUS 3 
S74? = MACRG & ENABLE KC * { 3847 20 3847 S81ii DC xLi*208 PRINT EXP & ACT RESULTS 
5746 © DISABLE BSCA AND TIO BSCA BUSYs SHOULD NOT BE. -_ ~ 3848 40 3848 5812 Dc ML 19409 ERROR HALT 
S749 » ee 3849 5528 384A 58135 R3BEX2 OC XL2*ss2es EXPECTED RESULT 
5750 « MICRO 4 TEST BSCA WCDE CYCLE STEAL LATCH, SHOULD BE ON. * €- 56814 
5751 ' * 3848 7D 00 O56 5815 R386802 CLI PRECS(eXR3) eX" O08 FIRST SyTE OF "8°CS AREA = 00 
Ut eee elle S752 # MACROS CISABLE RESET —— 3BeE F2 01 06 $816 JNE  R3BB03 SUMP TF NOT - EQUAL ti nt 
S753 % BRANCH TC AEXT ROUTINE * & 3851 7D 00 og 5817 CLE PASTC 3€ » XR1) oX* 008 LAST BYTE OF *8°CS AREA = 00 
S754 «* * 3854 F2 81 12 58138 JE R3Ba05 JUMP AROUND ERROR 
S7SS SERSES OSES OGS FE SEEESE DE OEEESES RCE S EEE E HERS CHORE EERENE EM ERASED ERHEREERE ES i 3957 ic oo SFES DS £819 R38803 MY¥C STATAC$4 eP RBCS (1 eXR1 ) MOVE ist BYTE TS STATUS 
3AAQ 38 3AAQ $756 RT3B OC xL1* age ROUTINE NUMBER ak, 385C 1C 00 SFE6 oS 5820 MVC STATACSPASTCS(2+XR1) MOVE LAST BYTE TO STATUS 
3AAA 00 3Aaa S757 BC *Li oor NO MANUAL INTERVENTION 3861 CO 87 Spas 582i B STATUS 
3AAB 4000 Baac $758 oc 4.2 (RTSC). ADD OF NEXT ROUTINE ' 3865 20 3865 $822 OC XL1" 208 te ee 
57859 . tC. 3866 42 3866 5823 pc MLA ds / ERROR HALT -41- 
3ADF S760 USING R3AGO10 xR} 3867 C000 3868 5824 oc XL2*00008 EXPECTED RESULTS 
SAAD C2 01 3ADF S761 LA @3 8601 XK INITIALIZE XR1 FOR INDEXING. ; 5825 
5762 / $826 
3481 CO 87 O2Z1aA 5763 8 PRINT 3869 F3 BB #80 S627 R3B305 SIG xe0eexrage DISABLE BSCA 
3aeS o4 3ABS S764 oc XLAtoze . 386C C1 BA 3886 5828 TIO §=SBSSER2eX* Bat TIO BSCA BUSY SHOULO NOT BE 
3a86 22 3aB6 S765 oc sLreger C. 3870 F3 88 CO $829 SIO x*COe,xegat ENABLE BSCA IMMEDIATE stg 
3a87 3aDE 3A8B ST66 oc @. 2(R3BHOR) 3873 33 SBC 3BeC 5830 LIQ §©66BCVSTL «BSDaR LOAD BSCA CURRENT ADDR REG 
3A89 CO 87 3A0F S76? a R38601 aa 3877 F3 Ba ca 5831 S10 MOC Oe Xe BAe SIQ NON IMMEDIATE SET suSsY 
SABO DIDEESEZ4OF 3C 200 3ADE $768 RIBHOR OC CL34*ROUT 38 BSCA MODE CYCLE STEAL Teste €. 3BTA C1 BA 3896 $832 TIO = R3BHOG» Xt Bae T10 ASCA BUSY - GO DO wICRO 
3ACS C2E2C3C1 40040 ca $768 no 387E CO 8&7 S872 5833 B PRINTM 
3aCD CS&O0CIEAC3I03C t40 S768 Be aa 3882 44 3882 Sa3e oc M2 %4a8 ERROR HALT ~a4~- 
3005 E2E3CS5C1D3I40€E 2C5 5766 ; €3 3883 16 3883 5835 pc Tha*220 
3avo E2E3 S768 3884 6OF7 3BeS $a36 DC AL2(STATNS) 
3aDF CO 87 5914 S769 R3860)3 B LOaocs GO LOAD micRococE os 3886 CO 87 5872 5837 B8SSER2 B PRINTM 
3AE3 83 3AE3 S7TO | oc Witaze ‘ €3 3BBA 45 3B8A $838 oc XLI8ase ERRGR ALT -45~- 
3aE4& 388F 3aES ST?1 oc AL.2(R3IEBMCS) | 38e8 OF 388 5839 BC L299 Se 
3AEG 3C5A JAE? S772 oc AL Z2CR3SBNCED — 388C 60C2 . 3B88D 5840 - oC AL 2(STATND) 
S773 1 ¢% $841 aa 2 . Te eG : 
3AE8 S O5 DB os S774 SLC —- PAST CS(66KR1)ePASTCS( oXR1) CLEAR Gut CYCLE STEAL AREA ! C SeBE CO 87 S872 S842 BSYER? B PRINTS % 
SAEC 3C FF 3609 S775 avi BCYSTA,X* FES SET LAST CYCLE STEAL BYTE =FF | 3892 a6 3892 58462 DC XL2*4ee ERROR HALT -46- 
JAFO CO 67 SaFE S776 8 comice OO MICROCODE C3 3893 OF 3893 S844 bo TLye1se 
3AF@ 38 3AFa STITT oc MLI*3g¢ ERROR HALT <38- i 3894 60C2 3895 sas DC AL 2CSTATNO) : 
3aFS S0G8 3aF6 S778 oc 3. 2° S00ge FIRST EXPECTED RESULTS aa 3896 CO 87 S4FE 58486 R3E806 B COMICR OO RRO MICRO PROGRAM (FETCH CS) 
SAF? F3 S86 EO S779 SIO, =—-X*EO* ,Sio1 ENABLE Mc | C: 3B9A 42 3B9A 5907 oc MLI*4aae EAaROR HALT -a2- 
3AFA Cl 6a 3816 S780 TIO) —-_- BS VER1 oX*BAs TIO BSCA BUSY. SHGUILO NOT 3E as 3698 SO3E 389c 5848 oc XL2*SO3E® EXPECTED RESULTS 
3A4FE F3 88 CO S782 Sta X*CO%ex* 688 ENASLE SSCA WITH SIO IMMEDIATE. ! 3890 F3 58 EO 5849 SIO X*E0*,sio1 ENABLE MC 
Te 3801 31 8c 3eac $762 t10 }§=6BCYSTL.BSDAR LOAD BSCA CURRENT ADOR REG © 3Ba0 F3 88 86 5850 S10, -X*BO*. Xe Bas DESABLE BgCA 
fy 3805 FZ BA Ce $783 SIG —s_- M#C AE Xt Bae S10 NON-7MNEDIATE SET BUSY 36A3 C1 BA 3B8E $651 TIO))}=—BSYER3.X*B Ae ¥3O BSCA BUSY SHOULD NOT BE - 
~ ' ee O75ULT7S. 25 (CT 7S ISJANTS _ PROG to 0891-2 © ve OFT UL75 25 (CT 75 ISJAN 76 : me PROG ID = = O89 1-2 : 
C NOs 825022. 82 £032 825036 PAGE a7 EC NOe 825023 825032 828034 PAGE a7A 
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PAGE. 48 . PAGE 28a 
8S12 DISPLAY ADAPTER TEST 8912 DISPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEKENT ERR LOC GBVECT CGDE ADDR STMT SOURCE STATEMENT 
3BA7 CO B87 SAFE sas2 8 DOMICR pO 4TH MICRO x 3023 $032 3C24 5920 oc NL2*5032° 032 ERROR HANG 
3BAB 47 36AB S853 bc Mis4a7e ERROR HALT ~47- : 3C25 4833 3C26 5921 Dc ML2°4833% 033 TSN WALT FOR FETCH CSRoTO GO OFF 
3BAC SOaC 3BAD 5854 pe ML2¢°504aCc® EXPECTED RESULTS X27 EFSS 3c28 5922 oc XL2°EFSS* 034 Cle TEST HOB OF&ES 
SE5S : 3C29 9C37 3C2A $923 DC XE 2° 9C37e 035 BCSe3 MUST BRANCH 
36aE F3 SB 8O 5856 sie x°BOee SIOZ OL SABLE RESET 3c2B £036 3C2C 5924 oC x 2°5036° 036 ERROR HANG 
S857 3C 20 1804 3C2E 5925 pc KL2*1804% 037 SSN SET FETCH CS LATCH ON 
Zesi co B87 0216 $356 8 LEK BR TO NEXT ROUTINE e 3C2F 483A BC30 5926 CC XL 2* 4a3at 038 ISN TEST FETCH cSeR,MusSTt BE ON 
‘ 3B55 006 3885 $8659 PRECS oC MER OO? STARY GF *Be CYCLE STEAL AREA : 3031 S039 3C32 5927 oc XL 2°5039°? 039 ERROR HANG < 
38B6 53860 BCYST EGU * 3C33 483A 3034 5928 oc XL 22aeaza® O3A TSN WAIT FOR FETCH csr.to GO OFF = 
3886 86060000 3RBS SB61 BCYSTA DC XG *G° ACTUAL CYCLE STEAL AREA Fs 3035 EF2e 3C36 5929 oc ML 2*EF 28° 038 Czy TEST HOB or =28 “~ 
38Ba 00 . SBSA S862 PasSTcs OC XL1°G? END OF °B* CYCLE STEAL AREA : 3C37 9C3E 3038 5930 oc XL2e*gc3Ee* o3c 505-23 MUST BRANCH 
36888 3686 3BBC 5863 BCYST. OC AL Z2ZBCYSTS ADDRESS OF CYCLE STEAL AREA 3039 5030 3C 3A 5931 oc xL 2° 503p° 030 ERROR HANG 
338B0 0600 38BE 5664 CCYSTL BC 2° 00° SNS CRTAR HERE i 3c38 503 3C3C $932 pc ML 2*SO3E5 O3E BOS,0 3RD EXPECTED RESULTS 
5QES Benn ere ee eee ee ems mum mane HE 3C30 4541 3C3E 5933 oc RL2*4541¢ O3SF TSN TEST @SCA CS LATCH SFOULD BE o 
5866 * START OF MICROPROGRAM LESTING = : 3c3F SO4G 3C@0 $934 oc w2°5949° 040 ERROR HANG 
SBC? Kean nn ome ren ee meen TS NOE ‘ 3041 SOSA 3C%2 5935 DC XL2°SOGAE 041 805.6 TG ADDR. O&A 
386F 5668 R3EMCS ECU ¥ : 3C43 1564 3044 5936 _o¢ xiL2°2 5068 042 SSheS ALT CYCLE STEAL 
368F 4500 38co 5869 pC HL 274560 goo TSN BSCA MODE CS LATCH SHCTULD SE OFF 3CQS 45465 3C46 5937 oc mw 284a545t 043 TSNeS BR IF GNeo 
3eci 21506 3e8c2 5870 pc XL2*15045 OGL SSN.S SET BSCA MODE LATCH Ow f 3C47? $044 3C48 $938 oc XL2*°5044 ¢ 044 BOS,0 ERROR HANS 
3BC3 &504 38¢4 5871 oc x25 45082 9a2 TENSS BSCA MODE LATCH ON? sroOuLoO Ee zca9 1804 ac 4a 5939 oc x. 2°18046 045 SSheSET FETCH CoSe 
38CS 50063 38C6 S3ar2 oc XL 2°5003° 603 BOSeO ERROR HANG 3C8B 4848 3BC&C 5940 oc 1 2°4848° 046 TSN, TEST FETCH CoSe GN 
3BC? S004 38¢C8 Sa7s ec xL2* 5004" oad GcSsO 1ST EXPECTEL RESULTS - 3C 4D 5047 3C4E 594} oc XL 2° S087 ° 047 BOS:0 ERROR HANG ' 
3809 580? 3aca S874 oc we. 2°S807 O05 BO0Se2 BR IF SIG S¥C REG ; 3C4F 4846 7C50 5942 PC xL2%4868? C48 FSke0 WALT FGR CeoSe TO GO GFF. 
38CcB 8065 3BCC 5875 oc xiL2*5005* GO6 BOSe0 LoaP & WATT 2cS5i $028 3c52 5943 oc XL2*S026° 043 RTN TQ FETCH OP. 
38CcD 1504 3ace Sa7é oc ML2°3S0ea¢ O07 SEN SET GSCA MODE CS LATCH ON p 3cs3 1308 3054 5944 pc XE29 1308" O4A SSFeZ RESET BSCA CoS. LATCH / 
3acF 450A 3800 S877 pc xL2°@5542 cocoa TSN BSCA MODE LATCH SHOULD BE ON ~ 3C55 4540 — : 3¢56 5045 © =~ ac XL 2*454De 048 TSheS TEST BSCA CoSse LATCH,BR GTO 046 
3801 5009 3802 5876 bc u2*5009* 009 ERROR HANG 3CS7 504C 3C58 5946 DC XE 22 506C* 4c BOSs0 4TH EXPECTED RESULT 
$803 5008 38304 S8T9 bc xL29 S008 o0a @0Ss0 NEXT ADDR - DUMMY CYCLE ; €: 3cS9 504D 3CSA 5947 R3BMCE OC yi. 2° 504D 64D BOS, CERROR HANG 
3BD5 8$00C 3B06 S886 ac xLZe500c? cos 8O0Se0 NEXT ADDR - DUMMY CYCLE r 5048 
3807 800d 308 $683 oc yL2°S000e ooc BCSeo NEXT ADDR - OuMMY CYGLE 5948 
3Bb9 TFFF 3EDA S882 oc ML 2° 7EFE ooo BC SET HOB OF=FE : 5940 kesene CA UT TON See4etee OO NCT MOVE THE FOLLOWING CODEe 
3808 1904 3ane $883 oc ML2*ggoae, OE SSMe SET SYORE CYCLE STEAL LATCH ON " 5959 skeeke ET MUST REMAIN 5RG'O AT THES LOCATION TO AGREE BITH UsGe 
_ 2BDD 6611 3B0E 58R6 oc MLZ SBil? OOF TSN. TEST STORE CSR e#UST BE OK 5951 en 
3BDF $010 See $885 pc wi 2e59aGe Gis ERROR HANG & 3FBE $952 ORG Ke SFBE: GRG CE MICKRCPROGRAM STUFF 
2BE1 461i 3BE2 S886 DC RL2°aans* Oil TSN Wail FGR STORE CSR. TO GO OFF z 3F8E 59000 3FeF 5953 RZBEXG OC XL 275000" SENSERT STOF ADOR, IN LO BYTE 
BRES 7FAA 3BE4 5887 oc Met TEAK O12 1C¢ SET HDB oF AA 3EcO S954 RZBMCS EQU & 
3BES 1904 3BE6 536e& oc XL 2° 904° 013 SSN SET STORE CS LATCH ON & 3FCO 5000500150025 ¢03 3FD3 S955 ac X_ 20* £0005 (0150025003 £0645 00550065 00759085009 
ABET S816 3868 5889 oc XLZe aise O14 TSN TEST STORE Cs SReMUST SE ON - BFCB 5004500559065 (07 5955 ; 
3BE9 5015 3BEA 5890 oc m2?5015°? Gis ERROR HANG ; 3EpO 50088009 $955 ; he tthe «eek. £ ie : 
38EB 4816 3BEC 5891 ac M28 48168 G16 ZSN WAYT FOR STORE CSR» TO GO OFF ae 3F04 S00A5008500C5 (OD SFE? 5956 Be xi 20 * 50 0AS 0085806 $00D£00E SCOF 502 05 021501 25015° 
3BED TESS 3BEE 5892 oc W2°7FS5* O17 IC. SET HOB OF =SS Me BEOC SOCE SOOF 20105 «28 5956 
SBEF 1906 3BFO 5893 oc RL!2* 1904 * 018 SENe SEY STORE CS LATCH ON 3FE4 50122013 5956 ; 
38F1 4618 38F2 5894 oc xL2748186' 0i¢ ySN TEST STORE CSReMUST BE GON f 3FEB 5016501550165 G7 3FFR 5957 oc wi 20? $01 8EC61$501G6E01 7E0LES01 SSOLASG IBEOICSORD® 
3BF3 SOA 38F4 $695 ac XL 2°SG1A* GIA ERROR HANG ; SFFO SO0LS8S801S501A5 8 5957 
3eFS 4818 38F6 5a%6 pc XL2° 481 Be ois TEN WAIT FOR STORE CSRe TO GO OFF 3FFB 501C5010 5957 
3BF7 7F28 3aF8 S897 oc ML 2° 7F28¢ oc. 1C+ SET HOS OF =28 Ess 3FFC SOLESOIF 3FFF 5958 R2BMCE OC XL. 4 * SOLESOIF® 
Sarre 1904 3BFA 5898 oc wu 2*1904? 01D SSN SEY STGRE CS LATCH ON 
2BFB 4820 38FC 5899 pc xL2°sa20° Ole TSN TEST STORE CSRo MUST BE ON 
3eFD SO1F 38FE $900 oc ML 2°501F * O1F ERROR HANG { e 
38FF 4820 3BCGO 5901 oc XL2*46820¢ 020 TSN WAIT FOR STORE CSRTO GO OFF 
3cO1 5021 3CO62 5902 oc XL2*5921° 021 BCS,O0 2NO EXPECTEC RESULTS | 
$903 * THE NEXT PART I€ ENTERED TO TEST FETCH CYCLE STEAL IN BSCA MODE.> | é 
3cO3 5042 3C04 5904 oc XL2°S5042? 022 BOS,0 GO 05 SET UP ©OR FETCH. 
3CO05 5024 3C06 $905 oc XL 2° 60240 a23 BCSe0 DUMMY 
3cO? $025 3coe 5906 pc mi. 2°*5025° C24 BOS,0 OUMMY & 
3cCO09 5026 3COA SOT oc XL2°50 26° 025 BCSeO OUMMY 
3cCB EFFF 3COC 5908 oc mM 2*EF FF e O26 C1 TEST “OB OF =FF 
3C 0D 9$C29 3CSE 5909 oc XL2°9C29¢ oz? €0C.3 AUST SRANCH S Z aos 
““3cur $028 - 3C10 5910 oc ML2*SO28* 028 ERROR HANG : 
3Ci1 1804 3C1ilZ S9I12 BC %2°2804° 029 SSN SET FETCH CS LATCH ON 
BCs 482c 3€24 5912 Dt xL2°ae2c* O2A TSN TEST FETCH CSReMUST BE ON 
3C15 5028 3C16 $913 oc 2° S028? 028 ERROR HANG 
3Ci7y @62c 318 Se1e oc mi 2*482C° 92c TSN WAIT FoR FETCH CSR.T0 GO OFF 
3Ci¢g EFAA 3SCLA S925 DC RL2° EF AAS 02D Ci TEST HDB OF=AA 
3c18 9C30 3CIC S916 oc ML 2°9C30° O2E BCC e3 MUST BRANCH 
3010 SO02F SCIE SBI7 aoc RL2*S02F 8 O2F ERROR HANG 
' 3CiF 1604 3C20 $918 oc XL 2? 1808° 030 SSN SEY FETCH CS LATCH ON € 
3C21 $833 Bc22 5919 ac . 2*RB33° 933 TSN TEST FETCH CSR.NUST BE ON 7 
DATE OO? 35475 25x0T7S ESIANTE PROG ID 0691-2 © are OTJULTS 25 «CT7S LS JANTO 3 PROG ID 9691-2 | . 
5 se NQe 625623 62 £032 ez5034 PAGE as _€C NO.e 825025 82 £032 825034 PAGE @6a 
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4234255. IBM MAINTENANCE DIAGNCST IC PROGRAM PART NO. 4234255 
PAGE a9 i PAGE aa ; 
ao12 DISPLAY ADAPTER TEST | _ 8912 DISPLAY ADAPTER TEST 
“ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT i ERR LOC OBJECT CODE AQDOR STMT SGURCE STATEMENT 
5960 Cttanaqectenuss stetaessoenessetssaeneneneseteaen se ensnetaessnesaneeeeaa| : 40F4& OC 01 3022 3024 6025 Myc RIF MCE-6 (2) sHOBSOS git s 
5961 * ROUTINE 3Ce *; & OFA OC G1 3024 302¢ 6026 MVC RiFMCE-402)sLISELA LINE SEL A 
$962 * SERIAL WRAP THROUGH IDA ORIVER RECEIVERSe CAS DEFINED IN UDT.? *: &@10C OC 01 3026 3068 6027 MYC Ri FMCE—2 (2 > ewRPOUT CIAG GFF 
$963 POET EASES ESAT CALS PESO AES EER ERS OO SECRESSLELSS HE SEE SS SORT ASSN ESSA SS TES! 4106 3c C5 4538 6028 VI DE VADReX*#CSe ADOR CS 
4000 3¢ 400Gu 5964 RTSC oc xiye3sce ROUTINE NOe i 410A 3C 15 44435 6029 MMVI WRAPEHeX*15* ERROR 15 
4061 00 4601 5965 oc XL1*008 ie 4iCE CO 87 44626 6030 8 BRAP 
4002 4538 4003 5966 oc AL 2URT3O) . 6031 * CHECK FOR TEX 2 FEATURE. 
4004 CO 87 O2KA 5967 8 PRINT PRINT ROUT TITLE | 6032 * TEST 3 LINES IF PRESENT. 
6008 01 4008 5268 pc XL 39028 | 6033 * EXIT IF NOT. 
4099 1c 4009 5969 oc Iu2*26° t 4112 38 10 OaOdC 6034 TBN UDT2sX*10¢ 
800A 40286 4908 $970 oc AL 2CR3CTTL? : 4326 CO 90 0216 6035 BF LINK 
400C CO 87 402C 5971 8 corR3c { 411A OC 01 3022 3026 6036 MVC = RIFMCE~6(2) eHDB 902 BIT 6 
8020 OSD6GESESS0F 3c 240 4028 5972 R3BCTTL DC CL28* ROUT 3C ORRVER/RECEIVER gRAPt ' 4120 CC 01 3024 30 2E 6037 Myc RI FMCE-4(2)»_ISELS LINE Set 8B 
4018 Ca09 C9ESC5096 1D9 5972 4126 OC 01 3026 3048 6038 MVC R1FEMCE-2 (2) swRPOUT DIAG OFF 
4020 CSC3CECSESCSD 140 5972 412C 3C C6 4538 6039 MVI DE VADR»X*C6F ADDR C6 
4028 EEO09C1D7 §$972 { 4136 X 16 4443 6040 MV I WRAPE Hex *16¢% ERROR 16 
S973 » | 4134 CO 87 4426 604} 8 wRAP 
$974 *« FIRST A WRAP WITH NC CRIVER/RECEIVER SELECTED. #138 OC O01 3022 3028 6042 MYC RIFMCE~6C€ 2) sHOB901 BIT 7 
S975 * THE wRAP SHOULO NOT WORK. t 4136 OC 03 3624 30 6043 HVC R1 FMCE~4(2),LISELB LIne S&L a 
402C OC 01 3022 30 la 5976 DOR3ZC MVC Ri FMCE-60€2)}+HOBS00 NO BIT ON IW HOB 9 : 4144 OC O1 3026 3048 6044 MVC RIF MCE-2(2) eWRPOUT OILAG OFF 
4032 OC O01 3024 30x $977 MVC Rl FMCE-4 (2) eLISELA OCESELECT wW/DECODE A CAGAINe) | 414A 3C C7 4538 6045 Mv E DEVAOR.X"*C7* ADDR CT 
4038 OC 01 3026 3048 5978 MYC RIF MCE~2( 23 »wRPOUT OIAG OFF ns G34E 3C 17 4445 6086 MVI BRAPEH SX *178 ERROR 17 
@03E CO 87 5918 $979 6 LoOacCcS LOAD MICROPROGRAN ; 4152 CO 87 4426 6047 5 WRAP 
4042 83 4042 53980 oc xt 1*g3t j 4156 Oc O01 3022 302A 6688 MVC Rl FMCE~6 (2). HOBSBO BIT o 
4043 2Fa7 4044 5981 oc AL. 2(R1FMCS? 415C OC 01 30246 302 6049 Myc RIF MCE-2(2) e_ISELB LINE Sel B ; 
4045 3028 2046 5982 oc AL2CRIFMNCE) 4162 Oc 01 3026 3048 6050 Mv Cc Ri FMCE-202) ewRPOUT DIAG OFF . 
4047 31 48 4534 5983 110 XO0343 eHOSBO LI0 VALUE TC BE USED. | 4168 3C C8 4538 6051 MVE CEVADR eX* cet ADSR CB 
4048 3€ 10 S564 5984 Mv I LPCNTex*210° INCREASE MICROPROGRAM TIME. | . 416C 3c 20 4443 6052 MVI BRAPEHsx*20* ERROR 20 
404F CO 87 S4FE $365 B BOMECR : 4170 CG 87 4426 6053 5 wRAp 
‘053 SF 4053 S986 oc xL1° SF ERROR HALT -SF- i . 6054 * CHECK FOR TEX 3 FEATURE. 
@058@ 501C 4058S 5987 oc xtL2*Soice EXPECTED RESULTS | (3 6055 * TEST 3 LINES IF PRESENT. 
5988 * : 60S6 * EXIT IF NOT 
= 5989 2 NOW TEST FIRST 3 ORIVER/ARECEIYVER CIRCULYSe (BASIC) | ; 4174 38 20 OAOC 6057 BN UDF 2exX*20# remnant ttt nent 
4056 OC 01 3022 3c a §999 «VC RIF MCE~6(2) sHOBIBG BiT oO | 7 4178 CO 90 0216 6058 BF LIK 
40Sc Oc O01 302@ 302C€ 599i Mv C RYFMCE-402).LISELA LINE SEL a 417C OC 01 3022 30x 6059 Myc RIF MCE~j6(2) eHDBOAO BiT i 
4062 OC 021 3026 3048 $992 MVC Rl FMCE-2 (2 ) swRPOUT O1AG OFF | . 4182 OC 01 3024 30 2E 6060 MyC AI FMCE-4(2),cCL1SELB LINE SEL B 
4068 3c 46 4536 5993 uvI DE VAOR. x*40° ADOR 40 | - 4188 0c O01 3626 30<8 6061 MVC Ri FMCE-2 (2) ewRPOUT BuUISIDE wRaAP 
&06C 3C 19 4443 5994 uve WRAPEHeX*10° ERROR 10 418E 3C Cg 4538 6062 mvt DEVAOR? X*CS* abOoR C9 
4070 CO 87 4426 5995 8 RAP | : 4192 3c 21 4443 6063 MVE WRAPEHsxt214 ERROR 21 
4074 OC 01 3022 30¢¢ $996 MyC RIF MCE-6( 2) sHOB9S0 BIT i | ¢ ‘4296 Co 87 4426 6064 B WRAP a 
&07A OC O01 3024 302c $997 Mv C RIF MCE~4 (2) eLISELA LINE s& A 7 419A OC 01 3022 30 4 6065 Mv Cc R1FMCE-6(2),HOB920 Bit .2 
: 4080 OC 01 3026 3048 5998 Myc RIF MCE-2(2), 8REOUT CiaG OFF | = 4149 OC 01 3024 30 6066 MVC R1 FMC E“@ 62» oLISELE LINE S&. B 
£086 3C Ci 4538 5999 MV SCEVAOR. XeCyxe ADDR Ci | f 81A6 OC 01 3026 3048 6067 mvc RIF MCE=-2( 2), WRPOUT GUTSIDE wraP 
408A 3C 11 4443 6000 uyi WRAPEHSX*13¢ ERROR it ‘ 414C 3C 4A 4538 6068 MVY DEVADReX°Qas ADOR 4A 
808E CO B87 4426 6001 8 WRAP ae 4180 3C 22 4443 6069 MyI WRAPEH ,.x*22* ERROR 22 
4092 OC 01 3022 30 zE 6002 vc #1 FMCE-6(2),HO8920 BIT 2 | € 4184 CO 87 4426 6070 B WRAP 
8098 OC O01 3024 303 6003 MYC Ri EMCE—4 (2 )eLISELA LINE SE A 4188 OC 034 3022 30:20 6071 MVC R1 FMC E=-6 (2), HOB910 et 3 
4209E OC 01 3026 3048 6004 Myc RIFMCE-202) «wRPOUT OIAG OFF | 41BE OC 01 3024 320 6072 MVC RIFMCE-4(2) cL I SELB LINE s&t & 
SOAS 3C C2 4538 6005S MvVI DEV ADRe X*C2t AooR C2 | € 41C4 OC 01 3026 3048 6073 Mvco Ri FMCE-2(2) ewRPOUT QUTSIDE WRaP 
4048 3C 12 4443 6006 vi WRAPEH .X*3 2? ERROR 12 to @1CA 3C 48 4538 6074 MVI DEVADR eX age ADCR 48 
: 40AC CO BT 4026 6007 8 WRAP " 41CE 3c 23 4443 6075 Mv WRAPEH »X*238 ERROR 23 
i 6006 * CHECK FOR TEx] FEATURE. ; | Ce 4102 CO 87 4826 6076 e WRAP 
| 6009 * TEST 3 LINES IF PRESENT. ~ 6077 * CHECK FOR TEX 4 FEATURE> 
6010 * EXIT IF NOT. 6078 * TEST 3 LINES IF PRESENT, 
4080 38 08 OACC 6013 TSN UDT2 oK* 088 | €3 6079 * EXIT IF NOT 
< 4084 CO 90 0216 6012 SF Link | 4106 38 40 oA0C 60980 TBN UdDT2Z eX*age 
40B8 Oc 01 3022 3020 6013 MvyC = RLEMCE-6(2),1HDB910 Bit 3 a 41Da CO 90 0216 608) eF LINK 
*QBE oC O01 3024 30x 6014 MVC = RR EMCE“4 (2) sLISELA LINE SEL A it 410E OC 01 3022 30: 2 Myc Ri FMCE- cenaeen Fue terard easton ects 2 ae 
40c# Uc 01 3026 30<8 6015 MVC =—- RIFMCE-2¢2) »eRPOUT OlAG OFF © 41E4 Oc 01 3024 30.80 Sas ve Bieice at ey ee Pike set c 
4qCa 3C C3 4536 6016 avy DEVADReX*C3e AOOR C3 41EA OC OL 3026 3048 6084 MyC Rl FMCE~2 (2 9, wReOUT SUTSIDE WRAP 
SO0CE 3C 13 4443 6017 MvI WRAPEW S X* 1358 ERROR 13 €. 41FO 3C 4C 4538 6085 MVE DE VADR» XeaCe ADOR 4c 
#002 CO 87 4426 6018 B wRapP “  @1F4& 3C 34 0043 6086 MvI wRAPEH,X #348 ERROR 34 
; 4006 O O01 3022 30:2 60129 avC Fl FMCE-6 (2), HOB908 BIT 4 41F8 CO B87 4426 6087 8 wRAP 
400C Oc 01 3028 30:C 6020 MVC 8 =—- RAF MCE-4(2) LI SELA LINE SEL A {-- @1FE OC 01 3022 3034 6088 MvC  —- RIFMCE~-6( 2) ,HOB904 Bit 5 
ee = are 6022 MvI =: ODE VADRe X*Cae ADOR c4& 4208 OC 01 36026 3048 6090 MyC  =—- RLFMCE-2(2) ,wReEQUT OUTSIDE WRAP 
AEG ee . sata Geek 7 ce ERROR 14 c. 420E 3c 40 4538 6091 “v1 CEVADRe X*aDe ADOR 40 
4212 X 35 4na3 6092 NVI WRAPEH,X*3S* ERROR 35 ~ 
DaTE O7 SULTS 25 (cT7s ISJANT6 PROG 10 0891-2 © oat O7JUL7TS 25 (CT 7S 1SJAN76 PROG 10 0891-2. cose 
EC NO. 625023 82 £032 625034 PAGE 49 oe NO. 628023 82 2032 8250364 PAGE aga! 


9 


18M MAINTENANCE DIAGNCSTIC PROGRAM 


8912 
ERR Loc 


4216 
421A 
4220 
4226 
422C 
4230 
4234 


4238 
423C¢ 
42a0 
4246 
424¢ 
4&2S2 
4256 
&e5A 
425E 
4264 
$264 
&270 
&274 
4278 
&27C 
4282 
a268 
428 
£292 
&296 


S29R 
42 SE 
42A2 
&2a8 
42AE 
a254¢ 
&288 
42ac 
4#2Co 
42C6 
a2ce 
42B2 
4206 
420A 
420E 
4&2E4 
@2Ea 
4&2F 0 
42F4 
42F6 


&2FC 
&3960 
4304 
S304 
4310 
4376 
SSLA 
S431E 
&322 
e328 
&32E 
4336 


0a TE 
! Ec NG. 


DISPLAY ADAPTER TEST 


CBJECT CODE 


CO 87 4426 ‘ 6093 
Oc 01 3022 30% 6094 
oc 0% 3024 3040 6095 
Oc 01 3026 3048 6096 
3C 4& 4538 6097 
3C 36 4443 6098 
co 867 4426 6099 


8 

Mavic 
wvc 
MVC 
Mv I 
MVI 
8 


te 


ADOR STMT SOURCE STATEMENT 


RAP 
RIFMCE-6(2).HOBSG2 
R1 FMCE—4 (2) ot ISELC 
R1iFMCE-2(2 ) e wWRPOUT 
DEVADR, XP 4E* 
WRAPEH SX ° 36° 

WRAP 


6100 * CHECK FOR TEX S FEATURE. 


6101 


* TEST 3 LINES EF PRESENTe 


6102 * EXIT IF NOT 


TBN 
6F 

“vc 
mvc 
avC 
mV I 
MvI 
8 

ave 
MVC 
MYC 
uVvI 
uvI 
8 

sive 
vc 
MvC 
avi 
MVI 
8 


UOT2 «xX* 80? 

LINK 
RLFMCE-~6(2).6HOB9O01 
RIF MCE-4 (2) eLISELC 
RUFMCE~2¢2) ¢WwRPOUT 
DEVADR eX F4F* 
WRAPEH s x*37° 

WRAP 

Ry FMCE-6 62) -HOBSSO 
RIFMCE-4( 2) of ESECC 
Ry FMC E-2 (2) ewRPOUT 
DE VADRe X* 50? 

wR APEH,X*350* 

WRAP 

RIE MC E- 6{ 2) »HDB 940 
RIFNCE~¢ C27 eLISHC 
R32 FMC E—2 (2 3 eWRPOUT 
CEVADReX* O01 ¢ 
WRAPE He K*3i * 

@RaP 


6123 * CHECK FOR TEX 6 FEATURE.) 


* TEST 3 LINES if PRESENT. 


6125 * EXIT IF NOT 


TBN 
eF 
ve 
vc 
MYC 
mvi 
uvI 
6 
MYC 
vc 
MVC 
Myvi 
uve 
8 
MVC 
mvc 
avec 
MvI 
MYT 
6 


UBT 2-169 O2® 

LINK 

RL EMCE-G6 (2 ) eHOBSZO 
RIF MCE~€€ 2} eLISELC 
REEMCE-2 (2 )owRFEOUT 
OE VAOR xX *D2* 
WRAPE He X*42¢ 

WRAP 

RIFMC E-6(2}3 s#0BS91 6 
RLIFMCE-402),.L1ISELD 
Ri FMC E—2 (2) owWRFOUT 
QE VAOR eX 7D3* 
WRAPEH, X*43¢t 

wRAP 
RIFMCE-6( 2) sHDB90E 
RLF MCE—4 (2),LIS&O 
RIF MCE-2¢2) o@RPOUT 
DEVADR.X *D4* 
BRAPEH oX P44 

WRAP 


GI4@6 * CHECK FOR TEX 7 FEATURE. 
6147 * TEST 3 LINES IF PRESENT. 
Gi468 © EXIT fF NOT 


38 80 QAO 6103 
CO 90 6216 6104 
Qc 01 3022 3026 6105 
oC Of 3624 3040 6166 
Oc 01 3026 3048 6107 
3C @eF 4538 6108 
3c 37 4443 6109 
CO a7 2426 6110 
Oc O1 3022 302A 611i 
OC 02 3024 3040 6112 
Oc 01 3026 308 6113 
3C $0 4538 6114 
3¢ 30 4483 6115 
CO B7 4426 6316 
OC O1 3622 36 2C 6117 
OC O01 3024 30406 6118 
oc Of 3026 3048 S119 
3c Di 4538 6220 
3c 31 4483 6i21 
CO 8F 4426 6122 
6126 
38 01 OAacs 6126 
co 9C 6216 6127 
oc OL 3022 304 64268 
Qc O01 3024 30 42 6129 
oc O1 3026 3048 6130 
3c 02 4538 6131 
3C 82 4443 6132 
CO 87 4426 6333 
oc OL 3022 30 20 6134 
oc O01 3024 306 42 6135 
OC 01 3026 3048 6136 
3C 03 &$38 6137 
BO 43 4443 6136 
co 87 4426 6139 
OC G1 3022 3022 6140 
oc 01 3024 3042 341 
OC O01 3026 30<6 6142 
3C 04 4538 6143 
3C 84 4443 6144 
co 87 4426 6145 
38 O02 GACB 61469 
£0° 9062136 cee oee 6156 
QC O01 3022 3054 6151 
oc Of 3028 3042 6152 
oc 01 3026 30<¢8 6153 
3Cc OS 0538 6154 
3C 45 4443 6155 
co 87 4426 6256 
oc O01 3022 30 36 6157 
O¢ O01 3024 YOR 6158 
oc. 0: 3026 3648 6ISS 
3¢ D6 4538 6160 
OTIS. 25ECT TS ESJANTE 
825023 825032 825034 


THN 
SF 
mvc 
avC 
mvc 
MVI 
Mv i 
8 
vc 
“vc 
vc 
a | 


Wte-129K%*0z! 

LINK 

RIF MCE~6 (2) gHDBI64 
RIFMCE-4(2) elt SELO 
Ri FMCE~2 (2 2. WRPOUT 
DE VADR o X*D5* 
WwWRAPEH,.X 445° 

BRAP 

RiF MCE~6( 23 -HOBIO2 
RIFMCE~4(2)eLISELD 
RIF MCE—2(2) ,WREOUT 
SEVADR- XeDE* 


BIT 6 

LINE SEL C 
OUTSIDE weRAP 
ADDR SE 
ERROR 36 


SIT 7 

LINE SEL C 
QUTSIDE #RAP 
ADCR oF 
ERRGR 3? 


Bit 

LINE SEL C 
OUTSIDE WRAP 
ADDR SO 
ERROR 30 


eit i 

LINE sei C 
OUTSIDE wRAP 
ADDR Of 
ERROR 32 


Bit 2 

LIne SEL 2 
OUTSIGE WRAP 
aboR D2 
ERROR 42 


SIT 3 

Line SEL OD 
QUTSIDE wRaAP 
ADDR OS 
ERROR 23 


BIT 4 

LINE SEL OD 
GUTSIOE ~RAP 
ADDR DF 
ERROR 24 


BIt 5 

LINE SEt 6 
OUTSIDE wRaP 
ADOR D5 
Errder 45 


BIT 6 

LINE s&i 0 
QUTSIDE WRAP 
adcr 06 


PART NOe 
PAGE 


PROG ID 
PaGE 


4234255 
se 


0891-2 
so 
! 


IBM MAINTENANCE OLAGNCSTIC PROGRAM 


_. 8912 


ERR LOC 


es 


Qo © fy CX. ES 


a 9 


oc 


4338 
433Cc 
4340 
4346 
434C 
4352 
4356 
435A 


435E 
4362 
4366 
436C 
4372 
&378 
‘437C 
4380 
4&3 G4 
438A 
4390 
4396 
S39 
$39E 
43a2 
43A8 
43AE 
4384 
4388 
43BC 


43C0 
43Ce 
43c8 
a3CE 
43pa 
4&3DA 
&30E 
43E2 
&3€6 
43Eec 
&3F2 
43F6 
43FC 
4400 
4408 
440A 
4410 
£416 
Q61A 
&41€ 
4422 


4626 
442A 
442E 
4a2F 
£431 
6433 
4437 


SATE 


% 


@ 0 


Ec NOs 


© 


DI SPLAY ADAPTER TEST 


OSvECT CODE 


3x 
co 
oc 
oc 
oc 
3c 
3c 
co 


38 
co 
Oc 
oc 


3c 


coe 
oc 


oc 
3c 


co 
oc 
oc 
oc 


3c 
cs 


38 
co 
oc 
oc 
Oc 


3c 
co 
oc 
oc 


3¢ 
3c 
co 
oc 


oc 
3c 


co 
co 


34 
co 
83 


46 
87 
01 
O14 
O1 
Dd? 
a7 
8T 


04 
990 
o1 
01 
o1 
D8 
$90 
87 
01 
01 
O11 
b9 
$1 
67 
G3 
GO 
01 


52 
87 


os 
$c 
G3 
o1 
01 


53 
87 
01 
oi 
01 
s¢ 
$4 
Ev 
oO 
ol 
O% 
SO 
85 
87 
87 


08 
87 


2FA7 
3028 


33 


48 


3c 10 


4443 
4426 
3022 
3024 
3026 
4538 
4243 
4426 


0a0e 
0216 
3022 
3024 
3026 
45328 
8443 
4426 
3022 
3024 
3626 
4538 
8443 
4826 
3022 
3024 
3026 
45368 
4443 
4426 


GAB 
6216 
3022 
3024 
3026 
4338 
a4a3 
4426 
3622 
3024 
3026 
4538 
4443 
4426 
3022 
3024 
3026 
4538 
4443 
4426 
0216 


4483. 


$918 


453A 
S564 


O7IUL75 
825023 


30 38 
3042 
3048 


30 2A 
30 %4 
390 48 


30 <C 
30 44 
30 48 


30 2E 
30 44 
30 48 


39 26 
30 44 
30 48 


30 <2 
30 44 
39043 


30 34 
30 44 
3048 


ADDR 


442 
4430 
4432 
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PART NOe 4234225 
4 PAGE SOA 

STMT SOURCE STATEMENT 
6161 Myvi wRAPEH,X*46* ERROR 46 
162 8 WRAP 
6163 myc RIF RCE-6(2).HOBSOL BiT 7 
6164 MYC RLF MCE~4 (2) oL ISEL.O LINE s& O 
6165 Myc RIF MCE-2¢ 2) ,WRPOUT OUTSIDE WRAP 
6166 MV Ez CEVAOReX*C7e ADOR O7 
6167 MYy= WRAPEH .X°a7* ERROR 47 
6168 B WRAP 
6169 * CHECK FGR TEX 8 FEATURE: 
6170 * EST 3 LINES IF PRESENT. 
61713 * EXIT IF NOT 
6172 TBN UOT 2= Le X°Oat 
6173 BF LENK 
6174 Mv¥C RLFMCE-6C 2) »HDB9S80 EIT Oo 
6175 aye RIF MCE-4€ 2} 08h. 2SELE LINE SEL E& 
6376 MYC RLF MCE-242) ee#RP OUT QUTSIOE wRaP 
6i77 MV I DEVADRe X*DS8* ADDR DS 
6176 MYT WRAPEMeX*®50° ERROR SO 
6179 8 BRAP 
6180 MVC Ri FMCE~60 2) -HDB9460 Srv i 
6183 MY¥C Al FMCE-4 (2), ISELE LINE SEL E 
6182 eYvC RIF MCE-2€2) e¥RPOUT OUTSIDE wRAF 
6l as My I CEVADR,X*DS* ADOR DF 
6184 MVE WRAPEI eX #51 * ERROR 51 
6ias B WRAP 
61 86 AVC RLF MCE-6 (23-2 HDE920 eIT 2 . 9 ? 
6187 Myc RIF MCE-4&(2) -LISELE LINE SEL E 
6188 MYC RIFMCE-2¢2) e@RPOUT GUTSIDE wRAP 
6189 Myt DEy ADR, X*5 A? ADOR 5a 
6190 AVE GRAPEH At S2e ERROR 52 
6191 8 WRAP 
6192 * CHECK FOR TEX 9 FEATURE. 
6193 * TEST 3 LINES IF PRESENT cm ceneeerencmetrnat stensaaanmtanrentnie—nerenemmanemettnbit 
6194 * EXIT IF NOT ‘ , 
6195 TEN UD TZ2-1 ox*9 8? 
6196 BF LINK 
6197 MYC RIL FMCE-G (2), HOS910 sit 3 
6198 MYC RLENCE-4(2) el TSELE ‘LINE SEL € 
6199 My Cc RLiFMCE-2(2 de wRPOUT OUTSIDE WRAP 
6200 MYvI DEVADReX*SB? ADdDoR $8 : - 
6201 MVE WRAPEH,. xX*S3* ERROR 53 
6262 8 WRAE 
6203 MV¥C RLF MCE-6(2) ,.408908 BIT 4 
6204 MVC RIFMCE-4(2) eLISELE LINE SEL E 
62058 Myc QL FMCE~2 (2 ) pwREOUT OUTSIDE wRaP 
6206 MVi DE VADR o K® SC# aoor sc 
6207 my t WRAPEH,X #54 ° ERROR 54 
6208 8 WRAP 
6209 RYC RIF MCE-6( 2) eHDBIO4 BIT & 
6219 MVC RIF MCE-4(2)-LISELE LINE sé. & 
6211 Mv¥C RIF NCE-212) swRPOUT GCUTSIDE wRaP 
6212 MV I DE VADR. X*5D* ADDR 5D 
6213 Mvi WRAPEH,X*SS* ERROR $5 
6274 8 WRAP 
6215 8 LINK 
6216 KREG RRERENEREERER SEER EE OES ERLE HOE HEELS SAGES AEE AELERRHSKS HSTARES HESS HS 
6217 
6238 RHEE RERKEE NESE ATHES SA RERKHSEERESS SVAOSHERKAAGLK ELS FEE ELLER ELEN SSREERBBR. ee oe & 
6219 * WRAP SUBROUTINE> » 
6220 Eu SORE AEERGERT SH OF SERED GTOARHAREBE LISS SRLS GSE TEE SHASSRHY SLES SE SSSA DH 
622i 
6222 WRAP st BRAPEX+3 g ARR SAVE ARR ; 
6223 8 LOADCS &Oao *ICROCODE 
6224 oc XLECSZ* DISABLE UPON EXTRY. 
6225 oc AL Z2CRIFE NCS) START 
6226 bc & 2(R 1 F MCE? FINISH 
6227 LIG X0343 »HOEeO LOAD VALUE TO GE USED. 
6228 avEI LPCNT oX*# 10 INCREASE MICROPROGRAM TIME: ~- 
35 JAaN76 PROG 10. 08gi-2 aos 
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18M MAINTENANCE DIAGNCSTIC PROGRAM ; PART NO. 4234255: IBM MAINTENANCE DIAGN(STIC PROGRAM PART NOo 4234255 
PAGE §1 | i PAGE Sia 
6912 DISPLAY ADAPTER TEST | ; 8912 OI SPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADOR STHT SCURCE STATEMENT ; ERR LCC GBJECT CODE ADOF STMT SOURCE STATEMENT 
‘ 
4438 3A O1 5540 6229 SBN EHEPex*025 SET ON ERROR HALT BYPASS BIT. €: C270 SHEARER ARS EERE ESEEERERER SES REED SES ONTH BE RRERESE HEE REE ERREDEEROREEEER A 
€43F CO 87 54FE 6230 5 OCMICR BRANCK TO DO MECROPROGRAM | 6271 * ROUTINES 30.3E- SPARE. _ * 
4483 06 4443 6231 WRAPEH oc M2008 ERROR HALT CODE a: C272 FHNERSESESS $8 SEREEES SOS FEES REE EES HE REEORE AER EER EEEEEE EAEREEREE SEEDED OE 
4444 5037 4445 6232 RAPEXP DC XL2*Se37e EXPECTED HALT | 4838 30 453B 6273 RT30  o0¢ XLI*3D° 
4446 0D 01 4445 SF EE 6233 CLO =RAPEXPE 2). STATAC CHECK IF ERROR OCCURRED. 453C 00 453C 6274 DC m.1°00¢ 
444C F2 812 31 6234 JE BRAPEX JUMP IF NOT 453D 4549 453E 6275 pc AL 2(RT3E} 
&44F CO 87 021A 6235 8 PRINT | &S3F OC 01 3596 4Aac2 6276 MVC SPARUT(2) »CEC36 
: 4453 &1 4453 6236 oc mMi8aze 4565 CO 87 3584 6277 B SPARE X 
44546 3D 6454 6237 oc 102 °618 _ 6278 « 
4455 460¢ 4456 6238 oc AL2{COAX1} | € > 6849 3€ 4849 6279 RTS o€ XLi*3Ee 
4457 CO 87 O21A 6239 B PRINT i 454A 00 454A 6280 DC XL 1008 
4458 81 445B 6240 oc XL3°A2° ‘ae 4548 4557 454¢ 6281 oc AL2(RTSF) 
445¢ 34 445C 6241 oc IL2°S2¢ ee $S54D OC 01 3596 4A CG 6282 Myc SPARUTC2) sDEC3E 
4450 4510 445€ 6242 oc AL 2¢COAx2)} | 4553 CO 87 3584 6283 8 SP AREX 
S4SF CC 87 O21A 6243 8 PRINT ' 6284 * 
4463 82 6463 6246 oc wit g2s | & 6285 SERRE SSEERE REESE EER EL EER ELE ARSE BREE EEE SHE ORG SRE SERESEATRRTRSEREARERES 
4464 27 4464 6245 oc ILa*3ge | 6286 * ROUTINE 3Fe DEVICE POLLING * 
2465 4537 £466 6246 oC AL. 2€COAX3} ( 6257 = POLL CMDS ARE ISSUED TC ALL DEVICES THAT MAY EE ATTATCHED. * 
£467 CO BT O21E 62487 8 UNPACK | &3 6288 » ea * 
4468 01 4468 6248 oc XLa°o3" | S289 * UDT DEFINES THE NUMBER OF DRIVER/RECEIVER CARDS. EACH CARD * 
446C 4538 4465 6249 pc A 2¢ CEVAOR > 6290 * HAS 3 ORIVER/RECEI VER CIRCUITS TO POLL THROUGH. THERE MAY ® 
406E 449F &46F 6250 oc At.2 CACRMSGI €> 6291 * GR MAY NOT BE A DEVICE ATTATCHED. * 
4270 CO BF C21A 6251 & PRINT | 6292 * * 
4476 82 467% 6252 pc XLi°e2e i ; 6293 * THE RESPONSE To THE POLL IS MOT CHECKED, * 
6675 1¢ 4475 6253 oc ILL e2ee | f° 6294 HASH SLELS RH ASSESS SRA RTAR LE GMS S KEELHTAAAD SEE SSE RESSRAAE AHO SES ERE MK 
£676 Aaor 4477 6254 oC AL. 2€ ACRMSG} aS57 3F 4557 6295 RTS oC XL ¢ SR? ROUT NGe 
#276 CO 87 5254 6285 a PI GREG 60 PRINT 1/70 REG ak 4558 80 4558 6296 oC XL1°808 YESs MANUAL INTERVENT TONC MAYBE} 
4470 CO BY 0216 6256 8 iI NK ee 8559 4acs 455A 6297 pC AL 2CRT 20) 
4480 CO 87 4450 6257 WRAPEX B a RE TURN af 4558 CO 87 O21A 6298 8 PRINT 
6258 te 455F 01 eS55F 6299 oc XL 260, ¢ 
4484 CECICSD3CIDSc 740 44GF S259 ADRNSG DC CL28*FAILERG DEVICE ACDORESS Is xx? ‘£9860 DE 4560 6300 oc Ini *aee 
448C CaC5SESCOC3CS4 CO} 6259 ; oe 4561 4598 4562 6301 DC AL2 €RTSFNA) 
aleat hee patets 498 CACEDOSCSE 2EZE ic9 S252 4563 CO 8F 4595 E302 Ss RT3FGG ae en ict am ennai ene ee ne 
4490 E240E7E7 6259 = % 4567 CYDSESES4G6F 3C 640 4594 6303 RTSENA 9c CLEO6*RCUT 3F DEVICE POLLING {SKIPPED IF ssuz iS onde 
2440 D7DGE6CSD0S60D ECE 44CF S260 oc CLOS® PQWER<CFF OR OPEN COAK AT A TERMINAL MIGHT CAUSE® : 456F C4CSESCSCECSE COT 6303 
4448 C640D6D094006D 5 6266 a 4577 D6D3C3C9NSC74 CeD 6303 
4460 DS4OC306CLE7e (C} 6260 4 SS7F E202C9DIDICEC «a0 6303 
4486 €340C14063C50 Me 6260 4587 COC6S0EZEZEGF 240 6303 
$40 C90SC10340DaC SC? 6260e _e 458F C9E24 0060550 6303 eee 4s 5. oh He Bo ah 
4408 C8E3S40C3C1 ESE ZCS 6260 ie 4595 3C FF 4076 6304 RT3FGOQ MMVI POLLYE oxtFrre 
S40C SOESCSCSE2Z460C C1 44DC 6261 CGAKI DC CuI3* THIS FAILURE® ee 4599 GC 1E GATS 4A%e 6305 Mv POLL YE-10€31) ,POLLYE 
4008 CSO3E¢D9CS 6261 —_ &S9F 3C FF 4a96 6306 MYE POLENG se XtFFS 
4400 D6D7CS5DS5C9D5C 740 4500 6262 oc CL40° GPERING THE COAX AT YHE CPU WILL avaIp T* ' € 3; @SA3 OC 1E 4aS5 4a se 6307 MVC = POLL NO=1 (32) ,POLLNG 
S4E5 E3SCBCSA0C3D6C 1E7 6262 | 6308 
&6EO £0C1 E340E3CBC £40 6262 | 6309 * FOLL FIRST 3. (8AS7C) 
44FS C3D7E 440E6C9D 2D3 6262 i C. 45A9 3C 20 4AQE 63106 MVE DEV3F eX* 408 
S4FD 40C1 ESD6C 9046 (E3 6262 SS5AD OC 01 4A44 302A 6313 MVC =—- R3FMCS413(2).HOBg86 SIT 6. 
&S0S COCSEZS0CSETD 70S 4510 6263 COAX2 OC CLi2*HIS EXPOSURE? 4583 OC 01 4AA6 30x 6312 MVC =—s- RB FMCS415(2)eLISELA LINE SEL Ao 
$500 E2E409C5  —- 6263 : € 5 4889 co 87 a9ce 6313 8 POLL3F GG POLL 40. 
4511 SCSC5SC40C2CS4 E2 4537 6264 COAK3 pC Ch39tees BE SUPE TO RECONNECT AFTEL TEST eee i &5B0 3C Cl aAcE 6314 MMVI ss ;DEV3F.x*¢4° 
4519 E409C54 0E3060 (Os 6264 ae 4S5C1 OC 01 4aa4 30c¢ 6315 MYC =—- RBFMCS+13(2) sHODESAO BIT le 
4521 CSC3DEDSDSC5C 3 6264 € 45C7 CO 87 4966 6316 8 POLL 3F GQ POLL cl, 
4529 40C1C6E3CS096 CE3 €264 4SCB 3C C2 4A4E 6317 MVE DEV3Fexecos 
9531 CSE2E3405C5C5¢ 6266 Do 4SCF OC 01 4AAG 30 6318 MVC R3FMCS4+13(2) ,.HOBO2Z5 BIT 2 
4538 00 4836 6265 DEVADR OC XL OOF DEVICE adDR. €) 9 4508 co 87 asce 6319 8 POLL ZF GG POLL C2 
4536 0343 *53a 6266 X03¢3 OC 1% 2°03438 : 6320 * CHECK FOR TEX1 FEATURE, 
meee ee te ee, = 6267 * END UF WRAP SUBROUTINE ; co Botan 6321 * POLL 3. IF. PRESENT. C30C60€S ae a Rapier tad at A 
6268 PF SSEE ELLE GLE SEKSS BES OCSSESSLS ASS Y EEES HES EESES EFS FREES EREERES EEREER ESE C2 4509 38 08 OAOC 6322 Ten UOT 2.%*OG* a 
450D CO 90 4787 6323 BF PRTABL 
3, 4SE1 3C C3 4Aaeé 6324 MVE = DEV3F.xtc3e 
€ 4SES oc 01 4aa4a 3020 6325 MVC —- RBFMCS413(2)eHDBS2 © BITS 
4SEB CO 87 49C6 6326 8 POLL IF GO PGLL C3 
- 4SEF 3c C4 4A6E 6327 MVI DEV3F.x* cas 
€ 453 oC 01 4ane 3022 6326 MVC =—- R3FMCS413(2) sHDB908 BIT-4 
_ 4SF9 CO 87 4906 6329 8 POLL 3F . GO POLL ce 
@SFD 3C C5 4A4E 6330 MVI = -_ DEV3Fexecse 
€ 4601 Oc 01 aang 30 34 6331 MVC = =R3FMC 541302) .HDB9048 BIT $ 
4607 Co Bf 49C6 6332 8 POLL3F GO POLL Cs - 
DATE = O75U78 ~ 25ICT75 ASJANTE PROG 10 0e9i-2 © are O7IUL75 25CCT75 VSJAN7E6 
EC NO. 625023 82 £032 825034 
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18M MAINTENANCE DIAGNCST IC PROGRAN PART NO 4238255 IGM MAINTENANCE DIEAGNCSTIC PROGRAM _ PART NOe 4234265 
; PAGE S2 { * ” PAGE S2a 
8912 DISPLAY ADAPTER TEST |. g912 sd DESPLAY ADAPT R TEST 
ic: 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
6333 * CHECK FOR TEX 2 FEATURE. iG 6401 * CHECK FOR TEX? FEATURE. 
633% * POLL 3 IF PRESENT. C60C72C8 | 6402 * POLL 05e06.07 IF PRESENT. 
4608 38 10 oA0Cc 6335 TAN UDT20x*10¢ a 4717 38 02 CAC 6403 TBN UDT2-1,X*02° 
460F CO 90 4787 6336 oF PRTABL tf 4718 CO 90 4787 6404 BF PRTABL 
4613 3C C6 4asE 6337 MVI—_ DEV3Fex* cee : 471F 3C DS onee 6405 MvI-DEV3F.x*D5* 
4617 0C 01 4AA6 302E 6338 MvC = R3BFMCS+15¢2) LISELB LINE SELECT 8 es 4723 OC 01 4AA& 3024 6406 - MVC R3EMCS413(2) -HDB904 BIT 5 
461D OC 01 4aa4a 3026 6339 MVC =—- RF MCS 413(2).HDEI02 BIT 6 Oo 4729 CO BT 49C6 esor . oo a GO POLL ps 
7 4623 CO 87 49C6 6340 8 POLL3F GO POLL C6 £720 3C D6 4a4E 6408 1 oxeC6e 
4627 3C C7 4asE 6341 MVI  -DEV3Fex*C7* i 4731 OC 01 4AA& 30:6, 6409 | MvC R3FMCS413(2),HDE902 BIT 6 
4628 OC 01 4aae 3038 6342 MVC R3FMCS423262)-HDBOO1 BIT 7 | § 4737 CO 87 49¢6 6410 B POLL 3F GO POLL 06 
4631 CO 67 4906 6343 8 POLL3F GO POLL C7 4738 3C D7 4A4E 6411 MvI OE€v3F,x*c7* 
4635 3¢ CB 4a4E 6344 MVI = DEVaF ex'"ces 473F OC 01 4AAQ 3038 6412 MvC R3FMCS4213(2),HDB8901 eit 7 
4639 0C 01 sAA& 302A 6345 MVC) = R3BFMCS413(2)eHDB980 BIT oO | 4745 CO 87 49¢6 6413 he o. bees GO POLL D7 
463F CO 87 49¢6 6346 8 POLL3F GO POLL cB 6414 *& CHECK e 
6347 * CHECK FOR TEX3 FEATURE . 6415 * POLL 08e09e5A IF PRESENTe 
pe . 6348 * POLL C9 e4A048 IF PRESENT Le 4749 38 04 OADB 6416 TEN = UDT2—1 xX 0488 
£643 36 20 OA0C 6349 YBN uDT2ex*20° : ; 474D CO 90 4787 6417 eF PRT ABL 
4647 CO 90 6787 6350 aF PRT ABL oe 4751 3C D8 4ASE 6418 MvE OEV3F.x*pee 
4648 3C C9 4a4E 6351 MVI  - OEV3F ,x* C9 1 © 4755 0c 01 4AA4 30zA 6419 MVC =—- RBFNCS +132), HDESBO BIT o 
464F OC 01 4AA6 302¢ 6352 MVC =—«- RBEMCS4 1302) eHDB940 BIT 3 | 47SB OC 01 4AA6 3044 ese Myc Se eet tetah sth sce eae” € 
4655 CO 87 4966 6353 8 FOLL3F GO POLL C9 o 4761 CO 87 49C6 6421 a L 
4659 3C 4A @Aae 6354 MVI | _DEV3F exe eae . i € 4765 3C D9 ence 6422 MvI OEV3F.x*pSe 
465D OC 01 4Aaa 30 6355 MvC R3FMCS413(2),HDB920 Bit 2 4769 OC 01 4AA& 30cC ers me Be eer a a tarerineeee ore - 
4663 CO 87 49c6 6356 8 POLL3F GO POLL 4a o> 476F CO 87 4966 6424 La 
466? 3¢ 4B hace 6357 MvI DEV3F,x*4R¢ | C.  a773 3c SA ease 6425 MVE DEV3F.x?sae sae he Beebe 
466B 0C 01 4aa8 3020 6356 MVC | - RBF MCS 41312)-.40e910 BIT 3 | 4777 OC 01 SAAS 302 6426 MVC =—s- RB FMCS4123(2) eHOeD20 BIT 2 
4671 CO 87 e9CeE 6359 8 POLLSF GO POLL 48 ! © 4770 cO 87 49¢6 oe os Ze oe GO POLL SA 
6360 % CHECK FOR TEX& FEATURE. | € *® CHECK FoR A . 
6361 * POLL 8C,40,4E IF PRESENTo | 6429 * POLL SB.5CeSD IF PRESENT. 
£675 38 60 0a0c 6362 TBN | UDT2ex*40° | ¢- 4781 38 08 0A0B 6430 TaN uUDT2-10X708° 
a oF PRTA 
4679 CO 90 4787 6363 BF PRT ABL 1g 4785 CO 90 4787 ota Sc! 
67D 3C 4C 4AaE 6364 MVE = -: OE V3F .x4ece | 4789 3C 55 4acE D . 
ee 4681 OC O1 4AA4 30 22 6365 MVC =—- R3FMCS4+1302) +HDB908 BIT 4 aie 478D OC 01 4AA4 3020 6433 MVC - RBFMCS41302),H0B910 BIT 3 en 
4687 Oc 01 4Aae 3040 6366 MVC =—s- RBFMCS$415 (2 )eLISELC LINE SELECT Cc 1 €: 4793 co 87 ee 6434 a roe seas GO POLL s®@ 
4680 Co 87 469C6 6367 8 POLL3F GO POLL ac. 4797 3c 5C 4A8 6435 V3F ox 
4691 3C 4D 4aaE 68 MVE («OE V3F,xsape 4798 uC Of 4AA& 3022 6436 MVC —s- RB FMCS413(2).HDB90S BIT 4 
4695 OC 01 GAA4 3026 pace uvC R3FNCS 413 (2) sHOB904 BIT Ss i €>  a?ai co 87 ace 6437 8 POLL 3F GO POLL 5¢ 
4698 CO 87 49C6 6370 8 POLL 3F | ~  a7aS 3¢ SD anne 6438 MVI-DEv3F,x*sp 
469 3C 4E @anE 6371 MVI _DEV3F. xe Ree &7A9 OC O01 4AA4 3036 6439 MVC =—- RB FMCS413(2) HDEDOS sits . ees 
4643 OC C1 4AA6 3026 6372 eve R3F uCS413(2) .HEROO2 BIT 6 f. @TaF CO 87 a9c—e) ease : oS :. .. GO POLL -80 
46A9 CO 87 4966 6373 POLL3IF CC: GO POLL 4& 4783 CO 87 4787 441 
6374 * CHECK oR TEXS FEATURE 6442 
; 6375 * POLL 4F.50.01 IF PRESENT | €> 4787 co 87 o21A 6443 PRTABL = 8 PRINT 
46aD 38 80 Oacc 6376 TON vVOT2ex*ao? | 4788 02 4788 6444 oc XLato2e 
4681 CO 90 4787 6377 SF PRTABL. | © “Tac 42 478C 6445 oc 1L1°66° — 
4685 3¢ 4F 4ahE 6378 MVI - DEV3F. x* are _> 78D «acc 47BE 6446 oc AL 2(R3EMO3) 
4689 0C 01 aAA4 3056 6379 MVC = - RBEMCS413(2) eHDRI02 eit 7 | aren < 9 ane 4a £2 oot re ne Gir eye aCe 1 erouyA 
‘S6B8F CO 87 a9c6 6380 8 POLL3F GO POLL 4F ‘ 3 00 6448 Y MH , 
86C3 3C 50 aanE 6381 “vi =- DEV3F,x*s08 €3 4709 CO 81 4802 6449 BE EMPTYE BR IF NO ExyRY 
&6C7 OC 01 4aA4 30ia 6382 MVC R3FNTS¢13(2) sHDeS80 err o | 47CD OC 01 4706 aa éz2 6450 MVC - CKFF 14342) ePOLYA 
&6CD CO 87 *8&9C6 6383 8 POLL3IF GO POLL 59 | C 4703 3D FF 0000 6451 CKFFY1 CL Sr-eeXt FFs 
4601 3C D1 ance 6386 MVI-«;OEV3F.x* Dre - 707 CO B1 480A 6452 BE ENDYES 
4605 0C 0: eaas 30 6385 MyC RIF NCS+13(2) ,HDESAO eit | 4708 OC 01 47£6 4756 6453 mvc Behe) Crees 
4608 €O 87 e9c6 6386 8 POLL 3F GO POLL 02 | .. 7E1 OC 00 4a€ 0000 6454 SETDAL MyC CEV3F(1)2.%-0. 
6387 * CHECK FOR TEX6 FEATURE. l €. aree .e 87 O21€ ie esse .. —. 
6388 * POLL D2e03eD4 IF PRESENT. 
*®60F 38 01 0A08 6389 TON UOT2-1.x9028 | ~. @7EC 4ack 47ED 6457 pc AL2 COEV3F) 
46E3 CO 90 4787 6390 eF PRTABL €)  @7e€ 48o0p 47EF 64658 oc AL2(R3F M02) Boe “tees cee em te om 
46E7 3C 02 4A0E (6391 “VI OEV3F.x*p2e - &7F0 CO B7 O21A “= 6859 8 PRINT 
46E8 OC O1--4nn4a 30Z2° ~ 6392 NVC =—s- R3FMCS 42.302)2HDBS20 Bir 2 |, @?F4 O1 47F4 6460 pe XLIfo1e 
AGF OC 01 @AA6 3042 6393 MYC | -R3FMCS415(2) eLISELD LINE SELECT 0 | Caves an 47F5 6461 pe ILUe179 
46F7 CO 87 4966 6394 | 8 POLL 3F GO POLL D2 47F6 4800 47F7 6462 oc AL2(R3FM02) 
46FB 3C D3 4aaE 6395 MvI - DEV3F,x* 03° | .  &7F8 OE 01 4706 S609 6463 ALC = CKFF¥143(2)6X0001 EWC ADDR 
&6FF OC 01 4AA& 3020 6396 MVC = R3F MC S41 362) eHDBDi 0 Bit 3 | (  7FE Co 87 4703 eose 8 CKFFY} 
4705 CO 67 49C6 6397 8 POLL3F GO POLL D3 ee 5 
4709 3C D8 4a4E 6398 MvI ODE€Vv3F.x* Dae | 4802 co 87 o21A 6466 EMPTYE 8 PRINT PRINT * NONE? 
47QD OC 01 4Aae 3022 6399 MVC 8=—« R3FNCS413¢ 2) eHDB908 BIT 4 | Cs 4806 03 4806 6467 oc XL3°03¢ . 7 
4713 CO 87 4966 6400 8 POLL3F GO POLL D4 4807 04 4807 6468 oc IL *oe¢ 
Date OTMLIS 257s ‘189aN76 2. at ‘PROG IO 0n91-2 | M DATE OTJULTS 25¢CT75 «= 1S SANTO . a _ PROG 1D onvi-8, 
EC NO. €25023 625032 @25036 : PAGE S2 i €c NO. 825023 826032  $9825034 . PaGE S2 
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IBM MAINTENANCE DIAGNCSTIC PROGRAM - . PART NO 4234255  :8M MAINTENANCE DIAGNCSTIC PROGRAM PART NOe 423402¢5 
PAGE $3 i PAGE S3a 
i 
Bs12 DISPLAY ADAPTER TEST ; ; 8912 OISPLAY ADAPTER TEST 
ERR LGC OBJECT Code ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
. t 
R3FMOG6) i 4933 060303 6sls8 
Rene rege mae - cS oe . 4936 COCE40CC ACSESC SC3 495p 6519 DC =s-—« CL AOPEF DEVICE IS CCNNECTEC AND HAS POWER ON, * 
480A CC B87 O2Z1A 6471 ENDYES 68 PRINT ASSE CS40CSE240C30 «05 6519 
480E 92 480E 6472 oc XL1°92* 4946 DSCSC3E3C5SC44 tci 6519 
&80F OC 01 4818 Sa 50 6473 av CKFFN¢3 (2) sPOLNA 494E 05C440C8C1E24 (07 6519 
8815 30 FF 0000 647% CKFFEN CLE Hn HKU FE 4956 D6E6C50940060 568 6519 ite eon 
4819 CO 81 4887 6475 BE ENOSF to, 4935E EZESE2D7CS5C3E 240 4985 6520 oc CL4o*SUSPECT COAX AND DEVICE WHILE CONTINUING*® 
: 4810 CO 87 021A 6476 8 PRINT 2966 C3CECIET40C1D sca 6520 
&@821 02 &B21 6477 ne MLitoge . : 4$96F 4O0C4CSESCSC3C SO 6520 
4822 58 4822 6478 oc 1021 "88° 2976 E6C8C903C540C D6 6520 
4823 4935 4824 6479 oc AL2(R3FNO3} 497€ DSESCSOSESCOD &C7 6520 
4825 OC 01 482E 4a5s0 6480 MVC CKFFNI43(2),POLNA 4986 40C9D0SS0CIESESC1l 4994 6521 R3FMO4 oc CL2i® IN ATTATCHMENT MAPSos 
4828 30 FF 0000 6481 CKFENI chi Hod XO ES 498E ESC3CECACSOSE 240 6521 
482F CO 83 4854 6482 BE ENDNO 4996 D4C107E248 6S2i ‘ 
4833 0C O01 483E 482 64823 MVC SET D A245 (2 ) eo CKRFFNI43 £296 C9C640D5D6E30 (C3 4987 6522 R3FMO5 oc CL29° IF NOT CONNECTEO, RESET HALT e® 
4839 Of 00 £AgE ooee 6486 SETOA2 mvC OE V3F (1) .t—% oe 49A3 DODSOSCSC3ESC fc 4 6522 
483F CO 87 O2Z1E 6485 B UNP ACK : 49A8 6540D9CSE2CSE 240 6522 
4883 01 4843 64686 oc XLI*ORS: 4983 C8C103E 3458 6522 
4844 Gace 4845 6487 oc AL2 (DE V3F) i 49B8 050605C5 49865 6523 R2FMO06 OC CL4 *NGNE © 
4846 4800 4827 6488 oc AL2(R3IFMOZ) S9BC DSD640C1DSEZE €C5 49C5 6524 POLLNR DC CLIO*NO ANSWER © 
4848 CO 87 O21A 6489 8 PRINT ge 4904 D940 6524 
46eCc oO} 484C 6490 oc XLI*O1* | € : GS25 FHNEHDEREES OE SREEEEES EHRECEREE AER S SREA SERS CORALS ERAECHERE 
£840 11 4840 6491 oc tLr*aze os 6526 * POLLING SUBROUTINE FOR ROUTINE 3fe * 
484E 4800 484F 6492 Dc AL2(R3FNO2) ' €527 * THE MICROCODE HAS ALRGADY BEEN TAILORED * 
4850 OF 01 482& 5609 6493 ALC 8 8=60>CK FFN143(23,xXC001 Inc adDR | SS 6528 * TO SELECT ONE ORIVER/RECEIVER CIRCUIT. * - 
8856 CO B87 4828 6494 8 CKFFNI \ 6529 * LOAD MICROCODE * 
6495 | 6530 * DQ MICROCODE * 
&65A CO 87 O21A 6496 ENONO 8 PRINT © 6532 * IF POLL SUCCESSFUL. ADO DEV ADOR TO "POLL <-YES* LIST.* 
485E 92 &85E 6497 oc XL o2e | 6532 * IF POLL FAILED THEN ADD DEV ADDR TO *POLL-NO® Liste @ 
465F Co B7 O21A 6498 8 PRINT Ue ee 6533 PEAS AHREEEAGSAGRAESH SS ORESEEEE CHES EARRALKSAKTHE HUSBAND ERE 
4863 01 4863 6499 — oc xL1*01° Ci 49C6 34 Of 4042 6534 POLL3F ST PO 3FEX #34 ARR 
4864 65 4864 6500 oc TLI®2 O88 | &9CA 38 O2 0200 6535 TAN SBYTES »SSW2E 
4865 699A £866 6501 be AL 2°RIFN OG) oa 49CE €O 90 4908 6536 BF TESTE nr rete 
4867 CO 87 021A 6502 8 PRINT | €&  aen2 co 87 oz22 6537 6 HALT 
4868 02 4868 6503 oc XL2 ° O24 4906 O1FE 4907 6538 oc 4.2°O03FE° MFG TEST HLT 
s86c 10 486C 6504 oc ILI "ape are 4908 CO 87 5918 6539 TESTEG 8 Loaocs 
486D 4967 486E 6505 oc AL2(R3EMO5) f: 29DC 83 490c 6540 oc XLI¢aze 
Sa6F 3C SE 65F2 6506 mv X ERRHL To X*SE® 490D 4497 49DE 6541 oc AL 2(R3F MCS) 
4873 3C SF 65F) 6507 MyI ERRRYN,X*3F* : 490F 4ac0 @9E0 6542 pc AlL.2 (R3FMCE) : Ono A Lanes 
4877 OC O09 6603 49¢5 6508 mvc ERRLOGE 2 0) ePOLLNR c " 49E1 F3 58 90 6543 sta X* 80° ,Sict DISABLE/ RST , 
4870 CO 87 63FE 6509. 8 BLPO 49E4 F3 58 £0 6544 $19 X*EO@4SIGT ENABLE 
4881 CO 87 0222 6510 8 HALT o 49E7 OD FF 49C6 4966 6545 CLC POLLS F(256), POLL SF BAIT 
4685 O15E 4886 6511 | NL2°O018E ¢ i 49EC F323 58 80 6546 Si0 X*80¢ oe S101 BISABLEs RST 
4887 CO 87 0216 6512 ENOSF 8 LINK | ®9FO 36 4C 4aS6 6547 SNS ACTRIF.HDBS HDBOGe 09 
S886 E3CE8CS40C6D6D D3 482 6513 oc CL24¢°THE FOLLOWING RESPONDED * ‘2 89F4 OD 00 4A56 4A £4 6548 CLE ACTRIFCI ) sEXPRIF OVTFF? 
4893 D6E6CSD5SC74006¢5 6513 i - 49FA CO B81 4426 6549 BE ADDYES Bk IF So 
#698 E2070 6D5SC 4C SC 44.0 6513 49FE oC O1 4807? 4A£0 6S50 ADONG MVC =—- TABCK 14302)» POLNA 
€6A3 E3D640C140070 0&3 40CC 6514 RIFMOL oe CL42*TO A POLL. (THE RESPONSE WAS NOT CHECKED.) ? { 4204 36 FF 0000 655i TABCKI Cui me XO FFE NEXT ENTRV? 
&8AB 034B4 O4DE3CBC S40 6514 C: 4406 Co 81 aale 6552 BE TABENT BR IF SO 
&8B83 D9OCSEZ070605E <5 6514 | 4a0C GE 01 4007 5649 6553 ALC =6TABCK E4342 }6x0001 inc aDpR 
4688 40E6C1E24005D cE3 6814 se 4Al2 CO B7 4A04 6554 B TASBCKI 
48C3 40C3C8CSC3D2C ica 6514 - Pe 4al6 Oc 03 4a1F 4Ac? 6$55 TAGENT MVC —- TABD0 420230 TABCKI+3 
48CB 455D 6516 | AAC OC OG 000CO 4A € 6556 Taapo MYC *-* (1) eDEVSF PUT DEV ADR IN °NG*® TABLE 
8CD C4CSESCIC3CS6 (Cl 48DD 6515 RSENOZ pc CLAV*DEVICE ADDRESS xxe 4222 CO 87 BAQA. 6557 B PO3SFE x 
4605 CaCeDSCSE 2E24 7 6515 : 6554 
4800 €7 6515 ; | ®A26 OC OL 4a2F 4a te 86559 ADDYES NVC TABCK2+3(29 cPOLVA 
$6DE E3SCE6CS40C6D6D 203 48F6 6516 oc CL2S*THE FOLLOWING HAVE aA COAX? iP cae, &A2C 30 FF o000 63660 TABCK2 CLI ue Ke KSRE 8 NEXT ENTRY? 
48E6 DGEGCSDSC 7400 fc $536 . & 2 $A30 CO G1 4a3€ 656} : BE TABNXT- = BR IF so: . fh deheSan aah. GED. Meeting 
‘ *8EE ESCS40CI40C3D EC) 6516 4A34 OF 01 4a2F séle 6562 ALC =—- TABCKZ+3(2), x0001 ENC ADDR 
seF6 E7 6516 : ae 4A3A CO BF 4A2C 6563 8 TABCK 2 
48F 7 407D07D60 SE37 540 4922 6537 oc CLSS" FT PORTS* AVAILABLE (AS PER UDT) BUT GIVE NOE € > 4A3E OC 01 4AG7 4am 6564 TABNXT MYC =—s-~ TABCOA43 (2), TASCK243 
48FF CIESCICSD3CIC D3 6537 @aS4 OC 00 0000 4a 4E 6565 TagoSA MVE ene (1) eDE VF PUT DEV ACCR IN °YES*® TABLE 
4907 €54040Ci E2400 1c 6537 de, SAGA CO BF AGA 6566 POSFEXx 8 * RE TURN 
S9OF DISOESC4E35D8 (C2 6527 | €? aaa 00 4A%E 6567 DEV3F DC X.1°O0° AQDR OF DEVICE UNDER TEST 
(S91F 05064040 6517 : ee 4AS3 4477 4a52 6569 POLYA Dc AL2 (POLL NG 37) ADOR OF iST¥ POS OF YES TABLE 
8923 SODSCSE20 7060 2 48935 6518 A3ENOZ oc CLI9*® RESPONSE TO A POLL \ €: &AS3 OOFF 4A54 6570 EXPR3F DC XL 2° OGFF® EXP, KESULTS 
4928 CSA0E3D600CI4C@D7 6516 i 4aSS 0000 @A56 6571 ACTR3BF oC .2°0000% Ace RESULTS - 
© 
DATE OTJUL7TS 25¢cT7s§ 2SJANTS : PROG I0 oagi-2! DATE O7 JUL 75 25cT75 ISJANTE -. PROG 40 0891-2 Ae 
EC NO. 825023 825032 825034 PAGE 53 , £C ND. 825023 82 {0X2 825034 Pace $3a) 
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18M MAINTENANCE DIAGNCSTIC PROGRAR 





PART NOe 4234255 IBM MAINTENANCE DIAGNCSTIC PROGRAM PART NOe 4234255 
PAGE 54 5. PAGE S4A 
8912 OISPLAY ADAPTER TEST . 8912 DISPLAY ADAPTER TEST 
¢ 
ERR LOC GBSECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
4AS7? 4040404040404 40 4A76 6572 POLLYE OC s2care ¢ c 4B16 4DA8 4817 6627 Dc AL 2(NTEM@1) 
4A05F 4040404080404 (40 6572 ; 4818 CO 87 O21A 6628 8 PRINT 
4067 £0404 040404064 060 6572 7 4B1C 66 4B81C 6629 oc xL3* 86° 
G4AGF 4040404040404 (40 6872 é 4810 21 4810 6630 oc 1.3°33°* 
BATT 4040404040404 640 4A96 6573 POLLNO 0C 32ciie * , 4aB1E 40CcS 481F 6631 oc AL2 (NTEM2) 
GA7F 4040404040404 (40 6573 6632 
4ABT 4040404040404 (40 6573 {p20 F3 5B 84 6633 IOCHKN SIO x* 84% .SIOL eDISABLE & TURN ON DIAG #2 
. AABF 4040404040404 (40 6573 , 4823 31 &A 0056 6634 LIQ XAASSeHDE2 eL OAD BAD PARITY IN HOB*S 
6574 SHREERESESEEEKS TEKST SVERSS HESSSE 4827 F3 58 80 6635 sio X* 80° eSEOL eDISABLE & RESET DIAG #2 
6575 * START OF MICROPROGRAM LISTING * Q 4B2A 30 4A SFE6 6636 SNS ST AT ACs HCB2 eCAUSE ATTACHMENT CHECK 
6S7TH SEREREREEREDE FESCEA DEES SENOS ESEOSE , 6637 
4a97 6577 R3FmMCS EQU * &B82E CO 8? O21A 6638 B PRINT IS 1/0 CHECK ON? 
4a97 7900 4A98 6578 oc xL2*?79C0° 000 IC HOBS="008 ( 4832 86 4832 6639 oc XL12°868 
4A9S oAB9 4A9K 6579 DC XL2 "0a 89" 001 LE LINE SEL Aco OESELECT ALL 4B33 1A 4B 33 6640 oc 1L1* 26° 
4498 0889 4A9C 6580 oc Xu2 °0889" 0o2 LE LINE SER Be OESELECT ALL L 4834 40DF 4835 6641 oc AL 2(NTEM3) 
&A9D OCB9 4Aa9E 6581 oc xL. 2° 0c E9* 003 LE LINE SEL Co CESELECT ALL i 4836 CO 87 0222 6642 8 HALT 
&a9F CDB9 4AA0 6582 oc XL2 °9Dg9* 00% LE LINE SEL De DESELECT ALL 4B3A 14FF 4835 6643 pC XL2° 24FF2 
6AAl OERas &AA2 6583 oc ML2° 0689? 00S LE LINE SEL Eo DESELECT ALL 6644 
&Aaa3 0000 &hAS 6584 pc M2 0000° 006 1C HDB9=XXe LOADED BY USER. C 4B83C 30 00 SFES 6645 SNS STAT ACoX #008 oREAD THE CONSOLE SWATCHES 
4€&&5 0000 SAna6 6565 oc xL2*a00Ge oo7 LE LINE SEL XeFROM HOBQ. USER LOADED. 6B40 39 OF SFES 6646 TBE STATAC e X*® OF? eTEST FOR ANSWER @ NOE 
&Aa? 7182 4AAB 6586 pc XL2°71e2* 008 1C.4i.X*°e82* SET HDB 1 FoR POLL WORD : 4Be4 F2 9O OF 6647 JF 1OCHKO 2 JUMP TF ANSWER BAS “VES? 
SAAD 1508 SAAA 6587 oc XL2°2508° 009 SSFeSd RESET RECEIVE CHECK 7 4847 OC 09 6601 4E£0 6648 MVC ERRLOG C20) oNTFEI cERROR. MOVE IN LOG MSGo 
&aa8 1008 &AAC 6588 pc xXL2Z*2008* 004 SSF,0 RESET I/G REG 203¢13 4840 3C 38 402A 6649 wv NTFHLT eX *98° e INSERT HALT CODE <98- 
&AAD 1204 SAKE 6589 pc xL2°22088 008 SSNe2 SET 170 REG BET 2 : 4851 CO 87 4D02 6650 8 NTFLOG eGO LOG ERROR 
Saar 1004 4AB0 6590 oc XL2°3004" oOC SSN.O SET TRANSMET ZERO'S € 3 6651 ; . ee ee nat 
4AB1 O78E 4082 6591 oc ML2°0781° GoD LE ¥O 1/0 REG TC xMIT ZERO®S 4855 31 4a 0062 . 6652 IGCHKO LIO ZEROsHDB2 = eRESTORE GCCD PARITY IN HOBSS 
4AB3 400€ 4ABG 6592 oC XLZ°400E8 GOE TSNeO WAIT FOR XMIT SO ROY TO FALL aBS9 CO 87 O22A 6653 8 PRINT DEPRESS CHECK RESET 
4085 0761 8aB6 6593 pC XL2*0781€ OOF LE TO 170 REG TO XMIT POLL WORD & 485D 86 4850 6654 oc xLi* 86" 
4AB7 8010 4ABB 65904 oc XL2*40108 010 TSrod WAIT FGR XMIT WD RDY TO FALL @85E 25 &BSE 6655 oC ILies7e 
4ALS 4113 SABA 6595 oc XL2*41138 O14 TSNeot WAIT FOR RECEIVE wORD ROY a 4B5F 4604 &B60 6656 pe #2 CNTEMGD 
4488 $011 @ABC 6596 pc XL2°SO11¢ 6012 #80860 TO ADDR O1).6 DEEP WAITING, gO &B861 CO 87 0222 6657 B HALT 
4480 79FF &ABE 6597 BC XL2 °7OFF° 013 ic HDBO= "FF eSuCccEss ; 4865 19FF 4p66 6658 oc 4.23 1aFFe 
od 4a8F 5014 ACO 6598 R3FMCE oc xL2*5034* 0:4 805.9 ENDe HANG 6659 . poe Noe ee a 
6599 & C. B67 CO BT O21K 6660 5 PRINT 
aaci F3C4 4aC2 6600 CEC3D oC aL2?3p¢ 4B6B8 86 4868 6661 pc XL2°86° IS 1/0 CHECK OFF? 
8AC3 F3CS &AC& 6601 BEC3E oC CL2°3E8 oe 4B6ec 18 4BS6C 6662 pe ELL c2ve 
6602 { 4B6D 4E1F 286E 6663 oC AL2CNTFMS) 
6602 . 4B6F CO 87 0222 6664 8 HALT 
6602 f 4873 14FF 4B?76 6665 oc XL 2° LAFF E ae 
6603 HASERSLER EH FE OHSKESES SOSSECSSR SE SE FSHKKE STS ERK BES FHKLHS FES BK SEKSS SH EERSA RS é: 6666 ‘ 
6604 * ROUTENE 40 SKIPPED IF SSW2 1S ON. * 4B75 30 00 SFEE 6667 SNS ST ATACeX*00° eREAD CONSOLE SWITCHES 
6605 « + 4B79 39 GF 5SFEE 6668 TSF STATAC oX°OF* eTEST FOR ANSWER *NOe 
6606 « THIS ROUTINE WILL GC VARIOUS TESTS THAT REQUIRE #ANUAL INTERVENTION * { . &B7D F2 90 OF 6869 JF TPC. o JUMP IF ANSWER YES 
6607 & TO TEST THENGS SUCH aS THE 1/70 CHECK LIGHT: THE 170 ATTENTION LIGHTs* — 4BEO0 0C 09 660! 4ELO 6670 MvC ERRLOG{1 0) eNTFEL eERRORe SET LOG MESSAGE 
6608 » INVALID OPS THAT CAUSE PROC CHECKS. ETCe * 6586 3C 9A 4028 6671 MVE NYFHL Tex? QA® SE UP HALT CODE -SA- 
6609 * * €5 4Bsea Co 87 4002 6672 8 ATFLOG GD L0G THE ERROR 
6610 £KKESTSERES TES OE KETTS SESLELHRS SSHKGESETESE SES FOES ES FEL GSSRSESTRSTKAAKTTS SRS RS 6673 
aACS 40 &aCS 6631 R140 OC 1 * 408 ROUTENE NO. 4BBE OC O02 SESS 4EE7 6674 TPCL MvC NTF M6~143) eNTFSIO eCORRECT MESSAGE 
4ac6 00 4AC6 6612 oc m2°008 {4898 Co 87 O21 6675 8 PRINT PRINT INSTR 
GACT OEF2 @aC8 6613 oc AL2 TRTAL D 4898 8&1 &BS8 6676 oc XL *81° 
&ac9 30 00 65F3 6614 cLY IPLFLGe0 aet REMOVE FOR RELEASE *%e 4899 39 &B99 6677 pc wies7e 
4ACD CO B81 4028 6615 BE R2AEXT eae REMOVE FOR RELEASE a*0 | €: 4890 4689 4898 6678 pc ALZ2ENTFHB) 
4AD1 CO BT O21A 6616 8 PRENT PRINT ROUTINE HEADER uy 4B9C CO B87 O21A 6679 8 PRINT 
4A05 01 4405 6617 oc xL3°O2* ; A4BAO 86 4BAO 6680 oc %.3°868 
4AaD6 28 &A06 6616 oc IL2*%Q3° C: 4BAi1 31 4BA1 6681 oc Ia *°498 
4a07 4807 4AD8 6619 oc AL 2CRACHER) oe 4Ba2 4E50 4BA3 6682 oc AL OCNTF MP) 
4a09 CO 87 4808 6620 e Racco fe Ds 4Baa CO 87 0222 6683 8 HALT fot casea heed — 
4AD0 CODELSESAOF AF (40 @807 6621 R&CQHOR DC CL@3"°ROUT $C MANUAL INTERVs (SKIPPED IF SSW2 ON}? i €3 pas 14FF _, 8BA9 6684 oc XL2°1 GFF sen © ae 
4AES C4C105SE4C10346 C9 6621 6685 
4AEO DSESC509ES486 C40 6621 | 4BAA 3c 41 4EF1 6686 ay ¥ RENTRY xX tart oSET UP FOR NEXT RENTRY 
@AFS E202C907D7C5C 440 6621 | €>  @BAE F3 5C 60 6687 SIQ X*80* eFETADR eENVALIO SIC SHOULD PC 
& AED COCEO4S0 EZE2EGF 240 6621 | 4881 CO 87 4cFe 6688 e NOP C eBRANCH ITF KO PC CCCURED 
4B0S 060550 6621 ae 6689 
4608 38 20 0208 6622 R4CGO TBN SBYTEOeX*°202 IS sSw 02 ON? } Cc: 4885 3c 80 9a03 6690 NTERST MYE PRTNe X820% eFORCE ROUTINE BACK TO 40 
4ap0C CO 10 4037 6623 eT LNKTER TERMINATE IF sO | 48B9 38 40 4EF} 6691 TEN RENTRVeX°40* eTEST FOR 1ST RENTRY 
4810 CO 67 O21A 6624 B PRINT is be &BBD F2 90 268 6692 SF RENTS eSUMP IF NOT 
4814 61 4814 6625 oc xL1° 610 PRINT INSTRUCT IONS €> + @BCO OC 02 SEBS “EEF 6693 @vC  =—- NTF 48-103) NTF SNS e CORRECT MESSAGE *, 
4815 67 4Bi5 6626 oc 113°193° i a68C6 CO 87 O21A 6694 8 PRINT PRINT INSTRo 
| ¢@ | 
DATE O7JUL 7S 2SaCT7S ISJAN7E . PROG 10 0891-2 © ore O7JULTS 25ccT75 1SJAN76 Ss PROG 10 -- 08912, 
—C NG. 825023 82 £032 628034 PAGE 54 EC NOs 825023 826032. 825034 PAGE Sea 
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IBM MAINTENANCE DIAGNEST IC PROGRAK 


8912 
ERR LOC 


aBCA 
ascs 
4Bcc 
&BCE 
4802 
4803 
4804 
48D6 
&BDA 


4po0c 
4BE0 
48Ee¢ 


‘ 4BE8 
4BEC 
ABEF 
a8F5 
aBFS 
4BFA 
48FS 
4eFfo 
acoi 
4c 02 
4co3 
4cos 
4co9 


&Cos 
4&C OF 


4ci3 
aire 4017 
4CiB 
Scie 
4024 
ac2a 
4C29 
4C 2a 
€cec 
4030 
ac 31 
432 
4034 
4€38 
CSA 


ac3Ee 
4C42 
4046 
acer 
aC4E 
4CS2 
£C56 
aC 57 
acss 
&C5A 
QC SE 
acsF 
acéo0 
4cé62 
4C66 


4cé6a 
ac6c¢ 


& C6F 


DATE 
Ec NO, 


DISPLAY ADAPTER TEST 


OBJECT CODE 


81 

3¢ 
4E89 
co 87 
86 

33 
4E50 
co 87 
L4FF 


3¢ 
30 
co 


2i 
sc 
87 


38 
Fa 
ec 
co 
&i 
39 
&Eao 
co 87 
86 

31 
“ESO 
co 87 
14FF 


20 
9¢ 
02 
87 


3c 
34 


D2 
SF 
co 87 
90 
01 
02 
87 


Fe 
oc 
co 
8: 
39 
aE es 
co 87 


31 
ESO 
co 87 
LAFF 
3¢ ii 


e1 
co 
3D 
co 
3c 
co 
83 
3c 
SECc6 
co 8? 
86 

32 
“E56 
co 87 
14FF 


SF 
87 
10 
Oi 
Fi 
87 


3c 61 
F3 8A 


co 8&7 


O7TIULT 
825023 


QG21a 


0222 


SEF1 
FES 
4cre 


4EF1 
28 


4E&8 
O21 a 


Qala 


0222 
SEF 
SFE6 
SCFE 
“4EFi 
2a 


sE8& 
O21a 


O21A 


0222 
SEFE 
4c42 
4cFs 
SEF 2 
4aC73 


4ECcs 
O2iA 


O2r4 


0222 


SEFi 
oo 


@CEA 


$ 


4& & 


EF fo 


ADOR 


4BCA 
48CB 
48co 


4852 
#803 
aBcs 


4508 


4BF9° 
4BFA 
4B8FC 


acoli 
402 
4004 


$COA 


acC26 
&¢29 
4¢c28 


acC30 
4c3% 
8C33 


4039 


4CS6 
ets? 
4cs9 


“CSE 
aeCsF 
4c6i 


acé? 


2S ary 


622032 


STMT 


XiL2 e876 
ihLieS7e 

AL ZUNTEMS 5 
PRINT 
XL2*66¢ 
IL1e°age 

AL ZONTE M7) 
HALT 
XLZ°14FF* 


_ RENTRYe X®23° 


STATACsFET AOR 
NOPC 


RENTRYeX*2c# 
RENT4A 

ATF 46-1 (3? GNTFLEO 
PRINT 
XL1*8i¢ 
1L3¢S7e 

AL 2QNTEM2} 
PRINT 

xL1* S68 

Th 3*495 

AL2 €NTEMT) 
HALT 
XL2°14FFe 


RENTRYeXe9y6 
ST ATAC, BUSY 


NOPC ‘ 
RENTRY.X®9OG% 
RENTS 

NIF ME~103} ,NTFTIO 
PRINT 

x2 °81° 
wLi*Sve 

AL2 (NTENS) 
PRINT 

XL2 *B6* 

IL2 9490 
AL2ZUNTE NTS 
HALT 

XL2* 14FFe 
RENTRY* X 2278 


BADTI G2 X* sre 
NaPC 

RENTRY oX*4G0% 
RENTS 
NTFNG—2eXtFy © 
PRINT 

1°83 2 

ri *64* 

AL 2(NVEMS) 
PRINT 

XL1*®G6¢ 
“MEweage-- - 
AL.ZENTEMP) 
HALT 

ML 281 4FE 0 
SIO WITH ATTACH DISASLEG 
RENTRYsX* ei ¢ 
X*OG* eo x* Sat 


NOHANG 


SGURCE STATEMENT 
66o5 oc 
6696 oc 
6697 oc 
66398 8 
6699 oc 
6700 oc 
6703 oc 
6702 8 
6703 oc 
6704 
6760S MVE 
6706 SNS 
6707 8 
6708 
6709 RENTZ TBN 
6710 JF 
6711 vc 
6712 8 
6713 ec 
8714 oc 
6715 oc 
6736 8 
6717 Dc 
6718 oc 
6719 oc 
6720 8 
672i oc 
6722 , 
6723 MVE 
672% Lig 
8725 
6726 8 
6727 RENTSZA CLE 
672ée JNE 
6729 Myc 
6730 B 
6731 oc 
6732 oc 
6733 oC 
6734a a 
6735 oc 
6736 o 
6737 oc 
67383 8 
6739 oc 
6760 MVI 
6741 
6742 19 
6743 BACTES B 
6746 RENT& Chy 
6745 SNE 
6746 MVE 
6767 8 
6746 oc 
e749 oc 
6750 oc 
6753. 8 
e7S2 cc 
6783 “De 
6754 oc 
6755 8 
6756 oc 
6757 * ISSUE SSCA 
6756 MvI 
$789 sia 
6760 * 
6761 
6762 8 
ISJANTE 
825034 


& 
PARTY NOe 4234255 
PAGE ss 


«SET UP FOR 2ND RENTRY. 
eTRVALEO SENSE SHOULD PC 
2 GRANCH IF ago PC OCCURRED 


e TEST FOR 2ND SENTRY 
eIF NOT TERMINATE PROG. 
eCORRECT MESSAGE 

PRINT INSTRe 


/SET UP FOR 47H RENTRY 
eINVALID 219 SHOULD PC 


eREENTRY AFTER INV, LIG? 


sCGRRECT MESSAGE 


ef RVALID TIC SHOULD CAUSE PeCo 
eERROR. NO P.Co 
REENTRY AFTER INVe 
BR IF NOT 

SET MSG FOR INVALID SEQUENCE 1 


Lic? 


SET UP FOR RETRY AFTER FIRST. 
INVALID COMMAND SEQeISSEVE S10 
WITH BSCA DISABLED. 


PROG ID 


PAGE $s 


0891-2 


Cy 


© © 


es mop ane Satan ete Set seen 


he 


cm 


f. 


my 


Fie 


O © 


Co 


aa 0 


ey” 


EBM MAINTENANCE DIAGNCSTIC PROGRAN 


89t2 


ERR LOC 


&C73 
4C?7?7 
4C7e 
&C7F 
&c 83 
4acs4 
4c85s 
4C87 
4céB 
4c sc 
4cé5 
6cer 
4€93 


4c3es 
4099 
&COA 
49D 
4CA0 
4CAZ 
SCAT 
4C AR 
4C AE 
4CcB2 
4C&6 
SCBA 
4CBE 
aceF 
4cco 
4cce 
4cceé 
acc? 
3ccé 
&CCA 
$CCE 


4acoo 
acos 
4005 
acos 
4c3B 
aCDE 
&CE2 
4aCEs 


SCEA 
acrFo 
acra 


4cFre 
4CFE 


40902 
4008 
490C¢ 
40132 
£616 
4017 
£018 
&@Dia 
adic 
4026 
aD24e 
4p25 
4029 


GATE 
Ec NOe 


DISPLAY ADAPTER TEST 


OBSECT CODE 


36 
co 
3c 
co 
83 
36 
4Ec6 
Co 87 
386 

32 
4E50 
co e7 
L4rr 


80 
01 

F2 
87 


&EFi 
&4C AE 
4EC5 
G21A 


021A 


e222 


co 87 
02 
FS 
F3 
FZ 
3c 
F3 
co 


5938 


58 
8s 
SA 
B3 
8A 
87 


EO 
co 
c4 
4EF 1 
c4 
4CEA 


30 
co 
3c 
ce 
82 
3D 
4Ec& 
co 87 
86 

31 
4eso 
co aT 
14FF 


82 
02 
F3 
87 


SEF1 
4026 
4ecS 
G2ia 


8222 


ce 
oO 
F3 
F3 
F3 


&7 §918 
S68 
88 
BA 
&7 
8¢ 
87 


€0 
co 
c4 
SEF 
38aCc 
aCEA 


31 
co 


09 
oF 
87 


oc 
3c 
co 


6602 
4024 
4p02 


SETA 


a9 
SE 


6604 
@D2A 


OE ES 


OO 65F2 
SSF i 
4018 


G21A 


&Dea 


oo 
87 


6&5 f2 


6603 
1400 
co e7 
co 87 
38 

co 87 
1400 


63FE 
O2ia 


0222 


O7 SUL 7S 


825023 82 £632 


ABDOR 


4c83 
4C&4 
4Ca6 


4cées 
4Cac 
4c 8E 


4cga 


4C99 


4CBE 
4CBF 
4cci 


aCCé 
4CC? 
4cc¢e 


4&CCF 


aco, 


4016 


4017 
40:3 
4018 
4D24 


@D2a 


25ecT7s 





STMT SOURCE STATEMENT 

6763 

6764 RENTS Cir RENTRYsX° soe. 
6765 BNE RENTE6 

6766 AVI NTF NO—3 eXeFoe 
6767 8 PRINT 

6768 Bo¢ XL1*°83¢ 

6769 Dc ILl*6ie | 

6770 oc AL 2(NTEMS) : 
677i 5 PRINT 

67TF2 oC . xL1°86* 

6773 o¢ IL2*498 

S774 oC AL2CNTFM7) 
6775 8 HALT 

6776 oc XL2°24FF* 
6777 * MAKE 

6778 8 LGabcs 

6779 oc XL1°O2? 

6780 s7c X®EO® eSIOL 
6781 SiG x*co®.x*age 
6762 S20 X® C48 oX* BAe 
6783 MyI RENTRY,X*83¢ 
6784 $10 X°C4° oX® Bae 
6785 5 NOH ANG 

786 

6787 RENTS CLI RENT RY.X* aot 
6788 8NE R2AEXY eye 8 
6759 MYT NTFMG~10 x*F at 
67998 8 FRINT 

6791 . oC mitsie 

6792 9c 1L2°*63* 

6793 oc AL2C(NTFMQ) 
6796 8 PRINT 

6735 oc XL 286° 

&796 oc Ihatace 

&797 oc A 2ONTFHTZ) 
679a 8 HALT 

6799 pc %L2* AFF t 
6860 * MAKE 

6661 8 ioaces 

6802 oc Maegge 5 © * 
68603 SiG XPEO* eSIOLY 
6864 sia X*CO* -X*® Bas 
6805 $190 X6C4teX* Gas 
6806 Ry RENTRY ,Xt87* 
S867 LIc BSC YSTL «8B EDAR 
6808 8 NOHMAN G 

680s 

6810 NOHANG MYC ERRLOG( 10) eNTFES 
68it MyvI NTF HH. T.X *GE* 
68i2 8 NFF L406 

6813 

6818 warPCc MYC ERRLOGC(L Ge NTFES 
6e1s MYT NTF HET. X*QE* 
6816 

63827 NTFLOG MYC ERRHLT (1 Je NTFERLT 
6816 mvt ERRRTNs X* 40% 
6819 MVC NTF EIDE 2 2S ERRHLT 
6820 8 ....8RINT . 
662i oc xLiecyzs 

6822 oc 11608 

6823 pe AL2 CERRE CG) 
6824 NYFIDE OC XL2*1 8068 
6825 8B ELPO 

6826 8 PRINT 

6827 Dc ALi *ese 

6828 8 HALT 

6829 NTFHLT Oc ¥L2°14090° 
6830 

.ASJANTE 

625034 


PART NOo 
PAGE 


42342¢5 
SSA 


RENTRY AFTER INveSEQ i 7 
BR rf NOT 
SET MSG FGR INV SEGe 26 


BSCA/3272 EMUL BUSY AND THEN ISSUE S10. 


ENABLE ATTACHENMC - 
ENAGLE BSCA 
MAKE BSCA BUSY 


TG BUSY ATTACH. SHOULD HANG 
‘RENTRY AFTER INV SEQ 22 


BR IF NOT” te 
SEY MSG FOR INV SEG.3 


BSCAs2271EMUL BUSYEISSUE L1O0eSHOULD HANG 


Soe a a 


- ENABLE ATTACHEMC 
ENABLE SSCA 
RAKE SSAC BUSY 
RiCwlTe SSCA EUSYeSHOULD HANG 


MOWE IN LOG MSG 
MOVE IN HALT CODE 


eMOVE IN LOG MSG. 
e*OVE IN HALT CODE -<9&-~ 


oMOVE HALT 30 LOG QUT 
»SOVE IN ROUT INE 


Tm ee en awe aver 


eGO PRINT GuY LOG 
oSFace 6 


¢HALT CODES FILLED IN 
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PART NO. 4234255 16M MAINTENANCE DIAGNC(ST IC PROGRAM PART NOo 4234255 
PAGE 56 ft PAGE S6A 
8912 DISPLAY ADAPTER TEST _ $912 DISPLAY ADAPT £&R TEST 
ERR LOC OBJECY CODE ADOR STMT SOURCE STATEMENT * ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
4D2B 6831 R2AEXT EQU + f 4E0B 0506400703404 (40 4EE4 6853 NTFE4 of CLiQ* NO PC ® 
&D28 30 00 65F3 6832 cil IPLFLGs0 *xx REMOVE FOR RELEASE #2 : 4EE3 4040 6853 
402F CO B1 0216 6833 BE LINK *ke REMOVE FOR RELEASE 2+ SEES £2C9D6 4EE7 6854 NTFSIO OC CcL3*sro° 
4033 CO 67 6606 6834 8 TERLNK *&#£ REMOVE FOR RELEASE + i 6£E8 £2D5F2 @EEA 6855 NTFSNS OC CL3°SNS*t 
4037 CO B7 022k 6835 LUNKTER 8 LOAD eo TERMINATE SECTION 4EEB U3C9D6 SEED 6856 NTFLIO OC Qs 108 
4038 00 4038 6836 oc XL2°O8° a REEE E3C9D6 4EFO 6857 NTFTIOQ OC CLse Trae 
6837 f- 4EF1 00 4EF1 6858 RENTRY OC ML*ege ePROGRAM RE ENTRY FLAG 
. 4D3C 0000 4D3D 6838 RZANK DC wW2¢o08 eWORK SPACE 6859 
4D3E C1DSE 2E6C 5094 3 aD67 68359 oc CL42*° ANSHER THE FOLLOWING QUESTIONS GY SETTING ¢ 6860 FHKE REE HEE SEEKERS SK EEKEEAE RSE KKHKT ESSER AKASH LLGLE SIRES PSS K SSR KKH KKH 
_ 40946 CBC540C606035 26 6839 90 6861 * ROUTINE 41 - DC MICROPROGRAM * 
€0%E E6CODNSC74 GOBE 4C5 6839 GB62 AKER KASKRAASRAKARESAARG PR RAH SH AKLGRMAS HT SRSKSK ELS SKS SRE RKAKHA HERBS SAKREKSS HE 
4056 E2E3CSD605E24 (C2 6639 . 6863 *# : * 
&CSE £840 E2CSESE3C ¢D5 6839 | &% 6864 ¥ THIS ROUTINE WILL PERFORM A MICROPROGRAM wHICH IS INSERTED e 
4066 ¢€740 6839 a 6865 © INTO CGRE FROM LOC. 3FCO-3FFF CAS REQ.). THE MICROPROGRAM & 
2068 E€3CEC540DSC9C KS 4094 6840 oc CL45° JHE RIGHTMOST COASOLE SWITCH To *80°* FE FeNDt, @ i 6866 *« MUST BE BRITTEN SO THAT ET STOPS AT A PRECICTABLE LOCAT Ion * 
4070 E304 O6E2ZE340C 206 68490 : & 6867 * WHICH WELt BE A BRANCH TO ITSELFe CAUSING THE PROGRAM TO HANG * 
4078 OSE 2D G603C S40E £6 6840 6868 2 THERE. THE CONT. STORE ADDR. OF THIS wORC IS INSERTEG Iw STGo @ 
SDa0 CPESC3CESOCESD C40 6840 6869 2 BFEFe AFTER THE MICROPROGRAM —[S DONE. IF THE CONTENTS OF THE ® 
4086 YOF OTO40C9CE4 (7D 6840 : eS 6870 x LAST SENSED WORD CCES NOT AGREE WITH THE EXPECTED CONTERTS: . 
£090 0506706840 6640 6871 * & OF HALT WILL GCCUR. * 
4095 06098070F 1704 (C9 4DAq 6841 NTFHI DC CLIG*GR 938° FE asyEsee,e 6872 2 * 
4090 CG407DE&C5E27 48 6841 ie 6873 KEKE KKKERS’ ESE ESKSKSKS SS SKK SLSKKKCK HS SVLA EKST SKSCLKS SESSEKRELEAKVSKLERKLSES KSSH 
“DAS OSCSEZE2D4C54 (DW? ADCS 6842 NTFM2 OC CL33* RESUME PROG EY RESETTING HALT FF? 6874 
&CAD 09D6C74 0C2E84 COD 6842 BP ls 4EF2 41 4EF2 6375 RT4i oc XL 2°41% eRGUTINE NURSER 
4985 CSt2cSESE3CSD £C7 6842 4 ; eX 4EF3 00 SEF 3 6876 oc ML1°0O8 eNO MANU AL ENTER VENT ION 
S0BD 80 C8CID3SE%40C 4C6 6842 : SEPA 4FA3 &EFS 6877 oc AL 2(RT42) eADORESS OF NEXT ROUTINE 
49C5 4a 6642 an 6878 
&0C6 C9E2Z40E3CB8C54 (C9 4DDF 6843 NTFMN3 0C CL26* 7S THE 170 CHECK LIGHT ON?" | £ > &€F6 CO 87 O21a 6879 B PRINT ePRINT HESSAGE 
4DCE 610640C3CBC5C 202 6843 are 4EFA 01 4EFA 6880 Dc ML1°02° 
4006 4003CSC7C5E34 OS 6843 ne 4EFB 1D 4EFB 6881 oc wLi*2g¢ 
“CDE 056F $843 /€ > sere aFag SEFD 6882 oc AL 2(RT2BM2) 
4DE0O C4CSO7D9CSEZE 20 4E0e 6844 NTFMG DC CL37°DEPRESS CHECK RESET AND RESET HALT FF* ae &EFE CO 87 021A 6883 R28G0 6 PRINT 
sobs ep edie 4DEe C3C8C SC 302400 <5 68404 i 4F02 01 4FO2 6884 oc xLI*o1e pe wr ee 
SDFO E2CSE340C1LOSC «40 6846 \ €3 4F03 2€ &FO3 6885 pc 302° 68 
&DF 8 D9CSE2ZCSE340C Ei 6346 ieee 4504 4F77 4FOS 6886 oc AL 2(RT2BM2) 
4E00 D3E34eCcECs 6804 | ss @Fo6 Co 87 021A 6887 8 PRINT By ins 
4E05 CSEZ4OE3CEC54 (C9 4E1F 6865 NTFEMS DC CL27°3S THE 2/0 CHECK LIGHT OFF?* i €: &F0a 07 4FOA 6888 oc 2° 07° 
4E 0D 610640C3C 8C5C D2 6845 : AF OB 28 4FOB 6889 oc 1L1°4a3¢ 
“£15 40C3C9CTCBE34 (6 6845 - SF0C 4FA2 4FOD 6890 oc AL2(RT26M3) a 
EID CeC6EF 6845 | & 6891 
4E20 DOCSE2ZE404C54 ©7 4650 6846 NTFN7 oC CL49° RESUME PROGRAM EY DEPRESSING SYSTEM RESET: STARTe® ce 4F OE CO 87 SD38 6892 8 LOOP eGO LOAD GP DECODE REGS. 
4E28 0906C709C1 040 (C2 6866 By ccs 4Fi2 OC 03 4F27 3F EF 6893 svc R2BEX1¢2) .R2BEXO e INSERT EXPECTED DATA 
8E30 E8&40C4CS0709C £2 6846 | C2: 4F18 CO 87 5918 6894 8 Laancs eGO LOAD MICROPROGRAN 
@E38 E2C9CSC740E2E 2 6845 : 4F1C 83 4FiC 6895 pc XL2*83" 
&E40 E3C5D44 0D9CSE <CS 6846 | 4F1D 3FCO 4F1E 6896 oc AL 2€R 26uCS) 
4648 E36840E 2E3C1D €3 eaes | GS 4fie 3FFF 4F20 6897 oc & 2(R26NCED 
#ESO a8 6846 6s9a 
“£51 DOCSE2ZCSES40C C1 4E7B 6847 oc GL43°RESET HALT AND A **pROC CHECK**® SHOULD OCCUR.* 4F21 CO 87 S4FE 6899 8 COMICR eGO DO MEICRCPROGRAN 
4ES9 D3E340C105C44 C1 6847 | & 4F25 OF aF2S 6900 pc XL1i°gFe ; eERROR HALT -SFo 
4E61 607D070906C34 (C3 6aa7 | aF26 0000 4F27 6901 R28EX3 OC xL2eor eEXPECTED OATA FILLED IN 
4E69 C8C5C3D27D40E 2c8 6847 : 6902 
&E71 DGE403C44006C <3 6847 - | G 4F28 CO 8&7 022A 6903 8 LOAD e TERMINATE PROGRAM 
4E79 £40948 6847 | aF2c 00 4F2c 6904 oc XL1°O# 
SE7C 4040C SD5ESCIO XO 4E89 6848 NTFMgG OC CL16* CINWALIO Xxx)? : 6905 
4EB4 CAa0E7E7ETSO 6848 | @ 6905 
SEBA DOCSERTSESSOC ECL *4EAA 6849 oc CLIS*RESET HALT AND SYSTEN SHOULD HANG! GF2D DPDGESES4OFGF 140 4F49 6906 RT28M1 DC CL29* ROUT 41 ~- MANUAL MICROPROGRAM* 
SEO2 D3E3S9CIDSC44 C2 6849 4F35 6040 04C1 CSE4C 1D3 6906 otis Sisee iti, gence 
EDA EGEZE3C5D440E 2C8 6849 | €. 4F30 ann4csc30ap6D. D9 6906 om ene es eee ee ng 
+. M@MEA2 D6E*O3C440CEC 105:--: - 6849 | 4F&S D6C7CIC1IDS 6906 
SEAA C7 68469 i os 4E4A 03D06C1C440C5E WY aF?7F 6907 RY 28M2 DC CLA6"LOAD EXP. STOP ADDRe (00-1F) EN STG. ADDR SFEF* 
SEAG “S0C9CSESCIO3SC 6Ca SEC 6850 NTFAS OC CL2ZE°CINVALID COMMAND SEQUENCE Xx)}* \ i 4FS2 48406 2E306074 C1 6907 
4EB3 40C03060404C1D £c4 6850 | &FSA C4C409484040F CFO 6907 
4EBB SOE2ZCSDEESCSD 3 6850 is 4F62 60F1C65SD40C9D 40 6907 
4E€C3 C540E75D 6850 be 4F6A E2ESC74B60C1C 4 6907 
SECT C961D0640C 3C BO 240 4ED0 68512 NTFE, OC Cilo* Ivo CHK Lr® { 4FT2 D940F3C6C2C6 6907 
4ECF O3E3 6851 : 4F78 D0306C1C440D4C SC3 4FA2 6908 RT2AN3 DC CLO3*°LOAC KICROPROGRAS EN STGe 3FCO-3FFF AS REQe* 
SEDI 950640C8C105C 40 4EDA 6852 NTFE2 OC G.10°NO KANG e Re 4FB0 0906070906C7 DSc1 6908 
@ED9 4040 6852 | 4F 8B D440C9DS40E2ZE 2c? 6908 - 
OATE O7 SULTS 25 (CT 75 2S5SAnN76 | : PROG ID 0891-2 DATE O7JUL 7S 25ccT7S  i1SJAN7T6 PROG ID OB91l~-<z - a8 
: EC NOs. 8625023 824032 -. 825034 ' PAGE sé 
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. PART NO 4234285 
TBM MAINTENANCE DIAGNCSTIC PROGRAS PART NOs 4234255 IBM MAINTENANCE DIAGNCSTIC PROGRAM ee e os. 
; ; PAGE $7 ee 
8912 DISPLAY ADAPTER TEST i. 89gi2 DISPLAY ADAPTER TEST 
ERR COC OSJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
a 
F90 4840F 3C6C3F06 &3 6908 f $040 CO 01 5030 6974 BNE R40L2 eLOOP IF NOT 
shoe cate Cenccibaa we 6908s S044 31 58 S079 6975 ars RT&00 sCTSTOR «PUT BRANCH TO ADORe 460 
4Fa0 C5D848 6908 oe 6976 * IN LAST WCRO OF 1ST FET 
6909 - 50468 OC 01 S071 SOE 6977 MVC R40 DT (2 »eRQOST eREINITIALIZE DATA 
E910 HEPES AEEHAEE SAN TAREA SURELARERARAB AGA L ELSERERKLE EA KAS REARERALA LRA KRESS SOE 33 58 5071 6978 R4&OL3 —. Bacbiia. con rucnie ay oe arti eb aaer wens 
6911 * ROUTINE 42 = CHECK OUT C.E. CARD ee S0S2 o£ 01 5071 SACB 6979 At. 490 oW . 
G91 2 SHORES EREGRSEKES EERE EHEREKER ARKH SHEERS SE EEREREEARDLAKESESRELEREKERRERRGAS | S058 0D 00 5070 50 6980 cic R&00T$3 C1), RS0E oTEST ane - price! 
- 6913 * SOSE CS 01 S04E 698i BNE R40L3 elf NOT LCAC NEXT 
6914 * THIS ROUTINE IS CCDE USED TO CHECK OUT THE CeE> DIAGNOSTIC * 5062 31 S8& 5077 6982 Lr0 RyYO000.CTSTOR eBRANCH TO ADDR GOO AT END 
6915 * AID CARO TO VERIFY THAT IT IS WORKING PROPERLY< 831 MUST BE * S066 F3 S8& 80 6983 $10 X° 80° -SICI eDISABLE 
6916 « CAPABLE OF RUNNING ERROR FREE BEFORE THIS ROUTINE CAN BE USED. * S069 CO 87 0000 6986 R40L.0R B + eRETURN TO USER 
6917 * * 6985 
SIG HEHE HELE ESSRAEASERN ESE SY SEREE ERE ESE EERE SERERE BEEBE AR ERS SARE EESSEEE DE c SO6D 54 S060 6986 R40 oc xLiesee eEND OF Nos eae acon 36 
Ae 6919 S506E S001 SO6F 6987 R4&0ST DC %2°5001° eSTART DATA FG ° 1 
4FAS3 42 4FA3 6920 RT42 oc xbL3*@2° RCUTINE NUMEER . S070 0000 5071 6988 RA00T OC XL2*oe “IO DATA OR COUNTER 
4FAaq 00 4FA4 6921 oc %L1*008 t SOo72 S002 $073 6989 R40C1 0C x 2* S5002* «BRANCH TO ADDR 2 
4FAS 5092 SFAG 6922 oc aL 2(RT43) LAST ROUTINE 5074 5003 - SO7S 6990 RAGC3 of 4.225003! eBRANCH TO AODR 3 
6923 . 5076 0006 5077 6991 RTO00 OC XL2* D000 * BAL TO ADDR O00 
4Fa7? CO 87 O214 6924 8 PRINT PRINT ROUTINE HOR uy S078 0400 S079 6992 RT400 Oc x.2°Deoor BAL TO ADDR 400 
SFAB 01 SFAB 6925 oc XL1*°O38 SO7A DSOSESE3S40F4F 40 5091 6993 RZENSG DC Q.24*ROUT 42 CE CARD CHECKOUT? 
4Fac 18 4Fac 6926 oc IL2* 240 2 S082 C3C540C3C1D9C 440 6993 
@FaD 5091 4FAE 6927 oc M_2CRZEMSG) he S08A C3C8CSC30206E «ES 6993 
4FAF CO 87 SD38 6928 RT2E60 B Loop eGO LOAD OPLECOCE REGS. i 6994 
4F83 CO 87 5020 6929 8 R40LD eGO LOAD ALL OF mane with Q nei a? enuee ae Dee A ee 
6930 & BRANCH TO NEXT ADORESS 1 & 996 * OUTINE 43 —- DUMP HOB*S AND CON i ° 
4F87 CO 87 0222 6931 8 HALT eGPERATOR HALT -FGO- 8997 RUSTE RAARA LETHE ESE SHS SK SKKS ERK S RAS HHS SHREK SES SUES ESSE ONES SERAERETSE SRE HED 
4FBB 14F0 4FBC 6932 R&0HO oC m1. 2°14FO® 6998 «& * 
6933 i @ 6999 THIS ROUTINE CAN GE USED TO DUMP THE CONTENTS OF THE HDE* Ss. * 
“FBO 3c 00 S071 6934 MyI R4&0DT ,0 eRESET COUNTER 7000 * AND CONTROL STGRAGE. * 
4FC!1 F3 58 EO 6935 $10 X*E0O*. S301 eENABLE MICRO CONTARCLLER . 700. « 2 
4FC4 0D FF S512 5512 6936 R4SCToOL CLC REPEAT (256 ) sREPEAT 518 CYCLE C&Lay ‘ 2 FOOL £4860 9448 85ST HEEEESEES BE OEEAERADEESESERBREAGESES CEEECEREERERERE ERE ERS EEE 
SFCa OF 00 $071 SACB 6937 4ic Ra oOT (1) «BUN e INCREMENT COUNTER f 7603 
Sao 4FD0 CO 20 «FCS 6938 BNOL ROoOTOL eGRANCH TIL CVERFLOW FOR DELAY " S092 43 S092 7004 RT4a3 oc xL1¢ 43° errant ee 
4Fo4 F3 S58 80 .6939 S10 X*80* eSEGI eCISaG&e oe S093 00 $093 7005 oc X32 *O6° ; 
4FO7 Co 87 0222 6940 8 HALT eOPERATOR HALT -Fy- S094 FFFF sog5 7006 oc Xt 2* FFFF* 
“FOB 14F1 4FOC 6941 oc xL2*14F1° © S096 CO 8&7 O2Z1A 7007 6 PRINT PRINT ROUTINE HEADING 
6942 2 To0se 
4FDD €3 S58 £0 6943 sio X*EO*,.SIOY eENABLE MICRO CONTRCLLER AGAIN SCSA O1 SO9A 7009 Bc XL1*°O3* 
aFEO CO 87 0222 6944 8 MALT eOPERATOR HALT -F2- C S098 1d 5098 7010 oC ILit2g» 
4FE4 14F2 4FES 6945 oc 4. 2° 1 4F 20 Sosc S0D2 So3s90 7oli o¢ AL 2(R2F MSG} 
4FE6 CO 87 oB7B8 6946 8 RO3ST «GO pO ROUTINE 3 TO SET HOES SOSE CO &7 §D38 7012 R2FaoL & LooP GO LOAD OP DECODES 
“FEA CO B87 0222 6947 R40R1 B HALT eOPERATOR MALY -F3- ee SO0A2 CO 87 SBFO 7013 8 HDBL GO OUMP LOW HDBeS 
SFEE 14F3 4aFEF 6948 oc ML2°14F 3° €. SOA6é CO 87 SBET 7018 8 HDBH «GG DUMP HIGH HOB*S 
4FFO CO 87 30cD 6949 8 R21ST eGO DO ROUTINE 21 TO SET I/0 REG. SO0AA CO 8&7 10566 701s 8 HOBLI 
“FFA CO 87 0222 6950 R4oR2 8B HALT eOPERATOR HALT -Fa- ¢ SOAE CO 87 1084 7916 a HOBH1 
4FF8 14F4 4FF9 6951 oc 2°12 4F 48 : &. 50B2 CO 87 5003 7017 B R2CST 
/ 6952 | SOB6 DSDGE 4E340F OF 140 SOD2 7018 R2EMSG DC CL29° ROUT 01 HDB & CS DUMP UTILITY? 
&FFA CO BY 5020 6983 8 R40L.0 eGG RELOAD CONTROL STORE ! SOBE C8C4C2405040C 3E2 vois 
4FFE F3 S8 CO 6954 R&0SY S10 x*CO*.SIO! eENABLE ATTACHMENT ‘ tC. SO0C6& 40C46E4D40740E 4E3 7018 
$001 3) 58 5073 6955 ure R40C1 eCTSTOR eCHGe IST wC = BRANCH ADDR. 2 SOCE CSO3acsEsEs 70186 
$005 31 58 SO6F 6956 Lio RAOSTeCTSTAR eCHG. 2ND wD = BRANCH ADOR. 3 7019 
5009 313 56 5075 6987 tra R40C3eCTSTOR eCHG. SRO WD = GRANCH ADOR. 3 ' © 
S000 F3 58 60 6956 SIQ.- X* 80" eSIOL eDISABLE 
5010 F3 S58 £0 6959 $190 X*EO*eSIOX eENABLE 83CRO CCNTROLLER | 
5013 0D FF 8£12 $512 6960 CLC = REPEAT (256) sREPEAT 2518 CYCLE OBLAY ‘ @ 
$019 F3 58 60 6961 S10 X* BO" eSIOS 2 DISABLE | 
S01C CO BY aFFE 6962 e Re0SY eHANG IN LOOP. SYS. RESET TO | - 
6963 ExIt THIS ROUTINE | eo ue: 
6964 ¢ SUBROUTINE TO LOAD CONTROL STORE WITH SRANCH TO NEXT aDORESS | 
6965 « | 
S020 34 08 S06C 6966 R4QLD ST ReOLOR+3 ARR eSTORE RETURN ACDRESS | € 
6967 
S02@ O¢ 01 SG71 SOE 6968 RADOSLD MVC REO DT (2) eR40ST eREINITIALIZE START DATA 
502A F3 S58 80 6969 S10 X* 80" .STOI * OISABLE | © 
502D F3 58 CO 6970 sro x*°Co*eSIO! eENABLE ATTACHMENT ! 
Sc30 31 $8 507) 6971 R40L2 Lia F4O0T,.CTSTCR eL OAD CoS» | 
$034 O€ 01 S071 SAG 6972 ALC R4G00TC2) eWUN e INCREMENT CATA 
S034 0D 00 5070 SO@ 6973 LC RA00T-16 2) ROE eAT LAST BORD ? = 
; DATE O7JUL 7S 25CCt7sS ISJAN76 PROG 10 0691-2, OaTE O7IUL 7S " 25eCT75 ISJANT6 PROG 10 089i-2 
EC NO. 825023 82 £032 825036 PAGE 57 EC NQ. 825023 82 £032 828634 PAGE STA 


6 ¢@¢ 38 O 





18M MAINTENANCE DIAGNCSTIC PROGRAM PART NO. 





4234255 18% MALNTENANCE DIAGNCSTIC PROGRAM PART NOe 42342€5 
PAGE se. : ; PaGE SGA 
esi2 BOISPLAY ADAPTER TEST oe 8912 OISPLAY ADAPTER TEST 
ERR LOC GBVJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CGDE ADDR STMT SOURCE STATEMENT 
7021 ms 5iB6 F2 81 04 7089 JE R2CP13 
7022 He ea aH HEE ERKECERLLKKE SEHKESRAKA KEES EKG CKERTAAAL EEK EAKARAKLKAGTKASRKSAERAHT 5189 X 19 S1CE 7090 My R2CPKX,X*19¢ SET FOR 46TH 256 WORDS OF 4TH FET 
7023 * ROUTINE 43 CONTINVEDe START CTi STORE SUMP * | 54280 0C GO 51C4 5i cE 7091 R2cP13 MVC R2CTSX4+i1 (ib eRAECPR eMOVE IN CONSTANT TO TEST 
TOZ4 SHREK SEES KEE SL ERE SRECES OHRKRKAS SHREK SERKREKELSE SHALTERSSKARRASRRAKRRAS!) C To92 * SENSE SWITCH ON 
7o25 # 2. 51C3 38 00 620608 70¢S3 R2cTSX TEN SBY TES sax eTEST SENSE SWITCH GN 
5003 38 08 0266 7026 R2CST SBF SBYTEVsex eaee eRESET SENSE SHITCH 04 ; S5ic7 F2 10 O05 7094 JST R2CK02 eSKIP PRENTOUT LF ON 
5007 CO 87 5038 7o2T 8 coop eG6G LOAD OP DECOSES eas Sica CO 87 5567 7095 8 £O50CS «GO PRINT 256 WORDS 
i $9008 F3 58 86 7928 sis. X#80*.SI01 e@#RESET ATTACHMENT : : SiCE 00 $13CE 7FOo96 R2CPxX OC XE1*® O°? eCONSTANT TO SELECT 256 GLOCK 
S500E F3 58 CO 7029S R2CENA SIO X®* CG? oSECY eENABLE ATTACHMENT : . 7037 # GETS FILLED IN 
SOE 3c 00 S229 7030 avi RT2CATcO e@RESET ATTo Chike FiGe > Sicf 30 04 5672 7098 R2CKO2 CLI Fo SWwol-i «xX*®O4* TEST FOR END OF iST FET 
SCE5 OF 01 5673 S673 TO31 SLC ROSWO4R C2 Fe ROSHOL e SET STARTING ADORESS TO ZERO : 5103 Co 82 SGEB 7099 BL R2CRST 
S0ES C2 0% S701 7O32 ReECRST LA ROS 41 BsK Ri 2ePOINT XRi YO STARY GF OUMP AREA Sio? 35 08 S672 7i900 CLE ROSWOolnmiex?98° TEST FoR End GF 2NO FET 
; T6633 ‘ $105 Co 82 SOEB Fidl BL RZCRST 
SGEF 30 58 SFE6 7034 R2CKO4i SNS STATACs CYSTCR eSENSE CONTROL STORE ward 510F 38 92 GAOT 7ige2 TBN LOT2cx® oa? 3RO FET TnSTALLEC? 
SOF3 aC 01 O01 SFESG 7035 wVC 10 ZeXRL? oSTATAC »MOVE TO DUMP AREA 53E3 Co 90 Sif? 7103 BF ACHCHK 
S0F8 3p 00 S229 7036 cLi RT2CAT< 0 oTEST FOR NE ATTce CHKe YET . Sie? Bp 0c Sét2 7104 CLE ROSHOL—i oX*OC* TEST FOR ENC OF 3RO FET 
SOFC F2 o1 64 7037 JNE RZCING eJUMP IF ATT. CHM es HAS OCCURRED S1EB Co 82 SOEB 7i05 BL R2crst 
S0FF €i SD 5203 70386 Tia REC ATT eA TTICHK @TEST FOR ATTACHMENT CHECK S1EF 3D 10 Sé72 7106 cet FOSWole-l oxX*ione® TEST FOR END OF 8TH FET 
Sieo3 02 61 02 7O39 RZ2ECINC LA 2( oXRi fs RRA eLNCREMENT TO NE XY wORD SiF3 CO 8S 50E8 Fio7f = R2CRSTF 
S106 OF O01 S673 SAG 7040 ALC ROSwo $2) .eUN eENCREMENT ADDRESS Sir? 30 60 S229 7iQS ACHCRK CLT RYSZCAT eX eaQF TEST FOR NO ATTACHMENT CHECK 
S$10¢ 30 00 S673 TO41 cur ROSWOLs O eTEST FOR IANCRe FQ ZERO a S5iFB F2 02 GF 7109 JANE R2CPRT ePRINT MESSAGE IF ATT. THK. 
SazrQ CO OF SOEF 7042 BNE F2CKO1 sSENSE NEXT #ORD IF NOT i SiFE cO B87? S22Aa 7iLO RECTER B Oa eTERMINATE ROUTE NE 
7043 §202 090 5262 7iil bc REE OF 
$116 3c 80 SICE 7O0a4 ca RECPXeKXt eG? eSET UP FOR IST 256 woRoS Ma . Tii2 
Stic 3 o1 S672 70465 Cut ROS WOL-l of eTEST FOR i157 256 #ORDS ‘ 5203 3€ FF 5229 7V7il3S R2CATT MVE RT SCAT so XK* FFE eSEY ATTACHMENT CHECK ON 
Siitc F2 81 GE 7046 JE RecPizs3 e JUMP IF 1ST 256 woRCS S207 CO BY O21E Fila S UNPACK eUNPACK ADDRESS 
Size 3c 460 SICE 704? a = RZTPK oe XP AGE eoSET UP FOR 2ND 256 #ORDS ‘ 5206 02 $206 7115 oc MLL FG2° 
$123 30 G2 Sé72 Foes CLE ROS WOL—| 02 eTEST FOR 2ND 256 ¥ORDS t §20C Sé75 S200 7116 oc AL2 CROS#OE } 
5327 F2 81 93 7o49 JE R2CP13 » JUMP TE 2ND 256 woRdS ‘ S2ce S24c S20F 7ii7 os AL 2(¢R 2C MGI D 
Siza 3¢C 26 SICE 7050 el Z RZCPX eX220¢ oSET UP FOR SRO 2565 WORDS / S210 CO BF O21E 7iise B NP ACK eVUNPacKk DATA 
Sir2E 30 93 S672 Tosi CLE ROSHOl-i oS eTEST FOR SRD 256 #GROS L S244 c2Z 5214 Fi2rs Doc XLi*® gee 
Si32 F2 81 8&8 7082 3E R2EPi3 ‘ eJUNP ITF 3RD 256 wcRDs . $215 SFE6 $216 7126 oc AL 2USTATAC) 
$235 3C 10 S1CE 7653 Myr R2CPX-X®10e «SET UP FOR OTH 256 £ORDS 5217 S259 S248 Vier De AL2(R2CMG2) eet a 
Foss i 52i9 CGO &7? $1563 Fi22 8 R2Ci ac eRETVURN TO *AIN LOGP 
$139 30 06 S672 Toss cut ROSWOI-1 9X2 9R8 FEST FOR 4TH 256 WORDS Fi2s 
$4130 Fe 81 7 7056 JE R2Cri3 — $2i0 CO 87 Gala Fi24 R2CPRT & FRINT sPRINT 2ST ATT:e Cte MSGe 
$140 3c BC Sice 7957 MVE R2CPX 6 Kt BS * SEY FOR iS¥ 256 woRDS OF 2n6 FET) € | $221 OS §221i 7125 oc RLF O6* 
$248 3D 05 S672 7oss cut ROSRBOLe1 6 X*05¢# TEST FOR iST 256 wROS OF 22ND FET: S222 390 $222 7126 Bc wmie*gee 
$148 F2 &1 Te T0S¢ JE R2CPi3 het $223 5259 $226 7i2eT7 oC AL 2 CR2CMG2 3 
$2148 3C &C SiCE 7060 MyvE ReCPXK eR*® 4 6 SET FOR 2NO0 256 WORDS OF 2ND FET: t 5225 ¢O 87 SiFE 7i2ea 8 eR2cTrEeR « TERMINATE 
Si4F 3 06 S672 FOS cus ROSBOL—1i oe X29G6e TEST FOR @ND 256 wROS OF 2ND FET: 7i2¢9 
$153 Fe 81 67 7062 JE R2CP1i3 : . S229 006 $229 7130 RT2cat dc KL eO: cATT ACHR ENT CHECK FLAG: 
$156 3C 2C 51CE 7063 MVE = RACPXex* ace SET FOR 3RD 256 wORDS OF 2nd FET! €° 7i3t ; 
SiSa 3D O7 5672 7064 Cur BOSw02-1 -X*O7* TEST FOR 3Rp 256 8ROS OF 2@ND FET. S22a CSCS0SEZE340C JES S24¢ 7I32 RECMGi OC EL3S5Se*FIRST ATTACHHENT CHECK AT ADDR KXKKMS 
SIiISE Fe 81 SC 7065 | SE RLCPLS . hte S232 £3C1 C3CsbaeCsD s&s 7i3s2 
S36: 3C 1C€ S$ice 7666 My k R2CPx Xt ace SET THE 4TH 256 #OROS OF 2ND FET! € S523a 40C3C8C5C 5024 C2 7132 
5265 30 08 567zZ TO8T chy ROSWO1—2 oX* O82 FEST FOR sTH 256 wROs GF 2@NnD FET: , $242 E346} C4C4084 CE? 7is2 
Si69 F2 81 Si 7088 JE R2CPi3 oe S24a EVTETET 7i32 
Sit6¢ 3c BA SICE FOSS Mv R2ECPX «Xe GAt SET FOR 1ST 256 #ORDS GF 3RD FET a S240 SB40CKSCIESBCIE ACFE S259 FiI3S3 RECMG!Z OC CLLS® o DATA = KAXX* 
Sivoo 36 09 5672 TOTO Cui ROS WAL—2 . KX? ODF TEST FOR :ST 256 WROS OF BRO FET; : S255 S0F7ETETE7T ‘ 7i33 
Si76 €2 81 46 TOT) JE R2CP13 : TLSS EES SKERESRELHAEAKKAKE SH REGKEKEASG | 
S177 3C 4A SiCE wore MVI RZCPKX oX* 4Ahe SET FOR eNO 256 SORDS OF BRD FEY. €3 71435 2% SUBROUTINE PRINY £70 REGISTER SHEE SSH EEL ECKKAKKSERHEKERERAKA KKERARS ES 
S178 30 OA S67z% TOT3 cul RISWOk—LeRX*GA® TEST FOR 2ND 256 @ROS OF 3RO FET! JISS SHRELEKKSE RHKTRETRA SHS SARSKK SEGRE S * 
Si7F F2 81 38 Tore JE R2cPiSs { T7137 * * 
$i62 3c 2a SICE 7075 Mui R2CPX oK® ZAS SET FOR SRC 256 #ORDS GF 3RO ret! @ 7i38s x= THIS SUBROUTINE IS ENTERED IF A DATA MISC CMPARE * 
5186 3D 06 S672 7O7ES cut ROSHC k= 2 oX°OB* TEST FOR 3RD 256 wROS OF 3ROD FET 7i39 * OCCURS WHILE WRAPPING DATA IN DEAGNOST EC MOCE, % 
cee $18, F2 61 36 7077 SE ReCcPLS | 7160 « THE FOLLOWING PARAMETERS MUSi BE IN THE HOG*Ss: * 
$180 3C 1A SICE 7078 VE R2CPKoX* Lat SET FOR aTH 255 WORDS OF SRO eer, €3 Ti4i * * 
$191 30 Oc S672 T7079 CLE RASWOL—2e x* Ot * TEST FOR 4Tr 256 YeRpos OF SRO FET! ; T1i4e & HD8 GO SIT 0 = VALUE FOR BEY 13 TO BE TRANSMITTED * 
5195 F2 81 25 7080 JSE R2CPi3 | FLas * BiT 6 © VALUE FOR BIT 2 TO BE TRANSMETTED * 
$198 3c 89 SICE FOB, VE R2CP xc Kn* ag* SET FoR iS¥ 256 #OroS OF 414 FET, eG T3464 & BiT 7? = VALUE FOR BIT 3 TO BSE TRANSMITTED 2 
$19C 3D 00 S672 7082 Chi ROSWOL—2 oe X* G05 TEST FOR 3:ST 256 WRDS OF 4TH FET T1as *& HOB O01 BITS O-7 = BITS 4—11 TO BE TRANSNEITTED * 
SiaQ €2 Bi ta 7083 JE R2cPis \ Vise & HOB O3 = HEX NUMBER OF WORDS TRANSMI TYED /RECEI VED Eo 
S$IiAéA3S BC 49 SICE 7084 MVE R2CPKe KX* 4g? SET FOR 2@ND 256 WORDS OF 4TH FET e T71ia? * HDS OS = 00 IF NO RECEIVE CHECK OCCURRED * 
Sta? 30 OF S672 Foes cur ROSWOI<1 ox * OEF TEST FOR 2nD 256 wROS OF 4TH FET! 7148 % = FF IF A RECEIVE CHECK CCCURRED = 
Syae F2 a1 oF 7086 JE RECH1IS | T7iag x HOB OS = BITS 243,23 RECEIVED (SAME PATTERN AS HOB 00) * 
SIAE 3c 29 SICE 7087 MVE -RZCPXeX* 2G SET FOR 3RD 256 WORDS OF 4TH FET; 7150 # HDB O7 = BITS 4-11 RECEIVED ® 
S3B2 30 oF E672 7086E cul ROS WOL<1 X*OF? TEST FOR 3RO 256 @ROS OF 4TH dad 7iSl * * ~ 
1 
7 se oe 
‘ OATE OF SULTS 25 (CT75 ISZan7rs PeRoGc Id oB891-2: DATE OTJUL 75 2ScCTr 7s ISJANT6 : PRaG 0 0891-2 
€c wan. 825023 82 £032 825034 . PAGE se. .=C NGe 825023 82 £0r2 825034 . . PAGE SBA? 
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8912 


ERR LOC 


S2Sa 
S2Sé 
S262 
5268 
s26c 
S270 
$274 
S277 
$278 
S27F 
5283 
$287 
S286 


S291 

S295 
5299 
5290 


S2a3 
S2ar 
S2aB 
S2AaF 
S262 
S285 
ye 52688 
$288 
S2ee& 


S$2c1 
Secs 
S2cé 
S2c7 
S2c9 
£2co 
S2ce 
S2cr 
$201 
5208 
5206 
5207 
5209 
$200 
S20E 
5 2DF 
S2e€1 
S2E5 
S2E6 
s2€6 
S2€a 
S2EE 
S2re@ 
52Fe 
S2F9 
s2F8 
S2Fo 
$303 
$307 
$308 
S30a 


OATE 
‘EC NO. 


OY SPLAY 


OBJECT 


34 
34 
oo 
co 


3c 
F3 
30 
30 
30 
30 
c2 
oc 


c2 
co 
c2 
oc 


ce 
co 
39 
F2 
78 
F2 
Ta 
Fe 
78 


co 
81 


os 
O1 

01 
oi 

E6 
40 
$8 
a3 
49 
SA 
48 
02 
01 


O12 
87 
e2 
01 


o1 
87 
FF 
10 
01 
10 
01 

87 
01 


67 


S3Aa6 


co 
& 
28 


87 


$301 


co 
81 
28 


87 


S3FC 


co 
81 
2e 


87 


sa27 


co 
o1 


87 


S487 
5440 


3¢ 
oc 
co 
ci 


o5 
ol 
87 


5S4Sa 
63F90 


O¢ 
co 
ol 


oo 
eT 


g§4as5 
65Fea 


O7JUL 75 
825023 


CQo0E 


S3S5F 
5358 
SFEG 
S343 
6S5F 8 
6600 
ao 

$455 
$457 
5459 
SFES 
£299 
§458 


S4én 


5455 


S3F6 
S4aSF 
S2a8 
$458 SF & 
$42} 

S45F 

5459 

oF 

1€ 

06 

1E 

03 

1E 


O21A 


0214 


O21Aa 


O21Aa 


O21E 


65FO 
6SFF 540 
O21E 


65F9 63 f0 
O21E 


ADAPTER TEST 


&DOR 


S2cs 
S2cé 
s2c6 


Seco 
S2ceé 
5200 


$205 
S206 
s206 


S200 
S20E€ 
S2E0 


S2E5 
S2e7 
S2E9 


S2Fa 
S2Fa 
S2Fc 


$307 
$309 
$308 


2S5ccr7s 


82 2032 


PART NO. 4234255 
PAGE... 59 


STMT SOURCE STATEMENT 

7152 « THE ROUTINE wILt THEN CHECK FoR A DATA ERROR (MICRO HALT AT * 
7i53 ADDR 035)5 F THERE IS NOT A DATA ERROR. A HALT wILL GCCUR * 
7i5S4 % IF THERE IS & DATA ERRORe THE INFORMATION TRANSMITTED AND * 
7155 « RECEIVED WILL EE FORMATTED 4ND PRINTED OUT. ™ 
7156 # * 
FIST SOSSESERKAEHESER ARES TECESERERARGAA LESS HAE RERAREAKRE SAE AACE EA SRRAMERERE SE 
7158 

7iSS PLOREG ST PIOR TING 3 oARR @STGRE RETURN ADDRESS 

7160 st PIOXRI+3,XRi sSTORE XR} 

7161 cic STATAC(C2Z3 eX5035 CHECK FOR CATA ERROR 

7162 BNE MVHLT eIF NOTe GG HALT 

7163 My I ERRLOG~9 « C* w? e INSERT CHAR IN LOG GUT * 
7164 mVvI ERRLOG—4 eC* * *BLANK OuT UNUSED £906 QUT * 
7165 SI X*80"* eSIgI eDESABLE ATTACHMENT 

7166 SNS FIOL1 ,HOEO eSENSE HDB 00-01 

7167 SNS PIOL 2 eHDE1 «SENSE HDB 02-03 

7168 SNS PI OL3 sHDBS «SENSE HOB 04-05 

7i6s SNS STATAC HOES e SENSE HOB 06-07 

7170 LA PIOBLeXR2 *LOAD RETURN ADDR; 

7A71 “MVC PIOWK1I(2) ePIOL1 «MOVE WORD TRANSNITTEG TO 

Tl7?2 * WORK AREA 

7173 La XRM 2=6e XR1 «POINT XR1 TO BIT 11 PRINTOUT 
7174 8 sEYrPo «GO FORMAT PRINY €1ELD 

7175 PyOBr LA PIOB2eXR2 eL CAD RETURN AODRESS. 

7176 avC PIOWK102),STATAC eMOVE WORD RECES VEO TO 

TAT77 « wORK AREA 

7178 LA XRM3I—- Ge XR: ePOINT XR1L To BIT 12 EN PRINT 
7179 8 SETPO eGO FORMAT PRINT FIELO 

7180 PrOs2. = TEF PIOL3S oX* FFE eTEST FOR RECe CHK 

FieB1 JT NORC eCONTINUE IF NONE 

7182 TBN BOC oXRIIo X°Oy* eTESTs BIT 12 MUST BE INVERTED 
7183 JT $81 2F % eJUMP YF BIT 12 IS ON 

7184 S8N BOC eXRI De X* OLS eCHANGE O TC 2} 

7iss J KORC e CONT INUE 

7186 SBi2F sBF 3O0€ oXKR1 2 oe X*O} & e CHANGE i TC 0 

7187 

7188 NORC 8 PRINT «PRINT E70 REG TITLE 

7189 oc Ma2*°er° 

7190 oc TLa*7 28 

7ig9gi oc AL2CXRMT) 

7192 8 PRINT PRINT BIT TITLE 

7193 oc xLi*eae 

T194 oc IL1¢43¢ 

7195 oc AL2°0XRm1) 

7196 8 PRINT ePRINT wORD TRANSMITTED 

7197 oc *Lat*eie 

7198 oc ILi1ea3e 

7199 oc AL2CXRM2) 

7200 8 PRINT «PRINT WORD RECIEVED 

7201 oc XL1°81* 

7202 oc IL1*¢aze 

7203 oc AL2(XRM3) - 

7206 8 UNPAC K eUNPACK NUMBER OF TRIES 

7205 oc m1*01° 

7296 oc 4L2 (PIOL2) 

7207 oc AL 2( XRM6~-6) 

7208 mv ERRLOG—4 eC INE eSET LOG OUT FOR NO RECe CHK. * 
7209 MVC ERRLOG—2 (2 ) oXRM6~6 eMCVE IN NOs GF TRIES * 
7210 8 UNPAC K eUNPACK BITS 2-3 * 
72121 oc XLifto 4s 

72i2 oc AL 2CPIOwKki-1) * 
7213 oc AL 2(R 18wK) 

7214 MVC ERRL 0G~-g (1), R1BwK eMOVE CHARe FOR BITS 2-3 * 
721s 8 UNPACK eUNPACK BITS 4-7 * 
7216 oc m3* O28 * 
V2i7 oc AL2 (PI OwKE > * 
F218 oc AL2CERRLOG~56) * 
7219 

ISJANTE PROG 10 C89l-2 
825034 PAGE s9 





©0800 


i & 
i 
: 


on 


cr 


Be 


wT 


- 


wn 


CO 4 ue aS 


egi2 


ERR Loc 


S30C 
S312 
5316 
$319 
5310 
S321 
5324 
5328 
S32c 
532F 
$335 
$338 
S33F 
5340 
$341 


5343 
$349 
£340 
5351 
5352 
$356 


5358 
§35C 


5360 
$368 
5370 
5378 
5380 
5388 
5390 
$392 
539a 
S3A2 
S3a7 
S3AF 
S387 
536F 
S3c7 
S3CF 
S302 
S30A 
S3e2 
S3IEA 
S3F2 
S3FA 
S3FD 
§40S 
€400 
$415 
S41D 
$425 
$428 
$428 
$433 
$438 
£a4ao 
546s 
54506 


5454 
5456 
5458 
S4Sa 
S45c 


OATE 
EC NOQe 


DISPLAY ADAPTER TEST 


OBJECT CODE 


CC O01 S342 S4E 
39 FF 5459 
fF2ei0 0B 
3C 29 §346 
3c DS 65FD 
Fe 87 04 
3C 2c $340 
30 35 GAd3 
Fe 01 OC 
OF 00 53490 
OF 01 5342 
CO 87 O21A 
&2 

oa 

$453 


54 Ec 
54 Ec 


oc 00 
co 87 
co 87 
97 

co 87 
1400 


5357 
63FE 
O21A 


55 € 


0222 


c2 061 
Co 87 


0000 
0000 


4040404060404 (40 
4040404060076 16 
4 009C5C7C9EZE CS 
09604046005D6E 25 
6840 C2C9ES40F IF2 
404007C109C9E £8 
5040 
C9E240E3C8C54 (C3 
D6D4D7E 4E3C5C 440 
ESC103E4C5 
C2C9E3404040F 1440 
40F24040F 3404 F4 
40 40 F54040F64 (40 
F74020F G40460F 60 
FIFOSOF IF 1L40F 3F2 
40FIF3 
E704%C SE 34040F 140 
$0E74040E7404 C7 
4040E74 04 0E74 (40 
E7404 0E 740 40E 740 
#0 £74040E7407 IE7 
7D40E7 
09C5C370C440F 140 
40F74040E7404 CE? 
4040E 7404 0£74 (40 
E74040E74040E 740 
4 0E74040E7407 LE? 
7D 40E7 

050640 
OSCSC3CSC9ESC £46 
C3cecscap2 


B40 C6C1IC9IDSIC C4 
2 ODEDSS0E3DSE &0 
O5064B40E7E74 (40 
C8cSE750 

0000 

0000 

0000 

0000 

oo 

O7JUL 7S escct7? 
825023 825032 


ADDR 


S33F 
$340 
$342 


$351 


S357 


$391 


S3A6 


5301 


S3FC 


$427 


S42a 
$437 


$453 


S4s5 
S4S7 
5459 
S458 
S45C 


5 


TBM MAINTENANCE OZAGNCSTIC PROGRAM 


ST#T 


7220 
722i 
7222 
7223 
7224 
7225 
7226 
7227 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7238 
7239 
7240 
724i 

7242 
7243 
7244 
7245 
7245 
7246 
¥246 
7246 
7246 
7246 
7246 
7246 
7247 
7247 
7247 
7248 
7248 
7248 
7248 
7248 
7248 
7249 
7249 
7249 
7249 
7249 
7249 
7250 
7250 
7250 
r250 
7250 
7250 
7251 
7252 
7252 
7253 
?253 

7253 
7253 
7254 

7255 
7256 
7257 

7258 
7259 


7 . 


PART NO. 
PAGE 


4234255 
SOA 


SOURCE STATEMENT 


NORC 1 
PLAST 


PLASTA 


PICLTH 
PIGADR 


MVHLT 
PIOHLT 


PI CEH 


PicxR} 
PICRTN 


XRMT 


XRMy 


XR MO 


XR MS 


XR MG 
xXRMS 


XR MG 


PIM@i 
PIQ2 
PIcL3 
PIOwKa 
PAR 


35JAN 76 
825034 


MYC 
TSF 
JT 
MVE 
MY 
J 
MV 
cat 
JNE 
SLC 
Sic 
8 
oc 
oc 
oC 


MvC 
8 

8 
oc 
8 
oc 


LA 
8 


DC 


oc 


oc 
oc 


oc 


DC 
bc 
oc 


bc 
oC 


PIOADR(2 } eRZAMA 
PICL3.X*FF*e 


e INITIALIZE PRINY ACORESS 
CHECK RECEIVE CHECK 


RORCY 

PIOLTH.41 e INSERT LENGTH OF MESSAGE 
ERRLOG—4 eC eRe SET REC. CHK IN LOG OUT * 
PLAST eJUMP TO PRINT LAST LINE 
PIOL TH 44 eo INSERT LENGTH OF MESSAGE 
PRIN, X*35¢* eCHECK FOR ROUTINE 35 
PLASTA eJUMP IF NOT 

PIOLTHC1) .X1C e SHORTEN MESSAGE IF RTN 35 
PICADR(2)-X1C eCHANGE ADDRESS IF RIN 35 
PRINT ePRINT LAST INFORMATION 

aL 1*e26 

IL1%o° oLENGTH GETS FILLED IN 

AL 2( XRM6) 


PIOEH (1) «STATHC 
ELPO 

PRINT 

XL1"*OQ7* 

HALT 

XL2*1400° 


t-%e XR} 
Roe 


cLS0¢ 


“1/0 REGISTER- 


eMOVE IN HALT COCE 
eSPACE 7 LINES 


eGO HALT 
eHALT CODE GETS FILLED IN 


eRESTORE XRI 
eRETURN TO USER 


NOTE. BIT 12 (PARITY) ° 


CL21°IYS THE COMPUTED VALUE®e 


Q.45*Bit i 


CLUS3*xmIy 1 Xx 


CLOZEREC CD 3 


CL3*NO « 


QiI3S*RECEIVE CHECK ® 


ze 3 4 


S$ 6 7 8 


x %& xX X X RK 


x XX X K K X X RK 


9 10 11 22 13° 


KX te yoe xo 


X @syoe ya 


CL28%. FAILED ON TRY ADs MX CHEXD® 


xL2*os 
X2aeor 
xL2*or 
xXL2*oe 
XLi*O? 


e20G HDB 00-01 
«£0G HDS oO2-02 
ehOG HOB 04-05 
eW@GRK SPACE 


ePARITY PREDICTOR WORK SPACE ra 
PROG ID 0891-2 
PAGE soa? 


IBM MAINTENANCE DIAGNCSTIC PROGRAM 





PART NOo 4234255 18M MAINTENANCE DIAGNCSTIC PROGRAM PART NOo 4234255 
PAGE 60 PaGE 6OA 
B9l2 DISPLAY ADAPTER TEST 8912 OISPLAY ADAPT R&R TEST 
ERR LOC OBJECT CCDE ADDR STMT SOURCE STATEMENT ERR LGC OBJECT CGDE apoR STKT SOURCE STATEMENT 
S45) FFFD 545€ 7260 NEG3 oc XL2°FFFOs eCONSTANT NEGATIVE THREE f 7327 
7261 S4EF 34 08 S562 7328 DOMIC2 ST COM IRA+3e ARR o STORE ARR 
585F 3c 01 $468 7262 SETPO MMVI TSTBIT+1 1 oX*O1" eENITIALIZE TEST BIT INSTRe 54F3 3C FO SSIE 7229 MVE MICEN42 oX* FOF eSET TO RUN MICRO FROM STG 2 
5463 3C GO 545C 7263 MVE PAR ,X* G6? eXNITIALIZE PARITY PREDICTOR S4F7 3€ DO SS3a 7330 MvI STPMC4+20xX°OO? 
5467 38 00 5458 7264 TSTaiT TBN PIOWK1s X*G0? eTEST BET (SET BY PRGo) S4FB F2 B87 OC 7331 J MICcOM > JUMP TO MAIN ROUTINE 
$468 F2 10 06 7265 Jt SETI eJUMP IF ON S4FE 34 08 S562 7332 OOMICR ST OOM] RAt3 »ARR eSTORE ARR 
S546E TC FO 00 7266 mvi CC eo XR19 oCe OF eMOVE & 0 TC BIT POSITION 5502 3C £0 SSIE 7333 mv I MICEN42¢ XPEOF »SET TG RUN MICRO FROM STG 1 
. $471 F2 87 09 7267 Jj NEXT e CONTINUE 5506 3C CO SS3A 7334 mv I ST PMC42 6%" CO® 
5474 7o FL OO 7268 SET MVE OL oXRLD oe EZ? oMOVE A i TO BET POSITION SS50A 34 01 SSS5SE 7335 micoM SsT DOM, Xi+3exXR1 eSTGRE XRz 
S?F OF OO 545C SACB 7269 ALC PAR( 4) e8UN eAOD 2 TO PARITY 550E 38 OL 5562 7336 i DOMTRATSeXRI ePOINT XR2 TO PARAMETERS 
5470 36/01 54S5E€ 7270 NEXT A NEGSoXRA eSUBTRACT 3 FRON XR2 S512 1C GO 554E 00 7337? REPEAT MVC TATHC 0A (1 6XR2} eSTORE HALT CODE 
548: OF 00 $466 54 €8 v27i ALC TSYBIVS1 CLP cFSTBITe: eSHEFT BIT TESTED LEFTY ONE ; 5517 1¢ 01 S550 G2 7336 MVC STATE 12242 ¢XR3) eSTORE EXPECTED DaTa 
S487 F2 81 04 T272 JZ HIBITS eGO TEST HI BITS IF ZERG i 7239 
Sa8A CO BT S467 7273 B TSVBIT 260 TEST NEXT BIT S5SiC F3 58 EO 7340 MICEN SIO XeEO* eSzEOi eSTART MICROCONTROLLER 
‘ Vere 551f oD FF 5512 55 12 7341 DELAY CLC REPEAT REPEAT( 256) eDELAY 518 CYCLES 
5886 36 O01 S454 7275 HIBITS TBN PIOWK 1-7Ze xX ORS oTEST FGR BIT 3 GN 6§25 OD 01 5564 0D &2 7342 CLC LOCNT eo ZERO 2) eCHECK LOOP COUNT FOR ZERO 
5492 Fz 16 06 7276 Jt SETS JUMP TF SO 5528 Fe 81 OA 7343 J& STPmc eSTOP MyCRC CONTROLLER IF SO 
5895 7c FO 00 T277 Mvi Ci eXRLFoC*O® eMOVE A O TE BIT POSITION SS52E OF 01 5564 Sats Pz4a SLC LPCNT « BUN{ 2) e SUBTRACT GONE FROM LOOP CS .cNT 
$498 Fz 87 09 7278 J TB2 -60 TEST BIT 2 5534 CO a7 SSIF 7345 B DELAY eGO TACK TO DELAY AGALM 
5498 7c Fi O98 7279 SETZ MVE OC eMRL} oCeg® sMOVE & 1 TO BIT 3 $538 F3 56 CO 7346 STPMC S70 xeCQet eSiGi eSTOP MECRG CCATRELLER 
5aGE SE 00 S85C SACK 7280 ALC PAR{ b}c WUN eADD GNE TO PARITY 5538 30 $8 SFE6 7347 SNS STAT ACs CTSTOR eSENSE CONTROL STORE CONTENTS 
S4a% 36 01 S4SE v28i TS2 A REG3eXR1 eSUBTRACT 3 FROM XR} 553F Op 01 SFE6 5559 7348 cLe ETATAC cSTATEI C2) eCOMPARE TO EXPECTED VALUES 
54A8 38 G2 S45A 7282 TBN BI OW’KL—2 eX? 92° eTEST FOR GIT 2 ON 5545 Co 81 5551 7349 BE REST eBRANCH IF OKAY 
54ac FZ 10 06 7283 JT SET2 eJUMP IF TRUE a ; 7350 
Sear 70 FO OC 7286 MVE O( oXR1 Fo C?#O* «SET BIT 2 TG G6 - 5549 CG 87 SDAS 7351 MICERR B STATUS eG6O TO STATUS ROUTINE 
5482 F2 BY Og 7265 J Bis oGO TEST BIT 13 na S54aD 10 554p 7352 eErer pc mMiepoe sPRENT EXP/ACTUAL DATA & MSG 
6485 7C Fi SO 7286 SET2 avi OC sKRRVe CHES SET BIT 2 TO 2 i 554E 60 S554E 7353 STATHE DC KXi1*00* -DESIRED HALT CODE 
54n6 OF GO S45C SAB 72387 ALC @CaRC 4 2 o BUN sATD TQ PAR é 554F 0000 5550 7354 STATE: DC xL2*G0° eEXPECTED DATA 
5aB8E 36 BG 5S&5Aa 7288 TH13 TBN FiQwKi~ieX*EO® eTEST FOR BEIT 43 ON 7 7355 
54c2 FZ £0 GA 7289 JT SETI ejUMP IF SQ 555i OF O01 5562 S56 7356 REST ALC DOMI RAZ 62) eTHREE sUPDATE RETURN ADDRESS 
S8C5 FC FG 21 7290 VE BBC oXR1) 0? OF eSET BIT 13 TOY 5557 38 03 554D 7357 SBF EHBP + X°03* RESET THE BYPASS ERROR STOP BIT 
5ac8 3c FO 65FC 7293 MVE ERFLOG-500%G? «SET SIT 13 In LOG CUT OFF x 7358 % AND THE BY@ASS PRINT/STOP SIT 
54acc F2 BF O? 72o2 J cpi2 oGG SET BIT 12 (PARITY) 5558 C2 01 0060 F359 DGMEX1 LA tok eo XR eRESTORE MAE on as 
S4ce FO Fi 2: 7293 SETiZ MVE BSC o MRT} eC ELE eGO SET BIT 13 ON . 555F cG 87 0090 7360 DOMERA B trem RETURN To USER 
5402 3C Fi 6SFC 7294 MY ERRLOG*5.C PLE eSET BET 13 iN LOG GUT x 736% 
S$ap6 38 01 §4&5C 7295 C12 TBN PAR ex* ol ¢ eTEST FoR BITS GO 5563 GOOG 5564 7362 LPCNT OC Mee age eLODOP COUNTER (NORMALLY ZERo? 
S40A F2 10 06 7296 JT SET12 o JUMP IF SO $ §565 6003 5566 7353 THREE BC XL2*9003% eCONSTANT THREE 
$4DD0 7C FO IE ?T297 avi BOC eXRL3.C*G* eSET PARITY BIT = 8 73564 
SeEO F2 B87 03 7298 J RTM «GO EXET 
S463 7¢ Fi 1E 72S9 SETiI2 MVE BOCeXRE DCCL? oSET PARITY BIY = 1 & 
54E6 EO 87 00 7300 RTN 8 OF eoxR2) eRETURN TO MATALENE 
5a€9 5035 S4EA 7301 X503S OC XL2°50 358 »CGNSTANT STOPPING POINT 
S4ea 001C S$4EC 7302 XiC pc mL2*1C* CONSTANT 28 | © 
S4ED 5453 54EE 7303 R2AaMA DC AL. 2UKRMG) eADORESS CONSTANT 
7304 . 
7304 & 
7305 SESEKKEEAEEESRERES EES TE HATE SKS SY t 
7306 * SUBROUTINE 00 MIC ROPROGRAM (ab SERERER EHEEEE HORSES HESERARAROSERERS ES 
7307 SHYCKESSSSELAESATIER ELS 43 HSESELSRE & | S$ 
7308 *& a 
7309 * THIS SUBROUTINE EXECUTES THE MICROPROGRAM *T THE LOCATION IN *, 
7310 * MEARe DELAYS 518 CYCLES AND THEN STOPS THE HICROPROGRAMs A © 
7311 % SEASE CF CONTRCL STORAGE IS THEN DONE AND ThE INFORMATION IN & 
73i2 * CONTROL STORAGE IS COMPARED FOR THE EXPECTED VALUEe EF IN~ *. 
7313 « CORRECTs & HALT OCCURS AND THE EXPECTED AND ACTUAL DATA ARE a| é 
7314 « PRINTED OUTe * 
F315 « | 
73i6 *% IF MGRE THAN 516 CYCLES OF DELAY ARE NEEDED, ENTER HEX®? OF a! & 
7317 * DELAYS EN SY¥Ge LOC. TLPCNTS. *) 
7318 4% | 
73io % 8 DOM ICR BRANCH TO SUBROUTENE i © 
7320 % oc X_ie® Foe yO = HALT CODEe ENTRY 1 * 
732% oc XL. 2 SHHHH ® HHHH = EXPECTED BGATAs ENTRY 1 ® 
7322 * = & 
7323 * 1€ PROGRAM I5 TO BE RUN FROM STG 2 BRANCH TO *pOMIce2*® %, 
7324 INSTEAD. ALL CTHER PARAMETERS ARE THE SAMEe a) 
7325 * *! 
7326 thee HERES FEES SESE TERE OSSESS OES ERES SOS TEE DEO TREREEEDTARERE SEES ES ES SESE SS - 
| “3 é 
DATE OF JULTS 25 (CT 75 LSI ANVE PROG ID 0891-2! DATE OF SULTS 25 ccTt 75 LSSANTS prac 10 G691~2 
EC NO. 825023 62 £032 625038 PAGE €6 EC NO. 825023 62 £032 825034 PAGE SOA 
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IGM MAINTENANCE DIAGNCST IC PROGRAM 


5912 


ERR LOC OBJECT CODE 


$567 
5566 
5S56F 
$S73 
SST? 
S876 
SS7F 
S884 
S587 


S$6s 
5591 
5595 
$598 
SS9E& 
SSsa2 
S545 
5546 
SSar 
55B2 
S5eé 
§s6c 
S5¢0 
Fsce 
SS5Ca 
55CE 
£504 
5508 
ssco0c 
5S€2 
S5E8 
SSEC 
SSED 
5S SEE 


SSFO 
SSF6 
SSFa 
S$ SFB 
SSFO 
SSFF 
S605 
$008 
56 0F 
$6106 
$612 


DATE 
EC NOe 


DISPLAY ADAST ER TEST 


08 
O14 
Ge 
O4 
04 
o1 
Q6 
O% 
o3% 


34 
34 
34 
34 
3S 
35 
ic 
De 
3a 


O24 
8G 
10 
O11 
40 
10 
O1 
20 
10 
ol 
06 
90 
O% 
o4¢ 
10 
Gi 


oc 
38 
F2 
OE 
38 
Fe 
GE 
38 
F2 
o& 
38 
co 
OE 
38 
co 
ace 
ca 10 
01 
Oo. 
87 


oc 
co 
04 
OA 
S6FE 


oc 89 
co a7 
02 
5679 
S67D 
oc O1 
OE O61 
co 67 
G2 
$700 
$6863 


5668 
S663 
Sé6? 
S666 
S6E?7 
S666 
S66E 
@1 

$668 


5679 
S66E 
ao 

S67S 
Sé66E 
33 

5679 
5&6E 
06 

S679 
S66E 
SSE2 
S679 
56 6E& 
S5E2 
5679 
S66E 
SS5&2 
S679 
S629 
O24 


5606 
O21£ 


5700 
S700 
GO21e 


OTIUL TS 


825923 


ADOR 
OG 
S6E? 
S6é EG 
56 £9 
56 &9 
$6 Fa 
56 FS 
S6FR 
56 45 
SSec 
SSED 
SSEF 
$6 (7 
SSFA 
SSFC 
SSFE 
56 79 
5766 
S6CGF 
S611 
S$6is 
28CCT7S 
829032 


ST€@T SOURCE STATEMENT 

7366 SHSCRKOSRK KAY BES BER 

F367 

F368 FHSS SEEKAARESERARK HEH 

7369 ¢€ PURPOSE OF SUBROUTINE: TG GUME 
F370 = 

P3?i = LENKAGE? 8 RE=BCS 

F372 & ot. RL it xxe 

Fa73 * 

P3774 4% Bit © = ESQ 
737s 4% BIT i = FSsQ 
T376 & BIT 2 ~ FSG 
F377 « 6IT 3 - FsG 
737& & BITS-46-5-6<7 
7379 & L-K<-X—X 
738G & le i-G-G 
F381 & 

7382 * i—G-G-1 
7283 x 

7384 

7385 

7385 

F38E ROWES St ROSORB+3sARR 

F3a7 st ROSOXIF Se XRE 

7388 St ROSHA2¢ 3 aXNF 

7389 st ROSOPSeFP SR 

7396 L. FOS ZER, PSR 

F39i i ROSDRB43 o XR 

?392 i ReSOFL -OF1. XR} 
F393 La 1 eXR1 5p eKRG 

F394 st ROSORB+3,xREi 

7739S 

F396 VC ROSOH1 oROS ZER C2} 
TV397 TER ROSOFL 6 KX *BGs 

73g8 fT ROSDBK 

TIES ALC ROSDE eRO51 6023 
F400 T8N ROSOFL « X®4G# 

F401 JST &OS DKE 

Fao? ALC ROSO wi oR CSIG0C2) 
F4aQ3 Tor ROSONF Ls x * 20 

P3204 fT ROSOR: 

Fags ALC ROSpwi»eRC5 1001 2} 
7406 ROSOK: TAN ROSOFLe x* og? 

7407 QF ROSOKS 

7408 aC ROSOwW Ie XO4 0002} 
%aog Tent ROS DEL oX*O4* 

7416 eT RCSOKS 

T4434 ALC ROS ow 2s X040G6¢2} 
Fayvz JEN ROSOFL <x" g2* 

T4i3 BY ROSDOKS 

TOi6 ALC ROS Ow? .-X0460(2) 
7415 ROSKG MVC ROSOUP eROGSDAS 

7436 8 PRINT 

Val? oc XL.1°03 § 

7e18 oe Wit2ge 

7419 oc AL 2{TROSHCG} 

7420 

7421 ROSOKS MVC ROSPOUSsRCEP 03( 99) 
7a22 6 UNPACK 

7423 oc Weeoge 

T4226 o¢ & 2(ROSOW!S 3 

7825 pC AL2CROS5SPO1 3 

7426 MVC ROSOwK( 2) sROSOW! 
%427 ALC ROS DwK (2 de ROSOWK 
7428 8 UNPACK 

T2829 o¢ Wptoge 

7&36 oc 4L2 (RGSOwK 3 

7431 oc AL 2¢ROSPCX3) 

7432 

21SJANT76 

8250364 


PART NGe 
PAGE 


$23425 
62 


Ss 


* SUBROUTINE ROSDCS SSaeerk se Sess ERS SERKKAEMRE RERREREE NEARER SRERERE RE 


256 ¥O 


i COUN 
2 COUN 
2 coun 
6 COuN 


2NCyeaRO, 


2N0 FET 


ROS OF SPECIFIED Foe 


eFLAG BYTE 


TV ZNETEALAZATION 
T INITIALIZATION 
T INITIAL IZATION 
Y INE TIAL IZATION 


OR 4TH FET INIT iz*y 
INZTEALIZATI ON 


leori-o JRO FEY INITIAL IZATION 


@tn FET 


LNIT FAL IZATION 


SRLKEEK RFE RSA HLS RY SKS HOMIES ey SReRG RSA H Bee EAS RE OwWVMASRKSE SS ESKER eS Es se 


oSTORE KRle XRZ5 
THE FLAG BYTE. 


PSRe ARR €& GET 


eCL EAR PSR 


e TRANSFER THE Fiac BYTE 
es INCREMENT TO RETURN ADDRESS 
@STtTGRE RETURN aAOrRESS 


eMOvE IN ADCRESS FoR FSO 1 
eF SO 1 DUMPE 

If YES, EXIT. 
eMOVE IN ADDRESS 
oF SQ 2 DUMP? 

IF YES. EXIT> 
eMOVE IN ADDRESS 
eFSQ 3 DUMP? 

IF VES: EXIT. 
sMOVE FN ADDRESS 
BEYOND ist FET? 
SR IF NOT BEYOND 
INCR FOR IST ADOeCE 2ND FET 
énc FET? 

BR IF 2nND FET 
INCR FOR 43S¥ AQG.GF SRD FET 


FOR FSG 2 


FOR FS@ 


te 


FaR FSG 4 


SRC FET? 

6R fF 3RD FET 

INCH FOR 1°T ADD.OF 4TH FET 
eoMOVE IN ST4RY CF DUMP ADORESS 


6GO FRENY HEADING = 


eCLEAR PRINT FIELO 
oUNPACK CONTROL STORE ADORESS 


«MOVE MIAR ADOR, TO MBAR WK SP; 
eCONVERT TO MBAR ADDRESS 
eGO UNPACK MBAR ADDRESS 


PROG Id 
PAGE 


og9gi- 
61 


a a a a 


& 
a 
a 
+ 
od 
* 


2 


i 


auns 


c 


et, 


on 
ee 


om 


rn, 


of 


my 


* 
ee 


— 


eo © 6 


IGM MAENTENANCE DIAGNCSTIC PROGRAM 


&9i2 
ERR LOC 
SSi46 


SOLAR 
SOLE 
S61F 
562% 


$623 
S62¢9 
S62F 
5635 


Sé3¢9 
S630 
563£ 
Sé6é3F 


5641 
5647 
564D 
5é53 


Sésf 
S658 
Sé5¢ 
5660 
$664 
5668 
556¢ 
SGEE 
Sé66F 
S670 
56 72 


56-76 
SaT6 
5678 
SG&7A 
SG@TE 
S6E4 
S68¢ 
S694 
S69¢ 
SEAS 
SG6AC 
Sage 
S66C 
S6c46 
§é6cc 
S604 
Séo07 
S606 
S6d4 
s60c 
S60E 
56E0 
S6E2 
SG6ES 
S656 
S6ES 
S6ES 
S6Ea 
S6EB 
S6ED 
SGEF 
56F1 


OATE 
Ec NG. 





DISPLAY ADAPTER TEST 


OBJECT CODE ADBR 
OC 81 5622 SHEE 

cco 87 S21E 

G2 Séle 
eoso 5620 
5606 S622 
OF O01 562C SRE 

OF O1 5622 S6éFO 

OD O01 S622 SHE 

CO 92 S6iA 

co 87 O24a 

O1 5630 
5D 5Sé3¢€ 
5606 5646 
OF Gi S679 SSEA 

CE 01 S620 S6F2 

Op Gi 5620 S677 

Co G4 S5FO 

CG 67 9214 

16 5658 
35 04 2738 

C2 Gi a0c66 

C2 G2 0006 

co 8s? ccoco 

0069 $660 
OG 566e 
21¢ Sé6F 
0600 Sé7i 
o0co0 S673 
S720 S575 
soso SérT 
0000 567s 
ococo0000G SEé7o 
Oo0o00cGoOR00 S6as 
2040404620404 C40 5606 
4040404040404 (40 

O80 4040404864 (40 
£06040 8040404 (4G 

$0646 404040404 (46 
40940480404 G4046 (40 
0404040404604 GB 
406040 40469404 (4G 
4040404040408 (46 
8040404040454 4G 
4346046 

40 5607 
G60} Sé09 
GOFF S608 
OFF S600 
O2FF S60F 
OSFF 56Ei 
OTFF §6&3 
O8FF S6E5 
oG00 S6E7 
O12 S6E 8 
oc 56E9 
210 S6E4 
5687 SEEC 
5606 SCEE 
000s S6FG 
0040 S6F 2 
OF SULTS 2S cect ?s 
825023 82 £037 


STMT 


7833 
FE3a 
4635 
F436 
FaAS7T 
74383 
P&39 
TAaG 
FSG) 

F442 
F443 
FES4 
7724S 
7446 
Fae? 
7446 
7449 
7450 
745i 

7452 
7453 
TESS 
Fass 
Fe2Sh 
Fas? 
7458 
Fass 
T466 
7461 

7462 
7463 
748A 
T4465 
7&6 
F466 
T4h6 
PEE7 
F4a6s 
7469S 
FaTQ 
FRAY 
7472 
Té7Z 
Tei2 
F472 
Fate 
7472 
7a7%2 
E72 
TavT2 
Tea72 
¥4a72 
7a?3 
T4a74 
7475 
7276 
ave 
T4a7s 
T7479 
7480 
7481 

7482 
74835 
7464 
7465 
7486 
7487 
7486 


SOURCE 


RO SU NP 


ROSOYUP 
ROSPX 


ROSO XI 
ROSDX2 
ROSDRE 
ROSOPS 
ROSOFU 
ROSSFi 
Rofsin 
ROSHO% 


ROSSAS 
ROSSAE 
RGSOw 1 
RCGSPO1 
ROsPox 
ROSPO2 


REsPo3 
XO002 
XO OFF 
XOLFF 
XOFF 
XO 2FF 
HOPE 
XOBFF 
ROSZER 
ROSGNE 
205100 
RQ5010 
ROSPAS 
ROSPAD 
xed005 
xo040 


IS SANT6 
825034 


STATEMENT 

a¥C ROS PX (2) eROSPAD 
a UNE ACK 

oc Thy eOge 

BC AL 2( %—%} 

oc AL ZCROSPO23 
Sic ROSDUP (236 xX9002 
SLC ROSEX (23 .XOCeS 
CLC ROSPXE 2) osROSPAS 
BRL RC SUNG 

& PRINT 

BC MLi*Gi* 

DC ThLyeoge 

oc AL 2¢R O56 G2} 

ALC ROSOW! sROSO;20 2) 
ALC ROSOUP , X00406¢ 2} 
CLC FOSOUP. ROSCAEC 23 
BNrH ROSOK2 

8 PRINT 

oe AL LF 16€ 

uw ROSSPSeP SR 

LA eems_eXRI 

LA wr REXRD 

5 Row & 

oc XLZ208 

oc ALL sas 

oc ALL*2Ge 

oc wL2e Ge 

bc yo 

oC AL 2 CRO St 243% } 
oc AL2CRCSwleE} 

ot aL 2°62 

DC XL4eoe 

oc xLE*ot 

oC. S3XLI 35s 

oc M2 F4HS 

oc XL2°*OO614 

BC %_ 2° OCFF @ 

BC XLecoirFre 

oc XL2° 0 FF eR 

OC XL 2° O3FE & 

oc XL2°O7FFe 

oc XL 2° O6FFSE 

oc m2* 00008 

DC XLLVSO ES 

oc XL.2 O08 

Doc xMLIVide 

oC AL. 2(ROSP QL410}3 
oC AL 2CROSP O23 

oc XL2*000S5* 

oc XL 2* 00805 


PART NO. 
PAGE 


4234285 
6ia 


e INSERT START ASORESS 


sUNSACK 36 HORDS GCF CGNTROL STOR 


eUPDATE UNPACK SOURCE ADDR. 
«UPDATE UNP ACK DESTINATION ADDR. 
«TEST FOR ENO GF LINE 

eUNPACK AGAIN IF NOT 


ePRINYT 16 wCROS OF CONTROL STORE 


e INCREMENT CS ADDRESS BY 16 
oINCREHENT DUMP AREA 

eAY END CF DUMP AREA? 

iF NCTe GO OUMP NEXT 16 WORDS, 


«SPACE 6 LINES AFTER PRINT 


oRE STORE XR1, XR2,5 & PSK 


eRETURN FO ROUTINE 


eSTART GF OUMP ADDRESS 
eEND OF DUMP ADDRESS 


e*8906— 
*“G00i-~ 
«+81 0G— 
o~ S391 o- 


PROG 
PAGE 


10 0691-2 


63a) 
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PART NDe 423482E5 18M MAINTENANZE DIAGNCSTIC PROGRAM PART NGo £23425 
PAGE 62. PAGE 62A 
sg12 DISPLAY ADAPTER TEST i Bo12 DISPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
S6F3 0400 56F4 7489 x0400 DC xL2*0400° i c 7554 % ENTER PROGRAM OF LESS THAN 256 INSTRUCTIONS o* 
S6F5 04C9C 10940800 «C2 SEFE 7490 ROSHDG DOC CLLiOtMIAR MBARE | 7555 *« EXAMPLE USING ONLY THE FLAG BYTES: * 
S6FD C109 7490 KC ees 7556 * 1-ST ENTRYS FLAG = OC XL1°93°* * 
S6FF 0000 5700 749% ROSDwWK DC xL2eoF oMBAR ADDRESS WORK SPACE 1 £3 T5S7 « 2-ND ENTRY? FLAG = DC XiI*ac® * 
S701 7492 ROS#iB Eau = . 755e@ * & ENTER PROGRAM BETWEEN 256-512 INSTRUCT IONS* 
570i 5900 7493 ROSW1iE DS 2x 256 ee 7589 « EXAMPLE USEING ONLY THE FLAG BYTES: * 
7494 a 7560 * i-ST ENTRYS FLAG = DC XL1°92° * 
: F495 oa 7561 * 2-ND ENTRYS FLAG = DOC ALI AEP * 
GAOB 7496 OPTDEF EQU x*GAOB* be zs 7562 * * 
0001 7497 STG2 EQU x°O28 : ae 7563 * Sx NOTE ~- 1K BLOCK BYTE AND FLAG BIT 2 MUST EITHER * 
¥age : 7564 * BOTH BE PRESENT GR BOTH ASSENT. * 
5901 DIDGESES40FT4 (o3 S9I7T Y499 RISST OC CLo3¢ROUT 7 LIOsSNS MC STORE® a 7565 = 4K BLOCK BYTE x 
5909 C906G6LE205E2e D4 7499 : C 7566 * Bit * 
S913 C340EZE3DEC9CE 7499 fo 7567 % 0 FLAG SITS 405060? APPLY TO * 
75006 day us ac ee aa aaa a eae 75682 2% 4TH 1K BLOCK ALSOcs & 
7501 # SUBROUTINE LOADS a & 7569 # 2 FLAG BITS 405+6.7 APPLY TO ® 
7502 © eee ae eae NEhandObudbOHEEDENE CREEADL SEKEES GER EETAEERREREESERAETEES Fs7o0 # 3R5 ik BLOCK ALSO>s % 
7503 * LOADS CONTROL STORE = FST * 2 FLAG BETS 4c5e6e7 APPLY TS & 
7504 % * £. 7572 * 2ND 1K BLOCK ALSO6 
7505 « LINKAGE TC SUBROUTINES 68 iGABCS «. 7573 * 3-7 RESERVED * 
7506 * ge RLE SAKE FLAG SYTE me 75S HHSREKSREREAK GR SCACLS PRGRKAKPERKHS eK KHRKSS GEE HOLSET ay ie a ake we ah cage ae IR a he oR ae 
7507 = te oC ALZOMKXEKX? BEGEHNENG ADOR @! €: 7757S 
7508 # ie OC AL2ERXXXXKK}) END ADDRESS 7 7575 
7569 5e oc KLLOxxs 1K BLOCK BYTE ~ 59OSF «576 USING LIiGCSexR2 
7519 @ FLAG BYTES eS $918 34 02 S9FC 7577 Laaocs ST SAVXRZsXR2 sSAVE THE CONTENTS OF XR1 & XR2 
751i * BiT = S59ic 34 0@ SAGO 7578 st SAVARRSARR eSAVE ADDRESS OF NEXT SEQ ENSTR & 
7Si2 # Sede Qo LOAD PROGRAM INTO CONTRCL STCRE ON A 256 * 5920 33 o2 5A00 7579 L SAVARRe XR2 LOAD ET INTO AR2 
7513 * BOUNDRY & 5924 2c 96 SAST 0% FSB06 tae C EADDRe4(5,KR2) eENTER LGADING FLAGs BADORe & EADOR 
7514 2% * $929 CZ 02 SSSF FSSi iA LyOcS*exR2 eSET XR2 AS INDEXING POINTER 
FSiS Se ik USE IK BLOCK BYTE * S92p BA C1 59 7582 ST SAVKR16e ARZ—OXRE 
T5216 * eo S930 AG Gk 64 SC F382 BRS SAVARR(eXR2 PeWUNC 2eXR2) oINCR REY ALCOR TO BYPASS FLAG BYTE 
FSLY « ae 2, B2exK WELL NOT BE DISABLES UPOw ENTRY INTO = : 5934 BE 80 64 7584 TEN LFLAG( .XR2I -X* GO® LIF PROGRAM 15 TO BE LOADED INTO C-Sa 
~ o- ¥Si8 THE CONTROL STORE LGADIAG ROUTINE = 59437 ©2 90 OF 758s Jt TST B2 INCREMENT RETURN POINTER & DETERMI NE -——————-———— 
Sis 2 mF BESSA AE OL GL Fe F586 ALS SAVAR:.€ pARZ) -FOUR CZ. XR2) @ OF BYTES TG TRANSFER. EF NOTs 
E20 # 4% 38 SZXX €7iL NOT BE DISABLED UFON ExIy FROM + 593FE GS 01 66 7S87 L SADORESKRZ) oXR1 BYPASS THES AREA 
7521 #@ THE CGNTROL ETGRE LOADING KROVTE AE Ms 5942 aF Of 66 66 7es8ea SLO EADGR(,XR23,PADDREZeXRZ) eDETERMINE NUMBER OF DATA BYTES 
7522 % *  ° 7589 = TO BE ENTERED INTO CONTRO STORE & 
7523 Hezpe @ FILL 4-TH 256 BLOCK wEiTH A8cS O fon ADDRESS) i 5945 AE 01 68 6C F590 ac ERDOR(,XR2},WUN( 2eXR2} CHECK TG SEE EF AN EVER RUMBER OF 
7524 ¢ (iF PRESENT} mY Ls 7591 
7525 ¢ 3092 «6S FILL 3-ROD 256 BLOCK wEIT# BOS 5 £ON ADDRESS} £ 598s 3c GO SAS3 75G2 TSTB2 YE STSLKeX* CG* ZERO GUY STGIK FLAG 
7526 2 {IF PRESENT) eS 594D BS 460 64 7593 YBN £ PLAGE oXRZ Fe K*G0* 
752T «& 3e2* 6 FILE 2-nND 256 BLGCK wItTH 80S 6 {ON ADDRESS?) * ; S950 CG $O SGE4 7598 BF SKIPPY K 
7526 # €iF PRESENT? ef 5954 0C 0: SESF SACG6 7595 mvc GEY 1KBt+5{ 22 e SAVARR 
7529 = 302% =F FILL 1-STt 256 BLOCK yivH BCS 0 LON ADDRESS? * — 595A Oc CO Saad S9EAR 7596 GETIKB MYC STGiKCL Pet 
7530 * eas 5G60 AE O01 51 6C Ss? ALC SAVARRE « XRZ) eMUNL 2eXR2Z5 
F531 al €* 59664 88 20 6é 7398 SKIPIK TBN LELAGCeXRZ)e X*Z08 CHECK IF ATYT-15 TO BE DISABLED 
7532 % L*® NOTE - THESE PARAMETERS MUST BE ABSENT IF FLAG = 5967 F2 10 Of 7599 JT FsTSSe ENABLED ON ENTRY INTO LOAD RIN» 
7533 * BIY G0 IS OFF ae 596A FZ 58 80 7600 LESOIS Sia X9 gO" oSEGE EF YES. CISABLE ATTCHMENT 
7534 4 a €. $36D F3 58 CO 760i LCSENA SIFQ = K*CO*eSTQE ENABLE ATTCH. RESET CONTR ST WD 
7535 % ee NOTE ~- IF A BLOCK OF CONTROL “TCRE IS TO BE FILLED *. 5270 ac Gi 63 65 7662 MC CSWORD( oXR2}eXS000(2¢xR2} COUNT TO ZERO> IF NOTe BYPASS « 
7536 ¢ WECH BOS Oc THE PREVIOUS SLOCK OF 256 MUST as! 7603 
7537? «@ ALSO @E FILLED, IeBe NE GAPS IN ADDRESSING ! t SeFe 3a 49 0208 7606 YSYSS* TBN SBYTEQoX #40* eTEST SSNO1 CLOOP ROUTI RES ON 
7538 4% e ~ S376 F2 90 14 7605 IF TSTRST eJUKP TF NOT 
7539 * 3% NOTE - IF A PROGRAM 15 TG BE LOADED STARTING AT BS SOTB 3B Of 0234 7606 TSN SOYTE2:SS847 etEStT SSe if ON 
7540 % THE BEGINNING GF & 256 BLOCK (-00—- BCUNDAYS é. S97F Fe $0 oo %eor JF ¥STRST JUMP IF NOT 
754k = @ND THE REST OF THAT BLOCK 15 To BE LOADED *. a $962 Bp CO 69 GAGS F608 CLC CSLDE Le KAZ} GPRTN e TEST CuoSe LOADED For ROUTINE 
S42 4% WITH SOS Oe THE APPROPRIATE BIT 4-7 SHOULD wo 5987 ©2 8i S23 7669 JE ENDF EL. oJUMP IF CONTe STGs LOADED 
7545 % BE TURNEO ON. IF MORE CCATROL STORE ES TO SE. €. 5e8e BC 50 69 OAGS Ve190 MYC CSLDOC1LoX 2) sPRTN sMOVE IN THIS RIN: NODe 
T7504 % FALLEO with BOS Ge SEE 2% NOTE> a 76ii 
7545 % ®. Svar Be 60 G4 76l2 TStRst Wear LELAG (eX RZ» oX F606 eT EST FLAG BYTE 
7546 4% NOTE ~ FLAG BITS 263 IN CONJUNCTION SITH BIT 0 CAN * C 5992 F2 92 04 Fats JF 3STHO *DON* T LOAD OP cEC fF ETHER ON 
7Sa7 «@ BE USED TO LOAD CONTROL STORE ONE 256 BLOCK + 59953 CO BF S036 7614 g LDOP GG tLCAD OP DECODE REGS 
7588 % at aA Tite TN SEQUENTIAL CROERe ae 59939 B86 8G 64 7615 TSTB0 TEN LFLAG( yXR22,X* 808 elf NO PROGRAM TO BE LOADED GO AND 
TS4E #@ EXAMPLE USING ONLY THE FLAG SYTES:? ee 4 $$9C Fe 90 Li 7616 JF FILLCS FILE CONTROL STORE WITH BOs O 
7550 © i~ST ENTRYS FLAG = DC Kisrtor® * 7617 
7551 2=ND ENTRYS FLAG = OC XL2* Bet sl SO9F 7: 58 Gi 7618 LIMsS LO 1g .XRib »CYSTOR ei Gap THU BYTES OF CONTROL STORE 
7s52 % Z-RO ENTRYS FLAG = OC mLi°84! %. £. 59a2 D2 01 G2 7619 LA 26 XR1Pe XR1 eENCREMENT POINTER TO NEXT CS wORD 
7553 &=TH ENTRY¥S FLAG = OC Xti* aBe *: : S9AG AE O07 G63 6C 7620 ALC CSWORD(,XR2),WUNCZoXR2) ecENCR COUNTER TO NEXT cs wORG “ 
i a 
DATE OFIULTE 25t«cTt7s VSJANTS6 PROG ID 9894-2) pate O77 JUL7S gota LSLAN 7S PROG 86 CB9i-2 
EC NO. 825023 82 2032 825034 PAGE 62 EC NO. €a25023 &2 & 825034 PAGE 624) 
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PART NOG. 4224255. 18M MAINTENANCE DIAGNC(STIC PROGRAM PART NO. 4234255 
PAGE 63 | PaGE 62a 
s9i2 OLSPLAY ADAPT& TEST # 8912 DISPLAY ADAPTER TEST 
Poy 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ; ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
S9a9 aF 01 68 6F 7622 SLC EADOR( sXR2) eTHOLSexXRZ} eDECREMENT DATA SYTE COUNTEReIF alt: ‘ SAG) DOF 40ESCSEZER 7683 
S¢9aD EO 01 60 : 7622 BN2Z LIACSEeXR2} CATA NOT TRANSFERRED, REPEAT. SA4?7 16647960 Sata 7684 inSWR 5c XL.4°1 £04 79004 eCONSTANT FOR SETTING uP 
7623 a 7685 * INSIDE WRAPS (NO LINE SEL o? 
S9e0 aD C1 63 6E 7624 FILLCS CLE CSWORD( ce XR2)eXSIGO(2.XRZ} oLESS THAN 256 WORDS IN CS? fe S448 0000 SA4C 7686 BOSAOR OC 2°00 
S964 F2 02 97 7625 JNU BLOCK2 If NOT. GO TO NEXT CHECK. ' Sa4o 00 SA40 7687 STGIK oC XL2* 00% 
59537 B& O1 64 7626 TEN LF LAG Cox RZ) oX* O18 ofS *FIit To ENO GF 1-ST BLOCK® FLAG |! 7688 
S9BA EO GO SC 7627 BF ENDF iL Ce XR2Z} ON? IF NGTs BYPASS Fit. | €:: 7688 
. 5980 CO 87 S9Ci 7628 8 FICLFF 7688 
7629 SAGE AD 01 63 71 7689 BLOCK2 CLC CSWGRD( oXR2) oXS200(2exXR2) eL ESS THAN S12 wOROS IN CS? 
7630 SAS2 F2 02 OA 7690 JNL BLOCKS iF NGT.e 60 TO NEXT CHECK. 
S9ci OC O1 SA4C SAC 7631 FYLLFE mvc 80S ADR{E 2). CSWORD SASS B8& C2 64 7691 TEN LFLAG(XK2)0X* 02° e—fS "FELt TO END OF 2-ND BLOCK* FLAG 
S9C? 38 OC SA4B 7632 SSF ECSAOR—1 eX*OCe SAS& EO SO 3C 76S2 BF ENOF Iie XR2) ON? «IF NOTe BYPASS Fitis 
$9¢C8 81 58 aD 7633 Lia BOSADRC ce XR2} eCTSTOR el DAD CTRL STORE WITH BOS O (oN i SASS CO 87 S9Ci 7693 8 FILLFF 
“ $9CE AE 01 63 6C 7634 ALC CSWORD( + XR2I0WUN( 20XRZ) ADDRESS) TO A 256 BLOCK BCUNORY. , 7694 
$902 89 FF 63 7635 Ter CSWORD ( oXR2) ex* FFE ee SASF abd 01 63 746 7695S BLOCKS CLC CSWORDCE o XR292XSSO0(2eXR2) oLESS THAN 768 wOROS In CS? 
S205 EO $0 22 7636 BF FILLFF( s xRZ3 } € SA63 F2 02 OA 7696 JRL B.OCK4S IF NOT. 6O TO NEXT CHECK. 
$908 EG 87 1i1 7637 8 FILL CS(.XR2}) / SA6S BSB 04 64& 7697 TBN LFLAG( eX F23 eX*048 eIS *“FILt TO END OF 3-RD BLOCK® FLAG 
7638 ; SA69 €O 30 3C 7698 BF ENDFIL(¢ » XR2} ON? IF NOTe BYPASS FILL. 
5908 BS 10 64 7639 ENDF zt TBN LFL AGC XR29eX* 108 eCHECK IF ATTACHe IS TO BE DISABLEDY | i SA6C CO 8&7 S9c1 T6389 8 FILLFE 
S9DE F2 10 OA 7640 ST RESTR ENABLED UPON EXIT FROM THE LOADER. i 7700 
S9Ei F3 58 &O 7641 $10 X*® 60" sSiai IF VES. DEISAB/ENAG ATTACH. & RESET ; SA7G aD O1 63 76 7761 BLGCKS cLC CSWGROG 6 XR236XS40002exR2) eh ESS THAN 1024 wOROS IN CS? 
SSE4 F3 58 CO 7642 s1a x*CO*,SIOI THE CONTROL STORE WORD COUNT, IF £ SA?74 F2 O2 GA F702 JNL BLOCKS IF NOTs TERMINATE LOADING. 
S9E7 AC O01 63 68 7643 MVC CSWORD( eXR2) eXSO00(2eXR2)} NOTs RESTORE xR1 & xXR2Z6 tO SA77 88 08 64 7703 TEN LFLAGC es XR2)0X#8O88 eTS “FIL2 TO END OF 4=TH BLOCK FLAG 
T6446 fo te SA?A EO 90 3c 7704 oF ENDFIL(,XR2) ON? IF NOTs BYPASS FILL. 
SSEB 38 03 ©O20a 764S RESTR TSN S8YTE2¢SSw17 eTEST SSw 17 GN { he Sa70 CO 87 S9C1 7705 6 FILerr 
SEF F2 10 03 7646 JT RESTOR «SKIP NEXT INSTRUCTION IF SO 7706 
$9F2 BC 00 69 T647 Mvi CSLOC+xXR2920 eCLEAR CONTe STGe LOADED FLAG : SA8Bi 3B 20 SA4D 7707 BLCCKS TEN STG? KeX* 20° SHOULD SECOND FEY BE LOADEC? 
SSFE C2 03 O000 7648 RESTOR LA Rome aXKI eRESTORE XRioXR2e & AND RETURN TC g SA8sS CO 96 Sadi ?708 BF BLOCKS SR IF NOT 
59F9 C2 02 0000 76a9 La H-#eXRD CALLING ROUTENEe : SA8e AD O1 63 78 7709 CLC CSWORD( a XR292XSS500C 2. xR2) LESS THAN 1280 wDS IN csze 
S9FO CO B87 0000 7650 REYSR & to = Sa8& F2 O02 OB 7720 JNL BLOCKS BR IF NGT 
7652 SA90 88 01 64 7712 TON LFLAG( .XR2) -X*O1° ES*FILL TO ENDOF 1ST SLCCK* ON? 
: 768i . Sa93 CO 90 SSDE 7712 BF ENOF IL BR IF NOT 
Bespin as 7651 a SAS? CO 87 S$9C1 7713 6 flLiLFF — 
: 7ES2 KEKKEKEEE SEES SKEAEESES OE SHEET SEE EEOED j ce 7714 
\ 76S3 * PROGRAM DEFINITIONS AND CONSTANTS SABAH ARE AE HHS EEA ARARASSSA KSEE LE S498 AD 02 63 7a 77aS BLOCKS CLC CSWORD Ce XR296XSE00(2exR2) LESS THAN 1536 WOS IN Cs? 
' TESS KERETESEEEE SESE SEESSEESLABEREE EEEEERE os SASF F2 02 OB 7716 JNL BLOCK? BR IF NOT 
7685 eA. SAAZ B& 02 64 7717 TBN = LFLAG(eXR2).xX*02" IS*FiiL TO END GF 2ND @LOCK* GN? 
7685 SAAS CO 90 S908 7718 BF ENOFIL BR IF NOT 
5a01 5000 SA02 7656 CSHORD OC ¥L2°S000° a Saas CO 87 $9C1 771¢ 8 FILLFF 
SA03 00 SAOQ3 7657 LFLAG DC  XLif0e { ee 7720 
$a04 G000 SAOS 7658 BACDR OC xL2*o° { THESE fust BE TOGETHER | SAAD AD O01 63 7C 7721 BLOCK? cLC CSWUGROC eXR2)eXSTOO(2SeXR2) LESS THAN 17¢$2 wOs IN CS? 
SAQ6 6000 SAO? 7659 ESODR OC xrL]°*o0¢ ( e Sasi F2 02 06 7722 SNL AGOCKa BR IF NOT 
Sa0s 60 SAQG& 766C CSLOD oc xL1 * 0° eoCONTROL STORE LGADED FLAG ae SA84 8B 04 64 T7723 TEN LFLAG( eX R2 ) oX*048 IS*Fyit TG ENO OF 3ROD BLOCK *ON? 
76613 i SAB7T CO 90 S90B 7724 BF ENDFit BR iF NOT 
7661 | és S5AB8 CO 87 S9Ct 7728 8 FILLFF 
Sa09 5000 SAQA 7662 XS000 OC xtL2*S000° x*E900* 1 ' 3 7726 
SA08 01 SA0B 7663 euUN oc xLi*o1e x*0G0018 { | SABF AD 01 63 7E 7727 Backs cic CSWGRD( s XR2) eXS800(2exR2) LESS THAN 20468 WDS IN CS? 
Sa0c $100 SA0D 7664 X51900 oc XL2*S300¢ x*Sloo* tl | £AaC3 F2 G2 oO8 7728 JNL &.OcKS BR FF NCT 
SAOE o2 SAGE 7665S TWO oc XLi*o2* X*9002° ti THESE MUST BE TOGETHER 1 €; SAC6 88 O08 64 7729 TEN LFLAG(exXR2) ox* og ES*FIit TO ENO OF 4TH BLOCK “ON? 
SaoOFr S200 SA10 7666 X5200 Oc 4. 2* S200* x*S200¢ F SACS CO 90 SSCB 7730 6F ENDF It BR IF NOT 
SAI3 04 SA1l 7667 FOUR oc xLicoge X*O0004e { | SACO CO 87 SOC: 7731 8 FILLFeF 
Sal2 $300 SA13 7666 xXS200 OC 1.2°S300° Xx*S3G00¢* = ' +: 7732 
SA1& 5400 SA15 7669 xS400 oc XL2*S400° X*5400¢ | Sad! 38 40 SA4&D 7733 BLOCKS TBN STG1Kex* ace SHOULD 3RO FET BE LOapED? 
SA1L16 S500 SA17 7670 xSS00 oc XL2* $S500¢ nas SADS Co 90 S821 7734 BF BLOK23 BR RF NOT 
SA16 S600 SA19 7671 xS600 oc XL2* 5600 * ; €: Sap? Ap 01 63 80 7735 cic CSWORDE» XR2 I-XS9O0(2,xR2) 2 ESS THAN 2308 WoS IN ¢S? 
SALA 5700 Salp 7672 x5700 DC *L2¢5700¢ | SA00 F2 O2 OB 7736 SNL &.0K16 BR IF NOT 
Saic $800 SAID 7673 xS890 OC *L2°S800¢ —s SAEO BB 01 64 7737 TBN LFLAG( 2s XR2 § oX* OF * IS*FILL TC END OF IST BLOCKtON? 
SALE 5900 SAlF 7674 xSS00 OC XL2° S900" ; €.. SAE3 CO 90 S908 7738 8F ENOF It BR IF NOT 
SA20 SA00 5A21 7675 xSa00 OC XL 2° SAG0 8 , SAET CO B87 SSC1 7739 e FILLFF 
Saz2 5800 SA23 7676 XSB00 OC XL2°5500¢ i ; 7740 
SA24 5C00 Sa2S 7677 x5c00 oc x» 2° Sc0Qr c. SAEB AD 01 63 82 77461 BLOK10 CLC CSWORD(.XRZ)5XSAOOL 2eXR2) LESS THAN 2560 WOS IN CS? 
SA26 $D00 SA27 Fe7ea xS000 OC XL2°*So008 SAEF F2 02 08 77ae2 JNL BLOK3 1 BR IF NOT 
SA26 5E00 SA29 7679 XS5E00 oc XL2°*SE00+ ; SAF2 BB O02 646 7743 TBN = _LFLAGCoxXR2)ox* O2¢ IS°Flie TC END OF 2nD BLOCK* ON? 
SA2A SFOO SA2B 7680 xSFo0 0c XL2°SFOO¢ © SAFS CoO 960 5908 T7464 BF ENDFitL BR IF NOT 
Sa2zc 6060 Sa20 7681 xG000 oc X~L2*600G6+ : SAFS CO &? 59C1 T7745 8 FILLFF 
SA2E DSD6ESES40E7E 740 SAB 7662 MICOP Oc CLILYROUT XX XKXE ' . F7aé 
SA36 EVE7TET 7662 €. SAFD AO 01 63 84 7747 BAOK11 Circ CSWORD( © XR2) oxX5B00(2,.xR2) LESS THAN 2816 WOS IN CS? 
SA39 4004C9C 309064 M6 SAQ6 VEB3 KICPRT DOC CLIS* MICRO OP TEST? $801 F2 o2 08 7748 JNL @LOK1 2 BR IF NOT < 
OaTE OF SULTS 25 Tt 7s ISJANTS PROG 10 0891-2 DaTE GO7JUL TS 25cCt 75 1S45AN 7S PROG Id 6891~2 
EC NG. 625023 82 5032 6250346 PAGE 63 EC NO. 825023 82 £037 825034 PAGE 63a) 
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FART ND. 42346255 1BM MAINTENANCE DIAGNCSTIC PROGRAM PART NOe 4234255 
PAGE 64 bes PAGE 64A 
8912 DISPLAY ADAPTER TEST if e912 DISPLAY ADAPTER TEST 
ERR LOC OBJECT Cove ADOR STNT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SGURCE STATEMENT 
$804 B& O04 64 T7493 TBN LFLAGC eX F2) oX*#04* IS*FILL TO END OF 3RD BLOCK*ON? c SS8CE CO 87 O2iA 7817 8 PRINT e SPACE 6 
§807 Co 90 s9c8 7780 eF ENOF Ig. BR re NOT 58D2 96 5802 7818 oc XL1°96° 
s80s CoO 87 §9C1 T751 8 FILLFF S$e03 cO 87 G222 7a19 8 HALT e@ERROR HALT 
7782 qu SBD? 31400 S5B08 7820 PM4& Dc XLZ*2400% 
SBOF aD 01 63 86 7753 SBLCKIi2 CLC CSW ORDCe XR2 30 X5COOL2sxR2) LESS THAN 3072 WOS IN CS? 5809 CO 87 6216 7821 8 LINK eEXIT ROUTINE 
‘6813 F2 o2 oB T7754 JNL BLOKIS BR IF NOT ; 7822 
7 S5E€16 B88 08 64 77s5S TBN LFLAGle XR2)0X* C8* ID*FILtE TO EXO oF 4TH BLOCK® GN? “ $800 C2 01 C000 7823 PARI LA a— 4%. XRi eRESTORE XR1i 
$819 Co 9G 5908 ?756 BF ENDFI£. BR IF NOT 5BE1 cO 87 OC00 7e24 PMS 8 koe eRETURN TO MAIN PROGRAM 
Se1o co 87 S9Ci V7Ss7 8 FILLFF ane 7825 
7756 fs SBES 0002 S5BE6 7826 x0002 DC 290002" 
5821 38 80 Sa4D 7759 pBLCKi3 TSN STGiLK eX* 80% SHOULD 4TH FET BSE LOADED? ; 7827 
S@€25 Co 90 5908 7760 BF ENOF IL BR fF NOT ‘ 7828 eb AGRE ARES EEEREGEA ERR GLARE ERAS SER EREK CEH REEETT EH ERET ES ERE RES SEES SESE EE 
5829 aD O01 63 88 T7761 clL¢ CSWORD( es XR2}eX5S00 0 2e%RZ} LESS THANS328 wOs in Cs? ¢ 7a2S * HOBH ~ HDBL *® * 
5820 F2 O02 OB 7762 JNU 2.Gxi4 BR IF NOT 7830 eeeeeESeRSERRBH «SUBROUTINE LISTS CONTENTS OF SELECTED HOB*S » 
SE30 88 O: 64 T763 TBN LFLAG( eXR2) oXe O22 IS*FILL TC END OF 1ST BLOCK *ON? 7831 *% CALL SUBROUTINE 8Y - * 
$833 CoO 90 §908 T7764 BF ENDF IL BR fF NOT i s 7832 % 8 HDBH LISTS HI HOB‘SS s 
S837 CO 87 59C1 7765 B FILLFF 7833 * * 
766 7334 8 HDBL LISTS UG HOBPS 2 
S638 AD 01 63 8a 7767 BLGKIG CLC CSWORD(sXR2)eXSECO(2.xR2) LESS THAN 3584 WOS IN CS? €3 7835 * = 
S5@3F F2 O02 O08 V76s JNU BL OK15 BR IF NOT : 7836 Ae SHE SEEN SE SEAEGKEEREAPERRRAREAE GEE ERERE BHEAEESHS SHS YSE ES SRAR SRE ELS HAO EERE 
S€a2 68 G2 64 T7769 TSN LFL AGC eXR2)2X*02? Is*FILL TO END CF 200 BLOCKS ON? re 7837 
S$B45 CO 90 $908 7770 OF ENDFIL BR IF NOT - SBE7 34 O& Sc78 7838 HOsxH st SARR+3» ARR eSAVE RETURN ADDRESS 
se49 co 87 SSci TY7% & FILLEE SBEB 34 01 SC7O 7839 Sst SXR1+3e0 XRi eSAVE XR 
772 SBEF C2 01 SCFS& 7TR40 LA HDONGA,.XKR1 eL QAO HE HDB HEADING ADDRESS 
SB84D AO 01 63 &C 7773 BLOKIS Cic CSYORDE eo XR2) eXSFOO(2eXR2} LESS THAN 3840 wOS IN CS? ‘ SaF3 F3 $8 CS 7841 $;0 x8 COe eSIOL eENABLE ATTACHMENT 
§851 Fe 02 08 TITS JNE BLOKI6 BR KF NOT ° SBFS6 Fo 87 OF 7842 J STHD 2GQ STORE HEADING AODRESS 
§$8s4¢ 88 04 64 T77s TSR LFL AG CeXG23eX204* IS*FILL YO EXD OF 2RD BLOCK*ON? in 7843 
Sas7T co SO 5908 7776 GF ENOFEL BR © NOT : i S5eF9 34 O08 SC7S8 7844 HOR ST SARR+ 3 cARR eSAVE RETURN ADDRESS 
5858 co 8? §$9¢1 VI77 8 FILLEF 5BFO 34 01 5C70 78e5s st SXR143eXKRL e SAVE XR 
7776 / 6c01 c2 O01 SCBE 7846 LA HONG o XR} eLQDAD £0 HDG HEADING ADORESS 
SS85F aD Of 63 SE 777E BLOK16 CLC CSWORD( sXR2}<X6000(2+xXR22 LESS THAN 4096 WOS IN CS? c SCGS F3 S8& 80 78467 sic X®°sB0® .<SIGl eDISABLE ATTACHMENT 
5863 ¢c0O o2 59086 77380 CNL ENDF it. ’ BR IF NOT . , S5cOS 36 G1 5C38 7848 STHO ST HOADRoXRE ePUT ADDRESS IN PRINT COMMAND 
5867 BS 96 64 7781 TAN LFLAG( eX 2} oX2068 IS*FILE TO END GF 4TH BLOCK 7ON? 7849 —— 
§86a €O 90 $908 77Ee2 BF ENDF IL BR IF NOT ee SCOC 30 48 SC7A 7850 SNS HDisHKL BO STORE ALL 16 HDS *S 
Sace co SB7 §9Cf 7783 8 FILLFF ay §C10 30 a9 SC7C 7eSi SNS HO2 , O81 
7784 OSERSEAERRESEAKEREARES SASHELESAAGCES HETTEKERKSESLSTSS EAA ARARSRSEASARERSELBRL SSE §C14 30 4a SCTE 7a52 SNS HO3»sHOBS 
77Ees = SUBROUTINE PRINTS we $5C186 30 48 S5CcBO 7883 SNS HDs, HOBS 
7786 SEEKER SRS TERESA HSS OLHRESEES ERE He SLRAGHS SHEERS ESSER AET EEE S SSS SERENE §cic 30 4c Sc @2 7884 SNS HDS eH#264 
7787 * COMMON SUBROUTINE FOR ALL RCEUTINE TO PROVIDE ERROR PRINTOUT. + 5C20 30 40 5C64 7855 SNS HOS .HDSS 
776a * LIRKAGE TO PRINTOUT IS: B PREINTM = i SC24 30 GE SC8&6 78s6 SNS HD? o HDE6 
7789 & oc XL12* 1D¢ WHERE EO IS ERROR * §C28 30 4F SC8&E 78s? SNS HO 6 HDB? 
7790 * oc XL1® XX* HERE XX IS LENGTH *. 78ass 
T79i @ oc aL 2tm} #HERE © IS MSG ADOR s! GC Sc2c cO B87 021A 7859 8 PRINT ePRINYT HDB*®S HEADINGS. 
7792 OP ESEHE KES ES KEKE VES CESS KAS AETHKEAEKS EFEELEE KEE EK TES ESSAERERSERES SHEKEERTE: §C30 81 5c30 7860 BC MLEe Ble 
se72 34 08 SB8ES T7793 PRINFM ST PNS 430 ARK e SAVE ARR | $C31 oc $c3i 7861 oc Ir*gee 
S876 34 Of SBEO T7794 st PxR1+3.XK1 eSAVE XR : ae sc32 S037 8C33 7862 oc AL2 CHONGHMA)D 
S87A 35 01 SBES 7795 u PMS+32XR1 cLOAD HALT CNDE PARAMETER ADDR | Sc3@ CO B87 O21A 7363 B PRINT 
SB87E OF O1 SBE4 SAIL V796 alc P454+3(02),FOUR ePOINT TO CORRECT RETURN ADOR | ‘ s$c38 6: 5C38 7864 oc XL2*81* 
$884 1C 00 SB89c 00 T7737 Pi mvc PM3(1 3 eO Ce XR) e INSERT ERROR ID IN PRINTOUT : > SC39 36 5c39 7865 occ te1*see 
§$B89 1C 00 5808 O00 T1798 MVC PM4(013.00,XR2) e INSERT ERROR 1D INTO ERR HALT | 5C3A S5CBE 5C38 7866 HDADR OC AL 2¢C HONG) 
Sese 1c 02 SHSGA O3 799 evC PM3-20363e XR1) eMOVE IN LCGTH ANO MESGe ADORe : 7867 
78900 ; ce: §C3C C2 01 SCFD 7368 LA HDONG8-45 eXR1 eXR1 = 1ST HDB POSITION 
5893 CO 87 O21A 760% 8 PRINT ePRINT ERRGR MESSAGE i $c40 c2 G2 SC79 7869 LA HDI—-LeXR2 «XR2 = 1ST HDB DATA 
s8s9e7 C2 5e97 7e62 oc xLicc2e | T7870 
$898 00 S898 7803 DC ivr? oo? sLENGTH FILLED IN ' €> Sc4é 34 O02 SCS4 7871 AGAIN ST RY1eXRi eSTIRE UNPACK DESTe ADDR 
5B99 0000 Sa9a 7804 oc m2°00008e eADDRESS FILLED IN 1 §c4s 34 o2 SCE2 7872 st RY ZeXR2 «STORE UNPACK SOURCE ADOR 
$898 33400 589C 76805 PM3 oc XL2°12 400° i S$c4c cG@ 87 O21E 7873 8 UNPACK eGO UNPACK ONE HOG 
§e90 1¢ GO 65F2 00 7806 avc ERRHLY€196O€ oXRi? eMOVE IN ERROR HALT *, 53CS0 062 S$C50 787% oc Mmirtole 
SBAS OC 00 6SF1 OAC 7eoTt bay C ERRRTN(1 >, PRIN eMOVE IN ROUTINE NO, *, S$cS5i o0oc0 5CS2 7875 RY2 oc AL2 (%—t) eSQURCE ADDRESS GETS FILLED IN 
SBAB Cz Ol 6ELL 7808 LA MT ABLE eXRi cEINSERT ACDORESS GF TABLE * $C53 9000 5C54 7876 RY} oC al 2¢8—-%} eDEST. ADDRESS GETS FILLED IN 
SBAC 21D 01 SB9A 00 TE0S LOOK Cec PHI~2,00 2, XRid eSEARCH TABLE FOR MESSAGE ®, © Ta7? 
$881 Fe 81 O7 7810 JE MFINO eJUMP IF FOUND *: S$cS$5 E2 62 O01 7878 La 2€eKXR2A} 0 XRS eINCREMENT DATA ADORESS 
56584 O02 01 04 7eli LA &( -XRi} XR? e INCREMENT TO NEXT MSGe * ; scSs 70 FF Oi 7879 Cut IG oXR1) eA FFE e TEST FOR ERD 
SeeT co 87 Se@ac T8i2 8 LGoK G9 LOOK AGAIN *. ae 5¢c58 Fa 81 O07 7880 JE COHWIS eo gUeP LF SO 
$888 iC 03 SBCS D2 7eis @FIND wevCc #VLG45.2 (2,XR1) e INSERT MSG. ADOR. * : SC5E D2 023 03 788i LA 3EoXRI) oXRY eNCTY END» INCRe xXR1i TO NExT ADOR 
§$8scoO OC O09 6601 O0¢O T6144 MVLG vc ERRLOG (3 0) sa-% eMOVE IN LOG CUT MSGe * Sc6l cO 87 SCae 7e82 8 AGAIN et coop 
ssc6 Cy 50 6218 Tets Tz0 PCHK, ATT Chix elf ATT. CHK. PRINT TYPES ¢ 7883 
seca CO 87 6#E 7816 8s €LPo GO PRINT ERROR LOG * §¢C65 CO B87 O2iA 7884 DOHIS 8 PRINT 0GO PRINT HCBSS ™ 
‘ DATE O7HMILIS 25 ccT?TS ISJANTVS PROG 10 0691-2 © are O7 LTS 28 cCcT7s ISJANTV6 PROG 10 0891-2. 
EC NO- 6&25923 82 £032 625034 PAGE _€C NO. 825023 82 £032 825034 PAGE 64A 
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TBM MAINTENANCE OIAGNCSTIC PROGRAM PART NOs 4234285 
PAGE 6s < PAGE 65a 
8912 DISPLAY ADAPT ER TEST eo12 DISPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
SC69 686 5C69 7685 DC xL1°8E* er 5074 1419 5075 7937 DC XL2*14198 
SC6A 36 S5C6A 7886 pc IL1°S4e SD76 F3IA Sp77 7938 oc XL2°F3,A° 
SC68 SD2A he SC6c 73887 DC AL 2(HONGB) 5078 7318 S079 7939 DC XL 2°7318% 
SC60 C2 91 O000_ 7888 SxXR1 LA #2 XR= eRESTORE ALL REGS AND RETURN. f SO7a E117 5D76 7940 oc XL2°E21C8e 
S5C71 C2 92 0900 7889 SxR2 LA %=* oXR2 S07C $41D SD70 7941 DC XL2°941D8 
SC75 CO B7 0000 7890 SARR 2B soe S507E TLE 507F 7942 oc 2°7T11E8 
7891 t 5080 511F SD8i 7943 pc XL2°511F8 
: SC79 0000 SC7A 7892 HD1 oc xL2° 00068 5082 2200 5083 7944 x2200 DC xL2¢22005 
SC76 occO §CTC 7893 HOE oc -XL2°00002 5084 2201 5085 7945 oc XL2°*2201° 
SC7D C000 SC7E 7894 HOD3 oc XL2°ucsos S086 2202 Sp87 7946 Dc xL2°2202° 
SC7F 0C0d SC 20 7a95 HD4 pc XL2*°0000* S088 2203 5089 7947 pc M%2°22038 
5C81 0000 5c82 7896 HDS oc ¥L.2°0000¢ 5084 2204 5068 7948 oc XL2*2200° 
5C83 CC00 5C84 7897 HOE oc XL2*0000° 508C 2205 SD8D 7949 x2205 oC XL2¢2205* 
Sc8S 0000 5C86 7898 HD? oc x.2° 00008 SD8E 2206 508F 7950 pc ML 2°2206* 
SC87 0000 5C88 7899 HDS oc x%12*00008 5090 2207 5D$1 7951 oc XL2*2207° 
SC89 C1C4C 4094060464 Sc8F 7900 oc CL7* ADDR - ° : 5092 2208 5093 7952 pc xL2*2208¢ 
SC90 FOFOACFOFa0F 2 SCBE 790I HONG 0c CL.47°00 01 02 03 04 O05 0& OF 08 OS OA OB OC OD OE OFe 5094 2209 5D95 7953 oc XL 222098 
5C98 40F OF 340F 0F 44 (FO 7901 ; 5096 220A 5pS7 7954 oc XL2* 220A" 
SCAO FS&0F OFE40F OF 140 7901 é 5D98 2208 S099 7955 DC ™L2°2208 ° 
SCAB FOF84 OFOFS40F (Ci 7901 . 509a 220c S5D9B 7956 oc xiL2*220C* 
SCBO 40F 0C2460F 0034 €0 7901 S09C 2200 SD9D 7957 pc XL 2*2200¢ 
SCBB C440 FOCS40 FOC € 790i ¢ SD9E 2206¢ SO09F 7958 DC XL 2* 220E¢ 
SCBF C1C4C40940604( §65CC5 7902 oc Q@7*aDDR — ° SDA0 220F 5DA1 795¢ oC XL2°220F¢ 
SCC6 FIFOCOF IF 140F F2 SCF4 7903 HONGA 0C CL47*210 311 12 13 14 18 16 317 38 19 3A 18 1€ 1D 16 1F* : Soa2 FF 5DA2 7960 DC xLieFre e END 
SCCE 40F1F340F1 F406 (Fi 7903 ' € +  §DA3 5000 5DA&@ 7$61 BRUO oC XL2*°5000¢ 
SCD6 FSS0F1IFE40F1F 40 7903 7962 
SCNE FiIT840F1 F946 6F x1 7903 7963 HESLEGRAKE LSA GPSREKS SSS IVSECHKSL HTL A SRLS KAEHRSESA RSE HARE SRLHALAAKRHENAHSERREAEED 
SCE6 40F1C240F1 C34 CF 7903 i & 7964 * SUBROUTINE STaTUS * ® 
SCEE C&S0F 1 CS40F IC ¢ 7903 i TSES SEK KSeKR HERES BER TRE * 
SCFS C4C1E3C1406048C SCFS 7904 oc CL7°DATA —- 8 7966 * PURPOSE OF SUBROUTINE IS TO PRINT THE EXPECTED AND ACTUAL * 
SCFEC E7E740E7E740E 7 SO2Z2A 7905 HDNGB DOC CLOTEXX XK XX MK XX XK MK RX RX XK KK KK KK ARK MM ANKE e 7967 * DATA AFTER AN OCPEATIGN AND HALT. THIS IS AN ERROR PRINTOUT, * 
S008 40E7E 740E 7E76 E? 7905 : ; 7966 * ON -HALT RESET~ PRGGRAM RETURNS TO NEXT SEQUENTIAL INSTRUCTION: * 
-~ SDOC ETAOEVETSOE7E 740 72905 7969 * § 
5014 €7E760E 7ET40E HY 7905 i €& 7970 « LINKAGES * 
SoC GO0E7E7T40E TET EP? 79085 7971 * 8 STATUS * 
5020 ETSOETETS0ETE? 7905 7972 % oc XL2°XKE eFLAG BYTE * 
S028 FF 5028 7906 oc XLI°FFS | & 7273 * * 
SO2C C8C4C2460C3060 £3 SO37 7907 HONGMA DC CL12*HOB CONTENTS? 7974 * FLAG BYTE OPTIONS = 
S036 CSOSESE2 1907 7975 * SIT Oe MASK ~S0~ PRINT *HDB ADDR. EXP AND ACT DATA * 
7908 | @ 7976 x BIT 1° MASK -40- PRINT *Cs ADOR. ExP & ACTUAL DATA * 
FOOD £HVE444S4K AS THEGAERERED i 7377 «* BIT 1Le2 ~60~ PRINT *CS ADOR & EXP OATA® 2 
7930 # SUBROUTINE LoaDaoP SERS SSOREESES HAEREEEAL ER ERE EES OKEEHESEDES EASES EES | 7978 = BIT ge MASK ~20- PRINT "EXP DATA E ACT CaTa® % 
7911 S8Ser SHeNkEeE Rene EERE ® *| @ 7979 « GIT 36 MASK -20~ PRINT *UNEXP MICRO PGM HALT: EXP. 6 ACTS&* 
7932 * LOGP = LOADS 32 OP-DEC REGS wiTH OP CODES *| 7980 « SIT 4+ MASK -08—- PRINT '"CURAR ERROR - EXP & ACT DATA* * 
7913 MERGES EREERAE BEERS EEE SH ERENESERESE ST SHE HOES EELOM EK ERSEREEAE SL ERURTEERER KE 7981 * BIT 5. MASK -04- PRINT *HEAR INCe ERR ~- EXP & ACT DATAS «& 
7916 | & 7982 EIT Ge MASK -02— BYPASS ERROR PRINT/STOP & 
5038 34 08 Sp61 79135 LOCP st LOAD2430 ARR SAVE RETURN ADORESS | 7983 « BIT 7e MASK -O1l- BYPASS ERROR HALT ® 
503C 34 01 SD5D 7916 st XXRI4+3eXRI eSAVE XRI | 7984 « * 
SC40 C2 01 SDE3 7917 LA TABLOP oXRy eSET UP TABLE ADDRESS 7985 « oC XL2°HHE eERROR PRINTOUT/HALT ID * 
$044 F3 56 B80 7928 S10 X*80*.Szror eDOISABLE ATTACHMENT | 7986 * DC ML2*°XxXX8 eEXPECTED DATA (BIT 0123/2 ON) «@ 
5047 71 59 00 7919 LOAD. LIQ 0€eXR1) eCPCEC LOAD OP=-DELOCE REG | 73987 * 
SO04A 7D FF 01 7920 cLi UW eXRID oe XtFF eLAST ENTRY? - ‘ S 7988 « + 
S04D D2 01 02 7922 LA 2CeXR1LIe XRAY e INCREMENT TABLE POINTER | 7989 * PROGRAMMING NOTES KEEP CURRENT VALUES IN STATUS FIELDS. * 
S050 CO 01 58087 7922 BNE LOKD1 eRELOOP IF NCT COMPLETES Ft 7990 ‘ 
5054 F3 58 BO 7923 SIO = X*B0*,5103 OISABLE AVTACHMENT © 7991 * ERROR MESSAGE IS PRINTED WITH THE tie_T ID CISPLAYED IN THE * 
S057 F3 58 CO 7926 SIO -X*CO® SIG! ENABLE ATTACHMENT i 7992 * HALT INDICATOR LIGHTS. RESEYTENG THE HALT WILL CAUSE THE * 
S0Sa C2 01 Ov00 7925 XXR1 LA ee XR] eRESTORE XRi 7993 * PROGRAM TO RETURN TO THE NEXT SEQUENTIAL INSTRUCTION IN THE * 
SOSE CC 87 0000 7926 LoaD2 B oe eRETURN TO MAIN PROGRAM é 7994 * ROUTINE. * 
7927 oor 7995 * 
SO62 9210 $063 7928 TAG BP OC XL 2°9210¢ eTASLE OF MICROPROCESSOR OP CHCE: 7994 FSESE VERE AGES EERSTE SLASKTAKS CHER SETS SRHBRMAS ELS $DULORSEHASASRKESARGERERE ER 
5064 2911 SD65 7929 oc XL2*° 29138 ._& 7997 
SD66 9212 SD67 7930 oc xL2° 92] 2¢ = T7997 
S068 1613 SC69 7931 oc W.2°1613" — SDAS 34 08 SFE1 7998 STATUS ST STATRE+3, ARR eSTORE ARR, XR2, XR1o & PSR 
SOGA 1414 S068 7932 oc XL2°1 4146 | €)  spa9 36 02 sFOD 7999 ST STATX2+3 eXR2 
S06C 1415 SO6D 7933 X1415 Oc ALZ°1425¢ SFLA 8060 USING STATK7exR2 
SOGE 68016 SD6F 7934 oc w.2°Bol6* SDAD C2 02 SFIA 8001 LA STATK7 oXR2 eUSE XR2 FOR INDEXING 
S070 9037 S07} 7935 oC XL2°90178 €> Spe1. 84 01 BF 8002 STATP\ ST STATX143¢ oXR2) oXRI 
$p72 4318 5073 7936 oc x. 2°aylg* SDB Bs 04 CE 8003 St ST ATPS( + XR2)ePSR as 
z | G ~ 
: | 
, GATE O?7IUL7S 2Secr7s 2S Ianze : PROG ID O8Gi+2 DATE O7JUL 75 2sccTt7s 1SJANTE PROG 10 0891-2 
EC NG. 825023 82 £032 825034 Pace 6s | EC NOe 825023 625032 828034 PAGE 65a’ 
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e912 
ERR LOC 


sD8T 
S088 
SDBE 
Soc2 
SoCc6 
Soce 
SOcE 


Sool 
Spo05S 
SoO9 
SoDG6 


SOEL 
Soe Ss 
SOE6 
SDES 


SCEA 
SDEE 
SoOEF 
SDF1 


SOF3 
Sor? 
Soré 
SOFA 


SOFC 
S5E00 
SE 01 
SEO2 


se0s 
5E 09 
SEOA 
SE oc 
SE0E 
SEi6 
SE 2a 
SE20 
5&26 
s€2c 
§€30 
SE33 
SE39 
SESF 
SE43 
SES6 
Se4c 


SES2 
SE 57 
Se€56 
SE SE 
SE64 
SEGA 
SE GE 
SEV: 
SET? 
SE 7O 
Se61 
SE 64 
SEBA 
SESO 
SESS 


OaTE 
EC NOo 


eeeoeeed0aeded7eeoesee@ees ®e 


OISPLAY ADAPTER TEST 


OBJECT CODE ADOR STMT 
35 04 ODE2 8004 
85 01 C7? 8005 
oc 00 C8 00 8006 
9C 00 46 08 8007 
D2 01 02 8008 
1C O01 SFE 01 8009 
O02 601 02 8010 
8011 
8011 
34 01 SFE! 8012 
3c 00 6180 8033 
38 02 SFE2 8014 
co 10 SFD2 8015 
8016 
CO 87 O21E 8017 
01 SDES 8018 
0083 SDE7T 8019 
SFF. 5DE9 8020 
8021 
CO 87 O2iEg 8022 
01 SDEE 8023 
oDs2 Soro 8024 
SFEE SOF2 8025 
8026 
co 8&7 O21E€ 8027 
02 5DF7 8028 
SFES SOF9 8029 
©2023 SDFB 8030 
8931 
CO 87 O21E 8032 
02 SEOC 8033 
SFE6 SEO2 8034 
6027 SE04 8035 
8036 
CO 87 O2lE 8037 
02 SEO9 8038 
5673 SE0B 8039 
6060 SEOD 8080 
0c 09 6601 65F0 6041 
OC 03 6600 6027 6042 
Oc 03 65FC 6023 8043 
OC 00 6SF2 SF £0 8044 
Oc 00 65F1 0AG 8045 
38 FO 6167 8046 
F2 90 o¢ 8047 
OC 01 6SFE 61.68 8048 
oc 00 6601 6168 8049 
38 OF 6167 8050 NoOTHE 
F2 90 OC 8051 
OC 01 6600 6168 8052 
OC 00 6601 63 & 8053 
6054 
8084 
8C 01 44 61Re¢ 8085 NOTLG 
38 Fo 6188 8056 
F2 90 0¢ 8057 
oc 01 65FE 61 £0 8056 
Oc ©O 6601 610 8059 
38 OF 6188 8060 CKLOW 
F2 90 OC 8061 
OC 01 6600 6160 8062 
OC 00 6601 61 —&D 8063 
38 OF 6189 8064 CKHIZ 
F2 90 OC 8065 
OC 01 6600 61 & 8066 
Oc 00 6601 61 8067 
38 FO 6189 8068 CKLOEZ 
F2 90 oc 8069 
O7TIULTE 2S8cct 7s ISJANTE 
825023 62 £032 . 625034 


L 

L 
MVC 
Myc 
La 
MvC 
La 


st 
MvI 
Tan 
eT 


6 

oc 
oc 
oc 


avCc 
avec 
“vc 
wvc 
“vc 
TBN 
JF 

mv 
myc 
Ten 


MVC 
savic 


mvc 
TEN 
JSF 

mVC 
avec 
IBN 


myc 
uve 
TBN 
JF 

“vc 
avec 
TON 
JF 


SOURCE STATEMENT 


ZERO.PSR 
STATRB4+3( oe XR2).XR1 
STATELC cXR2 ) 00 (1 eXRi ) 
STATP 2€ ¢ XR2}3 .1(12,XR1} 
2€ eXR1}e XR 
STATEX 01 (2 -XRi 3 

200 XR1) 0 XR1 


STATRB43e XR1 
ATTFLG.O 
STATFELe X* G2° 
states 


UNP ACK 
XL1°01°¢ 

AL. 2¢ HOGA) 
R20STATMI 3 


LAPACK 
XL2¢OR8 
AL2(HOSBA-1 ) 
A 2¢0STATM I< 33 


UNPACK 
XLitO2e 
AL 20 STATEX) 
AL2(STATM3) 


UNP ACK 
4.17 02° 
A. 2CSTATAC) 
AL2 (STAT M4} 


UNP ACK 

xLito2¢ 

AL 2CROSYCOL) 
AL2(STaT M2) 
ERRLOG(10) »e BLANKS 
ERRLOG—1 (4) » STATMS 
ERRLOG—5 (4 } eo STATMS 
ERRQHLT€1 ) eSTATP2 
ERRRIN(1 2 ePRIN 
XFL AG eX*° FO® 

NOTH! 
ERRLGG-3 C2 pe XXXX 
ERRLOG(1) -XXXX 
XFLAGe KS OF ¢ 

NOTLO 
ERRLOG—£ (2) oXXXX 
ERRLOGC 4S 5 XKAX 


STATAMC 2eXR2)eSTATAL 
YFLAGeX* FO? 
CKLOW 
ERRLGG-3(2 eo YVYY 
ERRLOG() DevyvY 
VWFLAG -X* OF 2 
CeHIZ 
ERRLOG<-1 (2) eYVYVY 
ERRLOG( 1 Js YYVY 
ZFLAGX* OF ® 
CKLOWZ 
ERRLOG-1(2),.Z2Z22Z 
ERRLOG(35 32222 
ZFLAG eX *F QF 
STATKL 


FART 
PAGE 


NGe 


eCLEAR PSR 

«USE XR1 AS DATA PCINTER 
eSAVE FLAG BYTE 

eENTER ERROR Ib FOR PRINTOUT 
e INCREMENT TO NEXT FIRLO 
eENTER DATA & INCREMENT 

TO RETURN ADDRESS. 


e STORE ADDRESS FOR RETURN 
eRESET ATTACHMENT CHECK FLAG 
«TEST BYPASS PRINTssTOP ON 
eEXIT sf SO 


e@UNPACK HI HBO ADDRESS 


@UNPACK LC £08 ADDRESS 


eUNPACK EXPECTED OATA 


eUNPACK ACTUAL DATA 


eUNPACK CONTROL STORE ADDR 


eBLANK OUT LOG GOUT 

e INSERT ACTe DATA 

eINSERT EXS. DATA 

e INSERT MALT CODE 

sINSERT ROUTINE NO. 

eTEST HI BITS UNPREDICTABLE 
e JUMP IF NOT 

eSET HI BITS UNPREDICATABLE 


eTEST LO BITS UNPREDICATELE 
efUMP IF NOT 
eSET LO BITS UNPREDICTAELE 


«SET MESSAGE ADDRESS 

HE BITS VNPREOICTASLE? 

JUMP IF NOT 

SET HI BITS UNPREDICTABLE (Cy) 


tO BITS UNPREDICTAGLE? 
JUMP IF NOT 
SET LO BITS VUNPREOCICTABLE CY) 


PROG ID 
PAGE 


4234255 


66 


a ee 


# 


66 
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we 


e912 


ERR Lac 


ony 
é 


om, 


# 


rn 


eo 


t 


ws 


c* 


i 
\ 
\ 
{ 


0391-2: 


en 





SE9T 
SE9D 
SEAS 
SEA6 
SEAB 
SEAF 
Seea2 
SEBS 
S5eé88 
SsEBE 
SEC2 
SECS 
SECE 
SED1 
SE€D4¢ 
SED7 
SED 
SEE1 
SEE? 
SEEB 
SEEE 
SEF 2 
SEF6 
Ser9 
SEFD 
SFO0O 
SFO3 
SFO6 
SF OB 
SFil 
SF17 
Seria 
5f10 
SF 20 
SF23 
SF26 
SF29 
SF2c 
SF 32 
SF35 
SF39 
SF3c 
SF3F 
SFas 
SFa&9 
SFac 
SF SO 
SFS3 
SFS7 
SFS8 
sesc 
SF SD 
SFSF 


SF6i 
5F65 
SF69 
sF6C 
SFTO 
SF73 
SFTT 
SF 7p 
SF TF 
SF83 
SF 6&7 
SF 8B 
SFSF 
SFOs 


DISPLAY ADAPTER YEST 


SOURCE STATEMENT 


OBJECT CODE ADDR STMT 

oc 01 SSFE 61 8070 

oc 00 6601 61 &F 8071 

BC 28 42 8072 STaTK1 

BC 00 45 614F 8073 

ac 01 B83 46 8074 

88 80 Ca 8075 

F2 90 ic B076 

OC 08 6OOA SF Fi 8077 

ec 36 42 8078 

3c C& 6S5F8 8079 

Qc 01 GSFA SFEE 80e0 

OC CO 65FB 60 40 808) 

f2 87 TE eos2 

88 40 Cs 80863 STATK2 

F2 90 49 8084 

oC 18 600A 6060 8085S 

3c E2 6SF& 8086 

oc 02 6SFB 60 €0 8087 

38 20 S66F 608s 

F2 90 04 8089 

3C D3 65FC 8090 

38 10 S6é6F 8091 TPS 

F2 90 04& 8092 

3c c8& 65FC 8093 

Ba 20 C8 8094 NPA 

F2 90 17 8095 

BC 32 42 8096 

BC 02 44 6186 80°97 

OC O03 6SFF €923 8098 

OC 01 6601 65FO 80399 

F2 87 36 8100 

BC 46 42 8101 STATK?T 

Fe 87 30 6102 

B88 20 C8 8103 STATKS3 

F2 10 2A 8104 

68 10 c& 8105S 

F2 90 10 8106 

Oc 18 6004 61 10 8107 

BC 46 42 8108 

3C 04 65F8 8109 

F2 87 14 811¢ 

BB 08 Ce 6111 STATKS 

cO 90 6061 6112 

OC OA 600A 6118 8113 

ac 38 42 8114 

3C C3 6sF8 8125 

88 01 c& 8116 STATPL 

co 90 61CO0 8117 

cO B87 O2iA 8118 STATP.Q 

c2 SFSB 8119 

00 SFSC 8120 STATL 

6037 SFSE 6121 STATANM 

1400 SF60 6122 STATP2 
- 8123 

ci SO 6198 8124 STATP3 

3D FO 6404 8125 STATSP 

F2 01 oO 8126 

39 0% SFE2 8127 STATS@ 

Fe 90 SF 6126 

38 FO 6187 8129 

CGO 10 SFA? 8130 

38 OF 6187 813i 

CO 10 SFA? 8132 

36 FO 6188 8133 

CO 10 SFAF 8134 

38 OF 6is8s 8135 

co 10 SFAF 8136 

38 FO 6189 8137 

O7 SULTS 25ccT7s 1SJany76 

825023 82 032 825034 


avCc 
v¥C 
mY £ 
mvc 
avCc 
TBN 
JF 
aye 
MvVI 
MVvVI 
vc 
avc 
J 
TEN 
JF 
av Cc 
MVE 
M¥C 
TBN 
JF 
MVE 
TAN 
JF 
avi 
TAN 
JF 
MVE 
“xvC 
vc 
YC 
J 
My I 
J 
TSH 
JST 
TEN 
JF 
MVC 
My I 
avi 
J 
TSN 
BF 
MVC 
Mvi 
Mavi 
TAN 
BF 
8 
oc 
oc 
oc 
oc 


Tre 
CLE 
JNE 
TBF 
JE 
TBN 
BT 
TEN 
BT 
TBN 
eT 
TEN 
et 
TSN 


ERRLOG-3 (2) »2ZZ2Z 
ERRLOG(1),ZZ22 
STATL (6 XR23240 
STATP2—1 (1. XR2) eDEVIO 


STATE IL ZeXR2DeSTATP2C oxRe d 


STATFL(. XR2 ) eX" 80 
STATK2 
STATBL(S }e STAT 
STATL ( oX 2) 054 
ERRLOG-9 eC *H* 
ERRLOG-7( 2) eSTATMI<“3 
ERRLGG-6(1 ) eSTATN3—3 
STATPL 
STATEL € eXR2 3 eX *40* 
STATKS 

ST ATBL( 25} e¢STATM2] 
ERRLOG—-9 «C# St 
ERRLOG-6(3) eSTATM2 
ROSSFieX* 20? 

TPS 

ERRLOG—SeC*L* 

ROS SF1iex*io® 

NPS 

ERRLOG-5.C# rH? 
STATEL( 0 XR2}) oX* 208 
STATK? 
STATL (eo XZ) 050 
STATAM( 2 eXR2) -STATAS]S 
ERRLOG—2 (4 }e STATM 
ERRLOG(2) ,.8LANKS 
STATPL 
STATL(.Xh2),70 
STATPL 

ST ATE Ce XRZ2D0X8208 
STATPL. 
STATFL Ce XR2Z230X*108 
STATKS 
STATBL( 25) eSTATMC 
STATL (-XR2)270 
ERRLOG6—-9 o C* M* 
STATPL 
STATFL ( eXR2 ) eX #08 * 
STATK6 

ST ATGELC12)+STaTNO 
STATL( oXF2) 056 
ERRLOG=9 eC *C* 
STATFL Ce XR2)01 
STATNH 

PRINT 

MXisiec2¢ 

L2°00° 

ALZCSTAT M4) 

xt.2* 1400 * 


PADCHK. ATT CHK 
ELPFST»Ccear 
STATSQ 
STATFEL oX*018 
STATRS 
XFLAG eX * FOF 
LoGxXac 

XFL AGe X* OF * 
LOGXAC 
YFLAG oX*Fo* 
LoOGYAC 
VFLAG oX* OF * 
LOGVYAC 
ZFLAGeX* FOF 


PART NOe 
PaGE 


eMOVE IN PRINT LINE LENGTH 
eF ILL IN OCEVICE 10°S 

eFILL EN HALT IKFO 
eTEST FOR BIT O GN 
eCONTINUE IF NOY 
e MOVE 1N HOB ADDR MSG 
eMOVE IN PRINT LINE LENGTH 
e SET CHAR FOR LOG OUT 
e INSERT HDB AODR. 
eINSER EXPe DATA 
eGO PRINT 
eTEST FOR BIT 1 ON 
eCONTINUE IF NOT 
eMOVE IN CS ADDR. MSGe 
eTNSERT CHARe FOR LOG OUT 
eINSERT ADORe. IN LOG OUT 
eTEST FOR PART 3 
eJUNP EF NCT 
SET EXP. DATA CHAR 
eTEST FOR PART 4 
e JUMP IF NOT 
eSET EXP GATA CHAR 
«TEST SIT 2 QN ALSO 
oJUMP IF NOT 
e INSERT MESSAGE LENGTH 
eCHANGE MESSAGE ADDRESS 
eINSERT ExPe IN L0G OUT 
eChEaR LO 2 BYTE 
«GO PRINT 
eMOVE IN PRINT LINE LENGTH 
eGC PRINT 
oTEST FOR BIT 2 ON 
eIF SO GO PRINT EXPe & ACT o 
eTEst FOR BIT 3 ON 
elf NOT CONTINUE 
eMOVE IN MICRO CODE wSGe 
eoMOVE IN PRINT LINE LENGTH 


4234255 
66A 


* 


Sea ta tae 


e INSERT CHAR. FOR ERROR LOG OUTS 


0°60 PRINT 

etEST FOR BIT & ON 

eIF NOT GO TEST BIT S&S ON 
eMOVE IN CURSOR ERROR MSGe 
eMOVE IN PRINT LINE LENGTH 
e INSERT CHAR. FOR LOG OUT 
eTEST ERROR HALT BYPASS ON 
e IF NOT. TEST FCR NO HEADER 
ePREINT DATA REQUESTED IN FLAG 
eERROR PRINTOUT AND SPACE 2 
eLENGTH GETS FILLEO IN 

e ADDRESS GETS FILLED IN 
eERROR ID FILLED IN 


eTZST FOR ATTACHMENT CHECK 
eTEST 1ST ERROR LOG 

eSKIP VOLTAGE MSG IF NOT 
eERROR HALT BYPASS? 


PROG ID 
PAGE 


0891-2 
664A 


J 


Pi i et et et et 


~ - 4 Z 
_ : ‘ 4 g 
, F - we 


TBM MAINTENANCE OFAGNCST IC PROGRAM 


s9i2 
ERR LOC 


SFO7 
SF 98 
SFOF 
SF a3 


Sar 
SF AB 


SFAF 
_SFB3 


SFB? 
SFBB 


SBF 


SFcs 
SFC? 


SFCE 
SFCcC 
SFCE 


SFo2 
SFD6 
SFDA 
SFOE 


SFE2 
SFE3 
tone SFES 
SFE? 


SFES 
SFFi 
SFF2 
SFFA 
6002 
600A 
6008 
600E 
6016 
601E 
6028a 
6c02c 
€034 
69038 
6040 
6048 
6050 
6058 
' 6060 
6061 
6064 
6067 
6060 
6070 
6074 


6077 
607F 
6087 
6088 


OaTE 
EC NG.” 


OFSPLAY ADAPTER TEST 


OBJECT CODE 


SF87 
6189 
SFE? 
SFBF 


co la 
38 OF 
co 106 
co 87 


3c E7 
CoO 87 


6601 
SF SF 


3C €8 6601 
CO 87 SFBF 


3c €9 
co 87 


6601 
SFaF 
cO 87 63FE 


co 87 
96 


O21A 


co 87 
1400 
Co 67 


O222 


0216 


35 04 
C2 01 
c2 02 
co 87 


SFES 
2000 
0000 
coco 


oo 

0000 
0000 
oGcoo 


CaCé& C240E7ET6 CE7 
€7 

4020408040404 40 
£040 404040404 (a0 
4 0404 04 020404 (40 
40 

404060 

6 O40CSETO7TCSC 2€3 
CSC&SOCACIESC 340 
TESOETETETET 

4 O40CICIEZESC 103 
£0C4C1E3C1407 E40 
EVETETET 
CIE3E3C1C3C8D acs 
DSES40C3C8CSC De 
C30605E30906D 320 
E2E3D60S9C S40c x4 
C409 407ESOETE 1E7 
Ev? 

88 04 ¢C& 

EO 90 36 

OC 13 600A 61 F 
BC 41 «a2 

3C C9 6S5F8 

EO 87 36 


CSDSE3SCSOS9DGE 407 
E34007CSO0SCac 5 
Cc? 

CLESE 3Ci1C 3C 84 kag 


O7 JUUL7TS 
825023 


ADOR 


ST &T 


8138 
8139 
8120 
8242 
8142 


_ 8143 


SFC? 


SFCO 


SFE2 
SFE* 
SFEG 
SFES 


SFE9 
SFF1 


GOOA 


6000 
6023 


6037 


60847 


6060 


6087 


60A2 


25 erT7s 
822032 


8124 
8145 
8146 
8247 
8148 
8149 
8150 
61581 
8152 
8153 
8154 
8155 
8156 
8157 
8158 
821569 
8160 
8161 
8162 
8163 
8164 
8165 
°° 8S 
€.65 
£166 
8167 
6166 
8169 
8:76 
8175 
8170 
8171 
8172 
6172 
Bit3 
8173 
8173 
e173 
8174 
6175 
6175 
8175 
8176 
B176 
Bi76 
8177 
8177 
8i7s 
6178 
sive 
8176 
8179 
8180 
8181 
8182 
8183 
8184 
8185 
8186 
8286 
8186 
8387 


SOURCE 


LOGXAC 


LOGYAC 


LOGZAC 


GOELPO 


STaTEE 


STATRS 
STAT Xi 
STATX2 
STATRB 


ST ATFL 
STATEX 
STATAC 
STaTes 


STATHO 
STAaYm? 


STATSL 


ST ATMS 


ST aT ne 


STATNS 


ST AT H2 


STATKE 


STAT M6 


STATM? 


ISJAN 76 
825034 


ST ATEMENT 

8Tt LOGZAC 

TEN ZFLAGe X*° GFE 

BT LGG zac 

8 GOELPAG 

MVE ERRLOG oC 8 x6 

8 GOEL PO 

MVE ERRLOG eCE8y? 

8 GOELPO 

viz ERRLOQGe C* Ze 

8 GGELPO 

8 ELePCG 

8 PRINT 

oc X12 *968 

8 HALT 

oc %L2°24008 

8 CINK 

i STATPSeP SR 

LA %—*%.XRI 

LA #-£ oe XR] 

8 e—o 

oc Wreqe 

oc Xi2*oce ’ 

oc Megs 

o¢ XL2¢*oe 

Eau * 

oc CLO*HDA XX—-xXXxe 

oc 2Scu1* «6 

oc CLZe we 

cc ae2e 

oc H&20° 

oc CLiG® ATTACHMENT CHECK ® 
oc CL2S* CONTROL STORE ADDR = 
TEN STATE LC oXR2) 2X2 062 
SF STATPL Ce XR2) 

mvc ST 47 Bu (20) STAT HE 
ave STATL(eXR23 65 

Mv x ERALOG-3,Ctre 

8 STATPLE eXR22 

ac CLAP INTERRUPT PENDING? 
oc 


ACTUAL DATA © xXxxxe 


PART NOe- 
PAGE. 67 


GO PRINT ERROR Los 
e SPACE 6 LINES 
eERROR HALT 

eERROR ID FELLED IN 
eEXET ROUTENE 


eRESTORE XR1, XRZ2, & PSR 


eFLAG BYTE 
eEXPECTED DATA=PASSED PARAMETER 
eo ACTUAL DATA 


BLANK FIELD 


EXPECTED DATA = XXxxé 


XXXKE 


eTEST FOR SIT S ON 

eiF NOT GG PRINT 

*MOVE MESSAGE TO PRINT FIELD 
e MOVE IN PRINT FIELO LENGTH 
e INSERT CHAR. 
0GO PRINT 


CL27* ATTACH. SHOULD NOT BE READY* 


FROG Id 
PAGE 67 


FOR LOG GUT * 


0893-2 


| 


4234255 


Sad 


“PASSED PARAMETES | 


“FILLES IN BY PROG: 


| 


a 


f 


ons 


am 


Ol EO 5 a 2D 


c 


© 
Ce 
© 


8912 


ERR LOC 


6090 
6098 
6O0AO 
60A3 
60AB 
6063 
6084 
608C 
60C3 
60CB 
6003 
60DB 
60E2 
60EA 
60F2 
60F8 
6100 
6108 
6110 
6111 
6119 
61iC 
6124 
612¢ 
6130 
6138 
613F 
6147 
614E 
6156 
61S5E 
6161 
6169 
6172 
6177 
617F 
6187 
618F 
6191 
6199 
6198 
619F 
6120 
61A1 
61A3 
61A7 
6148 


6ikF 
6180 
61B: 
$182 
6183 
61865 
6167 
6188 
6189 
616a 
616C 
61BE 


6icG 
61C4 
6ic6 
6ace 
629c 
6104 


"DATE 
_ €C NO. 


OMSPLAY ADAPTER TEST 


OBJECT CODE ADDR 
E2C8 06E403C44 OS 
D6E340C2C540D ¢c5 
Cicsées 

CL£3 E3C1C3C84 HO 60B3 
OSDGE 340D09CS5C 1C4 

ee 

CLTEZESCICSCSS FO 60C2 
CIEZ4OCZE4EZEE 
COOSE3ZD94S40E LS 60E} 
DEES C3 C440C2C 840 
D7CSOSC4C9DSC 758 

SOC SE 2400 SDGE : 
C1lE3E3C1C3CH4 &O 60F7 
E2C8DG6ES03C44 (C2 

C540 C2E4E2E8 
ES0SCSETO7CSC 3 6110 
CS5C44 004 C9 C30 S06 
4007C 7044 0C8C 103 

&3 

C3E4DSC1D940C ED9 6118 
090609 

D4ACICIDS49 CINSCS G12F 
OSC S04C SO5ES4 (CS 

O09 C9 D609 
E4@0SCSE797CSC SE3 613E 
CSC440C90SE3SE 

DS06 E34009C4E £61 6140 
ESOSCSE340C3D2Z 
OSOG6ESZ40D9C4E 61 6160 
£4 05 CSE340C30 40 
cécéce 
C8C&C240E2D5E 240 6176 
C4C1E3cC14¢0cepscs 
OS09D0S9C SC 3E3 
C2E2C3C1IA20D9C cEB 617E 
050640c 9p 5E34 (p6 6190 
OS40 CLESE3C3C BO 

c302 

C2E2C3CI40C2E 4E2 6394 
ESs40 

CO 87 G21Aa 

62 619F 
zo S1A6 
6047 61Aa2 
3C FF 6180 

CO 87 6218 

co 87 5SFES 

ss 61 AF 
oo 6160 
oo 618i 
00 6is8e2 
6037 6154 
6023 6186 
00 61687 
oo 6168 
oo 6189 
EVE? 6188 
E&ESs 6160 
ESES 61eF 
30 00 6187 

co 81 SFS7 

3c 00 6187 

3C 00 6188 

3c OC 6185 

OC O02 61E} SF re 

O? JUL7S 25 (CT 75 
825023 826032 


TBM MAINTENANCE OLAGNCSTIC PROGRAM 


STMT 


8187 
8387 
8187 
32688 
8188 
8186 
8189 
8189 
8190 
8190 
8190 
8190 
8191 
8191 

8t91 
8192 
8192 
8192 
8192 
8193 
8193 
8194 
8194 
8196 
8195S 
6195 
8196 
8196 
8197 
8197 
8197 
6198 
8198 
8196 
8199 
8200 
8200 
8200 
820i 

8201 

8202 
8203 
8204 
8205 
8206 
8267 
8208 
8209 
$216 
8211 

8212 
6213 
Sala 
8235 
@2i6 
B217F 
8228 
8219 
8220 
8221 

8222 
8222 
8223 
8224 
8225 

8226 
8227 

8228 


SOURCE 


ST ATMS 


ST ATMS 


STATMA 


ST aTMB 


STATMC 


STAaTHeO 


ST ATHE 


ST ATBO 
STATB1 


STATS2 


STATB3 


STATBS 
STATBS 


STATS6E 


PADCHK 


ATTMA 


DEVID 
ATTFLG 
VGLTFL 
VOLTSF 
STATAL 
STaTA2 
XF LAG 
VFLAG 
ZFLAG 
XX XX 
YY YY 
2222 


STATNH 


LT SJANTE 
625038 


ST ATENENT 


oc 


oc 


oc 


oc 


eles 


oc 
oc 


oc 


CLE 
BE 

MYT 
MVE 
MVI 
Mv¥C 


CLITYATTACHe NOT READY* 


CLISSATTACH. IS BUSY? 


CL3Z° INTRo SHOULD GE PENDING. 


CL 22° ATTACH. 


<A SCReaene = 


ae 


PART 
PAGE 


NO. 4234255 


67A 


Is note 


SHOULD SE BUSY 


CL25* UNEXPECTED MICRO PGM HALT? 


GLILECURAR ERROR* 


GLZ20*MIAR INCREMENT ERROR* 


CLIS* UNEXPECTED INT. ® 
CLIS*®NOT RDY/SUNET CK® 


CLIS* NOT ROY/UNIT CK CFF 


CL.22°HDS SNES DATA INCORRECT? 


GL8*SsCcA RDY* 


CLiB*NO INT GN ATTCH C#x®* 


ciio*’Ssca Bysy * 


PRINT 

Lis g2e 
101°16* 

AL2 (STATMS) 
ATTFLG X*FF # 
PCHK 

STATSE 


XL1¢B9e 
MLieo¢ 
XLI¢O8 
xXLitoe 
AL2CSTATMA) 
AL2CSTATM3} 
XL1*O# 
19006 
XLi®oo* 
CL2¢xxe 
Q2*yvs 
CL2*zze 


XF LAG 00 

STATPO 

XFLAGCO 

YFLAG,.O 

ZFLAG+0 
NMHADR(S? »STATAM 


PRINT ATTACHMENT CHECK 


eo SET ATTACHMENT CHECK FLAG 
GG PRINT ATTACHMENT CHECKS 


eDEVICE 10 GETS FILLED IN 
e ATTACHMENT CHECK FLAG 

e VOLTAGE MESSAGE FLAG 
oAUX SVe MSG FLAG 


oTEST FLAG 
eIF ZERGOse PRINT HEADING 
oRESET FLAG 


e INSERT LGTHe & ADDR 


9892 «2 


PROG 10 
: 67a): 


PAGE 





IBM MAINTENANCE DIAGNC(STIC PROGRAM 


6912 
ERR Loc 


610A 
610E 
610F 
61e0 
61E2 


61E6 
61Ea 
61EE 
61Fe2 
6iF8 
61FD 
62 92 
6208 
6200 
6213 
e21e 
6218 
621F 
6223 
6227 
6228 
6231 
6235 
6239 
6230 
6241 
6245 
6249 
6240 
6251 
6255 
6259 


6250 
6261 
6262 
6264 
6266 
626C 
6270 
6273 
6279 
6270 
6281 
6282 


DATE 
EC woe 


DE SPLAY ADAPTER TEST 


OPJECT CODE ADOR 
CO 87 O21A 
B2 

00 

0000 

Co 67 SF61 


61DE 
610F 
61E1 


34 
34 
35 
OE 
ic 
ic 
oc 
ic 
oc 
ic 
Fa 
34 
34 
3c 
3c 


os 
o1 
o1 
Oi 
oe] 
ao 
09 
oo 
os] 
oo 
a? 
os 
01 
oo 
£0 
22 
3c 6F 
Ci SA 
36 Oc 
ci sc 
38 01 
ci SE 
38 02 
ci 
38 
ci 


62E4 
62E0 
62E4 
62E4 
62E5S 
62S8 
6601 
65F 2 
6SF1 
6202 


SBE 
00 
01 
65 FO 
G1 
oaG 
01 


62E4 
62E0 
62E5 
63F8 
G3FA 
62E6 
6230 
62E6 
6245 
62E6 
6240 
62E6 
6255 
62E6 
6250 
62E 6 


63 FB 


o¢ 
50 
80 


co 87 
01 
62E6 
63FO 
09 
00 
o1 
oo 
Se? 
87 


O21E 

6261 

6263 

6265 
6601 
62E5 
13 
62E7 
62E 6 
O21A 


63 FD 
39 
Fe 
62 & 
co 
co 
92 
co 


6281 


87 62E1 


OTIUL 75 
625623 


25ccrts 
62 £032 


i 

$ 
4234255. 
68 | 


' PART NO. 
PAGE 


i 
! 
| 
| 
i 


STMT SOURCE STATEMENT 
8229 e PRINT ePRINT WITH NO HEADER 
8230 oc xL1°® a2 
8231 oc IL1i*o9® { 
8232 NHADR 0C AL2 (<8) i 
8233 8 STaTe3 eRETURN TO FINISH ROUTINE \ 
8234 | 
8235 SSEKERS SEEKS SEKESVE SKE SES SSHESE ESSE SE SEKESESAERVSERSEE { 
8236 * SUBROUTINE ~- ANAL IZE AND PRINT ATTe CHECKS SKARBKLSARERKEARHKRERK EHD! 
B237 KHSEKSKVSKKSREST SHR KFEHISR IRS SAK SKK ESAKAAAAKAKERKE SE *) 
8238 * *| 
8239 * 8 TSTCHK CHECK AND PRINT ERRORS * 
8240 oc XULLOXxXe * 
8241 * oc XLI°NC® eS *: 
8242 « WHERE °Xx* SIGNIFIYS ERRORS EXPECTED *! 
8243 * BIT O =1= CP DECODE CHECK *, 
8244 * BITS 1-3 MUST BE ZERO * 
8245 * Bit 4 =1l= HOB/EXT CHECK * 
8246 * eIT S =1= CCNTROL STORE DATA CHECK *; 
8247 * BIT 6 =1= CONTROL STORE WRITE DATA CHECK *! 
8248 « BIT 7 =23= CONTROL STORE ADDRESS CHECK «! 
8249 * *HC® SIGNIFIES THE HALT CODE Ta BE USED FoR ERROR HALTS a: 
8250 «* *: 
8251 « 8 PCHK PRINTS OuT ERRORS *! 
6252 * * 
B253 680684 44KE SSE HERES SED OS SASKSE VS GEEKHKSE EKG EECKE EKERKEREREKEALERERRERERE 
8254 ' 
8255 TSICHK ST ERRT+43eARR eSTCRE RETURN ACORESS | 
8256 st TXR143,XR1 «STORE XR} ; 
8257 L ERRT4+3 XR} eLGAD ADDRESS OF PARAMETERS ; 
8258 acc ERRT+3(2).xX0002 UPDATE RETURN ADORESS i 
8259 MVC EXERR20410eXR1) eL OAD EXPECTED ERRORS ' 
8260 MVC ERHC12e1(1 XR) eL GAD HALT CODE ; 
8262 MVC = ERRLOG0.10) eBLANKS eBLANK OUT LOG CUT ®| 
.B262 MVC ERRHLT ol (2 eXR1 ) eL OAD THE HALT CODE *) 
8263 mvc ERRRITN( 1) ePRIN eL CAD THE REUTINE NOeo ‘ 
8264 MVC ERHCZ01( 1eXR1) eL GAD HALT CODE 
8265 J STERR 
8266 PCKK st ERRT+3,.ARR »STORE RETURN ADDRESS 
8267 st TKRL4ABXA1 «STORE xRi 
8268 mvt ExERR.O eRESET FLAG BYTE 
8269 STERR MVE ERRPGE.Ce * eCLEAR PRINT OUT AREA 
8270 MVC ERRPOE~1 (35), ERRPOE 
e271 MvI AC TERR» X° OF t e INITIALIZE FLAG GYTE 
8272 T1090 ERR4, HOBCKK eTEST FOR HDB/EXT CHECK 
8273 SBF ACTERR X08" eRESET HOB/JEXT CHECK BIT 
8274 ERRG +10 ERR3,FETADR e TEST FOR CoSe ADDRe CHe 
8275 see ACTERR X01! eRESET BIT 
8276 ERR3 tI0 ERR2 .FETyRO oTEST FOR CeoSe WR. DATA CH. 
8277 ser ACTERR. X#O2e eRESET BIT | 
e276 ERR2Z TIO ERRI.CSCHK eTEST FOR CoS. CHECK 
8279 SBF AC TERR  X* 048 eRESET BIT 
8260 ERFL TIO ERRO.ATT CHK eo TEST FOR ATT. CHK. - 
8281 ser ACTERReX98He eRESET BIT ~ ACTERR NOw HOLDS 
82e2 * IMAGE OF ACTUAL TYPES OF 
8283 + ATTCHMENT CHECKS | 
8284 ERRO B UNPACK eUNPACK ACT ERROR CODES * 
8285 oc MLUFOLS * 
8286 oc AL 2CACTERR) *| 
8287 pc AL2C(R1BwK?) *, 
8288 MVC ERALOG( 1 eRISHK *! 
8289 cur EXERR,.O eTEST FOR PRINT ONLY i 
8290 JNE ISTERR eo JUMP IF NOT 
8291 vc POFLG(1 ) ,ACTERR eSET UP TO PRINT ACTUAL ERRORS 
8292 8 POERR eGO PRINT 
8293 8 PRINT eGO SPACE 2 
8294 oc xLi*ge2e 
8295 8 ERRT eGO Exit i 
8296 
| 
ASSANTE PROG ID 0891-2. 
625034 PAGE 68 


_ IBM MAINTENANCE DIAGNCSTIC PROGRAM 


- 8912 


ates 


ERR LOC 


4 6286 

628C 

62 6F 
. 6293 
6294 
6295 
6297 
6299 
6295 


6243 
62a7 
q 6248 
62A9 
62AB 
621 
6285 
6289 
a2 628A 

62B8¢C 
2 628E 
¢ 62c4 

62CB 
be 62cc 
& 62CD 
6201 
6203 
6206 


62DA 
6200 
62€1 


7 


\ 


62E5 
62E6 
62E7 


é 


« ch 


62E8 
62EC 
62F0 
62F3 
62F9 
62FF 
6303 
6307 
630A 
6310 
6316 
631A 
631E 
6321 
6327 
6320 
6333 
6337 
6338 
633E 
6344 
634A 
634E 
6382 
6358S 
6358 
6361 
6365 
6369 
636C 
6372 


oo 


ao eee ae: Fis 


ao 


OOM 


a 


DATE 
_EC NOe 


e 


6 0 


OI SPLAY 


ADAPT ER 


OBJECT CODE 


op 00 
Fe 81 
co 87 
ci 

OA 
6343 
1400 
oc 00 
co 87 


co 87 
61 

OA 

63 a0 
oc 00 
co 87 
co 8&7 
01 
62E5 
63FD 
oc 00 
co 87 
co 87 
96 

co 87 
1400 
F3 $8 
co 87 


F3 
c2 
co 


s8 
01 
37 


co 
00 
oo 


34 
38 
F2 
oc 
oc 
co 
36 
F2 
oc 
oc 
co 
38 
F2 
oc 
oc 
oc 
co 
38 
Fa 
oc 
oc 
co 
30 
F2 
oc 
oc 
co 
30 
F2 
oc 
oc 


os 
os 
90 
06 
os 
87 
01 

90 
a3 

os 
87 
02 
90 
oc 
OA 
os 
87 
04a 
$o 
oc 
OA 
87 
80 
01 

os 
os 
87 
00 
O1 
o3 
03 


62ES 
48 
O21A 


62E7 
62E8 


O21A 


62E7 
62E8 
O21E 


65F8 
63FE 
O2iA 


0222 


80 
0216 


80 


9000 
0G00 


637F 


62E7— 


10 

63E4 
63EA 
6380 
62E7 
10 

63EF 
63FS 
6380 
62E7 
16 

S3EA 
63F5 
63F8 
6380 
S2E? 
10 

63EA 
63FS 
6380 
62E7 
10 

6226 
63EC 
6380 
62E7 
310 

63€1 
6601 


07 SULTS 
825023 


62 £6 


62 &5 


62 £6 


63 FD 


63 6 
631 


60¢9 
63) 


60 4 
63C3 
63 


60 £4 
63(1 


63 £6 
631 


6307 
63°7 


TEST 


ADDR 


6293 
6294 
6296 
6298 


62A7 
62A8 
62AA 


6289 
‘6268 
6280 


62cCc 


6202 


62E5 
62E6 
62E7 


25 CCT 7S 
625.32 


STMT SOURCE STATEMENT 

8297 TSTERR CLC EXERR (2) o ACTERR 
8298 JE RSTtRrt 

8299 8 PRINT 

8300 oc XL1°ci? 

8301 oc IL1#1 08 

8302 oc AL 2(RIBEXP) 

8303 ERHC1 OC XL2*14008 

8304 myc POFLG( 1) eEXERR 

8305S 8 POERR 

8306 

6307 8 PRINT 

8308 oc XL2°63° 

8309 oc . 1L1°*120° 

8310 oc AL 2°(R 1GREC) 

6311 wave POFLG(2 ) »ACTERR 
8312 8 POERR 

8313 8 UNPACK 

8314 oc xLirtore 

6315 oc AL. 2(& XERR) 

8316 oc Av2 (Ri awk) 

8317 mVC ERRLOG~ 9(1) Ri OWK 
8318 8 &Po 

8319 8 PRINT 

8320 oc mL 1°S6* 

8321 8 PALT 

8322 ERHC]2 OC xXL2* 14008 

8323 s10 *%*80", S10] 

8324 8 LINK 

8325 

8326 RSTRT Sia X*80%e SIOX 

8327 TXRI LA #—% oXR1 

8328 ERRT 8 a—% 

8329 

8330 EXERR DC XLi°Ge 

8331 ACTERR DC ML1*o® 

6332 PCFLG OC XL1°O° 

8333 

8334 POERR ST POERRT 432 ARR 

8335 TBN FOFLG eX* 08* 

8336 JF TERR3 

8337 av Cc ERRPOS 41 3( 7 }eR1 SHDB 
8336 MVC ERRPOS+}1 9(6) eRIBCHK 
8339 8B PERR 

6340 TERRS TBN FOFLGeX*018 

38341 JF TERR2 

8342 MVC ERRPOS+424(18),RIBCSA 
8343 MVC ERRPOS4+30( 6) eR1 SCHK 
8344 8 PERR 

8345 TERR2 TBN POFLG eX* 02° 

8346 JF TERRI 

8347 mvc ERR POS 419(335)-R1 BCS 
8348 mvc ERRPOSt430 (12 2 »R1 BWRO 
8349 MVC ERRPOS+ 3E( 6) eR1ISCHK 
8350 8 PERR 

8351 TERRI! TBN POFLG e X* 048 

6352 JF TERRO 

8353 MVC ERRPOS419(13) sRi SCS 
B354 MVC ERRPO $¢30€ 11) -R1ISCHK . 
8355 B FERR 

8356 TERRO CLI POF LG .X%* 80° 

8357 JNE TNONE 

8358 vc ERRPOS415(9),R180P0 
8359 MVC ERRPO S+21 (6) oRi BCHK 
8360 8 PERR 

8361 TNONE CLI POFLG 20 

8362 JNE PCERRT 

8363 MVC ERRPOS 41004 )eR1 SNON 
8364 MvC ERRLOG (4) .R1 BNON 
ISJAN76 

825034 


PART NOe 
PAGE 


4238255 
668A 


eCHECK ACTUAL = EXPECTED 
e IF SOs RESET ANO EXIT 
eERROR, PRINT *EXPECTED® 


eHALT COCE GETS Fier EO In 
eSET UP TO PRINT EXPECTED ERRe 
eGO PRINT THEM 


oPRINT RECEIVED 


eSET UP TO PRINT ACTo ERR« 
°©GO PRINT THEM : 
eUNPACK EXP ERROR CODES 


eMOVE IN ACT ERRCR CODE 
eGO PRINT ERROR LOG 
eSPACE 6 


aa tee 4% 


eG6O HALT ? 

eHALT CODE FILLED IN 
eRESET ATTACHMENT CHECK 
eEXIT ROUTINE 


eDISABLE TO RESET 
eRESTORE xXR1 
eRETURN TO USER 


CHECKS 


eEXPECTEO ERROR FLAG 
eACTUAL ERROR FLAG 
ePRINT OUT ERROR FLAG 


e STORE RETURN ADDRESS 
eTEST HOB/EXT FLAG ON 


eMOVE IN ERROR TYPE 


eGO PRINT HOB/EXT CHECK 
eTEST CeSe ADOR ERR. 


eMOVE IN ERROR TYPE 


eGO PRINT CoSe ADDR. CHK. 
eTEST CeoSe WRe DATA CHK eo 


eMOVE IN ERROR TYPE 


eGO PRINT CoSe WRe DATA CHK. 
eTEST CoSe DATA CHK. 


eMOVE IN ERROR TYPE 


eGO PRINT CeSe CHKe 

eTEST FoR OP DECODE CHK ONLY 
eIF NOT TEST FOR NO CHKe 
eMOVE IN ERROR TYPE 


eGO PRINT OP DECODE CHECK 

eTEST FOR NO CHECKS 

elf NOTe EXIT 

eMOVE IN NONE MSGe 

eMOVE NONE TO LOG OUT * 


PROG ID 
PAGE ~ 


0891-2 
een? 











a 


eeoeoeeeeaoenooosooeoeoeoovoeaosvneoeeeee eee eee @ 


{GBM MAINTENANCE DIAGNCSTIC PROGRAM 


8912 
ERR Oc 


6378 
63 7¢ 


6380 
6384 
6368 
6389 
636A 
636C 
6390 
6396 


639A 
6302 
63A4 
63AC 
63AE 
6386 
6387 
638F 
63C2 
63Cc9 
63D1 
6304 


€308 
63E0 
63E6 
63F0 
63F8 


S3FC 


6aFE 
64802 
€406 
€a07 
6409 
6408 
640F 
6410 
6412 
6416 
64°83 
6418 
642) 

€427 
6428 
64ec 
6430 
6431 

6432 
6a34 
€43A 


6440 
6446 
€44C 
€450 


DATE 
£C NO 


DISPLAY ADAPT ER TEST 
OBJECT CODE abdoR 
co 87 $380 
co 87 0000 
34 68 6399 
CO 87 O21a 
81 6388 
24 6389 
63F8 6388 
3C 40 63F8 
OC 22 63FA 63°58 
co 87 0000 
CSE7D7CSC3E3C §C4 63A3 
4060 
09 CSC3C5C9ESC £04 63AD 
4060 
060740C4C5C36 €C4 6386 
cs 
40C4C1E3C140C XB 63C}1 
CSC302 
C8C4&C261CSE7E = 63C8 
A OE6D9C9E 3C54 (C4 6203 
C1E3c1 
O50605¢5 6307 
6307 
40404 040404604 GO 63FB 
4040608040404 (40 
9040404040404 (40 
£0404 040460404 0 
40404040 
6084 
6059 
0000 63-0 
34 08 64¢5 
Co a7 o2i1€ 
02 6406 
6SF2 6408 
6SF7 640A 
Co 87 O21E 
01 64&0F 
65F 1 6413 
6S5F5 6433 
30 00 65F3 
F2 81 AT 
06 00 6404 65 £6 
OC OD 6458 66 (i 
CoO 87 Gia 
91 6428 
CO 87 O21Aa 
81 6430 
oF 6431 
6404 6433 
OC 01 64EF 646 
OC 01 64F9 Gala 
Oc 01 644F 650 
OC 01 6457 644 
35 #0 0000 
Co 01 6458 
O7JUL 75 2s«ct7s 
825023 62 £032 


STMT 


8365 
8366 
8367 
8368 
8369 
8376 
8371 
8372 
6373 
837% 
8375 
8376 
8377 
8377 
8378 
8378 
8379 
8379 
8380 
8380 
8381 
8342 
8382 
8383 
8384 
8385s 
8385 
8385 
8385 
8365 
8386 
8387 
83e8 
8389 
8390 
8391 
8392 
8393 
8394 


czue 
wa wv 


8396 
8397 
8398 
8399 
8400 
8401 
8402 
8403 
8404 
6405 
8406 
$407 
8a08 
8409 
83106 
8412 
8412 
8413 
Bai4 
8415 
8416 
8417 
8416 
8419 
8420 
8421 
8422 
8823 


SOURCE SY ATEMENT 


POERRT 


PERR 


PEFRT 
R16ExP 
RisrREc 
R1¢60P0 
Ri BCHK 


RF} sHde 
R1 ewRO 


Ri BNGN 
ERRPOS 
ERRPOE 


RiEcSs 
RI BCSA 
Ril €aK 


38 
8 


ST 
8 
oc 
oc 
oc 
MVI 
MvCc 
e 


oc 
oc 
oc 
oc 


oc 
Bc 


oc 
EQu 
oc 


equ 
Eau 
oc 


PERR 
e-% 


PERR 143, ARR 

PRINT 

xXL1° 81° 

wie36ée 

AL2 CERRPCE} 
ERRPOE.Ce « 
ERRPGE-1(35), ERRPoE 
gee 


GIO EXPECTED -« 
CLIO®RECEI VED <* 
cL9*oOP CECCDE* 

CLil® OATA CHECK ® 


L7*HDB/EXT® 
CLil® CRITE CATA? 


CL4*NONE® 
t— 3 
3ecLie « 


STATM2-32 
STATM2-7 
xL2*oe 


PART NO. 
PAGE 


«GO PRINT ®* NONE? 
eRETURN TO USER 


eSTGRE RETURN ADDRESS 
«GO PRINT ERRGR TYPE 


e BLANK OuT PRINT AREA 


eRETURN TO USER 


eSTART OF PRINT LINE 
ePREINT LINE 


eWORK SPACE 


| 


4234255 


63 


STORE ERAS SHKH SHE STHESK LYE SKS RHEE HHKE SEE EK 


x 


SVUEROUTINE ~- PRIAT ERRGR LOG 


RESKKSRSAERER KECK RHAKEA KKK KG HARE 


THE FOLLOWING SUBROUTINE WILE CAUSE A PRINT Out CF AN ERROR 
LOG WHICH IS COMPILED UNIQUE TO EACH HALT. 
SSSTESERERSEL AE HS THU ELS SHERKBH SHH EERE EKA ETE EE OH KEKERTLARAEEYBERAESE EEE 


* 
@ 


EcrO 


* THE FOLLOWING 


st 
8 
oc 
oc 
oc 
8 
oc 
o¢ 
oc 
cul 
JE 
AZ 
MVC 
8 
oc 
8 
oc 
oc 
oc 
ave 
myc 


ELPGRT4+3 .ARR 
UNPACK 

xt2*o28 

AL2 CERRHLT? 

AL 2C UNPAHLT) 

UNPACK 

xLI*O1* 

AL2 CERRRTN) 
AL2CUNPRITAN) 
IPLFLG.0 

ELPORT 

ELPFST(1) eDECONE(1) 
ELPFL O-1 (143, ERRLOG 
PRINT 

ML1°918 

PRINT 

xLieere 

wypeases 

AL2(ELPF ST) 
LOGROU( 2) e ELPFLD-23 
LOGH.T(2), EL PFLO~ 11 


9 OPS CHANGE Atty 


® 10-BYTE ERROR LOG TO DASHES. 


toopio 
CHEBLE 


ISJAN76 
825034 


MVC 
avec 
cul 
BNE 


CHKBL K#3 (2) eLOGAOL 
CLRBLK¢3 (2) sCHKEL KES 
a~BeX*%QQt 

CHKEND 


ESRHECKLHKST SHE FASSVLAHERSE SHARMA KERT EEK 


BLANKS 


eSAVE RETURN ACODRESS 
e UNPACK THE HALT CODE 


eUNPACK THE ROUTINE NUMBER 


**% REMOVE FOR RELEASE «ax 
**% REMOYE FOR RELEASE eee 


e INCREMENT ERROR LOG NOe 


2SET UP FOR PRINT OUT 
eSPACE 3} SEFORE PRINT 


IN THE 


Pur LCEFT AOR 


IN BLANK CHECK Op 


MAKE ADOR IN CLA OP=TO BLANK OP 


Is THIS BYTE BLANK? 
8R IF NOT 


PROG 10 
PAGE 


x 
* 
* 


9891-2 


69 


wen 


roa 


oy 


oe eg A ae ae 


ey 


oy ie 


eoaec 


IBM MAINTENANCE DIAGNCSTIC PROGRAN 


@922 
ERR LOC 


6454 
6458 
645E 
€462 
6468 


646C 
6470 
6473 
6472 
6474 
6478 
6479 
647A 
647C 
6482 
6486 
6487 
64388 
648A 
648E 
6491 
64°c7 
649A 
6490 
64A1 
6446 
66AA 
64a0 
6483 
6486 
64BA 
6458 
648C 
64BE 
64C2 
64C6 
64ace 
6aD5 
6400 
64E5S 
€4E6 
64EE 
64F 0 
64F8 
64FA 
6502 
650A 
650¢ 
©50E 
€510 
6512 
6514 
6516 
6516 
€SIA 
6sic 
651€ 
6520 
6£22 
6524 
€526 
6528 
652k 
6520 
€S2e 
6530 
6532 


” DATE 
EC NO, 


DISPLAY ADAPTER TEST 


OBJECT CODE ADDR 
3c 60 0000 

OD 01 650F 64 4F 

cO 81 646C 

OF G1 644F S69 

Co 87 64456 


co 87 D214 

$i 6470 
OA 6471 
6aEF 6473 
co 87 O21a 

81 6478 
OA 6479 
63F9 6478 
OC O09 6508 64£&4 

co 87 021A 

81 6486 
12 6487 
65 08 S489 
30 07 65F3 

F2 01 OC 

0D 09 6508 66 13 

Fe 01 24 

Fe 87 i9 

3D 21 6SF1 

F2 01 1A 

CO OS 6508 66 1D 

F2 81 09 

00 09 6505 6647 

Fe 01 08 

coO 87 O21Aa 

81 64BA 
oF 6488 


6676 
co 87 6662 


6480 


CO 8&7? 0000 
C50909060940B 206 6404 
C74005064840E 7 
SOGQCETETETETE 07 64E5S 
EVEVYETETETV ETE 1E7 

60 

S0S0400SD6ESGE 27E BaF 
EVE7 

£040 40C&C1LDO3E =7E 
E8EB 
$04040400306C 77E 6508 


64F9 


E 9ESE SESE SESE SE9 

E9SES 

6408 6500 
64F4 6 SOF 
60A2 68313 
63559 6513 
6087 6815 
6863 6S1i7 
6047 6£19 
6S6éD 6£18 
60C2 6510 
63577 Stir 
6083 6Setl 
658) 6523 
60£&1 6S25 
6868 6527 
6OF7 6£29 
6595 6528 
3PAB 6520 
659F 6S2F 
OEQ) 6531 
6SA9 6533 
O7UUL7S 2Sccr7s 
825023 82 9032 


S¥aT 


8424 
8425 
8426 
8427 
8428 
8429 
8430 
8431 

8432 
8433 
8434 
8435 
8436 
8437 
8438 
8439 
8440 
8441 
8442 
8443 
8444 
B84¢S 
8426 
8847 
8448 
8449 
8450 
8451 
8452 
8453 
8484 
8455 
8456 
8457 
8458 
8459 
84690 
8460 
846i 

846} 

8461 

8462 
8462 
8463 
8463 
8464 
8464 
8346S 
8465 
8466 
8467 
8468 
8469 
8470 
B47 

8472 
8473 
8474 
8475 
8476 
3477 
6478 
&479 
8480 
8481 

8482 
8483 
8484 


SOURCE 


CLRBLK 
CHKEND 


PRILOG 


TRITN21 


Up TPO 


Et PORE 
ELFGRT 
ELPFST 


ELPFLD 


LGGROY 
LOGHLT 
LCGLOG 
LOGANL 


LOGADR 
MTABLE 


ISJSANT76 
825034 


STATEMENT 

AVE #—-%eX*6CF 

cic LOGAOR(2) .CHKEKt3 
BE PRTLOG 

ALC  CHKBLK+43(2),X0002 
8 LOQOP190 

8 PRINT 

oC XL2"SB 30 

oc Tia¢ 108 

oc AL2(LOGROU) 

8 PRINT 

oc XLi*siz¢ 

oc IL2¢3G¢ 

oc AL2(LOGHLT ) 

MYC LOGLOG(30) -ELPFLD@~} 
8 PRINT 

oc XL1*8is 

oc Icr*rar 

oc AL 2(LOGLOG) 

cur ERRRTWN,X*07*% 

JNE TRIN2Z1 

CLC L0G. 06(20)eUL 062 
JNE ELPORE 

J UoTPO 

cur ERRRY NeX¢ pie 

JNE ELPORE 

cuc LOGLOG(10)»eLO0G2 
JE uvoTeo 

cLe LOGLGG(2 0) sULGG3 
JNE EL PORE 

8 PRINT 

oc xXL1°s621¢8 

oc IL1Le7O8 

oc AL 2CUDTNSG) 

e ELL INK 

8 Hed 

oc CLIS*ERRGR LOG NO. x? 
oc CLIT -XXXXKXXXAXXXKXKXX—* 
oc Ccr1108 ROUT=xXxe 
oc CLio? KALT=YY? 
oc CLIsB® LOG=2222 222222 
oc AL2(ELPFLDO~-10) 
DC AL2CELPFLD-1) 

oc AL2OSTATMT) 

pc AL2 (H7L) 

BC AL2(STATM6) 

oc AL 2(M6L) 

oc AL2 (STATMS) 

oc AL 2CMSL) 

oc AL2(STATMQ) 

Dc AL2C#SL) 

oc AL 2USTATMS) 

oc AL2 (MSL) 

oc AL 2(STATMA 

oc AL 20MAL) 

oc AL2 (STAT HB> 

oC. AL 20MBL) 

oc AL2(RICM1} 

oc AL2ZUTMIL? 

oc 4L 2(GPDECF} 

oc At2 (MOPO} 





PART NOe 
PAGE 


PUT IN A DASH. 

INCRs ADOR = RIGHT BYTE 
BR IF SO. 

ENCRs ADDR. 


TEST FOR RTN 07 

IF NOT TEST FCR RTN 21 

TEST FOR POSSIBLE VOT ERROR 
Our IF NOT 

GO PRINT CAUTION 

TEST FOR RIN 21 

OUT IF NOT 

TEST FOR POSSIBLE uDT ERROR 
PRINT IF SO 

TEST FOR POSSIELE uGr ERROR 
OUT IF NOT 

GO PRINT MESSAGE 


*3% REMGYE FOR RELEASE ax 
«RETURN TO USER 


LEFT AODR OCF 10-BYTE LAG 
RIGHT aboR 


e TABLE OF MESSAGES FOR PRINTM « 
a 

& 

* 

% 

ae 

Fg 

x 

x 

x 

* 

Fd 

n 

= 

* 

* 

FROG IC 0891-2 
PAGE 69a) 


4234285 
69A 





t 
i 
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PART NO. 4234255 18M MAINTENANCE DIAGNISTIC PROGRAM PART NO 4234255 
Pace 70 | 5 PAGE 70a 
6912 DISPLAY ADAPT &R TEST | ggn2 DISPLAY ADAPT ER TEST 
i ¢ 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBYECT CODE ADOR STMT SOURCE STATEMENT 
} 
6534 613€ 6S35 848s oc AL2(STATEO) | 6650 C606D9 8528 
6536 6583 6537 8486 pc M4. 2(MB0) 6653 40D4p06c4c5p34 (2 6676 8529 UDTMSG DC CL36* MCCEL 2 SUPPORT CAN CAUSE THIS HALT® 
6538 6140 6539 8487 oc AL2 (STAT EL} 6658 &0€2E4D707D6D <E3 8529 
€S3a 6580 6538 8488 oc AL 20MB1) 6663 40C03C10540C3C 164 8529 
SS3£ 6160 6530 8489 pc .2¢(STATB2) 666B £2C540E3C 8C9E 240 8529 
6£3E 65C7 6£3F 8490 pe AL2 (MB2) i 6673 CaClO3E3 8529 
6540 6176 6541 8491 oc AL2(STATB3? ee 8530 
. 6£42 6501 6543 8492 oc AL2(ME3) 6531 +eteeeeeeegeeeamens 
6548 617E 64S 8493 oc AL2(STATB4) | : 8532 # PROGRAM EQUATES #424494 05 49S486 SHEE EES KEREER EEE OYUTEBRELSRERERERERD EE 
6586 6508 6547 8494 pc AL 2(MB4) | &} 8533 ethearennngacussase 
6548 6190 6549 8495 oc AL2 (STATES) | 8534 
ESA 65E5 6548 8496 pc AL 2(MB5) 8534 
656C 6194 654D 8497 pc AL 2(STAT&6) | ee SA00 8535 SAVARR EQU  KETBR43 
654E 619A 6f4F 8493 oc AL2 (STATE6) 59F8 8536 SAVXR1 EQU RESTORES 
6550 CIE3SE340E205C 740 6559 8899 MTL oc CLIO*ATT SRB RDe | G 5S9FC 8537 SAVKAR2 EQU RESTORE? 
6558 poce 8499 me 8538 
©SSA C9CSE3SDS40D70 4 65E3 B500 MeL DC CLIO* INTR PND ° | 0001 8539 xR}i EQu = x* O18 
6562 4040 8500 0002 8540 xR2 EQUsx* 02° 
6564 C1E3E 340C SCSED 240 656D 8502 MSL oc CLIO* ATT CHK 2 | ae 0004 8541 PSR Eau xxe gee 
6S56C 4040 8501 | 0008 8542 ARR Eau xeog* 
656E CLE3E340C2ESE ZEB 8577 B502 MGL oc G10°ATT BUSY ° * 0222 8543 HALT QU x*2Z222¢ 
6576 4040 8502 | &> 0080 8544 SSe10 EQU  x*B0* 
6578 C1E3E340056105C4 6581 8503 MeL pc CLIO‘ATT NZROYV * | 0040 8545 SSwii Fou xeaor 
6580 E680 8503 . 0020 8546 SSui2 EQU  x*20° 
6582 C90SE340E2C24W7 6868 85040 MAL oc CLEO°INT SB PND? 1 ©} 0010 8547 SSwi3 EQU  x*10* 
658A D0SCa 8504 | 0008 6548 SSW14 EQU  xrQQ? 
€58c C1E3E340F 2026 «2 6595 8505 WAL oc CLio* ATT s@ BSY? * 0004 8549 SSelS EQqu  xoae 
6594 E2€8 8505 | ie 0002 8550 SSw16 EQU  x*Q926 
6566 ETET40C9DSE3D500 659F 8506 MIL pc CLAO®XX INTR 8 =| 0001 8551 SSWi7 EQU  xKeORe 
6S9E 4040 8506 0008 8552 SSwlc EQU x®ose 
65A0 DENT SOC4ECSC34 C40 S5A9 A567 MOPD DC €L10*oPp o¢c @ w| & 0001 8553 SSWIF EQU  x*o03° 
6508 4040 8507 ; | 0002 8554 sSw2E—E FGU x:O9" 
65AA ESCSCSE7OT40NC S05 6583 B508 MBO oc CL1Q°UNEXP ENT 2 0001 8555 S$S¥2F EQu  xtore a 
6582 £340 8508 | &s 0200 8556 MOOTYP EQU  xezOG- 
€584 O050961£4C 3404 140 658D 8509 By oc CLio* ARZUC s | 0208 8557 S8YTEO Equ x*2088 
658C 4040 8509 020A 8558 SBYTE2 EQU  xes0KR® 
€58€ OSO961ESC340DEC6 65C7 8510 MBO oc GLO *NRvUC OFF « &> 0208 6559 SBYTE3 EQU <**20g* 
65C6 C640 8510 | ; 020D 8560 SBYTES EQU  x*20D2 
6SCB COCA C240E2DS5SE 240 6501 8511 MB2 oc CL.AO*HDB shS NG? | 0232 8561 TEST EQU x*2Z128 
6500 05C7 BELL ie O2Z1A 8562 PRINT EGU xerzat 
6Sp2 C2ZE2ZC3CI6009C Ci 6SDB a5;2 MB4 oc CL10* BSCA~READY? ; | 0216 8563 LINK EQU x*2168 
6SDA CeEB 8512 | O224 8564 LOAD EGU xeazat 
650C C1C360D5D660C DS 6SES 6533 MAS oc CLIO* AC@AQ@INT 2° &3 O21E 8565 UNFACK EQu x*21E8 
€5€6 €340 8513 | 0020 8566 PIIAR EQU x*208 PROGRAM 1 LAR 
€SE6 Fl 6S5E6 8514 DECONE OC TLGegs aDECE MAL ONE i 00CO 6567 IARI EQu x*coe INTERRIPT LEVEL § TAR 
ESE? $040404040406 (40 6SFO 8515 BLANKS DC GOCLE® ¢ ) & OOA0 8568 IAR2 EQU x*A08 
65EF 2040 8515 8569 
65F1 00 65F1 8516 ERERTN pc XLGtoe 8569 
E5F2 06 6£5F2 8517 ERRHLT DC X17 08 | 0049 8570 IN3ZCA EQU_ x#498 TIO 32CA INST o 
€5F3 01 6S5F3 8518 IPLELG OC M2046 eROUTINE FLAG FOR PROC. Cte | 004C BS71 BSCAEM EQU  xeace TIO BSCA/3271 EWUL> ENSTo 
65F4& 0000 6S5F5 8519 URKFATN DC XL2*o° 1 0058 8572 NOTRDY EQU  xe5S8e TIO NOT READY 
65F6 0000 65F7 6520 UNPHLT oC XL.2¢ Ge 3 es 0059 8573 INTPND EQu = xe gge TIO INTERRUET PENDING 
ESF 8 4040406040408 (40 6601 8521 ERRLOG OC ioa.ae @ *| us O0OSD 8574 ATTCKK EQU  xeSsDe TIO ATTACHMENT CHECK 
6606 4040 8521 | GOSB 8575 CSCrix EQU x°5Sg¢ TIO C.Se DATA CHECK 
8522 OOSE 8576 FETKERD GQU x*SEt Tiu CeSe WRITE OATA CHECK 
6602 CO B87 64C2 @523 ELLINK B G&_PORT cE XTERNAL LINKAGE BRANCH #| QOSC 8577 FETADR EQU xK*SCr TIO CeoSe ADDRESS CHECK 
6606 CO B87 4037 8524 TERLNK B LNKTER sEXTERNAL LINKAGE BRANCH a OOSA 8578 HOBCHK EQU xeSAP TIO HOBSEXT CHECK 
660A E2FBFOFOC6FOF OO 6613 8525 ULGGL oC CL10®S800F O00Q~8 | © OOSF 8579 BUSY EQU  xX<«5Fe TIO ATTACHMENT @USY 
6612 FO6O 8525 0048 8580 HDGO Eau -xeage LIO/SNS HOB 10-45 
6614 D409CSFOFOFIF FO 6610 8526 ULGG2 DC CLIO* MRE OO! EOE | 0049 8581 HDBI EQU  x4g8 LIOQ/SNS HOS 12°33 
6610 C560 8526 @ 004A 8582 HDB2 EQU xXcant LIG/SNS HDB 14«15 
661E D&D9CSFOFOFOC 1 6627 8527 ULCG3 DC CLIC? HREQOOEL6—* 00468 8583 HDS3 EQU  xX*4age LIO/SNS ROB 16-27 
6626 F660 8527 | 004C 6584 HDBS EQU xeace LIO/SNS HOB 18-19 
6628 C3CLE4E3C9D6D £40 6652 8528 oc OL43*CAYTION - INCORRECT UDT AND/OR HARDWARE FORE & 004D 8585 HDeES EGU x*ane LYO/SNS HOB 14-48 
6630 6080C905C3D60 99 8526 OO4E 8586 HOBG EQU  x*4EF LIO/SNS HOB 1C-10 
€638 CSC3ESA0ES COE 240 8528 | O04F 8587 HOBT EQU xX*are LIO/SNS HOB 1E<-1F 
6640 €105C 46106096 (cB 8526 & 00S8 8588 CTSTOR EQU x*58* LIO/SNS CONTROL STORAGE 
6648 Ci 09C8E6C1D9C £40 8528 | 0089 8589 OPDEC EQU  x*s9* LIC OP DECCSE REGS ~ 
DATE O7 JULTS 28 ccT7Ts ISJANTS PROG {ic o8si ~2! DATE OT SULTS 25 (CT ?75 ISJAN76 : ; PROG IO 0891 -<% 
EC NO. 825023 82 £032 825036 PAGE To | EC NOs 6828023 824032 825034 7 PAGE 70a’ 
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IBM MAINTENANCE DIAGNCSTIC PROGRAM PART NOe 4234255 
. PaGe Tala 
2 8912 DISPLAY ADAPTER TEST 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

€: FFFF 8624 ENO 

G 

OQ 


920000 0 


| 


00 


PAGE 71 
8912 OXSPLAY ADAPTER TEST 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
00538 8590 MSDAR E£QU = xXx*5B° LIOssNS CRT LS ADDR REG (CRTAR? 
0058 8591 SICI EQU  x*S5B¢ SIC IMMEDIATE 
0046 8592 SIONIO EQU = x*aBe SIO NON-IMMEDIATE LINE 0 
0049 8593 SIONIi EQU = x#agr SIO NON-IMMEOIATE LINE 1 
008C 8594 BSDAR EQU  x*ace LIO/SNS BSCA 2 ADOR REGC(BSCAR) 
8595 TREP 
8596 + SECTION €91 - ISYS/32 OISPLAY ADAPTER TEST 
: S97 TREP 
BSGSH KHRKSKASEKAASSLSHKRSSKSEKKVASSRSSESKKRAKSESE SKK SKK SA KSEE KKESTCSREKEKREKRASKRKKAKERKEEK 
8599 TREP 
8600 * SSW 10 ON PRINTS HOG*S IN ROUTINE 04 ANC 0S a 
Be 8601 TREP 
8602 * SS 12 ON PRINTS CCATRCL STORAGE IN ROUTINE 07 * 
8603 TREP ; 
8604 * SSW 17 ON BYPASSES CCNTROL STORE LOAD FOR A TIGHT LOOP WHILE * 
8605 TREP 
8606 » LOOPING ROUTINES. * 
8607 TREP 
8608 * SSw 1C ON CAUSES ROUTINE 24 TO GE SKIPPED. * 
8609 TREP 
8610 * MANUAL SELECTION ROUTINES- * 
8611 TREP 
8612 = ROUTINE 41 = CoE. MANUAL MICROPROGRAM * 
8613 TREP 
8614 * ROUTINE 42 - CoE. TEST BOX CHECK OUT ROUTINE * 
8615 TREP 
8616 * ROUTINE 43 - HDB AND CONTROL STCRE OUMP UTILITY * 
8617 TREP 
8618 * WARNING - THIS SECTICK DESTROYS THE MICROCODE REQUIRED FOR SYSTEM  # 
8619 TREP 
8620 * OPERATION. RUN SECTION 893 TO RELOAD. * 
8621 TREP ' 

—— S622 SHHKSSSKERE ES BKERESRE ED SSSRESKKKA KKASST SRE SRE LHS SSSKLVEAKSEKSASEKRETARHSARERED- 
1 
| 
| 
| 
| 
| 
| 
i 
| 
{ 
| 
\ 
| 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8912 


SYMBOL 


ACHCHK 
ACTERR 
ACTR3F 
ADONO 
ADDYES 
--¥ ADRA0O 
ADRBOO 
ADRC 00 
AORMSG 
ADRLOO 
ADR200 
AOR 300 
ADR4O00 
ADR500 
ADR6O0O 
ADR700 
ADRBD0 
ADRIOCO 
AEH3C 
AEH39 
AGAIN 
AGAIN 
ARR 


ATTCHK 


ATTFELG 
ATTMA 
BADDR 
BADTIA 
Acted: weg 8d BCYST 
BCYSTA 
BCYSTL 
BLANKS 
BLOCK2 
BLOCK3 
BLOCKS 
BLOCKS 
BLOCKS 
BLOCKT 
BLOCKS 
BLOCKS 
BLOKIO 
BLOK 11 
BLOK1L2 
BLOKL3 
BLOK 14 
BLOKILS 
BLOK16 
BOSADR 
BRUO 
BSCAEM 
BSDAR 
BSSER2 
BSYERR 
BSYER] 
BSYERZ 
BSYER3 
BUSY 
88910 
cBl2 
CCYSTL 
CHKBLK 
CHKEND 
CKFEN 
CKFENL 


DATE 
: €C NO. 


DISPLAY ADAPTER TEST 


aj 


004 
ool 
co2 
006 
006 
004 
004 
004 
028 
004 
004 
004 
004 
904 
004 
004 
004 
004 
062 
002 
004 
004 
001 


901 


00! 
002 
002 
004 
061 
004 
002 
001 
004 
004 
C04 
00% 
004 
004 
00¢ 
004 
004 
004 
004 
004 
004 
004 
004 
002 
002 
001 
001 
004 
004 
004 
006 
004 
001 
001 
004 
002 
004 
006 
004 
004 


PPP PP r PO rPPrPPEEOO DP rPPPrPrPPrPEPPYPP rrr PP PrP PrPPrPrprPr CO OPP PEP PPrPPrP PPP P PPP PPP PDP wp 


OTSULT 
825023 


LEN VALUE 


5iF7 
62E6 
4A56 
49FE 
4A26 
1550 
1569 
1582 
449F 
1467 
1480 
1499 
1482 
14Co 
iSE4 
L4FO 
1516 
1537 
398C 
398A 
5C44 
LOE 
0008 


0050 


6160 
6142 
5A05 
&C42 
38B6 
38689 
38BC 
65F0 
SA4E 
SASF 
SA76 
5SA81 
5898 
Saad 
5SABF 
S5AD1 
SAE 
5AFD 
SBOF 
$821 
5838 
584D 
5856 
5A4T 
SDA4G 
004C 
oosc 
3886 
3743 
3814 
3772 
388E 
O0SF 
0000 
54D6 
Sune 
644C 
6458 
4815 
4826 


5 


DEFN 


7108 
8331 
6571 
6550 
6559 
1015 
1023 
1031 
6259 
0941 
0S49 
0957 
0965 
0973 
0981 
0989 
0997 
1007 
5888 
5587 
7871 
0676 
8542 


8574 


8211 
8205 
7658 
6743 
5860 
£861 
5863 
8515 
7689 
7695 
T7014 
TT07 
7715 
7721 
T727 
7733 
T141 
W747 
7753 
7759 
TT6T 
7773 
Wis 
7686 
7961 
8571 
8594 
5837 
5316 
5790 
5336 
5842 
8579 
00046 
7295 
5864 
8422 
8425 
6474 
6481 


250CT75S 
825032 


REFERENCES 


7103 
8271* 82734 
6547% 6548 


6549 

1608 

1016 
1024 1032 
6250 6254 


0942 

6956 

0958 

0966 

O9T4 

0982 

0390 

09398 

5578 

5567 

7882 

6687 

0643 0649 
7838 7844 
0073 0225 
6124 8260 
0224 0226 


7587 7586 
6742 

5863 

ST75® $799 
5782 5830 
8041 8099 
1625 

1690 

7696 

7702 

7710 

IT16 

7722 

7708 7728 
T7736 

7742 

1748 

1734 T7754 
1762 

T7638 

T774 

T631% 7632 


5782* 58304 
5828 

5307 

5780 

$328 

585% 

67248 


7292 


84207 8421 
8423 
6473 
6460% 6463 


ISJANTS 
825034 


CROSS-REFERENCE 


8275* 8277* 8279% 8281% 8286 8291 8297 8311 


1175 
7915 
0236 


0238 


5801 
6807 
8261 


7633 


6807% 


6425 


6222 6534 6966 
7398 8255 8266 
0454 0465 0890 


0453% 0455¢ 0467 


$807 5809. 


842T¢ 


6493% 6494 


7159 7328 7332 7386 


8334 8368 8396 
1054 1079 1104 


80232 B205* 


1253 
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ccna 


8912 


.£ SYMBOL 


CKFFY 
CKFFYL 
CKHIZ 
CKLOW 
CKLOWZ 
CLRBLK 
COAX1 
COAX2 
COAX3 
_ CONTUE 
CS CHK 
CSLO 
CSWORD 


’ CTSTOR 


BGECONE 
DEC30 
DEC3E 
DEC33 
DEC34 
7578 T7933 “*  DECa5 


DELAY 
7038 7815 DEVADR 


_ DEVID 

i oo DEVE 

| 

a DISERR 
DOHIS 


_ DOHIS1 
_ DOMICR 


w, 

© 
canes 
DGMIRA 
DOMIX1 
DORT42 
DOR 3C 


:EAOOR 
EHBP 


rm, 


* EH3C 

EH39 

ELL INK 
“ELPFLD 
ELPFST 
ELPO 

ELPORE 
ELPORT 
EMPFYE 
ENODF IL 


CN 


cs 


see, 
$ 


ENDONG 
ENDYES 
END3F 
ERHC1L 
ERHC2 
ERRHLT 


re, 


so 


: 
| 
| 
| 
| 
| 
| 
| 
¢ 
| 
| 
| 
| 
| 
| 
| 
| 
i 
| 
| 
| 
| 
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DISPLAY ADAPTER TEST 


004 
004 
004 
004 
004 
004 
013 
O12 
039 
004 
001 
ool 
002 


Oo PPaAYrrPrPPrprYrrrppr a 


090i 


ool 
002 
002 
602 
002 
002 
006 
ool 


PPPrrp Pm b 


& 061 
A 001 


004 
904 
C04 
004 


> bP > bP 


004 
004 
004 
004 
006 
002 
001 


004 
004 
804 
O17 
O15 
004 
004 
004 
004 
003 


PPPrPpPrprrrp PrP PrP rrp pb 


004 
004 
004 
002 
002 
Cel 


PP rpb Pr 


LEN VALUE 


47C5 
4703 
5E70 
5E6A 
5€90 
6454 
440C 
4510 
4537 
2Cid 
0055 
5A08 
5A02 


0058 


65E6 
4AC2 
4AC4 
359F 
35A1 
3543 
S51F 
4538 


61 AF 
4AAE 


3709 
5C65 
1102 
54FE 


54EF 
555F 
5558 
296E 
402C 
54£07 
5540 


397A 
395C 
$602 
64E5 
6404 
63FE 
64BE 
64C2 
4802 
5908 


465A 
480A 
4887 
6298 
62D2 
65F2 


OTIULTS 
825023 


DEFN 


6448 
6451 
8064 
8060 
8068 
8424 
6261 
6263 
6264 
3808 
8575 
7660 
1656 


8588 


8514 
6606 
6601 
5206 
5107 
5103 
7341 
6265 


82106 
6567 


5367 
7884 
0689 
7332 


7328 
7360 
7359 
3480 
5976 
T6593 
7352 


5580 
5569 
8523 
846! 
8450 
8396 
8458 
8459 
6466 
7639 


6496 
6471 
6512 
8303 
8322 
8517 


250C775 
825032 


CROSS-REFERENCE 


6463% 


2278 
7647% 
1624 
7735 
OT75¢ 
1262 
6S57% 


6005% 
S0S7% 
61 89% 


6217% 
63714 
$6425% 


1374 
2303 
3252 
3898 
4899 
5321 
6899 


7336 


7590 
33174 
T357% 


B416 
8407 
6509 
8453 
8523 


7692 
T7164 


6464 


763} 
TT41h 
O817% 
2835* 
697i 


60164 
6108% 
6200% 


6324 
6378% 
643 2% 


1441 
2383 
3224 
4057 
4998 
5324 


7356¢ 


T6216 
3760 


8435 
8414 
6825 


7698 
7770 


6506% 6817 6819 


REFERENCES 

6447* 

6450® 6453 

8061 

8057 

8065 

8421% 

6238 

6242 

6246 

0079 0081 

7608 76104 

T602# 7620% 

W72i «T7127 

OLT2* O757% 

1243% 1249% 

6955* 6956% 

8407 

62716 

6282 

5083 

3089 

5095 

7345 

5993% $999% 

6035# 6091% 

6177*® 61835 

0060% 8073 

6310® 6314 

63644 63638 

64182 6422 

5342 

7880 

06e5 

1278 1284 

2083 2212 

3010 3071 

3837 3871 

4662 4761 

5217 5303 

5985 6230 

7328* 7332¢% 

7335 

3478 

5971 

7580% 7568 

1275* 2851% 

4516# 6229% 

$588 

5587 

8458 

8408* 6415 

OO61* 8125 

2887 3361 

8446 8449 

8396 8406 

6449 

7609 7627 

7756 7760 

6482 

6452 

6475 

3260¢ 

82644 

28854 
ISJANT6 


- 825034 


T634% 
7747 
0829 
3624% 
6975*% 


6022 
6114% 
6206% 


6327% 
6381% 
6435% 


1556 
2433 
3320 
4063 
5133 
5502 


3780 


8465 
7237 


TT04 
7776 


7806* 8044% 


7635 
7753 
0823% 
3634% 
69782 


6028* 
120% 
212% 


6330% 
6384% 
643 6% 


1632 
2489 
3486 
40T4 
5138 
$659 


3808% 


8466 


78i6 


TTh2 
7780 


76434 
7761 
0826 
3669 
6982% 


$0392 
613132 
6249 


63378 
6391% 
454% 


1698 
2603 
3520 
4172 
5143 
5663 


3832% 


8152 


7718 
7782 


82626 


7689 
T7687 
0866% 
36704 
7034 


6045% 
6137% 


6341% 
53954 
6457 


1760 
2665 
3626 
4267 
5191 
5683 


7695 
7773 
0886 
3673 
7347 


6051% 
6143 


344% 
63984 
648 4% 


1823 
2725 
3636 
4418 
5197 
5776 


3866*% 3893% 


8318 


TI2e 


8399 


7730 


7701 
77S 
1050 


3682 3687 
76338 


76193 


60622 


6351% 63542 
64058 64088 


T7039 


LO75 


60688 
154% 6160% 


6487 6556 


1887 
2766 
3765 
4470 
5202 
5795 


1943 
2853 
3785 
4517 
5207 
5846 


PART NO. 4234255 
PAGE 


72a 


TTS 


1106 
36S5: 


60748 
61668 


63578 
411% 


6565 ee 


1399 
2958 
3813 
4564 
$212 
5852 


%266% 44178 4469% 


T7138 774% 7750 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4234255 IBM MAINTENANCE DIAGNOSTIC PROGRAM : PART NO. 4234255 
“ PAGE 73 PAGE 73a 
8912 DISPLAY ADAPTER TEST _ 8912 DISPLAY ADAPTER TESi 
CROSS-REFERENCE tS CROSS-REFERENCE 
SYMBOL T LEN VALUE DEEN REFERENCES © SYMBOL T LEN VALUE ODEFN REFERENCES 
ERRLOG A O01 66012 8521 OOLS 2883% 2884* 3332* 3336% 3340% 33548 3355% 33562 6508* 6645% 6670* HONGA A 047 5CF4& 7903 7840 
6810* 6814* 6823 7163* 7164% 7208* 7209% 7214% 7218 7224* 7291% 7294*% : HDNGAL A 047 #1191 0708 0645 
7814* B041* 8042* 8043% 8048% 8049*% 8052% 8053" 8058 8059%* 8062* 8063+ HONGB 4 047 SD2A 7905 7868 7887 
8066* 8067* 8070* 8071* SO79% B080* SCBL* 8086* 8087*% 8090% 8093* 809R% HONGB1 A 047 11C7 0710 0673 0692 
. 8099*% 8109* 8115* 8143* $146*% 814% 8183% 8261% 8288t 8317* 8364 8468 f HONGMA A 012 5037 7907 7862 
2 ERRPOE A 001 63FB 8385 8269% 8270 8270* 8372 8373% 8374 83744 HONGM1 A O12 1104 0712 0667 
ERRPOS A 001 6307 8384 8337* 8338* 8342* 8343* 8347% 8348% 8349% 8353% 8354% 8358% 8359% 8363% HONGL & O47 1158 0796 0651 O671 
ERRRTN A OOl 65FL 851€ 2886* 6507* 6818* 7807* 8045* 8263 8403 8443 8448 + #OXxXl A 002 11D6 0713 
ERRT A 0046 62E1 8328 8255* 8257 8258* 8266* 8295 HDO1 A 002 SCT7A 7892 7850 7869 
ERRO A 004 6250 8284 8280  HOL1 &£ 602 1117 0697 0655* 0674 
ERR1 A004 6255 8280 8278 { HD2 A 002 5C7C 7893 78518 
ERR2 & 004 624D 8278 8276 HD21 A 002 1119 0698 0656% 
ERR3 -A 00% 6245 8276 8274 HD3 A 002 SC7E 7894 7852 
ERR A 00% 6230 8274 8272 i WDO31 A 002 111B 0699 0657# 
EXERR A OOl 62E5 8330 8259% 8268 8289 8297 8304 8315 ' HD4 A 002 5C€80 7895 7853% 
EXPR3F A 002 4A54 6570 6548 ‘ HD41 A 002 1110 0706 0658% 
EOOFF A002 1981 1386 1372 1380 £ HDS A 002 S5C82 7896 7854% 
ESS5AA A 002 1995 1395 1389 HDS1 A 002 L1LIF oO7O1 06594 
‘ FETADR C 001 O05C 8577 0223 0452 0868 6687 6706 8274 _ HD A 002 5C8& 7897 7855% 
FETWRO C 001 OOSE 8576 OO77 0222 0451 0867 8276 5 HD6l A 002 1121 0702 06604 
FET3IN A QOO4 1528 1003 1000 ' HDT A 002 5C86 7898 T7856 
FILLCS A 004 5980 7624 7616 7637 HO71. A O0O2 1223 0703 06612 
FILLFF A006 59Cl 7631 7628 47636 7693 7699 7705 7713 7719 7725 7732 %1739 17745 7751 - HDB A 002 5C88 7899 7857 
7757) «7765S «677710 TTTT O7783 ~ HD81 A 002 1125 0704 C662¢ 
FOUR A 001 5All 7667 7586 7796 HIBITS A 004 548E 7275 T7272 
GET1KB A 006 SSSA 7596 7595¢ i HOLOL A002 ODEC 0404 0244* 0249 0253 0255 0261 0473* 0478 0482 0484 0490 0820% 0827 
GOELPO A 004 SFBF 8152 1298 8141 £144 68147 8150 ; 0831 0835 0841 
HALT € 001 0222 68543 2888 3366 6510 6537 6642 6657 6664 €683 6702 6720 6738 6755 HOLD2 A 002 ODEE 046405 O0246* 0249 0253 0255 0266 0475* 0478 0482 0484 0495 0826% 0827 
6775 68798 6828 6931 6940 6944 6947 6950 7240 7819 8i57 832i ~~ 0831 0835 0846 
HAVINT & 003 38E2 5513 5507 ; ~ TARI C 001 OO0CO 8567 
oe HCADR A OO2 5C38B 7866 78468 TAR2 C 001 O0A0 8568 5476% 55242 _— OO 
HOADRI A OCO2 10D8 0671 0653¢ _€ INCFLC A 001 OFFT 0593 0435* 0514* 0519 9528 6544 05728 
HOBA A002 0053 0356 0260* 0297 0314* 0317 0372* 0489* 0602* 8019 8024 ~ INCFLG A OOL 0060 03646 0206* 0285* 0290 0299 0315 0343 
HOBAC A 002 OFEC 0587 0526* 0543 0546 INSWR A 004 SA4A 7684 
HDBCHK C 001 O05A 98578 0078 0303 0321 0532 0550 8272 t INTEX1 A 004 3964 5574 5566 
HDGERL A 004 37E1 5372 §351 ' 'INTEX2 A 003 3982 5585 5577 
HDBER2 & 004 37£9 5377 5356 INTFLG A 001 394C 5561 5473* 5477+ 5494% 5497 55238 5527 5565 5574% 5576 
HOBH A GG& SbE7 7838 0325 7014 ; i INTPNO C 001 0059 98573 
HNBHL A 004 1084 0643 0554 7016 “ INT38 A 006 3940 5565 $560 5586 
HOBL A 00& SBFO 7844 0327 7613 INT38A A 002 3948 5560 5476 5524 
HOBL1 A 006 1096 0649 0556 7015 ' ~ IN32CA C 001 0049 8570 
HOBST A002 ODSF 0363 0205* 0286 0297 0301 0324 0326 0340 0342 ~ JOCHKN A 003 4820 6633 
HOBSTC A 002 OFF6& 0592 0434* 0515 0526 0530 0553 0555 0569 05719 TOCHKO A 004 4855 6652 6647 
HOF) C col 0048 8580 0161 0243 0244 0243* 0246 0288 0298 0369 1372* 1379 14398 1552% -§ IPLFLG A 001 65F3 8518 6614 6832 8405 
1561 2658* 2660% 3222% 3316* 3329 3485% 3500*¢ 36468 3653% 3658 40674 ' KATM A029 16FC 1339 1274% 1283% 1293 
42648 44158 4467* 4514% 4993% 5983% 62278 7166 7850 KATMA A 043 1938 1341 1297 
HOB1 C001 0049 8581 1373 1368 1553 1569 1630* 1645 3330 3492% 3501® 3642® 4068 4767 { KATMM A 020 1910 1340 1274 1283 
W167 47851 LABEL A 004 OA24 0052 0051 
HDB2 C 001 O04A 8582 1554* 1577 1629% 1637 3331 3493% 35028 3615% 3618 3.43% 3763¢ 3783 LABELR A 004 OA2C 0054 0053 
3811% 3835 3869% 3896% 4069% 6634® 6636 6552% 7168 7852 " LCSDOIS A 003 596A 7600 
HDB3 C 001 0046 8583 1695* 1703 2844% 2859 2861 34948 35038 3764% 3784% 3812 3836% 3870 LCSENA A 003 596D 7601 . 
389T* 4070* 5343¢ 5349 7169 7853 : Lbop A 004 5D38 7915 0204 0240 0433 0469 3603 3612 6892 6928 7012 7027 7614 
HDB C 001 O004C 8584 1696* 1711 2850*% 3495 35048 4O71® 6547 78546 (_. LFLac A 003 5A03 7657 7584 7593 7598 7612 7615 7626 7639 7691 697 7703 T7711 7717 
HOB5 C 001 0040 8585 3228 34968 3505* 4061% 4765 7855 ‘ 7723) 7729) «7737: «-7743) «7749 «O-7755S) «7763-7769 7775 = 7781 
HDB6 C 001 QO4E B5e6 3497*% 3506* 4072% 7856 LINK C 001 0216 8563 0074 0088 0109 0115 01221 0127 0133 6139 0176 0371 0601 0779 
HD87 COOL O04F 8587 0163 029% 0318 0744 0745 0758 0864 0869 3498 3507¢ 4073% 7857 . & 1143) 1289 1300 1397 1445 1585 1653 1719 1764 1827 1891 19467 
HOB900 A 002 303A 4366 £255 4406 4458 4505 5976 2003 2087 2216 2307 2387 2437 2492 2668 2729 2769 2857 2890 
HDB901 A 002 3038 4365 6042 6105 6163 6342 6379 6412 2961 3013 3074 3155 3252 3325 3368 3523 3703 3744 3849 3906 
HDB9GZ A 002 3036 4364 6036 609% 6157 6339 6372 6609 i %) 4025 4078 4108 4136 4176 4274 4425 4479 4524 4568 4666 4776 
HDB90% A 002 3034 4363 6025 6088 6151 6209 6331 6369 6406 6439 ! 4903 5002 5102 5146 5220 5365 5530 5682 5691 5858 6012 6035 
HD6908 A 002 3032 4362 6019 6082 6140 6203 6328 6365 6399 6436 6058 6081 6104 6127 6150 6173 6196 6215 6256 6512 6833 7821 
HDE910 A 002 3030 4361 6013 6GO7l 6134 6197 6325 6358 6396 6433 iO 8159 8324 
HOB920 A 002 302E 4360 6002 6065 6128 6186 6318 6355 6392 6426 LIOCS A 003 5S99F 7618 7576 7581 7622 
HDB940 A 002 302C 4359 5996 6059 6117 6180 6315 6352 6385 6423 _ LISELA A 002 303C 42369 4256 4407 4459 4506 5977 §991 5997 6003 6014 6020 6026 6322 
HOB98C A 002 302A 4358 5990 6048 6111 6174 6311 6345 6382 6619 - & .-LISELB A 002 303E 4379 6037 6043 6049 6060 6066 6072 6338 
HONG 4&4 047 SCBE 7901 7846 7866 ; LISELC A 002 3040 4371 6083 6089 6095 6106 6112 6118 6366 = 
| 
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DATE OTJULTS 250C1T75 ISJANT6 PROG ID 0891-2: DATE OTJUL75 250CT75 LSJANT6 PROG ID 0891-2 
’ EC NO. 825023 825032 8250346 PAGE 73 EC NO. 825023 825032 825034 


PAGE 73a) 


CG 

© 

© | 

© | | se 
° | | 

© 


i 
| 
| 
| 
| 
| 
| 





¢ 
s 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOeo 4234255 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. & 234255 


PAGE 4a =; PAGE T&A 
B912 DISPLAY ADAPTER TEST 
CROSS-REFERENCE \.. 


8912 DISPLAY ADAPTER TEST 


CROSS-REFERENCE 


SYMBOL F LEN VALUE ODEFN REFERENCES SYMBOL YT LEN VALUE DEFR REFERENCES 
LiSELO A 002 3042 4372 6129 6135 6141 6152 6156 6164 6393 H¥FE2 A O10 GEDA 6852 6810 
LISELE A 002 3044 373 6175 6181 6187 6198 6204 6210 6420 NTFES A G10 4&EE4 6853 6814 
LNKTER A 006 4D37 6835 6623 8524 NIFHLT A GO2 4D2A 6829 6649% 66712 6B1L1% 6815* 6817 
LGAD C 001 022A 8564 £835 6903 7110 NYTFIDE A 002 4018 6824 6619 
LOADCS & 004 5938 T577 L270 1365 1432 1545 1622 1685 i754 L8t7T 1861 1937 i993 2066 NTFLIO A 003 SEED 6856 671i 
. 2070 207% 2078 2203 2207 2297 2377 2427 2473 2477 2481 2485 NTFLOG A 006 4D02 6817 6650 6672 6812 
2599 2661 2714 2719 2750 2755 2760 2839 2953 3005 3065 3144 NTFML A GiS 4DA& 6841 6627 
3148 3215 3305 348C 3516 359% 3665 3701 3749 4753 3755 3775 - NTFM2 & 033 4DCS 6842 6631 
3794 3798 3863 3822 3826 3850 385% 3857 3860 3880 3884 38ST TEMS A O26 4DDF 6843 664) 
4051 4162 4258 4400 4409 4461 4508 %557 %655 4754 4892 4987 NIFM4 A O37 GE0% 6846 $656 
$129 5187 5299 5467 $517 5635 S769 5979 6223 6539 6778 680) NEMS A O27 GELF 6845 $653 
68394 NTEM7? A 049 4650 5846 5682 G7GL S719 6737 6754 O6TT4 &797 
L0491 4 003 SD47 FE1s 7922 NTFMB A O14 4ES9 6848 6676% 6678 6693% 6697 STLI¥ 6T7T15 S729% 6733 
LO402 A 004 S6HSE T2926 79152 - NTFRH9 A 028 4ECE $850 67468 6750 &766* 6770 4799% 6793 
LOGADL A 002 650D 8%65 6420 NTERST A 004 4BBS 66906 0038 
LOGADR A O02 6S0F 3466 2425 NTESIO A 0G3 EET 6854 S674 
LOGHLT A O10 O4F9 846% 8416% 8437 NTESNS A GOS GEEA 6855 6693 
LOGLOG A 018 6508 8464 64389 8442 8445 8450 6452 NTETIO A 003 SEFC 6857 6729 
LOGROU & O10 64EF 8462 B415% 8433 NXT12L1 A 004 3900 5527 5526 
LOGXAC & 00% SFAT 8143 8130 8132 - NXT38 A 00% 38BE 5497 5498 
LOGYAC & 004 SFAF 8146 Gi34 8136 OPDEC C O02 0059 8589 B230% 0459% 3597% 3606% 55207 T919% 
LOGZAC A 004 SFBT 8149 S138 8140 OPDECD A 002 ODFC 9406 G229€ 0230 231% G232 O0458% 0459 460% C46) 
LOOK 4905 SBAC TBO9 TBl2 OPDECF A OL? OEOL 0467 0385 0615 8483 
LOOPIO A 006 6446 8421 8428 OPTDEF C 002 Gade 7496 
LPCNT A O62 $564 T7262 27248 2PI6SS 2OS2S 3223% 331B% BIGIF BTRLS 3809% 3B33% BBETS S594*% 2285% PADCHK A 004 6198 8292 BLe4 
S16? 468% 45157 4553% 46615 4T60% GE9Be 5984% 52258 F342 F345% . P&R & OOL 5450 7259 72628 7259% F2808 T28T? 7295 
RAL & 0420 65868 6504 6478 PASTCS A GOL 38BA 5862 577% S?PT4s SSL? 5820 
MBL & 029 6595 68505 8460 PCHK A GOS 6218 8265 7815 8207 
MBO A O1G 6583 8508 B&BS '..DERR A 004 8780 §368 8339 2344 625% 8355 8360 8365 
MBL A&A O10 65680 8509 8488 F PERRT A 004 6396 98375 3365% 
MB2 & 016 6507 85190 8430 PIORADR A 002 5342 7234 72208 72305 See em oe 
MB2 A010 65D 98511 $492 : PLIOBL A 004 $299 T7175 FLT 
HB4 & 010 65D8 6512 8494 ' BEOB2 A 004 52AB 7186 TL75 ~ 
MBS A O19 6565 8523 8496 PIGEH a 002 5357 7241 ¥236% 
MEIND A OOS SBEBB T8613 T8ie i PIGHLT A 004 $349 7237 
MEICEN & 003 551 7340 V32292 T3s3e  SFGLTH A OOL 5340 7233 T223% 72262 72297 
HICERR A 00% 5549 7351 PIGLL A 002 5455 T7255 FL662 TTL 
MICOM & 004 550A 7335 733% ¢ PIOL2 A GO2 5457 7256 Ti6Te® 7206 
HICOP A O1L 5SASB 7682 £32596 1426% 15396 1L616% 16828 1748 1812¢ 1875% 19315 1967% 21372 2292% PIOL3 A O62 5459 17257 7l68% 7186 7221 
2371 PIOREG & 004 5258 7159 G272 4423 4475 4522 6255 
MICPRE A O14 SA46 7683 1363 1430 1543 1620 1686 1752 1816 1879 1935 199) 220k 2295 i 1ORTN A 004 5350 7244 Ti5g% 
2375 “ pyORK1 A 002 5458 7258 FL7L® TL76*® %2i2 7217 7264 (17275 282 F288 
monTye C O01 0200 6556 PIOXRL A 004 $358 7243 7160% 
BuPD A 010 $5A9 8507 8484 _€ PLAST A 004 5328 7227 7225 
MSDAR C€ 001 0058 8590 “ PLASTA A 004 5338 7231 7228 
BPYABLE A 002 S511 8467 7868 PHS A 002 589C 7805 F7T9T# F739% 7809 
MVHLT & 006 5343 7236 FlLS62 7 é PRS & 00Z2 SBDS 7820 7798 
MYLG 4006 5BCO 7614 7TS1i3e ~ PRS A 00% SBEL 782% TTS3s F795 TH3I6* 
MEL &4 019 659F 6506 8482 : POERR A 004 6&2£8 8334 8292 8305 8312 
ROL A 6010 6560 86501 S472 é POERRT A 0O4 6370 82366 8334% $362 
BGK A 910 6553 8500 6475 SPGFLE & OOL 62ET 8332 829% 83046 B32L1% 9335 €340 8345 @352 6356 8361 
MEL &A 0190 6559 8499 84668 POLLWO A OOL 4A96 6575 63206% 6307 6307% 6569 
WSL & O10 658) 8503 8476 i fGOLLNR A O10 4905 6524 6506 
ASL A 910 687T 8562 Ba FS - BOLLYE A OOL 4ATE 6572 6306% 6305 6305% 656% 
REGS & O02 456 Tedd F2TO F2SE POLLGF & 004 4906 6554 631% 6316 6319 6326 6329 6332 6340 5343 6346 6352 6356 6359 
NEXT & 004 S470 F270 P26? é : 6367 6370 6373 6380 6383 6386 6394 6397 6406 64GT 6410 6413 
WHADR A O02 GLEL 8232 82262 = 6471 64264 6427 6434 6437 6460 6545 6545 
ROHAHG A O06 4CES& 6816 GT62@ 6785 6808 POLNA A& OOF &h50G 6568 6473 6689 6350 
NOPCT & 606 G&CFB SRi4 6686 6707 6726 6743 i POLYA A 002 4852 6569 O44 F &50 o559 
NORC & 0064 $2C1 T1L&s Tiel Flas ; “ pRBCS A GOL 3885 5859 5815 581¢ 
MORCL A GOG S324 F226 VeL2 PRINT € OGL Q21A 8562 0054 OO97 GL29 Gi54 0199 0428 0564 6668 0659 oTa2 0806 1220 
HMGTHE & G04 SE€3F 80659 BO47 : i > 1290 129% 1360 2427 1940 1617 1683 if&? 3213 i876 1932 1988 
noTLO & 9605 5E52 805% 805i : 2061 2198 2292 2372 2422 2467 2593 2708 2826 2872, 2875 2879 
MOTRDY C OG) OQ058 a572 9066 9214 9445 Les 2947 2999 3060 3138 3210 3306 3357 3362 3474 33589 3738 4021 
NPS A 003 SEFD 8094 B92 i & 4046 4104 4132 4157 4250 4395 4450 4500 4552 4650 4749 8837 
NITFEL & G19 4600 6832 6646 6570 4982 5098 5123 S181 5293 5460 5628 S7es 3967 6235 6239 &243 - 
DATE OF SULTS 2800 T75 LSJANTS PROG 35 SBSi«2 © axe OT SULTS 2Soct7s LSJ4N76 PROG i6 O894-~2 
; EC HO. 825023 625032 25034 PAGE 1% io* NOe 825023 825032 825034 PAGE 74a. 
' 3 


® 


= ‘ 


© 


q 
} 
‘ ¥ S = 





98© 06868080060 e8ee8eeee0e0e0e8s @ S®@e@-@ eee ®@e 
; . : ns : : “se 


18M MAINTENANCE OIAGNOSTIC PROGRAM — PART NO. 4234255 IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 4234255 
a3 Pee ge Bee PAGE 7% ; PAGE TSA 
8912 DISPLAY ADAPTER TEST . 8912 DISPLAY ADAPTER TEST 
CROSS-REFERENCE a CROSS~REFERENCE 
SYMBOL ¥ LEN VALUE DEEN REFERENCES SYMBOL T LEN VALUE DEEN REFERENCES 
6251 6298 6443 6459 6466 6471 6476 6489 6496 6498 6502 6616 RTLF =A O01 2634 32134 3058 
6624 6628 6638 6653 6660 6675 6679 6694 6698 6712 6716 6730 ' RTIFGP A 025 2FAB 4276 4253 
6734 6747 6751 6767 6771 6790 6794 6820 6826 6879 6883 6887 RTIST A u22 OABC 0090 00s? 
6924 7007 7124 7188 7192 7196 7200 7231 7238 7416 7445 7455 RTi0 A001 1C9A 1868 1807 
7801 7817 7859 7863 7884 8118 8154 8202 8229 8293 8299 98307 * RT1LOOP A 006 1CC8 1893 1875 
8319 8369 8409 8411 8430 8434 8439 28454 RT21 A GOL ICE9 1924 1870 
PRINTM A 004 5SB72 7793 0068 0083 O111 0117 0123 0135 0217 0382 0388 0446 0612 0618 T12 A001 1038 1980 1926 
2325 4861331 65311 5316 5332 5336 5367 5372 5377 5382 5386 5482 * RTL2ZCP A 006 LECA 2218 2197 
£488 5508 5532 5538 5542 5547 5552 5569 5580 5641 5652 5672 RT13. & COl 1D89 2054 1982 
5678 5693 5698 5785 5790 5833 5837 5842 RTLZ0P A 0606 1F55 2309 2291 
PRTABL A 004 4757 6443 6323 6336 6350 6363 6377 6390 6404 6417 6431 6441 / RT14 A OOl 1€93 2190 2056 
PRILOG A 00% 646C 8430 8426 RT140P A 006 1FD2 2389 2371 
PRIN A O01 OAO3 0012 0348 0577 4477 6690* 7227 7608 7610 7807 8045 6263 —— RTIS 4&8 001 1F27 228% 2192 
PSR C 001 0004 8541 1178 1179% 1200* 7389 7390* 7457% 8003 8004* 8161% ; RT1L50P A 029 2025 2439 2425 
PxR1 A004 5800 7623 77948 RT16 A001 IFAS 2364 2286 
POSFEX A004 4ASA 6566 65348 6557 RTI60P A 024 2749 3254 3213 
Pl A 00S S884 17797 - RTL? A 001 IFES 2415 2366 
P1IAR C COOL 0020 8566 5567* 5578* “ RTI7Q> A 039 286D 3374 3303 
RAPEXP A 002 4445 6232 6233 _ RT18 =A 001 2042 2663 2417 
RENTRY A OO1L 4EF1 6858 0048 0049% 6686* 6691 6705* 6709 6723% 6727 6740 6744 6758% 6764 { RT1LSOP A 024 287F 3710 3592 
6783* 6787 6806 RT19 A O01 2152 2589 2465 
RENTS & 004 4868 6709 6692 RT19M1 A 001 2B9C 3750 
RENTS A OOK “C46 6746 6728 : * RT19M5 A O0Ol 2806 3766 
RENTSA A004 4C17 6727 6710 ~ RT19M6 A 001 28D7 3776 
RENTS A 00% 4C€73 6764 6745 RT19M7 A 0O1l 2BF3 3786 
RENTG A 00 “4CAE 6787 6765 & RTLOST A 004 2898 3749 
REPEAT A 005 $512 7337 0215 0215 0235 0235 0444 0644 0464 9464 4169 4169 6936 6936  RT2A A 001 2F40 4243 4152 
j 6960 6960 7341 7341 _ RT2B A 001 43049 4388 4245 
REST A 006 5551 7356 7349 . £--RT2BML A029 4F49 6906 6882 
RESTOR A004 59F5 7648 7646 8536 8537 y ' ~ RT2BM2 A 046 4F77 6907 6886 
RESTR A 004 S9EB 7645 7640 _ RT28M3 A 043 4FAZ2 6908 6890 ences tea in 
RETBR A 004 SOFD 7652 8535 { RT2C A OOL 30C1 4446 4390 
RSTRT A003 620A 8326 8298 ~ RT2CAT A 001 5229 7130 7030* 7036 7108 7113¢ 
RIN A 003 546 7300 7298 '  RT2D A 001 3130 4493 4448 
RTOA A001 198A 1419 1354 { RT2D0P A 049 20BA 4006 3741 
RTOACP A 006 185A 1655 1616 “ RIZE A 001 3199 4545 4495, 
RTOB A OOL A688 1532 1421 ' «RT Z2EGO A 00% 4FAF 6928 
RTOBOP A 006 18C9 1721 1682 { RT2ZEND A 004 0818 0161 0170 
RTC =©€ 001 1AF6 1609 1534 ~ RTZ2F A001 3244 4643 4547 
RTOCOP A 006 1002 1766 1748 '  — RT2FLG A 001 0858 0177 0158* 0168 01469* 0173¢ 
RTCD 4.001 1865 1675 1611 1 { RT2LCS A 003 0834 0167 0164 
RTODGP A 006 1C61 1829 1812 ' ~ RT2LD A 004 0846 0172 0174 
RTOf AOOL 1804 1741 1677 ;  RT2L1O0 A 004 OB1F 0262 0161% 0163 0165* 0166 
RTOEOP A 006 1066 2005 1987 ; € RT2ST A016 OB6B 0179 0157 
RTOF a 001 1€33 1805 1743 |S e120. A001. 2688 3203 3136 
RTOFOP A 006 1017 1949 1931 | | RT200P A 024 30BA 4427 4398 
RTOOO A 0CO2 5077 6991 6982 ; €-RT21 A 001 2772 3293 3205 
RTOl A001 OAlO 0066 0014 RT210P A025 312F 4481 4453 
RTO2 A001 OASD 0096 0046 . |  RT22  & 001 2948 3470 3295 
RTO3) A001 0805 0150 0096 : € RT220P A 025 3196 4526 4503 
RT0@ A OOl OB6C 0195 0152 ‘ "'RT23— A OOL 2449 3585 3472 
RTOS a O00l OF02 0426 0197 '  -RT230P A 019 3103 4570 4555 
RTO6 A001 1107 0728 0426 ; € R124 & 001 2880 3734 3587 
RTO? A001 1287 0802 0730 . RT240P A 023 3282 4668 4653 
RTOTOP A 006 199F 1399 1359 : ‘ — RT25° A 001 «=«20C7 «4018 3736 
RTOS A 001 173C 1216 0804 ; i { RT250P A 033 3350 4778 4752 
RTOSOP A 006 190E 1447 1426 .  RT26 & 001 20€& 4039 4020 
RTOS =A 902 1930 2352 1218 ' _ RT260P A 029 3438 4905 4890 
RTOSOP A 006 AE? 1567 1539 1 € RT27 & 001 2€5F 4101 4041 
RT1A A001 «2228 2705 2591 ,  RT28 A OOL 2E7C 4128 4103 
RT16 =A 001 22F1 2822 2707 ‘  RT29  & 001 2€99 4150 4130 
RT180P A021 2E4A 4080 4049 ; i ( RT290P A 018 34DD 5004 £985 
RTIC }=6A COL «=6248D «2943 2824 - ~ RT3A A001 3983 $624 5458 
RT10 «=A 001 26FF 2995 2945 i - RT3AP2 A003 21E0 2657 2606 
RTIE AOOl 2583 3656 2997 i {:RT3B A001 3aa9 5756 5626 
®TIEOP A 029 2EE5 4178 4160 “RT3C =€ 001 4000 5964 5758 
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_ 8912 DISPLAY ADAPTER TEST. 


CROSS-REFERENCE ee CROSS-REFERENCE 





be 
SYMBOL T LEN VALUE ODEFN REFERENCES SYMBOL T LEN VALUE OEFN REFERENCES h 
RT3CST A 037 1020 0597 0431 ROLPRT A 00% OA6B 0083 0077 0079 0080 0081 0082 | 
RT3D A OOL 4538 6273 5966 RO2ZHDR A 016 OAAC 0102 0100 y 
RT3E A001 4549 6279 6275 RO3DT1 A 002 OCDE 0311 O275* O277* 0279* 0281* 0263* 0286* 0289 0292* 0301% 0304 0317% 0329 ‘ 
RT3F A 001 4557 6295 6281 : 0331 0333 0335 0337 M 
RT3FGO A 004 4595 6304 6302 * RO3END A 003 0088 0368 0350 ie 
. RT3FNA A 046 4594 6303 6301 RO3EPA A 004 ODAT 0382 0237 0239 ke 
RT3ST A O37 0087 0367 0202 ROZERR A 004 ODBE 0394 0303 0306 re 
RT30 =A OOL 32EB 4782 4645 ': RO3EO9 A 004 0083 0388 0321 i: 
RT30GO A 004 2488 2953 2951 RO3KO03 A 004 OBAB 0222 0216 0386 i 
RT32 A OOL 33F5 4880 4744 RO3KO4 A 004 O8C6 0230 0233 i 
RT31G0 A 00% 252F 3005 3003 RO3KO5 A 003 OsF5 0242 0222 0223 iz 
RT32. A 001 «203498 «4975 4882 RO3K06 A 004 OBES 0238 0236 i. 
RT32GO A 00% 258C 3066 3064 RO3K15 A 003 O0C98 0288 0276 0278 0280 0282 0284 in 
RT33 A OOl 355A 5080 4977 RO3K16 A 003 OC9B 0289 0288% 0293 0294 0295 o 
RT33GO0 A 004 2661 3144 3142 RO3K17 A 004 OCC3 0302 0298* 0300 0313* 0318 0319 | 
R134 A OOL 3568 5086 5082 RO3K18 A 0046 OCDE 0313 0305 L 
RT34G0 A 004 2079 2473 2471 RO3K19 A 004 O0D10 0329 0323 0392 
RT35  & 001 3576 5092 5088 RO3K20 A 004 OD47 0348 0341 
RT35GO A 004 35D6 5129 5127 RO3K21 A 004 OCAB 0293 0291 
RT36 =6A.001 #35a4 5119 5094 ; RO3K22 A 003 OCF1 0318 0316 
RT36GO A 00% 366F 5187 5185 - RO3NOE A 003 O8bF 0228 0225 
RT37 A001 3612 5177 $121 ROZONE A 001 0054 0357 N293 0313 ‘ 
RT37GO A 004 371A 5299 5297 : fF RO3SPRT A 004 OCD7T 0308 0396 0402 
RT33° 0 A 00L 86360F 65285 5179 ~ RO3ST A 004 O0B78 0204 6946 
RT38GO A 004 386F 5467 5464 RO4CNT A 002 1269 O781 O741 O741# 0772* 0773 
RT39° =A 001 3843 5456 $291 { RO&END A 002 1268 0782 0773 
RT4ST A025 1284 O786 0735 ROGERR A 004 1244 0766 0754 0763 | 
RT40 A OOl 4ACS 6611 6297 RO4EXP A 002 1248 0769 O740% 0746 0751 O7T1#* 
RT400 A 002 5079 6992 6975 f-.RO4KO1l A003 "LEZ 0740 0737 0738 
RT41 A OOL 4EF2 6875 6613 ~ RO4K02 A 005 124C O771 0747 
aes aT41G0 A 006 2326 2832 2830 RO4K03 A 004 L1FB 0745 o777 
RT42, A 001 4FA3 6920 6877 i RO“KOT A 004 128% 0779 0774 
RT43 A 00) 5092 7004 6922 ROSRTR A 004 1220 0757 0752 ms 
RTSST A O23 5917 7499 0809 R04Z7Z A 004 1240 0764 0761 
RT6ST A O35 18A8 1337 1223 { ROSART A 004 1446 0930 0896 0903 0907 0927 
RYL A 002 SCS& 7876 7s71¢ ROSAOO A 004 13E4 0905 0900 
RYIL A O02 1OF1 0681 06768 ROSDAE A 002 5677 7468 7452 
RY2 A 002 5C52 7875 TeT2¢ -€ ROSDAS A 002 5675 7467 7415 
RY¥21 A 002 10EF 0680 O67T* “ROSOCS A 004 5567 7386 0945 0953 0961 0969 0977 0985 0993 1001 1011 1019 1027 1035 
ROABOL A 004 1830 1645 1639 1043 1068 1092 1117 7095 
ROABO2 A 004 1651 1653 1647 ' € ROSOFL A 001 S66E 7462 7392* 7397 7400 7403 7406 7409 7412 
ROAEX1 A 002 183C 1643 1638 ~ ROSOKL & 004 55B8 7406 7398 7401 7404 
ROAEX2 A 002 1850 1651 1646 ROSDK2 A 006 55FO0 7421 7453 
RvAKO] A 004 1608 1622 1613 1614 , € RO05DK9 A 006 55E2 7415 7407 7410 7413 
ROAMCE A 0CO2 1864 1665 1626 ' " ROSDPS A 002 S66D 7461 73898 
ROAKCS A 001 1858 1660 1625 ROSCRB A 004 5668 7460 7386* 7391 7394% 
ROBBO) A 004 1B8AC 1711 1705 : € ROSDUP A 002 5620 7437 T415® 71440* 7451® 76" ” 
ROBBO2 A 004 16C0 1719 1713 ROSDWK A 002 5700 7491 T426® 7427) 1427* Fe =" 
ROBEX1 A 002 18AB 1709 1704 . RO5SOW] A 002 5679 7469 7396® 7399 7402* 7+ > * 7408* 7411® 7414 7424 7426 7450% : 
ROBEX2 A 002 188F 1717 1712 _€ ROSOX1 A 004 5660 7458 7387T* 
ROBKOL A 004 187A 1688 1679 1680 ~ ROSDX2 A 00% 5664 7459 7368¢ 
ROBMCE A CO2 1803 1731 16S2 ROSFS1 A 003 134A 0863 08534 
ROBMCS A OOL 18CA 1726 1691 / € ROSFS2 A 003 138F 0879 08542 
ROCKOL A 004 1869 1754 1745 «1746 ROSHC A001 1448 0932 0855 _ 
ROCMCE A CO2 1€32 1795 1758 ROSHDG A 010 5S6FE 7490 7419 , 
ROCMCS A 001 1C€03 1771 1757 { ROSINC A 002 16€2 1140 0864" 0865 0870 O872* " 
RCDKO] A 004 1C48 1817 1809 1810 / ~ ROSJC1L A 004 1680 1119 1004 1034 1037 1116 ae 
RODMCE A 002 1C99 1859 1621 ROSKOA A 004 1581 1046 1042 : 
RODMCS A 0O1 1C62 1831 1820 | { ROSKOB A 004 158A 1050 1064 : ma 
ROEKO] A 004 104D 1993 1984 1985 ~ ROSKOC A 006 1508 1060 1056 
ROEMCE A 002 1088 2027 1997 - ROSKOD A 004 15FB8 1072 1067 
RCEMCS A 001 1067 2010 1996 . { ROSKOE A 004 1604 1075 1088 § 
ROFKO] A 00% CFE 1937 1928 1929 ROSKOF A 006 1621 1084 1081 " 
ROFMCE A 002 1037 1970 1941 _ ROSKO]L A 004 133A 0857 1130 1135 
ROFMCS A OOl 1018 19546 1940 { ROSKO2 A 004 1355 ©6366 O877 
ROLAB A 00% Of64 0081 ooTe “ ROSKOT A 004 1392 0880 - 
DATE O7SUL75 250CT?75 15 JANT6 PROG 10D 0891-2 © oate O7 SULTS 250CTT5 ISJANT6 PROG 10 0891-2 
: €C NO. 825023 825032 825034 PAGE 76 £C NO. 825023 825032 825034 ~ & . : PAGE ' FORA 
| § : . 33% 
‘ | : woo } 
. ; a4 
t 


y i : 
one k any oa ne 


8912 


_ SYMBOL 
ROSKOS 


ROSKOS 
RO5K 10 
ROSKLL 
RO5K12 
ROSK14 
ROSK15 
RO5K18 
ROSK 96 
ROSLPR 
ROSONE 
ROSPAD 
ROSPAS 
ROS POX 
ROSPX 

ROSPOL 
kO5PO2 
ROSPO3 
ROSRST 
ROSSEX 
ROSSF1 
ROSSIN 
ROSSK1 
ROSSK5 
ROSSPC 
ROSSPS 
RO5SRB 
ROSSRR 
ROSSSC 


ROSST 

ROSSX1 
ROSSX2 
ROSUNP 
ROSWOL 


ROSH1is 
ROSWIE 
ROSXL1 
ROSZER 
RO57222 
R05010 
805100 
ROGACP 
ROGBME 
ROGBMM 
ROGEO1 
ROGKOL 
RO6KO2 
ROGKO3 
ROSKOS 
ROEKCE 
ROGKOT 
ROEKOB 
RO6MC1 
ROGEMC2 
ROOMC4 
ROONR 

g ROSGONE 
4 ROOPRT 
RO6WO]L 
06X81 





DATE 
EC NO. 


2 NAT Ot nt neni are 


Bee cuts. 


DISPLAY ADAPTER TEST 


T 


>So PrP PPP PPP PPPPrPrPPrPrPP PrP rRrPPPrErPP rPPrPPr pb 


PrP rr PrP rrrPrPpr> rrr Pr > > PPP PP D> 


LEN 
004 


006 
004 
004 
006 
004% 
004 


003 
004 
001 
002 
002 
006 
062 
004 
ool 
001 
004 
006 
001 
002 
004 


004 
002 


004 
002 


004 
004 
004 
0046 
002 


001 
256 
002 
002 
004 
ool 
ool 
004 
002 
002 
601 
004 
006 
004 
004 
006 
003 
006 
001 
002 
Go2 
004 
001 
004 
002 
002 


VALUE 
13A3 


144E 
1644 
1640 
166A 
1690 
16AC 
16C3 
138C 
1691 
56E8 
56EE 
56EC 
5683 
5622 
5670 
5606 
5607 
1336 
i38C 
566F 
5671 
1700 
1717 
16CA 
17368 
1736 
172a 
1698 


132a 
172E 
1732 
S6la 
5673 


5701 
$900 
1440 
S6E7 
1442 
S6EA 
56E9 
1870 
1870 
186E 
187) 
1790 
LTaE 
17Cce 
L7F9 
17ce 
17€1 
1810 
1867 
186A 
186C 
i671 
18B4E 
17Fl 
1850 
1860 


OTJULTS 
825023 


OEFN 
0886 


0935 
1096 
1100 
1109 
1127 
1132 
1142 
0876 
1121 
7482 
7486 
7485 
7471 
7438 
71470 
7472 
7473 
0856 
0893 
1463 
7%64 
1190 
1196 
1175 
1204 
1203 
1200 
1124 


0853 
1201 
1202 
7435 
- 7465 


T492 
7493 
0933 
74381 
6929 
7484 
7483 
1331 
1322 
1321 
1324 
1243 
1247 
1256 
1270 
1255 
1261 
1283 
1317 
1319 
1320 
1325 
1303 
1265 
1304 
1312 


250CT75 


825032 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 


REFERENCES 


0939 
o9a7 
0892 
1091 
1113 
1106 
1119 
1128 
1125 


0867 
1198 
7433 
7442 
7431 
14338 
7425 
T1421 
7421 


0890 
0811% 
0873 
1185 
1191 
0859 
11788 
11753 
1188 
0666 
1192% 


1176 
1177 
7443 
0640 
0957 
1063 
7055 
7098 
0882 
7468 
06934 
1179 
0909 
7450 
7399 
1253 
12308 
1231 
1256 


. 12368 


1245 
1259 
1264 
1335 
1329 
1277 
12T2 


1273 


1247 1257 «1258 


1255¢ 
1229 


0944 
09392 


1133 
0868 


7441¢ 
7485 
7438 


1054 
0856% 
0935 


0883 
1200 
1180 
1194 
0873* 
11996 


0840 
0965 
1086% 
7058 
7100 
0940 


1186 
0911 
7402 
12332 


CROSS-REFERENCE 


0947 0952 0955 0960 0963 0968 0971 
1010 1013 1018 


0995 


7442 


7448 


1057 
0897 
1060 


1047 
7457 
11829 
1197 
0891 


085s 
0973 
1087 
7061 
7104 
1046 


1187 
0913 
7405 
12360 


1005 


7486 


1079 
1127 
1084 


1072 


0893 


O875* 
0981 
1111 
7064 
7106 
1071 


1193 
0915 


1240% 


1234* 1237% 1241 


1249 


12s8¢ 


1SJANT6 
825034 


1062 1104 1107 
11298 1132 


1109 


1097 


11348 


1187# 11932 


0935*.1055 1060% 


0876 
0989 
1112 
1067 
T1116 
1096 


1199 
0917 


1244 
1243 


O881* 09054 


0997 
7031 
7070 
8039 
1032 


7390 
0919 


1244 


1007 
7031 
7073 
7467 


7396 
0921 


12478 


1021 1026 


1184 1190 
1198% , 


1080 1084* 


03906 0937 
1015 1023 
70408 7041 
776 7079 


0923 0925 


1248 


OST6é 
1029 


1196 


1105 


0938 
1031 
7045 
7082 
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0979 0984 
1039 


8088 8091 


11098 11864 


0941 0949 
1038 1062 
7048 7051 
7085 7088 
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PAGE 
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8912 


SYMBOL 


RO6XB2 
RO6XB3 
ROGX B4 
RO6XD1 
RO6ZER 
RO7TKO1 
RO7TK03 
ROTMCE 
ROTMCS 
ROTTOI 
RO7TO2 
ROBEND 
RO8KO1 
ROSMCE 
RGBMCS 
RO9BO1 
RO9B802 
RO9BO3 
ROSEX1 
ROSEX2 
ROQEX3 
ROSKO1 
ROOMCE 
ROOMCS 
R18K01 


' € RIBMCE 


" R1BMCS 
RICIC 
é--RICML 
RIEKOL 
_ RLEMCE 
{ RLEMCS 
" R1FBO1 
_ RIFEX1 
( R1FKOl 
R1FMCE 


RIFMCS 
R10K01 
RIOMCE 
R1OMCS 


€ RLLHOR 


oor 


6.2.7 


R11KO01 
RLIMCE 
RLIMCS 
REIMC2 
RLIMC3 
RIlMCc4s 
RILMCS 
RLIMCo 
R11NC7 
R12K01 
RL2MCE 
RL2MCS 
R12MC2 
R1l2MC3 
RL3KOL 
RL3MCE 


ot, 


DATE 
EC WO. 


o 0 6 


DISPLAY ADAPTER TEST 


= 


002 
002 
Ov2 
002 
002 
004 
002 
002 
001 
004 
004 


004 
002 
001 
004 
004 
004 
062 
002 
002 
004 
002 
001 
004 
002 
001 
002 
022 
004 
002 
001 
004 
002 
004 
0c2 


>PPPrPrPPPPrPPPrPrPryPrPrrrrrPpr,rrrPprprprprpryr brrpr»rn,» rp bp 


001 
004 
002 
001 
039 
004 
002 
001 
001 
002 
001 
002 
001 
002 
004 
002 
001 
001 
002 
004 
002 


PPPPrrPPrPrrrrr PP YP PP YP Y 


006 . 


LEN VALUE 


1862 
1864 
1866 
17F8 
i84D 
1951 
197A 
19a9 
19A0 
1982 
1996 
182A 
i9BF 
LAGA 
19E1 
1AB6 
ACA 
1ADE 
1A85 
1AC9 
LADO 
1480 
1AF5 
1AE8 
20F4 
2€5E 
2E 48 
3990 
39A6 
2Ea9 
2F3F 
2EE6 
2F8A 
2F7D 
2F62 
3028 


2FaT 
1CaF 
1CE8 
iccs 
1DEE 
1099 
1E32 
1DEF 
1E33 
1ES2 
1E53 
1E72 
1E73 
LES2 
leas 
1FO02 
1€C8 
1F03 
1F26 
1F3C 
1FA3 


OTJULT5 


825023 





OEFN 


1313 
13134 


1315 


1268 
1302 
1365 
1382 
1406 
1401 
1388 
1397 
1288 
1432 
1522 
1453 
1569 
1577 
1585 
i567 
1575 
1583 
1545 
1599 
1592 
4051 
4095 
4085 
5591 
5592 
4162 
4228 
4183 
4274 
4269 
4258 
4354 


4288 
1881 
1914 
1898 
2089 
2066 
2128 
2094 
2129 
2145 
2146 
2162 
2163 
2179 
2203 
2251 
2223 
2253 
2271 
2297 
2353 


250CT75 
825032 


REFERENCES 


1232 
1235 
1239 


* 


= oo oe oe @ DD. 
Se 


CROSS-—REFERENCE 


1229® 1232% 12358 1239% 1263 


1225 
1356 


1369 
1368 
1381 
1390 
1282 
1423 
1436 
1435 
1563 
1571 
1579 
1562 
1570 
1578 
1536 
1549 
1544 
4043 
4055 
4054 
5537 
$541 
4154 
4166 
4165 
4271 
4270 
4247 
4255% 
4505* 
5997*% 
6026% 
6060* 
6089% 
6118* 
61526 
61814 
6210% 
4261 
1872 


. 1885 


1884 
2064 
2058 
2069 
2068 
2072 
2073 
2076 
2077 
2080 
2081 
2194 
2206 
2205 
2209 
2210 
2288 
2301 


1226 
1357 


1424 


1537 


4044 


8481 
4155 


4248 

4256% 
4506* 
5998% 
6027* 
60612 
60908 
61194 
6153 
6182 
62118 
4412 

1873 


2059 


2195 


2289 


1SJANT6 
825034 


1257 


4257* 4262 
4507* 4512 
6002* 6003 
6036% 6037s 
6065* 6066* 
60948 6095*% 
6128*% 6129% 
6157# 6158% 
6186* 6187 
6226 

4464 4511 


4406% 
S9T6* 
6004* 
6038% 
6007% 
6096*% 
61308 
6159% 
6168% 


5981 


4407% 
S977 
60138 
6042 
60714 
61058 
61346* 
6163 
6197% 


6225 


4408 
5978 
6014s 
60434 
6072% 
6106* 
61356 
61644 
6198% 


4413 

5982 

6015s 
60448 
6073 
6107* 
6136% 
61658 
6199% 


4458% 
59908 
6019% 
60488 
6082¢ 
6111% 
61408 
6174e 
6203% 


44598 
$991% 
6020% 
6049 
60834 
6ll2¢ 
6141% 
6175* 
620648 


PART nO. 


PAGE 


£4608 
59920 
6021% 
6050e 
60842 
6113% 
61423 
6176% 
62058 


4465 

§996e 
6025% 
6059 
60884 
61178 
6151 
61802 
6209¢ 
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8912 DISPLAY ADAPTER TEST 


CROSS-REFERENCE 


wee cect ee a RRR 


SYMBOL T LEN VALUE ODEFN REFERENCES -< SYMBOL T LEN VALUE DEEN REFERENCES 
RL3MCS A OOL 1F56 2314 2300 7081* 7084* 7087¢ 7090* 7091 
R14KO1 A 004 1F89 2377 2368 2369 " R2CP13 A 006 $1%B0 7091 7046 7049 7052 7056 7059 7062 7065 7068 7071 707% 7077 7080 
RI14MCE A 002 1FE& 2403 2381 a 7083 7086 7089 
R14MCS A OOL 1FD3 2394 2380 R2CRST A 004 SOE 7032 7099 7101 7105 7107 
R15KO1l A 004 1LFFS 2427 2419 2420 R2CST A 004 5003 7026 7017 | 
RI5MCE A 002 2041 2458 2431 R2CTER A 004 SIFE 7110 7128 | 
RISMCS A 001 2026 2446 2430 R2CTSX A 004 5103 7093 7091 
R16B02 A 006 26F9 3236 3230 R2DEX1 A 002 28C8 3767 3769 3817 3875 
R16603 A 005 2718 3245 3237 R2DEX2 A 002 28F5 3787 3788 3841 3902 
R16B04 A 00% 2720 3247 3239 R2DMCA A 002 2087 4001 3853 
R16B05 A 004 2727 3249 3241 | R2DMCB A 001 2088 4003 3882 
R16BC6 A 004 272E 3252 3243 R2DMCC A 002 2089 4004 3883 
R1GEX2 A Q02 26F8 3234 3221 3222 3229 3236 3238 3240 3242 3245* 3247% 3249% R2DMCE A 002 2005 3906 3752 
R16KOL A 004 26C8 3215 3207 3208 : R2DMCS A 001 2004 3905 3751 
RLOMCE A 002 2771 3280 3219 R20MC1 A 001 2006 3916 3757 3805 3862 
RIOMCS A 001 274E 3262 3218 R2DMC2 A 002 2043 3956 3758 3806 3863 
R16RPT A 003 2607 3222 3246 3248 3250 R2DMC3 A 001 2044 3957 3777 3828 3889 
RLORTN A 004 26F1 3231 R20MC4 A 002 2081 3991 3778 3829 3890 
R17B02 A 006 27E7 3339 3297 3298 3334 _ R2DMC5 A GOL 2082 3993 3796 3800 
R17B803 A 004 27F1 3341 3337 " R20MC6 A 002 2083 3994 3797 3801 
RI7TEXL A 002 27AF 3322 3326 R2DMC7 A 0Ol 2084 3997 3824 
RETHC A 002 283A 3367 3365% R2DMC8 A 002 2085 3998 3825 : 
RITHLT A 004 2826 3361 3327 R2DMC9 A 00L 2086 4000 3852 
RL7KOL A 09% 2782 3305 R2EMSG A 024 5091 6993 6927 
Ri7L1 A 002 2840 3370 3329% 3343 R2FADL A 00% S09E 7012 
RL7L2 A 002 2842 3372 3330¢ 3333 R2EMSG A 029 5002 7018 7011 
R17L3 A 002 2844 3372 3331* 3347 3351 R2CBOlL A 004 309F 44625 4422 
RL7MCc A 002 2945 3453 3309 R20EX1 A 002 3092 4420 4421 
R1I7MCS A 001 28C8 3386 3308 2 .-R20KO]L A 064 3077 4409 4392 4393 
R17M1 A 030 2888 3376 3335¢ 3339¢ ~ R2OMCE A 002 3u0CO 4434 4403 

Pts RL7M2 AOlL3 2898 3377 3344 3354 R20MCS A 001 3088 4431 4402 Se et 
R17M3 A 020 28AC 3378 3348 3355 « R21BOl A 006 3108 4477 4474 
R17M4 A O17 28BD 3379 3352 3356 3360 R21EX1L A 002 30FE 4472 4473 = 
R17M5 A005 28C2 3380 3339 R21KO1L A 004 3063 4461 4455 4456 
R17M6 A 00S 28C7T 3381 3335 { R21ST A 004 30CD 4456 6949 
R17P A 002) «2846-3373 3311*€ 3314¢ 3316 R22B01 A 004 317A 4524 4522 
R17PQ A 004 278A 3326 3770 3789 3818 3842 3876 3903 R22EX1l A 002 316D 4519 4520 . 
R17PP A 003 2798 3315 3313 £ R22KO1l A 004 3152 4508 4497 4498 . ; 
RLTIRPT A 003 279E 3316 ~ R23K01 A 006 31A9 4557 4549 4550 
RI8CHK A O11 63C1 8380 8338 8343 8349 8356 98359 _ R23MCE A 002 3243 4628 4561 ! 
RLECS A025 6054 8386 8347 8353 f R23MCS A 00L 3104 4572 4560 
R1BCSA A 025 6059 8387 8342 R24KOL A 004 3254 4655 4647 4648 
R1SEXP A 010 6343 8377 8302 — R24MCE A 002 32EA 4726 4659 
RISHDB A O07 63C8 8361 8337 { R24MCS A O01 3283 4673 4658 
RISNON A 006 6307 8383 8363 8364 R2520i A 004 332C 4776 4769 
RL8OPD A 009 6386 68379 8358 _ R25ERR A 004 3324 4771 
RISREC A010 63AD 8378 8310 { R25EX1 A 002 3328 4774 4767 4768 
R18WK A 002 63FD 8388 7213 7214 8287 6288 8336 8317 ~ R25HOR A O13 20E3 4026 4024 
R1lBWRD A OL] 6303 98382 8348 . _ R25K0O1l A ONG 32FB 4754 47146 4747 
R2AEXT A OOl 4028 6831 6615 6788 i R25MCE A 002 3364 4865 4758 
R2AMA A 002 S4EF 7303 7220 ~ R25MCS A 001 3351 4783 4757 
R2AWK A 002 4D3D 6838 R26K01 A 004 3405 4892 4884 4885 
R2BEXD A 002 3FBF 5953 €893 { R26MCE A 002 3497 4956 4896 ; 
R2BEX] A 002 4F27 6901 68939 R26MCS A 00l 3430 4910 4895 
R28GO A 00% GEFE 6883 _ R27THOR A 013 2E7B 4109 4107 
R2BMCE A 00% 3FFF 5958 6897 ¢ R28HOR A013 2€98 4137 4135 
R2BMCS A 001 3FCO 5956 6896 R29K01 A 004 3448 4987 4979 4980 4995 4995 
R2CATT A 00% 5203 7113 7038 _ R2S9MCE A 002 3559 5075 4991 2s 
R2CENA A 003 SODE 7029 { R29MCS A 001 34DE 5009 4990 
R2CINC A 003 5103 7039 7037 7122 " R3BAA55 A 004 OC7B 0279 0332 
R2CKOL A 00% SOEF 7036 7042 _ R3ACPT A 006 ODEL 0401 0399 
R2CK02 A 006 Si1CFE 7098 7094 : i RBAGO A 004 2176 2599 2597 
R2CMG1 A 035. 524C 7132 7117 " R3AHDR A 020 2175 2598 - 2596 
R2CMG2 A 013 5259 7133 7121 «7127 R3AMCE A 002 21DF 2654 2602 
R2CPRT A 004 5210 7124 7109 ! R3AMCS A OOL 218A 2612 2601 | 
R2CPX A 00l S1CE 17096 T1044 TO47* 70SG* 7053* 7057* 7060* 7063* 7066% 7069% 7072* 7075* 7078% “ RBAMC] A OOL 2202 26735 2663 - 
DATE O7 JUL75 250CT75 LSJANT6 PROG ID 0891-2 © osre O7TJUL75 250CT75 LSJAMT6 PROG ID 0891-2 

: EC NQe 825023 825032 825036 PAGE 78 o* NO. 625023 825032 825034 | PAGE 78a) 
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PART NO. 
PAGE 
8912 OISPLAY ADAPTER TEST 
CROSS~-REFERENCE 
| SYMBOL T LEN VALUE ODEFN REFERENCES 
‘ 
ii R3AMCZ2 A 002 2227 2692 2664 
23BB01 A 004 3637 5807 5800 
; | R328B02 A 003 3848 $815 5808 
a R38B03 A 005 3857 5619 5816 
a R3BB05 A 003 3869 5827 5818 
- R3B806 A 904 3896 5846 5832 
i | R3BEX1 A 002 3836 $805 5799 
ee R3BEX2 A 002 384A 5813 5807 
tl R3B8GO1 A 004 3ADF 5769 5760 5761 5767 
Peal R3BHDR A 034 3ADE 5768 5766 
i | R3BMCE A 002 3C5A 5947 5772 
- R3BMCS A 001 388F 5868 5771 
R3BMC2 A 004 381C 5795 5784 
\ R3CACP A 006 107A 0631 0629 
Li R3CA55 A 004 OF11 0508 0561 
{| R3COT1 A 002 OFT4 0540 0504* 0506* 0508* 0510* 0512* 0515* 0518 0521% 0530* 0533 0546¢ 0558 
ia 0560 0562 0564 0566 
| R3CE -" A 006 OED 0488 0479 0483 
1 R3CEND A 003 1021 0598 0579 
1 | R3CEPA A 004 1040 0612 0466 0468 
= R3CERR A 004 1058 0624 0532 0535 
- R3CE09 A 004 104C 0618 0550 
R3CFFF A 004 OFOA 0506 0559 
R3CHL A 001 OEF6 0498 0476* 0480¢ 0486* 0488 
R3CHL1 A 001 O£ES 0493 04888 
Ts R3CINC A 004 OF26 0514 0567 
i R3CISA A 003 OFFD 0502 
i R3CKO3 A 004 O£41 0451 0445 0616 
fo R3CK04 A 004 OFSC 0459 0462 
ti R3CKOS A 003 OE8B 0471 0451 0652 ; 
kbs R3CKO6 A 004 OETF 0467 0465 
it R3CK15 A 003 OF2E 0517 0505 0507 0509 0511 0513 
- R3CK16 A 003 OF31 0518 O517* 0522% 0523 0524 
fi R3CK17 A 004 OF59 0531 0527* 0529 0542* 0547 0548 
ri R3CK18 A 004 OF75 0542 0534 
ij R3CK19 A 004 OFA6 0558 0552 0622 
fy R3CK20 A 004 OFDD 0577 0570 
i R3CK21 A 004 OFSE 0522 0520 
i | R3CK22 A 003 OF87 0547 0545 
a R3CNOE A 003 O€55 0457 0454 
i R3CONE A 001 OFEB 0585 0522 0542 
R3CPRT A 004 OF6D 0537 0626 0632 
R3CST A 004 OEFOCE 0433 0349 
R3CTTL A 028 4028 5972 5970 
iad ©2C000 A 004 OFO3 0504 0441 0442 0574 
2 R3C202 A 004 OFIF 0512 0565 
i R3C5AA A 004 OF18 0510 0563 
| R301SA A 003 OC6T 0273 
ti R3E A 006 0C3B 0259 0250 0254 . 
i R3EPC] A 00% OEFE3 0491 
i | RZEPO A 004 OC4D 0262 
| R3FFFF A 004 OC7T4 0277 0330 
1 | R3FMCE A002 4ACO 6598 6542 
i R3FMCS A 001 4A9T 6577 6311% 6312% 6315* 6318* 6325% 6328* 63318 6338% 6339% 6342% 6345* 6352* 
oe 6355% 6358 6365* 6366% 6369% 6372% 6379% 6382% 6385% 6392% 6393% 6396s 
6399% 6406% 6409% 64128 6419% 64207 64238 6626% 6433% 6436% 64399 654) 
R3FMOl A 042 48CC 6514 6446 
R3FMO2 A 017 4800 6515 6458 6462 6488 6492 
| R3FMO3 A019 4935 6518 6479 
R3FMO4 A021 495A 6521 6501 
R3FMOS A 029 4987 6522 6505 
| R3FHO6 A 004 4988 6523 6469 : 
on R3HLT A OOl OC60 0269 0247* 0251* 02578 0259 
1 R3HLT1 A 001 OC52 0264 02599 
bs R3INC A 064 0C90 0285 0338 
rs R3RST A004 OC63 0271 0256 
2 DATE O7 SULTS 250CTT75 IS JANT6 PROG iD 
ig EC NO. 825023 825032 825034 PAGE 
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PART NOW 4234255 
PAGE T9A 
8912 DISPLAY ADAPTER TEST 
CROSS-REFERENCE 
“" SYMBOL T LEN VALUE DEEN REFERENCES 
R3RST1 A 004 OEFO 0500 0485 
R30HDR A 030 248A 2952 2950 
K30MCE A 002 24FE 2990 2957 
R30MCS A 001 24CF 2966 2956 
R30000 A 004 OCD 0275 0212 0213 0345 
R30202 A 004 O0C89 0283 0336 
R31HOR A 032 252E 3004 3002 
R31MCE A 002 2582 3050 3009 
R31MCS A 001 2543 3018 3008 
R32HOR A 041 2588 3065 3063 
R32MCE A 002 2633 3128 3070 
R32MCS A 001 2500 3075 3069 
R33HDR A 029 2660 3143 3141 
R33MCE A 002 2699 3173 3147 
R33MCS A 001 267E 3159 3146 
R33MCi A 001 269A 3175 3150 
R33MC2 A 002 2687 3190 3151 
R34HDR A 039 2078 2472 2470 
R34MCE A 002 20E5 2527 2476 
R24MCS A 001 20A8 2496 2475 
R346MC1 A 001 20€&6 2528 2479 
R34MG2 A 002 20EF 2533 2480 
R34MC3 A 001 20FO 2534 2483 
R34MC4 A 002 2118 2556 24846 
R34MC5 A001 211C 2557 2487 
R34MC6 A 002 2151 2584 2488 
R35HDR A 034 3505 5128 5126 
R35MCE A 002 3611 5160 5132 
-R35MCS A 001 3606 5151 §131 
R355AA A 004 OC82 0281 0334 
R36HDR A 045 3564E 5186 5184 Se 
R36MCE A 002 36DE 5253 5190 
R36MCS A 001 36A7 5225 5189 
R37E47 A 004 37F1 5382 5363 
R37HOR A 043 3719 5298 5296 
R37H&8 A 004 37F9 5386 5348 
R37MCE A 002 3842 5427 5302 
R37MCS A 001 3801 5394 5301 
R37MC2 A 004 3748 5321 5310 
R37NS1 A003 377C 5341 §331 
R38E40 A 004 3932 5542 5514 
R38E41 A 004 393A 5547 5480 
R38E42 A 00% 391C 5532 5493 
R38E43 A 006 3924 5537 5498 
R38E48 A 004 3942 5552 5528 
R38HDR A 028 386E 5465 5463 
R38INT A 006 38A3 56487 5481 
R38I10E A 004 38AF 5493 5487 
R3BMCE A 002 3982 5602 5470 
R38MCS A 001 39A7T 5596 5469 
R39E3A A 004 2A83 5693 5649 
R39E3D A 004 3a8B 5698 5689 
R39GO A 003 39&6 5634 5632 
R39HDR A 035 39E5 5633 5631 
R39MCE A 002 3AA8 5718 5638 
R39MCS A001 3A93 5707 5637 
R39S1 A003 3A01l 5645 5640 
R39S2 A 003 3423 5657 5651 
R39S3 A 004 3A58 5677 5671 
R39S3A A 004 3468 5683 5677 
R39S6 A004 3a4C 5671 5669 5670 
R39T1 A 004 3A10 5649 5647 5648 
R4CGO A 00% 4808 6622 6620 
R4CHDR A 043 4807 6621 6619 
R40C1 A 002 5073 6989 6955 
R40C3 A002 5075 6990 6957 = 
DATE OT SULTS 250CTT5 1SJaN76 PROG ID 0891-2 
EC NO. 825023 825032 825034 PAGE 7A’ 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


18M MAINTENANCE OLAGNOSTIC PROGRAM PART NOw 4234255 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4234255 
PAGE ~ 80 |: PAGE 80A 
8912 DISPLAY ADAPTER TEST "8912 DISPLAY ADAPTER TEST 
CROSS-REFERENCE X CROSS-REFERENCE 
SYMBOL T LEN VALUE OEFN REFERENCES i ¢ SYMBOL T LEN VALUE DEFN REFERENCES 
R6ODT A 0C2 S071 6988 6934 6937% 6968% 6971 6972* 6973 6977* 6978 6979% 6980 SETDAL A 006 4T7E1 6454 6453% 
R40E A001 5060 6986 6973 6980 /- SETDA2 A 006 4839 6484 6483% 
R40GO A 004 2253 2714 2712 SETPO A 004 545F 7262 7174 7179 
R4OHOR A 027 2252 2713 2711 SET1 A003 547% 7268 7265 
RSOHO A 002 4FSC 6932 / SET12 A 003 54E3 7299 7296 
: R40LD A 004 5020 6966 6929 6953 : SETL3 A 003 S4CF 7293 7289 
R40LDR A004 5069 6984 6966# SET2 A 003 5485 7286 7283 
R40L2 A 004 5030 6971 6974 . SET3 A003 5498 7279 7276 
R40L3 A 004 SO4E 6975 6981 .  $i0i CC G01 0058 8592 0059 0159 0160 0167 O171 O175 0210 0228 0234 0242 0273 0274 
R4OMCE A 002 228A 2741 2717 . 0344 0368 0439 0457 0463 6471 0502 0503 0573 0598 0646 0652 
R“OMCS A 0O1L 2270 2734 2716 | & ; 0742 0743 0815 0816 0818 0819 0821 0822 0824 0825 0862 ©6863 
R40MC1 & 002 2286 2742 2721 O878 0879 1142 1227 1228 1251 1252 1261 1371 1378 1438 1551 
R40MC2 A GO2 2296 2748 2722 1560 21628 {636 1694 1702 2657 2659 2833 2834 2843 2660 3315 
R4OMC3 A OOL 22€3 2774 2752 i @ 3328 3484 3491 3499 3596 3598 3599 3605 3607 3608 3614 3617 
R40MC4 A 002 2202 2782 2753 3623 3625 3633 3635 3645 3647 3652 3654 3660 3668 3671 3€72 
R&OMC5 A 001 2203 2784 2757 3674 3681 3683 3684 3686 3688 3689 369% 3696 3697 3762 3782 
R&OMCE A OC2 22E2 2792 2758 e 3810 3834 3868 3895 4168 4170 4404 4766 499% 64996 5136 5142 
R4OMC7 A 001 22€3 2794 2762 519% 5196 5200 5205 5210 5215 5306 5327 534% 5346 5352 5354 
R&OMC8 A 002 22F0 2801 2763 5359 5361 5364 5471 5472 5475S 5499 5506 5515 5519 5521 5522 
R4OPT2 A 00% 2297 2750 2730 ' © 5529 5634 5639 5657 5662 5665 5686 5690 5779 5849 5856 6543 
R40R1 A 00% GFEA 6947 0578 a 6544 6546 6633 6635 6780 6803 6935 6939 6943 6954 6958 6959 
R&ORZ2 A 004 4FF& 6950 4478 eo 6961 6969 6970 6963 7028 7029 7165 7340 7346 7600 T7601 T6al 
R4OSLO A 006 5024 6968 ‘ e 7642 7841 7847 7918 7923 7924 8323 6326 
R&0ST A 002 SO6F 6987 6956 6968 6977 ' SIONIO C 001 0048 8592 . 
R40SY A003 “FFE 6954 6962 SIOMI1 C 001 0049 8593 
REOTOL A 006 4FC4& 6936 6938 & SKIPIK A 003 5964 7598 7594 
R41ACL A 002 2488 2935 2861® 2869 “ SNSET A 002 3775 5340 5349% 5350 5353% 5355 5360* 5362 
RSICTR A 002 248A 2936 2832* 2836% 2837 SPAREX A 304 3584 5098 5084 5090 5096 6277 6283 
RO1EM] A 028 2443 2930 2865 2866 ,_-SPARMS A 014 359D 5104 510k 5105 
R“LEMZ2 A029 2460 2931 287% : " SPARUT A 014 3596 $105 5083% 5089* 5095 6276* 6282% 
R41EM3 A018 2472 2932 2670 2878 2883 . SSW1C C001 0008 8552 3743 : se 
R&1EM4 A 018 2484 2933 2866% 2882 2884 € SSWLE C 001 0001 8553 
R“IEXL A 002 2486 2934 2859% 2864 SSW10 C 001 0080 8544 0322 0551 = 
R41EX1 A 002 237E 2855 2856 _ SSWiL C 001 0040 8545 
R4LFET A 00% 2360 2647 { SSW12 € 001 0020 8546 0943 0951 0959 0967 0975 0983 0991 0999 1009 1017 1025 1033 
RSIFLG A 002 2427 2929 2845 28468 2849% 2850 1041 1066 1090 1115 
R&1FRS A O02 2425 2928 2844 . SSW13° € 001 0019 8547 
R41HDR A 037 2325 2831 2829 { S$SW14 C€ 001 0008 8548 
R&I1LCS A 004 2332 2835 2838 :  $SW15 C 001 0004 8549 
RSILDF A 004 236C 2850 2848 _ , SSW16 C 001 C002 8550 
R4IMCE A 002 2423 2925 2842 '€ SSWi7 C001 0001 8551 3745 7606 7645 
R&IMCS A O00L 2366 2694 2841 _ ~ S$SW2E C€ 001 0002 8554 6535 
R&2HDR A024 296D 3679 3477 _  SSW2F C 001 0001 8555 0052 
R42MCE A 002 2A42 3565 3483 ' € START A 004 OA20 0051 
R42mMCS A001 29FB 3529 3462 | “ STATAC A 002 SFE6B 8168 0261* 0266% 0302* 0304 0369* 0370 0395 0395 0397% 0398 0398 04018 
R“2MC1 A 00} 2443 3570 3518 | 0490% 0495* 0531% 0533 0599% 0600 0625 0625 0627* 0628 0628 0631% 
R4&2MC2 A 002 2448 3573 3519 .€& 0745* 0746 0760 0841* 0846* 0869% 0870 0886* 0887 0891 0899 0899 
R&2M12 A 004 29ET 3516 ; | 0908 0910 0912 0914 0916 0918 0920 0922 0924 1050 1051 1055 
RSE1L4 £5 004% I31E 0847 . 1075* 1076 1C80 1160* 1101 1105 1262* 1263 1288 1379% 1380 1388¢ 
RSHLT A 001 1323 0849 0828 0832¢ 0837* 0839 6S 1389 1561* 1562 1569* 1570 1577* 1578 1537* 1638 1645* 1646 1703% 
RSHLT2 A OO1 1315 0844 0839% i 1704 «#1713® 1712 2856 3228* 3229 3324 3326 3618* 3669* 3673¢ 3682% 
RSINCE A 004 1688 1137 0872 3769 3788 3817 3641 3875 3902 4270 442° 4473 4520 4765* 4768 
R5PO0 A 006 12FE 0839 0830 0834 €é S801* 580S* 5819* 5820* 6233 6636* 6645% 6646 6667 6668 6706% 6724 
RSRSF & 004 1326 0851 0836 7034* 7035 7120 7161 7169* 7176 7347* 7348 8034 
SA86 =A 00% 0811 0158 STATAM A 002 SF5E 8221 8055* 8097* 8228 
SARR A 00% SC75 7890 7838 78440 €{ STATAL A 0602 6184 8214 8055 
SARRE A 004 1112 0695 0643% 06494 STATAZ A GO2 6186 68215 8097 
SAVARR A 004 SALO 8535 7578* 7579 7583* 7586* 7595 715972 STATSL A 001 600A 8173 8077* 8065* 8107* 6113* 8181% 
SAVXRL A 004 59F8 8536 7582% f STATBO A 015 613E 8195 5572 5583 8485 
SAVXR2 A 004 59FC 8537 TS1T# : “ STATBL A015 6140 8196 5696 5701 8487 
SBYTEO C 001 0208 8557 6622 7026* 7604 STATB2 A 019 6160 8197 5644 5655 5675 5681 8489 
SB8YTE2 COOL O20A 28558 0322 0551 0943 0951 0959 0957 0975 0983 G99 0s99 1009 10:17 { STATS3 A 022 6176 8198 5375 5380 5385 8491 
1025 1033 1041 1066 1090 1115 3745% 7606 7645 ~ STAT84 A OOS G617E 8199 O114 8493 
SBYTE3 C 001 0208 8559 3743 7093 _ STATS5 A 018 6190 8200 5555 8495 
SBYTES € 001 O200 8560 0052 6535 { STAT36 A 010 619A 820i 0126 8497 8498 : : 
‘SB12F a 003 52BE 7186 7183 STATET A Q02 SECD 3158 some . ate ae ee 
' OATE OTIJULTS 250CT75  15JANT6 PROG ID 0891-2 © te 07 SULTS 250CT7S5  iSJANT6 oe PROG 1D 0891-2, 
EC HO. 825023 825032 825034 PAGE 80 @* NQ. 825023 825032 825034 . PAGE “Oa 
: i s 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4234255 
PAGE 81; : 


PAGE SIA 


8912 DISPLAY ADAPTER TEST 8912 DISPLAY ADAPTER TEST 


i &. 
CROSS~REFERENCE . CROSS-REFERENCE 


LEN VALUE DEFN REFERENCES le 


~ 


SYMBOL 


pene 
woe tee ame ere Rene 





SYMBOL T LEN VALUE DEEN REFERENCES 
STATEX A 002 5SFE& 8167 8009% 8029 TEST C 001 0212 8561 
STATE] A 002 5550 7354 1288 7338* 7348 : + TESTEQ A 00% 4908 6539 6536 
STATFL A 001 SFE2 8166 8006* 8014 8075 8083 8094 8103 8105 8111 8116 8127 8179 THREE A 002 5566 7363 7356 
| STATHC A 001 554E 7353 3365 7236 7337% TIOQl A 003 0A43 0066 0062 0064 
et STATK1 A 003 SEA3 8072 8069 TIOL7? A004 OAAD 0103 0101 
a STATK2 A 003 SED] 8083 8076 TIOL7E A 004 OACO 0111 0104 
: STATK3 A 003 5F20 8103 8084 TIOl8 A 004 OMe orus 0103 
STATKS A 003 SF3C 8111 8106 TIOI8E A 004 OADS 01 0105 
STATKE A 003 6061 8179 6112 . TIOL9 A 00% OABS 0106 
{ STATK7? A 003 SFlA 8101 8000 8001 8095 TIOLS9E A 004 OAE1 0123 0106 
STATL A 001 SFSC 8120 8072* 8078* 8096* 8101* 8108 8114* 81828 T1020 A 004% OABD 0107 
STATHA A031 60E1 8190 5485 5491 5511 8477 ; TIQZ0E A 004 OAED 0129 0107 
STATMB A 022 60F7 6191 5314 5335 5788 5836 8479 T1021 A 00% OaCi 0208 
STATMC A 025 6110 6192 8107 ': YIO2Z1E A 004 OAFS 0135 0108 
STATMD A 011 6118 8193 8113 TI03. A003 OASE 0073 0066 
STATME A 020 612F 8194 6181 TIOZER A 001 OASS 0076 0073 
STATMO A 001 SFEO 8171 TNONE A 004 6365 8361 8357 
STATM1 A 009 SFF1 8172 8020 8025 8077 8080 TPCl A006 4BBE 6674 6669 
STATM2 A 025 6060 8178 8040 8085 8087 8386 8387 TP4 A 004 SEF2 8092 8089 
STATM3 A 022 6023 8175 8030 8043 8081 8098 8215 TRIN2] A 00% 6490 8448 8444 
: - STATM4 A 020 6037 .8176 8035 8042 8121 8214 TRYTWO A 002 1286 0785 0758* 0759* 0760 
STATMS A016 6047 8177 0086 0391 0621 1334 8205 8471 TSTBIT A 004 5467 7264 7262* 7271 72718 7273 
STATM6 A OlT 6087 8186 0120 0132 0138 5535 5545 5550 8469 — TST8O0 A 003 5999 7615 7613 : 
STATM? A O27. 60A2 8187 0071 0220 0449 8467 : TSTB2 A 004 5949 7592 7585 
STATM8 & 017 6083 8188 1328 8475 TSTCHK A 004 6166 8255 3600 3609 3619 3629 3639 3648 3655 3661 3677 3690 3698 
STATM9 A015 60C2 8189 5319 5339 5370 5389 5793 5840 5845 @8473 ‘! TSTERR A 006 6286 8297 8290 
STATNH A 00& 61CO0 8223 8117 TSTRST A 003 598F 7612 7605 7607 
; STATPL A 003 5SF50 8116 6062 6100 8102 810% 8110 8180 8184 |  TSTSSW A 004 5974 7604 7599 
STATPO A 004 5F57 8118 8224 ! 2 Two A001 SAOE 7665 7621 
STATPS A 002 SFES 8169 8003* 8161 : i ~ ¥XR1 A 004 6200 8327 8256% 82678 
i STATP1 A 003 5081 8002 ' UDTMSG A 036 6676 8529 8457 
STATP2 A 002 5SF60 8122 B007* 8044 8073¢ 8074 ' £ UDTPO A 00% 6486 8454 8447 8451 
STATP3 A 004 SF6l 3124 8233 | “ UoT2 A 003 OACC O016 1003 1276 2728 2847 3312 3848 6011 6034 6057 6080 6103 6126 
STATRB A 004 SFDE 81646 7998% 8005 8012¢ 6149 6172 6195 6322 6335 6349 6362 6376 6389 6403 6416 6430 
STATRS A 004 5SFD2 8161 8015 8128 e 7202 
STATSP A 004 5F65 8125 8208 | “" uOT3 A&A 003 OAOCF 0032 5646 5668 
STATSQ A 004 SF6C 8127 8126 ge - eae ! ULOG1 AO1O 6613 8525 8445 
STATUS A 004 5DA5 7998 O262 0267 0308 0373 0491 0496 0537 0603 06766 0842 0847 093 ULOG2 A O10 6610 8526 8450 
: 1121) 61137 1265 «1383 1392 1564 1572 1580 1640 1648 1706 1714 | “ YLO6G3 A O10 6627 8527 8452 
3231 4771 5802 5810 S821 7351 UNPACK C O01 O21E 8565 0678 2862 2867 3341 3345 3349 6247 6455 6685 7114 7118 7206 
STATX1 A 004 SFD6 8162 8002e G: 7210 7215 7422 7428 7435 7873 8017 8022 8027 8032 8037 8284 
STATX2 A 004 SFDA 8163 79998 8313 8397 8401 
: STERR A 004 6227 8269 8265 _ UNPHLT A 002 65F7 8520 8400 
STGIK A O0Ol SA4D 7687 7592@ 7596¢ 7707 7733 7759 4 UNPRTN A 002 65F5 8519 8404 
STG2 C001 0001 7497 “~ VOLTFL A 001 61812 8212 
STHD £004 5COB 848 7842 VOLTSF A OOL 6162 8213 
STHDl A006 1085S 0653 0647 | _ WORONO A 002 398E 5590 5537 
STPMC & 003 5538 7346 73308 73340 7343 | WRAP A 004 4426 6222 5995 6001 6007 6018 6024 6030 6041 6047 6053 6064 6070 6076 
oer : poe ace rose bioed roses . | 6087 6093 6099 6110 6116 6122 6133 6139 6145 6156 6162 6168 
9 6179 6165 6191 6202 6208 6214 
SXR2. & 004 «SCT «67889 | “WRAPEH A 001 4443 6231 5994* 6000* 6006* 6017* 6023% 6029% 6040* 6046* 6052* 6063% 6069* 6075% 
SXR21 & 004 11CE 0694 | 6086% 6092* 6098* 6109% 6115* 6121% 6132¢ 61388 6144% 6155¢ 61618 6167% 
TABCK] A 006 4A04 6551 65508 6553 6554 6555 | i 6178* 6184* 6190% 6201% 6207% 62134 
TABCK2 A 004 4A2C 6560 6559% 6562¢ 6563 6564 WRAPEX A 004 4480 6257 6222% 6234 
TaABDG A 006 4Ah1C 6556 65550 | _WREIN A 002 3046 4376 4257 4408 4460 4507 : 
TABDOA A 006 4446 6565 65640 {_-WRPOQUT A 002 3048 4377 5978 5992 5998 6004 6015 6021 6027 6038 6044 6050 6061 6067 
TABENT A 006 4A16 6555 6552 6073 6084 6090 6096 6107 61123 6119 6130 6136 6142 6153 6159 
TaBLOP A 002 5063 7928 7917 | 6165 6176 6182 6188 6199 6205 6211 
TABNXT A 006 4A3E 6564 6561 ! €2 wun A OOL SAOB 7663 0165 O173 0231 0260 0342 0460 0489 0771 0772 O872 2836 3653 
ues a oe oane ees . vase | 6937 6972 6979 7040 7269 7280 7287 7344 7583 7590 7597 7620 
A 7634 
: TERLNK A 004 6606 85246 6834 | (° XAASS A 002 0056 0358 0279 0333 1373 2658 3615 3642 3643 40961 6634 
TERRO A 004 634E 8356 8352 | XCASS A 002 OFEE 0588 0508 0562 
TERR1 & 004 6337 835} 8346 i XCFFF & 002 OFF2 0590 0506 0560 
| TERRZ A004 6314 8345 6341 | { xC202 A002 OFFS 0591 0512 0521 0543 0566 
TERR3 & 004 6303 8340 8336 | XCSAA A002 OFFO 0589 0510 05646 
‘ DATE OTIULTS 250CT7S IS JANTS PROG ID ossi-2! OF C7JULTS 250CT75 1S JaN76 PROG 10 0891-2 
I. EC NO. 825023 825032 825034 PAGE 81 | EC NO. 625023 825032 (825034 PAGE sia’ 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO- 4234255 
PAGE 625i. PAGE 82A 
t 
8912 DISPLAY ADAPTER TEST / , 8912 DISPLAY ADAPTER TEST 
i ft 
CROSS-REFERENCE | we CROSS-REFERENCE 
* | 
SYMBOL T LEN VALUE DEFN REFERENCES | { SYMBOL T LEN VALUE DEFN REFERENCES 
X0G00 A 002 248C 2937 2835 - XOOFF A 002 56DB 7475 1038 1696 
XE003 A 002 2865 3708 3695 X0000 A 002 2DBC 4007 0906 3763 ; 
XE101 A 002 2663 3707 36c7 XO0Ol A 002 5609 7474 0397 0401 0627 0631 0759 6463 6493 6553 6562 6427 
XFFFF A002 0059 0360 0245 O277 0331 0474 0823 1192 1629 1695 2660 3492 3493 3494 x0002 A 002 SBE6 7826 7440 8258 
3495 3496 3497 3498 3500 3501 3502 3503 3504 3505 3506 3507 '" X0005 A 002 56FO 7487 7441 
é 3508 3509 3510 3511 3512 3513 3524 3515 X0040 A 002 56F2 7488 7451 
XFLAG A 001 6187 8216 O207# 0248* 0252*% 0258* 0271 0436 0477* 0481% 0487* 0500* 0748% 0812*% x0080 A 002 19£0 1449 1439 
0829% 0833* 0838* 0851* 6046 8050 8129 8131 8223 8225% ‘ XOLFF A002 5S60D 7476 1063 
XFOO1l A 002 1852 1305 1255 x0155 A 002 3198 4527 3646 4514 4760 4898 
XRMT A O21 53A6 7247 7191 _ XO2ZAA A 002 2740 3257 3240 3247 4467 
XRM1 A 043 5391 7248 7195 XO2FF A 002 56DF 7477 1087 
XRM2 =A 043) «(53FC (7249 7173 «7199 ' X0202 A 002 OD5B 0361 0283 0292 0314 0337 3658 
X¥RM3 8 & 043 5427 725¢ 7178 7203 “ne XO3FF A 002 5S6E1 7478 1L12 4264 
XRNG A003 542A 7252 £ X0343 A 002 453A 6266 5983 6227 
XRMS A O1l3 5437 7252 X0400 A 002 56F4& 7489 3764 3783 7408 7411 7414 
XRM6 «A 028 «54537253 7207 7209 7234 7303 _ *0555 A 002 2748 3256 3242 3249 
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2095 47 2095 126 DC TLIePze ! 2117 FFOO 21218 294 NG256 0¢ IL2*-2568 
2096 3943 2097 127 oc AL2COPR2) \ © 2129 40404046 2tic 195 SEQ oc aciie¢ 
1238 : 2120 2966 SETUP EaQU * 
2098 CO 87 O21A 129 8 PRINT OPERATOR PRINT | 21210 C2 02 20FF 297 CLFLAG-LA STAT oXR2 
209C 02 209¢ 130 oc XLi*o1e i 2121 C2 01 20FF 1938 LA STAT oXR} 
2090 35 209D 131 oc ELE *S3e © 2125 CO 87 O22A 199 8 OAD LOAD FCT FIRST CARD 
209E 3994 209F 132 oc AL2COPR3} 2129 20 z2t29 200 oc NLit2oe 
133 eS 212A OFC? 2126 202 auicK oc XL2*OFCTe 
20A0 CO 87 O21A 134 8 PRINT OPERATOR PRINT 212C 0C CO 3AA9 0808 202 MYC LEVEL (3 De ENPUTSOI SAVE THE MECRO LEVEL 
20A8 O1 20A% 2356 oc XLEVORE 2332 F2 87 11 203 J coMM 
20A5 26 20A5 136 oc tL1e3ee ' & 2135 204 Loatc FaU * LOAD NEXT CARD 
2CAG 398k 2047 337 oc AL2 (OPR4} i 2135 CO a7 O22A 205 8 LOAD 
138 | 213¢ 10 2139 206 DC XLLtio9e 
20AB CO B7 O21A 139 a PRINT OPERATOR PRENT 2 213A C2 1 o88s0 207 LA INPUT »XRi 
ee RE Sy 20AC 140 oc XLEto7e i 213E 40 03 SF 2t1¢ 268 CLC =—«s- SSL 4 XR1) e SEG COMPARE CARO SEQUENCE Sa aera aa 
20aD 27 20AD 141 oc ILE®*3g9e i 2143 F2 01 a7 209 JNE CHK SEQ 
20AE 39Ft Z2OAF 142 oc AL2(COPRS) © 2246 210 COMM equ s 
243 2146 C2 01 0880 211 LA ENPUT exRE 
2080 CO 87 0222 144 B HALT | 2244 212 NREP Eau 2 
2084 89FO 2085S 145 oc XL2°89FOe FO HALT : 223 
2086 30 00 2640 146 SNS TERP extoge SENSE DATA SWITCHES ; © 2144 4D 02 SA 2004 2346 cLe SCC 3eXRED oXKECT CHECK CARD fo i 
206A 147 SETUL EQU + 214F FS 01 C3 215 JNE CHKFCB IO DOES NOT MATCH 
208A 30 FO 0232 148 cur UTABoXtFOS SHOULD MFCU BE USED &S THE LOADER? | © 2152 1¢ O03 211¢ SF 216 MYC SEQCSSL4eXRID STORE PRESENT SEG 
20BE F2 81 OF 149 JE PFFX as 2187 06 G3 211C 2112 217 Az SEQC4} sONDEC4) ADD SEQ BY 1 
20C1 30 S1 0232 150 cur UTABeX*S1¢ SHOULD £442 BE USED AS THE LOADER? 2150 70 C5 00 218 CLI OCsXRI} ChES CRECK EY §S A END oe 
ALL DATA CARD ARE 
20C5 F2 B81 67 151 JE PFFX Q 2160 F2 8: C6 21¢ JE CAROIN i bie ee eee ae 
20C8 30 F2 0232 152 CLR UTABsX&F2e SHOULD 2560 BE USED AS THE LOADER? 2163 70 E3 00 220 Cur OC eXREPLCET CHECK Ga Fo nERaeKae 
20CC F2 O1 Li 153 JNE DICKL | 2166 CO oO: 2135 221i BNE LCaAoc NOT Y CARO THEN 
is¢ att, 216A 70 DC 61 222 LtoaPpe cLE 2CeXRL Ie X*DO® REPLACE x*DO* BY x*2:~A8 
20CF CO 87 021A 1SS PFFXx B PRINT OPERATOR PRINT VU 216D F2 01 03 223 JNE #46 
2603 07 2003 156 oc XLico7e TO SURE THE OECK FC7 IS EN THE PRE | 2170 7¢C 2A O1 2264 MVE IC oKRED XP DAE 
2004 $7 2004 157 oc tLiea7e HOPPER f"} 2373 02 01 O01 225 La TCeXRIISXRE 
2005 3A38 2006 158 oc AL2(OPR6) ‘a 2276 34 Of 210C 226 st WORK eXRE 
2007 CO 87 0222 259 e HALT 217A 30 08 210¢ 227 CLI WORK» X*Dge 
2008 89F! 200c 160 oc XL2°*S89F 18 HALT TO CHECK PROGRAM IN HOPPER oO 217E CO C4 215A 228 BNH Lcope Saiavens 
2000 F2 87 30 161 J SETUP 2182 C2 61 o8D8 229 tar INPUT488 6 XRE ENITIALYZZE POIN 
20EC 162 DICKL Eau ® 2186 C2 62 o8Ds 230 tA INPUT 488. xXR2 TO THE CARD 
20E0 38 80 0233 163 TEN UTABS? oX* G08 CHECK FOR DIRECT ACCESS DEVICE O 218A 3C 00 21¢5 231 LENGTH MVE S1#120 SET COUNTER 
2CE4 F2 10 36 264 Jt SETUP * 218E OC 00 2199 21905 232 CMLOOP MYC S242C2) S143 SHIFT OFF HIGH GROER TwO SITS 
20E7 C2 O01 0232 165 LA UTABeXRE 2194 AE 06 00 00 233 $2 ALC O C&S eo XRO} OE XRZ) &00 BYTE TO ITSELF 
20EB 7D AO 00 166 cur OCoXRED eXFAGE IS IT A 54644? C 2198 AE 6S 00 00 234 $2 ALC OC F-& o XR2) Ol oXRZ7 
20EE F2 B81 2¢ 167 JE SETUP neo 219C OF 00 2195 308E 235 ALC S1it+3€1),0NET INCRESE COUNTER BY fi 
168 21A2 3D 04 2195 236 CLL S842 04 COUNTER £5 & THEN DONE 
20F1 CO 87 O2IA 169 8 PRINT ERROR PRINT O 21A6 CO B2 218E 237 BL CéLOOe 
20FS C6 20FS 170 oc XLL'cee : 21AK 36 02 2102 238 A NEGIsKR2 
20F6 38 20F6 E71 oc ILi*see Z1AE 6C 02 60 00 239 MVC OC 3eKR15 OC RRS) 
20F7 2686 20F6& 172 pc AL2(ERRS6) Ee 2182 36 01 2104 240 & NEG3- XR} 
20F9 1502 20FA 173 oc XL2°aso2e - 2186 36 02 2164 263 A NEG3¢- XR2 
20FB CO B87 3C41 174 8 LINKK 22BA 34 O01 210¢ 242 st WORK oXRE 
DATE 26 JUN7S PROG 10 0893-0 DATE 26JUN7S PROG 10 ee 
EC NOe 825023 PAGE 2 eFc NO. 825023 PAGE 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


68930 
ERR LGC 


21B8E 
21c2 
21c6 
21CA 


21CF 
2104 


2107 
210C 
21€1 


21F4¢ 
’ 21€9 


21E5 
21F1 
21F2 
21F3 
21F5 
21F7 
21F8 
21FO 


2201 

22058 
2206 
22c7 
2299 
220B 
220F 
2211 


2215 
2219 
221A 
2216 
2210 
221F 
2223 
22258 


2229 
2220 


2231 


22358 
2239 
2230 
2241 
2242 
2243 
224s 
2249 
224A 
2248 
224D 
2251 
2254 
2259 


22S5E 
2264 
2268 


OATE 
EC NOe 


OBJECT CODE 


2 96 
co 84 
c2 01 
4€ O1 


40 61 


Fe 84 


ic 02 
ic 09 
o2 02 


i¢ oc 
co 87 


co 87 
cé 

31 
2687 
1sF2 
co 87 
agra 
co 87 


co 8&7 
c6 

31 
2768 
89F3 
co 87 
89F3 
co 87 


co 87 
c6 

31 
26E8 
89F4 
co 87 
B9F4 
co 87 


c2 02 
3D 03 


co si 


30 FF 
co 81 
co 87 
02 

20 
4E18 
co 87 
o1 

09 
4E21 
c2 01 
b2 O1 
ic 01 
ic 01 


OE 01 
c2 02 
36 02 


210¢ 
218A 
0885 

i9 2106 
i9 210A 
2A 

21E7 19 
21E8 17 
LA 


000e 00 
2135 


O21A 


0222 


2017 


O2tA 


0222 
2017 


O214 


0222 


2017 


2608 
2640 


23FE 


7000 
22E9 
O21A 


o2ia 


6FFE 
02 
263€ Oo} 
210C 01 


263E 263€ 
286A 
263F 


26JUN7S 
825023 


21€0 


21F 1 
21F2 
21F4 
21F6 


2itFc 


2201 


22058 
2206 
2208 
220A 


2210 


2215 


2219 
221A 
221C 
221e€ 


2224 


2229 
2608 


2241 
2242 
2244 


2249 
224A 
224c 


ADDR STMT 


243 
2464 
24S 
246 
2e7 
246 
239 
250 
251 
282 
253 
254 
255 
256 
257 
258 
289 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
27s 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 


FC? MECRO~-CODE LOADER PROGRAM 


SQURCE STATEMENT 


TEDCNE 


* 


& 


* 


= 
MOVE 


CHKSEQ 


CHK END 


CHKFCB 


CARDIN 


INCTOA 


310 


cur 
6H 
LA 
aic 


cic 
JH 


MvC 
RVC 
LA 


vc 
Eou 


oc 
oc 
oc 
oc 


oc 
EQu 


oc 
oc 
oc 
oc 


oc 
EGU 


oc 
oc 
oc 
oc 


oc 


EQu 
USING 
LA 
CL 


BE 


cur 
BE 


oc 
oc 
oc 


oc 
oc 
oc 
LA 
LA 
ave 
Mvc 


ALC 
LA 


WORK » K®S6e 
LENGTH 
INPUT « X&z 
25€2.RR7} eBVEAD 


28C2eXR1) -BUFEO 


CHKENS 


MOVE4+3¢ 3) 628 oXR1ID 
MOVE+S(1)2230.XRE} 


26 eXR1I7 KRI 


e—-%& (¢—-*) - t—( XR) 


Loace 

& 

PRINT 
xXL1*C6e 
TLieage 
AL2 (ERR?) 
XL2°15F2¢ 
HALT 
XL2°*89F2° 
START 

x 

PRINT 
XLI°C6" 
TLas4ge 
AL2CERRF) 
XL2°S9F3° 
HALT 
XL2°89F3° 
START 

* 

PRINT 

xLi ces 
TLitage 
AL2(ERRS) 
XL2°89F4® 
HALT 
XL2°89F4® 
START 

* 

ENDADD. XR2 
ENDADD »XR2 
TERP»Xx*03° 


SENSE 


PATCH sX* FFP 
ENDADT 

PRINT 

XL1 *o2¢ 
TL1¢*32¢ 

AL2 (PATCHX) 
PRINT 
xXLi*o1re 
TLiI*ge 
AL2(PATCHH) 
PATCH=-2eXRI1 
2¢eXR1) eXR2 
TEMP.1(2eXR12 
WORK 01 (2 eXR1 9 


TEMPC2) TEMP 
UNUSD42 eXR2 
TEMP exR2 


teed on tae aE Be ER ee ete. 







& 


tema Rei eed Se ead 


@ 


FART NGe 4234287 
PAGE 3 


LOAD CARG IMAGE POINTER 
400 SUFFER LOCATION TO 


Seee 


ae wre Byatt et 


226¢ 
2e6F 
2276 
2276 


ENO ADDRESS OF CARD CODE 2270 
COMPARE SUFFER LENGTH TO (3 2280 
CARD CODE CORE REQUIREMENT 2284 
IF BUFFER IS NOT 81G ENOUGH 2287 
ERROR €> | 226¢ 
INDICATE CARD ADORESS IN CORE} ““ 2290 
INDICATE LENGTH OF CODE 2294 
INDICATE START ADDRESS OF | € 2298 
CODE ON THE CARD 2297 
MOVE CODE TO BUFFER 2299 
BRANCH TO READ NEXT CARD C  229F 
SEQUENCE CHECK “2208 
7748 
o 22ae 
2282 
€ 2283 
2285 
2287 
CODE LENGTH CHECK 2288 
226c 
€) 2280 
226F 
© 22¢2 
22¢6 
© 226A 
DECK 10 CHECK 22ce 
22cc 
© 22k 
2200 
2204 
© 2206 
220A 
© 220 
ALL CARD ARE READ IN 2264 
BUFFER 22€8 
SEE IF OPTION 3 SELECTED (SENSE 
AND DUMP MC CORE) 
| © 22e9 
ANY PATCHING TO BE DONE? 22eF 
BRANCH It NOT | €) 22s 
PRINT HEADING FOR PATCH I 22FB 
2301 
| C) 2304 
4 230A 
PRINT HEADING | 2310 
| > 2314 
| 2318 
POINT XR1 AHEAD OF PATCH | 231 
POINT XR1 TO ADDRESS | 2322 
GET PATCH ADDRESS 2323 
SAVE PATCH AODR IN WORK SPACE 3 €) 2324 
2326 
CONVERT ADDR TO BYTE OISPLACEMENT = | 2328 
POINT XR2 TO MICRO MAP > 232 
AOD OFSPLACEMENT 232€ 
| 2331 
© 
PROG ID ot o! | OATE 
PAGE @r ™- 


62 
ad 
co 
4D 
F2 
39 
Fe 
ic 
ec 
co 
02 


31 
01 
61 
01 
81 
F8 
$0 
01 
2 | 
87 


| ERR LOC ABJECT CODE 


210¢ 
4E 25 


OE 
oo 
F2 
oc 


co 
02 


o% 
o1 
84 
ot 


87 


263€ 
4E2A 


co 
02 
os 


87 


SE2A 


E2 
co 


co 
Cc? 
12 


02 
87 


or 


40F8 
ssec 


co 


87 


89EC 


co 


co 
oc 
co 
16 


oc 
oe 
oc 
oo 
F2 
OE 
0E 
30 
co 


oc 
co 
C6 
ar 


a7 


87 
03 
Sev 


01 
o1 
o1 
oR 
04 
o1 
01 
09 
82 


01 
87 


2737 
eset 


co 


87 


SSE 


Be 
6D 


co 
046 


62 

€i 306¢ 
228i 

Gi 2008 
SA 

2i0e6 

3F 

263€ 0% 
OC 02 
o2te 


210C 308E 
278A 220C 
06 

27BA 210 


o21€ 


O21A 


C2 
226Cc 


O21A 


0222 
3c4! 


3015 
278E 3085 
O21A 


264C 
264C 2106 
210C 2644 
27BA 210C 
3F 

264C 2106 
210C 2644 
2108 

22F8 


264E 


233€ 
O21A 


264C 


0222 


38 
38 


26JUNTS 


825023 
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€ 295° 


FC? MECRO-COCE LOASER PROGRAM 


ADDR STMT SOURCE STATEMENT 


2294 
2296 
2298 


22682 
2284 
2286 


2288 
22B6C 
22BE 


22ca 
22cs 
22co 
22cFr 


22D5 


22E8 


22E9 


2318 


2322 
2323 
2325 
2327 


232D 


311 

3i2 
313 
3t4 
325 
316 
317 
318 
31¢ 
320 
321 

322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
34S 
346 
347 
348 
349 
350 
3$1 
352 
353 
354 
355 
356 
387 
358 
359 
360 
361 

362 
363 
364 
365 
366 
367 

368 
369 
370 

372 

372 

373 

374 

375 

376 

377 

378 


NEXDAT LA 
cic 
SE 
cLe 
JE 

NGTSRT TeF 
JF 
MVC 
aYC 
8 
oc 
oc 
o¢ 
ALC 
cic 
JH 
mvc 


NUMIOK 8 
oc 
oc 
oc 


8 

oc 
oc 
oc 


PATCHE 8 


EPATCH 8 
NVC 
B 
oc 


20 oe XRD RR 
1C2]ScXRIICALLO 
INCTOA 

102 eXR3) oXFFFE 
EPATCH 

WORK=1 oX*F Se 
PATCHE 

TEMP 61C2eXKR1i? 
CC 2oXR23 o1E eXR1D 
UNF ACK 

three 

AL2( WORK) 

AL2 (PPATCH-S) 
WORK(€ 2) ,ONET 
NINST(C2)- WORK 
NUMIGK 
NINST( 2) «WORK 


UNPACK 
tLare2e 

AL2 (TEMP) 
AL2(PPATCH) 


PRINT 
MLI*OR* 
m1¢9e 
AL2(PPATCH) 


2€ eo XR2) XR] 
NEXDAT 


PRINT 
MLi*'cr? 
TLi*ie¢ 
AL2 (FORME) 
XL2*BS9EC* 
HALT 
XL2*8B9EC*# 
L INKK 


GENSUM 

CHK SUM(4) .PARF3 
PRINT 

XL1°168° 


PART NGe 


PAGE 


INCREMENT XR2 TO DATA 


TS DATA ALL 0000 


IF SO GO TO NEXT ADDRESS 


IS OATA = FFFF (END OF PATCH) 


JUMP GUT 


Hz S BrTS MUST 
1F NOT 


ERROR 


rF so 
BE ZERO 


MOVE DATA FOR UNPACKING 
MOVE OATA TO MICRO MAP 


UNPACK ADDRESS FOR PRINTING 


ado 1 TOG 


ADORESS IN BORK 


(DELIMITER? 


4234287 
3A 


IS IT HIGHER THAN NUM INSTRUCTIONS 
JUMP IF NOT 


INCREASE NUM OF INSTRUCTIONS 


UNPACK THE DATA FOR PRINTING 


PRINT 


POINT XR2 TO NEXT WORD IN MAP 


ADOR AND DATA 


GO GET NEXT OATA 


PRINT FORMAT ERROR 


GO END 


GO GENERATE A CHECK SUM 
MOVE IT INTO MICRO MAP 


SPACE 6 


SRKEEERERSEE EEE EAEEERES RE EEKEOSEAE SHEEEREKRE EEKELTECKEKSRERSEEEKEREKESS 
* CHECK NUMBER OF INSTRUCTIONS OF MICRO-CODE WITH THE AVAILAGLE CORE @ 
SHEESH EES EELESASESEESAEKEE SAK SCE LSE KESRASSEEASESESAAEESER SEES SEEKESESAED 

SAVE START AODRESS OF CODE 

IN BUFFER 

ADD 256 BYTES 
INITIALIZE WORK TC 256 
TEST FOR END 


ENDADT EQu 
“vc 
ALC 
uvC 
cic 
JNH 
ALC 
ALC 
cur 
BL 
NOCORE EQu 
mvc 
8 
oc 
oc 
oc 
oc 
8 
oc 
SNS 
cur 


Loor 


* 
ENTT.»AOMICD 
ENTT.»D2S5S(2) 
WORK(2) 2X0100 
NINST(2) WORK 
ACT 

ENTT 20255 (2) 
WORK(239+X0100 
WORK~1 oX* 098 
coop 

* 
ENTAB(2)-ENTT 
PRINT 

XL2°C6* 
te2°¢79° 

AL2 CERRO) 
XL2*SSE1° 
HALT 

XL2 *S9E1° 
TERPC oXR292X* 008 
TERPC oXR2) oX*04? 


INCREASE ADDRESS COUNT BY 1 BNT 

AOD 256 TO WORK 

TEST FOR ENOUGH CORE 

OKAY UNTIL WE REACH 9 
CORE IN NOT AVAIL ABLE 


MOVE END CODE ADDRESS TO OUMP 


PRINT NO CORE MESSAGE 


El HALT 


SENSE OATA SWITCHES 


SEE IF OPTION 4 SELECTED OuMP 


¥ 


PROG 10 
PAGE 


0893-0 
3A 
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PART NCe 4234257 € res MAINTENANCE DEAGNOSTIC PROGRAM PART NOe 4234287 
PAGE 4 PAGE aa 
8930 FC? MICRO-CODE LOADER PROGRAM G22 FC? MICRO-CODF LOADER PROGRAN 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT 
© 
2334 F2 01 08 379 JNE OUTGO 240c 3¢C 10 2114 aa7 MvVI COUND »i6 
2337 CO 87 3879 380 8 oump 2610 SC FF 00 01 466 CLEAN MVC OC2S56 eXRID eC oXRID 
2338 2769 233c 381 oc AL2( TABLE) © 2414 36 O1 2118 aag A NG256 oXR2? 
2330 9000 233E€ 362 ENTAB 0C xL2*°0006° 2418 OF 00 2114 2113 450 Sic COUND -ONO 
233F 383 OUTGO EQU * 241E CO 01 2410 451 BNZ CLEAN 
233F ¢CO 87 3C41 384 8 LINKK © 2422 OC 01 3088 276A 452 mvc MCSCC 2) oNINST 
2343 385 ACT eau ® 2228 OC 01 264C 3088 453 MvC ENTT(2) eMCSC 
2343 C2 O01 277A 386 LA ECSFX42 eXRI1 LOAD ADORESS OF OF-CODE TABLE 242E F3 58 80 454 sto x€80* -SIOI OF SABLE 
2347 C2 02 2608 387 LA ENDADD - XR2 © 2431 F3 $8 CO 455 s1o X°*CO* SIOL ENABLE 
388 456 
2348 F3 58 80 389 $toa K*80* eSIOI OISABLE 2438 C2 02 3096 aS7 LA MLTAC#1 oXR2 
390 © 2438 80 SB 06 458 GETC SNS © (eXR2) eCPSTOR SNS BACK 
234E 71 SS 00 391 LOOPOP LIO 0 €6XR1} .OPDEC LOAD OP-CODE 2438 Cl SD 2628 459 T10 AOCHK se ATT CHK ATTACHMENT CHECK? 
2351 64 01 36 392 ST TEMPC eXR23oXR1 STORE XR | 243F OF 01 3088 3D8E £60 SLC MCSCC2) eONET 
2354 02 01 02 393 LA 2CoXRIPOXRI BUMP ADDRESS | O 2445 CO 81 2450 4cl 82 comep 
2357 8D 01 36 2116 394 cic TEMP(.XR2).0P32¢2) END OF OP CODE ? 2449 E2 02 02 462 LA 20 eo XR2) oXR2 
235C CO 82 234F 395 BL tooPop * 284C CO 87 2438 463 6 SETC 
396 # 2450 464 COMPP EQU e 
397 « INITIALIZE HDB*S YO ZERO | © 2450 F3 S58 BO 465 sto X*80° .SIOI NESABLE 
398 | 2453 30 03 2640 466 CLL TERP.X*O3* 
2360 OC O1 3CESB 3CE2 399 MVC WORK2 (2) eCOUNTI SETUP | © 2457 CO 81 2473 467 BE SNSPRT 
2366 3C 00 3cEB 400 MVE SECSw.x*00# FoR ist 2658 CO 87 301C $68 8 SUMCHK GO TEST THE CHECK suM 
236A 3C 48 2373 401 002 MVI L1IOF+1 eHDBO Pass 469 
236E 3C 48 3CA4 462 MVI SNS1 41 eHDBO. O 245F 0D 03 3085 27B8E 470 cic PAR4+3(4) oCHKSUM 
2372 31 48 3c07 403 LIO! uta OZERO.HDBO 2465 CO 8i 25F8 472 SE PRINTG 
2376 Ci SO 2628 404 Tro ADCHK ¢ ATTCHK ATTACHMENT CHECK? | 2469 CO 87 O21A 472 ERRLOO B PRINT ERROR PRINT 
2374 CO 87 3COF 405 8 SNSDEC CHECK FOR ZERO EN @SGTH BUFFERS QO 246D C7 2466 a73 oc XL C7s 
2@37E OF 00 2373 3c1¢C 406 ALC LICL41€25e0NED 2462 81 296E 476 oc TLLcirs 
2384 30 50 2373 407 cut LIOL+1oX*So8 CHECK FOR | 246F 38Cc¢ 2470 475 ec AL2CMCSLOD) CS LOADING ERROR 
2388 CO 01 2372 408 @NE LroL END OF LIST © 2471 8SOt 2a?re 476 oc XL2 S902 0 
238C 30 FF 3CcEB 409° CLE SECSW.EX*FEE HAS SECOND PASS BEEN COMPLETED? | a7? 
2390 F2 B81 14 410 JE DDONE 2473 Cu 01 3095 &76 SNSPRT LA MLTAC eXRE PRINT PROGRAM OF SENSED CODE 
2393 3¢ FF 3cEB 421 MVE SECSWe X®FES | Oo 2477 34 GI 3C18 arg SY SBoXR1 START ADORESS 
ee oa 2397 F3 58 80 412 sia X%°86° -SIOE DISABLE 2478 34 OL 3CLA 480 st EBeXRE _—— 
239A F3 58 CO &43 sia X*CO* eSIOE ENABLE 247F OF Of BCLA 3C1C £61 SLC EE,ONEDC2) 
2390 OC 01 3CES 3CE6 414 MVC WORK2€2).COUNT2 C3 2485 GE O01 3CIA 278A 482 ALT EBsNENST (2) ENDING ADDRESS 
23A3 CO BY 2364 415 8 po2 : 2488 OF 01 3SCIA 27BA 483 ALC EBoNINST(2) PRINT PROGRAM 
23A7 416 DDONE Eau * COMPLETE LOADING HDB SS 2491 OC 01 3CDB 3Cco7 4&B4 MVC AOD eDZEROC2) 
23A7 F3 58 86 417 sto X*80* »SIO! DISABLE 2 2497 C2 01 286¢ 485 LA UNUSD41eXR1 PRINT PROGRAM OF READ IN CODE 
23AA 31 8C 3CD7 418 L1a OZERG o xX act FORCE CAR = 9006 24698 34 Of 3C14 486 st SAsXRI START ADORESS 
23AE OC 01 3CEB 3CE4 419 MvC WORK2(€23.- COUNTS 249F 34 O1 3016 4a7 St EASKRE 
2384 3C B88 3CA4 420 =MUL MVE SNS1#1 eHDBOEB SET UP TO SENSE AUX HDB?S | 24A3 OF O1 3C16 3C1C 488 SiC EAcONEDE 2) 
2388 CO 87 3C9F 421 AGAIN 8B SNSDEC SENSE HDBES { 24A9 OF 01 3C16 278A 489 ALC EAeNINST(23 ENDING ADDRESS 
238C 3D 90 3CcA4 422 CLt SNS141eX*908 DONE YET? i 244F OF 01 3CEG 278A 430 ALC EAsNINSTC2) PRINT PROGRAH 
23c0 CO 01 2388 423 BNE AGAIN Loop IF NOT fs 2685 CO 87 O21A &9% 8 PRINT PRINT HEADING 
23C4 3f 00 3CEB 424 CLI SECSH.G SECOND PASS? | tea 24B9 92 2489 492 DC XLL EOS? 
23C8 F2 al 14 425 JE PATCHR OONE IF SO i 24BA 58 248A 493 oc ELiesee 
23c8 3C 00 3CcEB 426 MVE SECSW>0 SET FOR SECOND PASS Q 2488 3BL0 26B8C 494 BC AL2(GPRT) 
23CF oc 01 3CEB 3cE6 427 MYC WORK2 (2) » COUNTS { 24BD 0C Of 3C20 3C16 49% xOOPD wV¥C TEM»EAC2) 
2305 F3 58 80 42e sic X*80° -SEOE DISABLE 24C3 OF O61 3C20 3c1i4 &96 Sic TEM »SAT2) LENGTH COUNT 
2308 F3 S&B CO 42¢ Sia X*CO*®.SIOE ENABLE ; fy 24C9 OC 57 3875S 3876 497 MVC BUF BUFF (38) CLEAR SUFFER 
2308 CO 87 2384 430 B E MUL GO DO SECOND PASS | Bar 24CF CO Br O2iE ass 8 UNP ACK 
431 | 24D3 02 2403 499 oc EL e2e 
23D0F F3 58 80 432 PATCHRR S10 X8°8O° .SIOE DISABLE ey 2404& 3COB 2405 s§¢0 oc AL2(€ADD} 
23€2 F3 SB CO 433 sits X*CO*® «SIGE ENABLE ; . 24D6 3822 2407 SC? DC AL2(BUF-83} 
434 } 2406 0£ Of 3CDB 3CDg9 S02 ALC ADD sX0010€2) 
23E5 C2 Ol 286A 435 LOAT LA UNUSD 42 eXRE LOAC BEGINNING | C 24DE OD 01 3C20 3C1E 563 CLC =9TEMSDOGOF( 2} 56 CHARACTERS 
436 *% ADDRESS OF PROGRAM 24E4 F2 B84 &B2 St4 JH XVERI6 
23E9 71 5a 00 437 LUOPI LEO Of eo XRT} eCPSTOR LOAD CONTROL STORAGE 24E7 OC 00 2550 3C20 505 MVC XGUNT oe TENCE? LENGTH OF CHAR <- 3 
23EC Ci 5D 2628 438 TIO ADCHK o ATTCHK CHECK FOR ATTACHMENT CHECK Oo 24ED 0C 01 2552 3C16 S506 mve KOORe EAL 2} MGVE ADOR FGR UNPACKING 
23F0 B84 01 36 439 St TEMP -XR2) oKRE STORE XPi 24F3 OF 00 2550 3Ci:C S07 ALC XCUNTSONEOCE? LENGTH OF CHAR 
23F3 52 O01 02 440 LA 2 oX¥R1 be XRI BUMP ACORESS 24FS OC 00 2559 25506 598 MVC Y COUNT « XOUNT (2 } MOVE LENGTH 
23F6 AD O01 36 44 441 cLe TEMPC eXR2FPCENTTC2eXR2) END OF BMT ? ms 24=F 0C 01 2558 3C1A 509 MYC YODR-ES(2} ASSIGN ADDRESS FOR CONVERTING 
23FA CO 82 23£9 442 St LOOP? RELOoP ad 2505 0C GO 2514 3C2¢ 510 MYC KCMPX 41 oe TEMES } SET LENGTH FOR COMPARING 
$43 2508 35 01 2552 Sit i XOOR,XRE 
23FE 3C 06 spec &a2 GEnge MVE ENMLT4+39-.x"'008 CLEAR BUFFER FOR MECROCODE | 250F 35 02 2558 512 L YCOR» XRZ 
2402 OC 27 4088 ena 25 ave EMME TS 38 ENMU T4+39(463 ad 2513 6D 60 00 06 $13 KOMPX CLC OCoKR1I} 00 Fe oe XRZ) 
2408. C2 Ci 4598 a&G a @RMLT—2 oXRE 2517 F2 81 04 514 JE XOK X NO ERR THEN JUMP TO XOKX 
| 
; , 

DATE 26JUN7TS PROG ID 0893-0) DATE 26 JUNTS PROG 10 0893-0 
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Cone Rb, eS ite hk ein inet Gee | 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


8930 


ERR LOC 


251A 
2S1€ 
2524 
252a 
2536 
2534 
2638 
283¢ 
2540 
2546 
2s4c 
2550 
2551 

25583 
2555 
2559 
25SA 
255¢ 
esse 
2562 
2563 
2564 
2566 
2569 
2S56F 
2575 
2578 
2581 
2587 
2S80 
2891 

2595 
2599 
259¢ 
2S5A0 
2S5A4 
2SA58 
2S5Aa7 
25Aa9 
2SAD 
2SaE 
2580 
2682 
2556 
2587 
2s5e8 
258A 


256Ee 
25c2 
2sc3 
2sca 
25C6 
2SCA 
25cB8 
25cCC 
2S5CE 
25D2 


2504 
2508 
250c 
25€0 
2564 


25E€8 
2S5Ec 


DATE 


EC NO. 


aN 


FC? 


OBJECT CODE 


3c 
CE 
oc 
OE 
c2 
34 
c2 
3a 
OE 
OE 
co 
oo 
0000 
0000 
co 87 
00 
cooo 
coco 
co 87 
06 

$8 
38675 
F2 87 
OE 01 
OF O01 
oc 01 
oc 01 
o£ 01 
OE O01 
35 91 
35 02 
6D OF 
Fe 81 
3c 58 
co 87 
10 
0000 
3845 
co 87 
10 
90000 
3860 
co 87 
01 

sa 
3878 
co 87 


$8 
Of 
o1 

o1 
Ou 
or 

01 
O1 

O12 
o1 
87 


co 87 
o1 

2F 
3A6? 
co 87 
07 

oF 
3A96 
co 87 
89E2 


30 
30 
co 
3¢ 
co 


00 
os 
01 
02 
87 


30 
F2 


02 
81 


3873 
320 
3878 
3678 
3825 
2554 
3840. 


3cic 
3€20 
3¢c20 


2550 — 


2854 
2550 
O21€ 


O21E 


C2i1a 


5S 

3C14 
3c1is 
2S5A6 
25AF 
3€14 
3c1i8 
2SA6 
25AF 
0o 00 
04 

3873 
O21E 


O21E 


O21A 


2480 


O21Aa 


O2ta 


0222 


2640 
2640 
2609 
2640 
2343 


2640 
1A 


26JUN75 
625023 


3878 
3878 


3Cc1leE 
3CiE 
3C14 
3€18 
3cic 
3CiIc 


2550 
2552 
2654 


2559 
2558 
2S5D 


2562 
2563 
2565 


25A4 
2S5A6 
2S5A8 


2S5A0 
2SaF 
25681 


2586 
28567 
2589 
256E 
2sc2 
25¢c3 
25cs 
25Ca 
25cB 
2S5cb 


2503 


2SeF 


ADDR STMT 


$15 
Si6 
S17 
Sie 
S19 
520 
S22 
S22 
$23 
$24 
52s 
S26 
S27 
528 
529 
530 
S31 
$32 
$33 
$34 
5358 
$36 
$37 
S38 
539 
S40 
S41 
$42 
543 
S44 
S45 
S46 
547 
548 
S49 
5S0 
S51 
S52 
583 
5s4 
555 
SS6 
SS7 
$58 
Ss9 
560 
S61 
S62 
$63 
S64 
S65 
S66 
S67 
$68 
S69 
$70 
S71 
s72 
S73 
S74 
S75 
S76 
S77 
S78 
S79 
$580 
$81 
582 


MICRO~CODE LOADER PROGRAM 


SOURCE 


xOK X 


XOUNT 
XODR 

XDDRI 
YOUNT 


YDOR 
YOOR1 


XVERI6 


XOKY 


XUNPK 


YUNPK 


XDONE 


PRINTQ 


PRINTX 


Gere ba 


SUL ee Fre he ee Eee oh. CE 


STATEMENT 

MMVI BUF—2 -€#g0 
ALC TEM ceONEDE 2) 
M¥C QOUNT eTEMZ OD 
ALC QOUNT « TEM( 25 
LA BUF~80 eXR1 
st XODRL ce KRI 
LA BUF-46eXR2 
ST YOOR1 »XR1 
ALC XODR1i + GOUNT C2) 
ALC YDOOR1 »GOUNTC 2? 
8 UP ACK 

oc XLi*008 

oC xXL2*00co0¢« 
oc XL2*°00002 

8 UNP ACK 

oc XL1*008 

oc XL2°O0000? 
oc XLZ°00008 

8 PRINT 

oc xLi "068 

oc ILi*gge 

oc AL2 (BUF) 

J XOONE 

ALC SAeDOOOF(2) 
ALC SBeD000F (2) 
MVC XUNPK eSAC2} 
MvC YUNPK.SB8(2) 
ALC SA»CNED(2) 
ALC S@.ONED(2) 
t XUNPK o XRE 

u YUNPK « XR2 
cic O€eXR1) 200126, xR2) 
JE XxOKY 

MVE BUF +2 .C*ege 
B UNP ACK 

oc Litres 

oc XL2*09008 
oc AL2 (BUF-48) 
8 UNP ACK 

oc 1L1°168 

oc XL2*00008 
oc AL2 (BUF~8) 
8 PRINT 

oc XLi‘*ole 

oc IL? *8g¢ 

oc AL2 (BUF) 

8 xOGPD 

Eau * 

8 PRINT 

oc XLifo1e 

oc Wlitave 

oc AL2 (OPRX) 

8 PRINT 

oc XL1°O75 

oc TLite7ze 

oc AL2(OPRY?) 

8 HALT 

oc XL2*89E2¢ 
SNS TERP.X*008 
cur TERP oxX*0S8 
BNE ENOLOO 

MVE TERP.x*Q2¢ 
8 acT 

CLL TERP.x*O28 
JE ENDLOO 

EQu 2 


SBIR Mm BES See ee ele SR tae ae, Swathi ot tar 


| 
| 


PART NOw 42356287! 
PAGE 5 


GET LENGTH AFYER UNPACKING 
GET LENGTH AFTER UNPACKENG 


GET START ADDRESS IN BUF 
GET ADORESS FOR UNPACKED CODE 


ACVANCE GFFSET 


URNPACK CODE 


PRINT SUF 


MOVE ¥G UNPACK AREA 


POINT TG NEXT STARTING ADORESS 


| 
! 
| 
t 
| 
| 
| 
ADVANCE ADORESS TO END OF CODE | 
UNPACK CODE 


PRINT CODE 


PRINT OPERATOR MESSAGE 
GPERATOR PRINT 


ERROR HALT # E2 


RESET OPTION To 2 


LOAD CORE ONLY ? 


PROG ID 0893-0 
PAGE Ss 


Salant Wi BS wes hee ae ee, 


Qo 


Ses wee 


gpres MAENTENANCE OLAGNOST IC PROGRAM 


FC? MICRO-CODE LoavEeR 


€5°?70 


ERR LSC OBVECT CODE ADOR 


& 


2seF 
2sFs 
2SF8 
2601 
2665 
2c07 


ec 91 
OE O28 
OE 01 
co a7 
30S8 
occe 


2608 4DE6 

2608 266¢ 

2608 264¢ 

3879 
2606 
2668 


260¢ 
2609 
2609 
260E 
260F 
2611 
2615 
2619 
261D 
261F 


co 87 
86 

2F 
3ACS 
39 CO 
co $0 
co 87 
BRR 
38 08 


O2iA 
2800 
260E 
2610 
o2cs 
3CS7 
0222 
FSi 
0200 


2623 
2627 
2628 
262F 
2630 
2631 
2633 
2637 
2639 


cé 
38 
co 
06 
i: 
380A 
co 87 
89ES3 
co 87 


30 
20 
87 


3cS? 
1FFF 
O21A 
262F 
2636 
2632 
0222 
2638 
3C41 


0000 
0000 


263€ 
2640 


0216 
0100 
e200 
0300 
0400 


2642 
2644 
2646 
2648 
264A 


0000 
2868 


264C 
264E 


CSCSE3C8CS5D940C3 
€109C44 0p9csc1¢c4 
CS094006D940CECS 
03C54 004 E4E 2£ 340 
C2CS40E4E2cscaa0 
CLE 2400306Cc1C4Cc5 
09 
S0C4CS5ESCOC3CS 
C3C109C440E2C5pD8 
E4CSDSC3CS40C9E2 
40 06E4E34006c640 
0609C4C 509404040 
8040404040404040 
4040404040404040 
40 
C3€109C440¢9¢340 
C9E 24 0DS06E 3406 
<3F 7404040804040 
2040404040404040 
40 40404040404040 
4040404 040404046 
40 


267F 


2686 
2687 


26E8 


26JUN7TS 
828023 


PROGRAM 


ee AS deny Met 





STMT SOURCE STATEMENT 


PARY NO. 
PAGE 


4234287 
SA 


$83 aC END ADD» ADMLT( 2) MOVE EN BUFFER START adORESS 

S8@ ALC ENDADD (2) sENTY AOD 2 TIMES OF »@ oF INSTRUCTIONS 
Ses ALC ENDADD( 2) eENTT FCR ENDING ADCRESS FOR ouMe 

586 8 BuNpP PRINT PROGRAM 

S&7 o¢ &L2] (ML TACH START ADDRESS 

$88 ENDADD oc AL]2°00008 ENDING aDORESS 

$8¢ 

590 ENDLOS EGU & 

S91 8 PRENT OPERATOR PRINT 

$92 nec XLE*O68 MECROCODE LOAD ox 

593 oc ILLS a7s 

594 o¢ AL2(OPRK} 

595 TeF SBVTEO -SSwo0¢sswol 

596 BE BLOD 

597 8 MALT HALY * AS Heese eennerssensesecaseses 
598 oc XL2*Sagage IF sswo4 is on 

S99 TEN S8YTES.»SSwec TEST FOR a93 LOADED BY FCR8 

600 «# MECROCODE HaS LOADED 

60: BF BL0D TERMINATE SECTION 

602 i X*1FFF*.P1IAaR RETUKN TO PGM Fca 

603 ADCHK a PRINT PRINT 

604 oc KXL2*06* ATTACHMENT 

60S oc Terey ve CHECK 

606 oc AL2CAOK) 

607 8 HALT 

606 oc XL2 *S9E3° 

609 8 CINKK 

610 

611 

612 keeeeasasesene 

613 * VARIABLES VARESESESSSSE SASS HSER ER ES EHR RRSEESERREREESERERE SEEEEES 
614 seeeeee gen eae 

615 Teme oc SLo¢ge 

616 TERS oc XL2°98¢ 

G17 eenssagsecease 

618 * CONSTANTS *ORSERS CSS S SRD SEER EAE STEERS EES SREREREEEEEEEEEStLESEEee 
619 seseeaeeseszer 

620 LINKA oC XL2*02168¢ 

621 X0100 oc XL2*01008 

622 x0200 oc XL2*Q2008 

623 x0300 oc XL2*o3008 

624 x0400 oc XL2*04a008 

625 

626 ENTT oc XL2°00008 

627 ADMICD oC AL2 CUNUSD) 

628 

629 oc CL49° EITHER CARD READER OR FILE MUST BE USED as LOADER ® 
629 

629 

629 

629 

629 

629 

630 ERRE oc CLO7* OEVICE®? 

631 ERR? oc CL49* CARO SEQUENCE IS oOUT OF ORDER e 
631 

631 

631 

631 

631 

631 

632 ERRS oc CL49"°CARO ID IS NOT FC7 : ® 
632 

632 

632 

632 

632 

632 





PROG I0 
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SA 
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TEM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NOa saree) «pres MAINTENANCE OTAGNOSTIC PROGRAM 


PART NOs 42342587 
PAGE 


at 


© e 
t 


PAGE 6A 
8930 FCT MICRO-CODE LOADER PROGRAM | @227° FC? MICRO-CODE LOADER PROGRAK 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
26E9 8040404040C3D6D9 2706 633 oc cL30¢ CORE IS NOT LARGE ENOUGH °¢ © 637 
26F1 CS540C9E240D05D6E3 633 2769 638 TABLE FQU = MAP OF MICROCODE 
26F9 4003€109C7CS40C5 633 @ 2769 2769 639 os cut © BYTE RESERVED 
2701 0SD6E4C7CB840 633 276A 2770 680 PART# OS CL? 1-7 PART NUMBER 
2707 E2CSE340C4C140E2 2737 634 ERRS oc CL49"SET DA SWITCH 04 WILL GIVE A OUHP 2771 2771 641 os Cut 8 RE SERVED 
270F E6COIE3C3CB40F OFS 634 2772 2777 642 EC# os éie 9-24 EC NUMBER 
2717 40€6C903D340C7C9 634 © 2778 . 2778 643 ECSFX OS cul 158 EC SUFFIX 
27TIF ESCS40C140C4E GDA 634 2779 2788 644 OPREG OS 32xL2 16-79 OP DECODE DATA 
2727 0740404040404040 634 ° 2789 278A 645 NINST DS KL2 80-81 NUMBER OF MICROINSTRUCTIONS 
272F 8040404040408046 634 2768 278E 646A CHKSUM OS XLS 62-e5 CHECK SUM 
2737 40 634 278F 2868 647 UNUSO OS . CLITO 86-255 UNUSED 
2738 CSCSESCBCSD9400S 2768 635 ERE oc CLAGTEI THER NO END CARD OR PROGRAM TOO LONG © 2869 3868 648 MICOD2 OS 26XL 255 256-XXXX MICROCODE 
2740 D640CSD0SC440C3C1 635 3869 36888 689 MECOC OS XL80 
2748 09C4400609400709 635 650 
2750 D6C7D9C10440E3D6 635 © 651 8¢*ssee MESSAGES RS SRO SSE 
2758 064063D605C74 040 635 ve 652 
2760 4040404040404040 635 3889 D4&C3E240D306C1C4& 38C9 653 MCSLOD DC CiL7*MCS LOADING ERROR? 
2768 40 . 635... | © 38C: C9O0SC7T40OC50909D06 683 
38C9 09 683 
: 3ECA CIE3E3C1C3C8D4C5 3B8DA 654 ADH pc CLIZSATTACHMENT CHECK ° 
cr ' is) 3802 DSE340C3C8CSC3D2 654 
SBOA 40 654 
38DB C6C3F7404054C9C3 38FC 655 OPRI oc CLS4*FC? KICRO-CODE LOADER PROGRAN e 
2 Q 3B8ES D9D660C306C4C540 655 ; 
ah 38EB D3NEC2CacsoSsacD7 655 
38F3 D9D6C709C1 044046 655 
a *, 38FB 4046 685 
33FO E2C5D3C5C3E34006 3930 656 oc CLS2°SELECT OPTION BY PUTTING XZ VALUE INTO DATA SWETCHES® 
39°95 DVE3CS06DS4 0C2EB 656 
oe | 390D 40D07E4ESESCSDSC? 656 
7 } 3925 40F 7ETAOESCIDSES 656 
391D CS40CO°SE3IDESOCS 656 
ry oS 3925 CLE3CL40E2E6COES 656 
Se, i 392D C3CceaCcSE2 656 a 
3931 40C1OSC44CD9CSES 3943 657 OPR2 oc CLi9? ANO RESETTING HALT 
&y 3939 CSE3E3SC905C740C8 657 
3941 C1033 657 
j 3944 C6C3F7464004C9C3 395F 658 MSGLD oC CL2ES*FCP MICRN-CODE BEING LOADED® 
| e 394C 090D660C306C4C550 658 7 
4, | 3954 €2C5C905C7400306 658 : 
BOSC CiCc4acsca 6se y 
* Qs 3960 FOFL406040D306C1 3994 659 CPR3 DC CLS3"°O1 - LOAD AND SENSE CONTROL STORE €& PRINT OBJECT CODE® 
va 3968 C4640C1D5C44CE2C5S 659 . 
.- 3970 OSE2CS40C306D5E3 639 
7 @> 3°78 NODEDS4SE2E3D6D9 659 
= 3980 €S40504007DSC905 659 
i 3988 E34006C2D1C5C3E3 659 
| © g> 3990 s0c3DéEC4C5§ 659 
3995 FOF2Z406040D306Ci 298A 660 GPRE pc CL38°O2 ~- LOAD AND SENSE CONTROL STORE ONLY® 
399D C4&40CIDSC44 0E2C5 660 
39OAS DSESCS4ONC3ZDEDSE3 666 
B9AD DSOEDZ40E2E3DER9 650 
pe 3985 cS54006D503E@a 660 
oO O88 FOF 3406040E2CSDS 39FEL 661 OPRS oc CL39°O3 — SENSE AND PRINT FC? CONTROL STORE? 
= i 39C3 £2C540C105C44007 661 
' S39CB N9OCODSES40CEC3F? 661 
: oO 3903 4040C306D5E 30906 661 
| 390B 0340E2E30609C5 661 
| SOE2 CSDSEZE4D9C540C4& B3A0F 662 oc CLAG6*% ENSURE DATA DECK FC? FOR MECRO-LCANER I$ ¢ 
* i C3 39OER CLE3C140C4CS5C302 662 
I BOF2 40CEC3F 740C6D5609 662 
| 39FR 604040404604004C9 662 
a | oO 3A02 C3ICSDE6OCO3DECIC4S 662 
. BAOA CS0940C9E240 662 
BA1G CSODS40D7D09C9IN4C2 3A3B 663 OPRE oc CL4i° IN PRIMARY HOPPER, RESET HALT TO CONTINUES 
| (3418 O9Ees0c8D60707¢5 663 
: { 3A20 D96B4009CSE2C5E3 663 
3A28 40CECIDSES40E306 663 
\ 
i © 
DATE ZESUNTS _£ROG IO aes? | DATE 26JUN7S PROG ID 0893-9 
EC NQ. 224023 PAGE FS NOe 825023 PAGE GA 
| 
| 
| 
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” N AGN Cc PROGRAN "+" PART NOs 4234287 
IBM MAINTENANCE DIAGNOSTIC PROGRAM nace NOe neyete? | 16M MAINTENANCE OT AGNOSTI 0G once er 
8930 FC? MICRO-CODE LOADER PROGRAM Ep6e5° = FCT MICRO-CODE LUADER PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT e. LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
69? 
663 
ee a aaa a 663 ; JBAZ AD O1 A? AS 698 cic TEM( oXR2) eDOOOF(2eXR2) 16 CHARACTERS TO PRINT ? 
3A39 E2CSE3S8CCSCIE3CI 3A6T 664 OPRX oc CL47*°SET DATA SWETCH TO OS - TRY TO RELGAD MICROCODE* i © 3BAS F2 84 36 ote JH OVERI6 be 
3A41 40E2E6COE3C3CA40 664 
3BA9 AC 00 6C A? 701 mvc COUNT ( oXR20eTEM(E SXR2} PUT LENGTH COUNT IN PRINT 
4 4 664 7 
ais, picecacceanecsce 664 3 3BAD AC 01 4E 98 702 MYC ADOR(C eo XR2PcSAC2eXR2} RM ADDRESS 
3A59 CS5D3D6C1C440D4C9 664 3681 AE 00 4C A3 703 ALC COUNT € o XR2) eONEOC 1 oXR2) 
3A61 C309D6C306C4CS 664 3B85 AE 02 46 A? 704 ALC ADOR( oXR29 eTEM(2eXR2) 
ZREB C6D9DED440C3D609 3A96 665 OFPRY pc CLS7T*FROM COREs CTHERWESE SECTION YTERMENATES e © 3BE9 AC C1 96 SE 70s avec SACeKR2),400RC2eXR2) CURRENT STARTING ADDRESS 
3A70 CSE6B4 006E3C8CS5D9 665 3880 AE 61 SB AZ 706 ALC SAC oXR2) eONEDE 26 XR2D 
= 707 
P 6 
ties pic cpenaaoeseacs gee QO 38C1 CO 8? OZIE FOB 8 UNP ACK READY OATA FOR PRINTING 
wane pacebaciesece sad 665 38cS 09 38C5S 769 COUNT 9C xXL1°008 
3BC6 0000 38C7 710 ADDR oc XL2°0000° 
3A90 0404640462040 665 
3AAQ 666 LEVEL EU *418 | Co 36C8 3€40 38C9 ?7it oc AL2(CBUFFAR) 
3A97 D4&C9C3N9N66CC306 3ACS 667 OPRK oc CL4E7*MECRO-CODE €LEVEL X) LOADED SUCCESSFULLY e Ti2 
3ASF C4C5404D03CSESCS 667 3BCA AC 60 5E 4C 713 Mv¥C LERINT (.XR2) eCOUNT( 2 XR23 
714 ALC LPRINTC oXR2) oLPRINT(2eXR2) OQOUBLE PRENT COLNT 
3AA7 D340E75SD40030EC!I 667 G © 3BCE AE 00 SE SE 
BAAF C4C5C440E2E4&C3C3 667 715 
3AB? CSE2E2C 6E4D303E8 667 3602 CO 87 O21A 716 8 PRINT PRINT DATA 
3ABF 4040404040404¢ 667 3806 01 3806 717 oc XLito1e 
BAC6 40C1C4C4N9404040 3ACD 668 oc CLs8* ADOR ® © 3807 00 3807 718 LPRINT OC XL2°908 
BACE 40404040C3DECSC5 3AFS 669 oc evace CODE READ INTO CORE e 3808 3C40 3899 719 oc AL2 (BUFF AR) 
3AD6 40D9C5C1 C440C905 669 : oO Seated a 3 sie 
BADE £30640C30609C540 669 
722 
3AE6B 4040404040404040 669 
SAGE osc nek oeokOcoke 669 re 3B0D AE 91 98 AS 723 OVERIG6 ALC SAC2eXR2) CDOOOF( oe X¥R2} ADD FIFTEEN 
3AF6 40404040C3D6C4C5 381D 670 OPRT oc cLaoce CODE SENSEO ERR & 3BE1 AC 01 76 98 724 MVC LUNPK( oXR2) eSAC2eXR2) 
BAFE 406 2CSDSE2CSC440 670 3BES AE C1 98 AS 725 ALC SAC oXR2) sONED( 2eXR2) 
3BC6 4040404040404040 670 © eaeveuee Gene a5 5 costes 
3B0E 4040404040404040 670 : 
3816 40404040C50SD940 670 3BED 10 38—ED 728 aC TLa*168 
‘ 3BIE 0000000000000000 3875 671 SUF oc xLes*oor © 3BEE 0000 38EF 729 LUNPK DBOL XL2*°090008 
Se 3826 000000090C00C00 671 3eFO 3¢40 38F1 730 oc AL2 (BUFFAR) 
3B2E o0000CCOO00D0CCONN 671 9 732 
3836 00C20000000C0000 671 © oo = 87 O21A cae = oS PRINT DATA 
3B3E 00000000000C0000 671 8 
3B46 o0CCO000000CO00D 671 3BF7 20 3BF7 734 oc IL1*32¢ 
3B4E 00000000000C0000 671 | ae) 38F8 3C40 38F9 735 oc AL2(BUFFAR) 
3856 0000000000000000 671 . j 3BFA EO 87 21 736 8 LCOPD( XR2) RELOOP 
3B5E 0000000000000C00 67. 737 
3866 0000000000000000 671 | * 38FD CO 87 O21A an a3 OONE ee 
3B6E 0000000000000000 671 3co1 17 01 3 ic x 
3876 40 3876 672 oc cLise ¢ | . 740 
3P7T 0000 3878 673 QOUNT o0C XL2*008 | © 3co2 C2 01 6000 741 SxR1 ta S-8 oXRI RESTORE xR1 
674 3c06 c2 02 oCCe 742 SxXR2 LA B=—%eXR2 RESTORE xR2 
675 Ser ae ena 743 
676 * SUBROUTINE OUMP © 3COA CO 87 OCCO 744 DOMP100 8B e-28 RETURN TO MAIN PROGRAN 
677 sevsessnsenentensssstnensensenssenenseseenenacnentenenensensnssnensnss | 75 
678 * CALLING SEQUENCE 3COE CO 87 022A 746 8 toao 
679 ®| 3c12 40 3C12 747 RESTRT DOC XiL1*4oe 
680 * 8 OUMP *| © 3¢13 0000 3C14 748 SA oc xL2°00008 
681 * oc AL2CSTARTING ADDRESS) ‘| 3c1S 0000 3C16 749 EA oc XL2*0000° 
682 * oc AL2(ENDING ADDRESS) * oO 3C€17 0000 3c18 750 sB oc XL2°00008 
683 PRERERES SESE SS ES EERERER SS 88998 ESE SEES EONS ESOS ESEEEEDESE TET TEEEEES 49088 | 3€19 0000 SC1A 751 €8 oc XL2°90000° 
684 | 3€1B8 oO0O1 3C1C 752 OQNEO oc xL2°0001° 
3879 34 08 3C0D 685 OUMP ST OMP10043,.ARR SAVE RETURN ADORESS QO 3¢€10 OOOF 3C1E 753 D3900F oc XL2*o000Fe 
3870 34 02 3C09 686 st SXR2A3 eXR2 SAVE XR2 3c1F 0000 ao. Me ee = arescaast 
3879 687 USING OUMP».xR2 3€21 0000000000000000 3c4 5S BUFFAR DC : 
3881 ¢2 02 3879 688 LA OUMP eXR2 re) 3€29 0000000000000000 785 
3885S B84 O1 BC 689 st S¥R1+3( oXR2) oXRI SAVE xRI 3C31 00000009200000000 755 
3888 BS 01 94 690 u OMP10943( .XR2)eXR1 LOAD PARAMETER AODRESS 3€39 0000060000000000 755 
3B86 $C O01 9B O01 691 mvc SAC oXR2) 01 (20 XR1D SAVE STARTING ADDRESS © 756 
3B8F 9C O1 90 03 692 vc EAC oXR200302.XR1) SAVE ENDING ADDRESS 757 * 
3893 02 01 O04 693 ta 4 oXR1)D eXRI INCREMENT RETURN ALORESS 7858 # THES SUBROUTINE WILL OETERMINE WHETHER TO RETURN TO OCP 
3896 34 01 3c0D 694 st OMP 100436 XR1 CHANGE RETURN ADDRESS © 759 © OR TO TERMINATE THE SECTION. 
3BS9A AC 01 A? 9D 695 LOCPD MVC TEM(.XR2)-EAC2eXR2) PRESERVE END ADDRESS 760 * 
389E AF Of a7 98 696 stc TEM oXR2) oSAC2eXR2) GET LENGTH COUNT FOR PRINT 3C41 761 LINKK €EQU * 
| 
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TBM MAINTENANCE OTAGNOSTIC PROGRAN PART NOe 4230257 
PAGE GA 
8936 FC? MICRO-CODE LOADER PROGRAN FC7. MICRO-CCDE LUADER PROGRAN 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


ADOR STMT SGURCE STATEMENT 





3C41 CO B87 O21A yo 8 PRINT PRINT © 821 
3C45 01 3¢46s 763, oc xLiIFOLe MICRO NOT LOADED 3015 C2 01 2869 822 GENSUM LA UNUSDO4 eXRE LOAD ADORESS OF MICRO MAP 
% 3C46 15 3C46 766 oc tur°2ie 3019 F2 87 06 823 J STARR GO STORE ARR 
. 3C4a? 3C6F 3Cas 765 oc AL2¢€MSGNA) | © 3Di1Cc C2 01 3005 824 SUMCHK LA MLTACOXRE LOAD ADDRESS OF SENSED MICRO CODE 
3C49 CO BP? O21A 766 8 PRINT | 3020 34 08 3092 825 STARR ST ORL43eARR STORE RETURN ADDRESS 
3C40 06 3¢4ap 60767 oc XL1° 068 © 3024 OC 03 3085 308C 826 MVC §>PAR4+3-ALLGOC4) 
3C4E 2F 3C4e 768 pc ILicare ; 3D2A OC 01 3088 276A 82? MYC MCSCC 25 eNENST 
3C4F 3C9EF 3CS0 769 oc AL2(MSGNAA) ! 3D30 3C 80 3055 828 MVE ORF+C0,.NOD0P 
3CSi CO AP 0222 770 B HALT HALT © AQ SHESRE ERS EESERSREET EEKESE | Q 3034 C2 62 3082 829 ORA LA PAR s¥R2 LOAD ACPARETY BYTES) 
3CS5 Boas 3C56 771 oc RL2°8onae EF SSWO4 £S OP ‘ 3038 3C 20 3077 830 MVE ORHeO0,NDOP SET suMP TO NCOP 
3C57 CO 87 0216 772 BLOO Os LINK 3D3C 1¢C 06 3086 00 @3i arc MVC WRECLDeO€ oKRED MOVE SENSED BYTE TO WORK FIELD 
rn 773 <f { © 3041 2C 60 3p4ac 00 832 aYvC ORD4G0613e00 oe XR2} MOVE PARITY @vTE 
5 3CSB 04C9C3DSDE60C3N6 3C6F 774 MSGNA oC CL2i*MECRO-CODE NOT LGADED? 3086 1€ GE 3DSO of 833 wvC ORE4OQ (1d eO( eo XR1} MOVE SENSED @vTE 
3C63 CaCS4005D6E 34003 774 | 3046 3B CO 3086 834 ORD ser WRK eo TAKE PARITY OF THIS SENSED BYTE 
3C68 06C1C4C5C4 774 ; a 304F B86 90 00 835 GRE SSF 0 €oKR2}50 AND THES SARITY BYTE 
3C70 DIOCSCECSD940E3D6 3CSE 775 MSGNAA OC CLATPREFER TG SECTION 891 IF ERRORS HERE ENCOUNTERED? ies 3DS2 SE 60 06 3086 836 ALC OC oZR2E OWRECE SD AOD REMAINING BYTE 
3C78 40E2CSC3E3CS9D6DS 775 . ; | 3-"? D2 01 O8 837 LA TC oRRIP OKRE INCRESE REMAINENG @ETS 
3C80 40FSF9OF140C9C640 475 | - BUSA ES 02 61 638 LA £ €oXRZ} oXRZ ENCREMENT PCINTER YO PAS TY SYTES 
3C8B CSDSDSD6ED9EZ40E6 77S | ' 3050 Fe 80 o8 839 ORF Je ORG eNGOP JUM>D EVERY OTHER TEME 
3€90 C509C540C505C306 775 : 3060 3C 87 30S5E 840 RVE ORF+@4, GRANCH RESET JUMP TO A SRANCH 
3C98 E4DSE3C5DOCSC4A 77S . 3064 CO 87 3D3C Bat 8 orc REPEAT FOR SECGNO BYTE OF SNSEO DATA 
776 & 3068 OF 0% 3058 3DKE B42 ORG SiC MCSCC2?  ONET DECREMENT COUNT OF ENSTRUCTIONS 
T77 ” 3D6E CO ei 30EF 843 Bz ORE SENSE DONE 
pu 778 # THIS SUBROUTINE £S USED TO SNS EACH HDB AND ENSURE ‘ oO 3072 3C 80 30SE Ba4 MVE CRF+G0.NOOP RESET JUMP TO NGOUP 
ee 779 * THAT IT HAS BEEN CORRECTLY LOADED WITH K2OG¢%. | 3076 CO 80 3034 845 CRH ec OA .NOGP JUMP EVERY OTHER TIME 
780 * eee | 307A 3C 87 3077 846 MYE ORH*OG. BRANCH RESET JUMP To BRANCH 
3COF 34 08 3014 781 SNSDEC ST ESNS¢3<ARR SAVE FOR RETURNING i oe 2D7E CO 87 3D3¢ 647 a ORC REPEAT FOR SECOND PAER OF PARITY 
3CA3 30 00 3CDE 782 SNS1i SNS SAVSNS »X* 008 oo 846 « BYTE 
3CA7 OD Of 3CDE 3cD7 783 cust SAVSNS(2},0ZERO TS HOS x*96°F i 3082 849 PAR EGU & PARITY BYTES USED FOR CHECK SUM 
3CAD F2 81 55 784 JE SETRET i 3082 O00GC050 35aS 8s0 oc XLS EGO 
3CBO CO B87 021 785 8 UNPACK UNPACK | © 3D86 06 3086 85i WRK BC ML2°608 
3CB4 Of 3CB4 786 OC KLLeOLe BITS 8~15 i 308? 0000 3088 8S2 mcSC f8C XL2°0G€ 
oo 3CB5 3cEs8 3CB6 7a? — Be AL2CWORK2) | €) 3D8S CO6G0000 3D8C «8S3 ALLO) o¢ XL4°700000006°¢ 
SS ee 3CB7 3CF4 3cBe 768 pc AL? CMSGHD i 3080 000i 3D8E 854 GNET oC KL] °6C0E? ne 
3CB9 CO B7 O21E 789 8 UNP ACK UNP ACK i ooot 855 aa EQuU 2 
3cBD 01 3CBD 796 oc XLEfOL? BITS 0-7? 0080 856 NOOP EGY x=s60e 
3CBE 3CE? 3CBF 791 oc AL2(WORK2=1) OC87 857 BRANCH EQU X°B76 
3CCO 3CFi 3cc1 792 pc AL2¢MSGH=3) 3D8F CO 87 0000 B58 ORE eB tt RETURN TO USER 
3CC2 CO 8B? OZLA 793 6 PRINT PRINT 859 
3CC6 C6 3CC6 7948 DC XLI®C6e HDG 860 eeeseeee senses 
3Ccc?7 19 3CCc7 795 oc FJELre2se ERRGR B6i & EGUATES FSSVLEPRVKSERHKAKSRKASASASSKSECKKLKEKSLSESSERTECHEVDSSHKSE LK ASEASSSKS 
3cca8 3006 3cc9 796 oc AL2(MSGHDS) B62 ShReesAeSseacee 
3BCCA 89€4 3ccap 797 oc XLZ°89E42 863 
3CCC CO 87 C222 798 8 HALT ERROR HALT © E4 4a eeaeeseneaget 0001 864 xR} Eau i 
3CD0 B9E4 scot 799 oc XL2°A9E4E 0002 865 xR2 equ 2 
3cD2 co 87 3C41 860 8 LINKK 0008 866 ARR Equ 6 
3CD6 0009 3C07 801 DZERG oc XL2°06008 0004 867 PSR Eav & 
3CD8 cCOos 3C09 802 X0010 DC XL2°9008¢ OOAQ 868 TAR2 Eau xPAoe 
3CDA 90000 3C0B 863 ADD oc XL2°90008 0020 869 PLIZAR EGU K*20¢ 
3BCNC 00 3COC 804 SWITCH DC XL1*90° 0222 e870 HALT EQU x*222? 
3CDD 0000 3CDE 805 SAVSNS DC xL2¢008 a 0212 871 TEST EQU xKx&eiae 
BCDF 1014 3CEO 806 COUNT2 OC ML2°iOLRe Me C21A 872 PRINT EQU xe2tAK8 
SCE1 O0OL 3CE2 A807 COUNTI OC XL2°0005¢ O21E 873 UNPACK EQU xe2lE® 
3BCE3 2021 3CE& 808 COUNTS OC XL2*3021¢ 0216 874 LINK Eau x8226° 
3CES 3031 BCE6 809 COUNTS DC XL2"*30316 0203 875 SIZE EGU x*2638 SRT - CORE SEZE OF THE SYSTEM 
3CE? 0900 3CE8 6810 WORK2 oc XL2°508 0208 876 SBYTEO Eau xe208¢ 
3CES 0101 BCEA 881 AOLOL oC MEL2°OLGR£ e080 877 SSWOO EQU x°sG6t LOOP ON SECTION 
3CEB 090 3CEB B12 SECSW DC XL2°O68 0640 878 SSHOok EGU X*gQ5 LOOP ON ROUTINE 
a BCEC C8C4C240FOFO6IFG 3CF& 6813 HSGH 0C CLS*HDS GOGOL * es O20A 879 SBYTE2 EQU x=®20A¢ SECOND SYTE GF SENSE Sws 
BCF4 Fi 813 i 0200 88C SBYTES FaU xe2ope 
BCF5 4040CACSE7TSD4&CDS 3004 814 MSGHDB oC CLIS6® €HEX) NOT ZEROF 0008 681 Ssw2ec EGU xeoge ss 2c 
SCFD D6E340E9C509D640 614 OcOL 882 SSweF Fau xeol? 
2005 CE O1 3BCES 3CEA B15 SEYRET aLe WORK2 €2 22 ADLOL SETUP FoR 0080 883 SssHiO Eau Xesoe SS 16 
3BDOB OF OG 3CA4 3C1C B16 ALC SNSI#2( 1) -ONED NEXT PASS 0226 884 PACK EQU  X*2268 SRT - ENTRY TO PACE EBCOIC TO HEX 
3Dt1 CO 8? 0606 817 ESNS 86 e—-% RETURN G22A 885 LOAD EGU KS22A6 SRT - ENTRY TO LOA 
BLS KESSRESERGEREEEERESTASEEEE SEES 6232 886 UTAS EQuU x8232¢ SRT - FIRST BYTE 
Bis * CHECKSUM SUBROUTINE 84246224 4659¢45¢ 58845094446 SER SESSESRERSE CS80 887 INPUT EGU x*ssoe ADDRESS OF READIN &SREA 
B26 SKERERE SEALERS EEE ESEEKRERER EEE 3093 90060 309% 6888 GARBE oc XL2°o0€ UNUSED 
DATE 265UN75 PROG ID 0893-0 OaATE 26JUN7S PROG 10 0893-6 
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IBM MAINTENANCE DIAGNOSTIC PanGRax PART NOs 6236257) &3 lee RAERTENANCE DIAGNESTEC PROGRAN PART NOo 4234257 
PAGE 9 | PAGE Ga 
6930 FC? ICPO-CODE LOADER PROGRAR $6930 FC? MECRG-CODE LOAGER PROGRAM 
i 
ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT CROSS-REFERENCE 
ue : : 
309S 889 METAC EQU «& SUFFER FOR SENSED BACK cose Oa ¥ LEN VALUE DEFR REFERENCES 
3095 2094 896 os 16x%L2 86 
409S 891 ENMLT Eau # | Cu4ct & ©O1 2363 93ag S863 OSTS 
a006 SDE@ see Ds XLBO | “"acv2 4 604 2078 O146 
&DES 3096 40EG 893 AOMLY De ALZUKLTAC@i} i ADCHK A OC8 2622 e603 6404 6438 case ‘, 
894 £ 40D & 602 3¢€D8 eseg C4842 CEO00 Esare ; 
SDE? OFCIEICSCEANCEDS 4DFa eS5 FORME oC CLEG PATCH FORMAT ERRORS ““AaDDR 8 002 38Cc7 O715 O7O2% OFOee aFES 
SDEF DOD4aciEsaocsosos eos ADK A C47 =e oe pees 
40F7 CEDS Bos ! ~ADMICD & SOS PEGE 2 3 
ADFO ESCSCS€0CEDEN3SD3S GEIB 896 PATCHK OC CLS2° THE FOLLOWING PATCHES WERE goDEae ; ~ ADMLT 2 0602 45F6 ose2 6Sas 
401 D6ES6CSDSC74007C1 896 | AGAIN A 008 2355 oazt ose? 
E09 E3C3CECSE24CEECS 896 | gS ALLO & 004 308 0833 63212 o4826 
SE11 DoCcSeecicecacsce 896 j ~ AMICRO A 602 2001 Go62 
SEIS CIC*CSOS40CACIES 8E21 B97 FATCHN BC CLSFACDR oATAS ARR € 003 Gone 6866 C685 Orsi oses 
AE21 €1 aor | €-ATYCHK C COL 6O5D «Gose C204 vate Cass 
SE22 EVTETETE7Q0ETETE? AE2A 898 PPATCH Oc CLO*XKKX KRM E | “TROLOL A 002 3CEA 682: oats 
SE2A E7 898 BLOOD =A O04 «3C8P OPTe CO77 Goees C8SH CBOE 
7006 899 GRE K? 70008 | g™ BRAN.4 € 001 S08? 4857 CESS C886 
7000 900 PATCH EQu « | \ BUF A C68 3875 o67: C497 04974 OSSi OS1S% 6519 O521 o836 CS86e% GS52 6566 0566 
7000 FFFFFFFFFFFEFFEFE 75FF 904 bc 2S56XL Leere MECRO PATCH AREA SUFAD A 602 2166 6182 0246 
7008 FFFFEFEFFFFEFEFFE 901 Cetree & 002 215a Ste? 0246 
7010 FFFFFEFFFEFEFFEFEE 901 | BUFFAR A O32 3Ce8a OFS CFES OF19 OFSE O73S 
BUSY GOL OOSF 603; 
7018 FRFFFFFFFFFREFEFE 901 Be ¢ ass 
7020 FFFFFFFFFFFEEEFEF S0i Cet ass & OG1 2652 90105 SGBi O264 
7028 FRFFFFFFFEFFFFEFE S01 / 88930 A OCi 0000 C008 
7030 FFFFFFFFEFFSFEEF SOL CAROIN A CCL 2229 o285 G2:i9 
7038 FEFFFFFFFEEFEFEE 901 sCHKEND A O0t 2202 6267 6256 
7040 FRFRFFEFEEFFEFEE EE 901 “CHKFCE & 002 2215 276 $225 
7048 FFFFFFFEFFEEEFEEE soi CHKSEG A002 21ED 25s 8209 
?70S0 FFEFFFFFFEEFFFEE so} | (CHK SUN A 00% 27B8E 6645 O352% 6476 
70S8 FFEFFEFFFEFFEFEF 901 | “CLEAN A 008 2810 0848 0451 
7060 FFFFFFFFFEEFFFEE 961 | CLEAR A CGA 2064 01:6 Gias 
7068 FEFFFFFFFFEFFFEE 901 | €CLFLAG A 004 2110 0197 * 
Sa 7O70 FFFFFFFEFFFFEEFFE 901 | ““CMLODP A 006 218€ 232 6237 rn reer ene 
7078 FRFFFFFFFFFEFEFE 901 | COMM = A COR 2146 «0210 203 
7080 FFEFFFFFFFEFFEFEE 901 jSOMPP A OCL 2450 0468 0461 
7088 FFFFFFFFFEEEFFFEE 901 | “COUND A Oot 2114 192 OL09% O112% 04472 Q45948 
7090 FFFFFFFFEFFFEFFEE 961 | COUNT A OG1 3B8C5 0709 O7O01* O703% OF13 
7098 FFFEFFFEFFFFFFEEE S01 1 €&SCCUNTL A 002 3cE2 oB07 0399 
7OAQ FEFFFFFFFEFEFEEF 901 | ~~ €OUNT2 A 002 3CEO 0808 0414 
7OAS FFFFFFFEFFEFFEFFEE 901 | COUNTS A O02 3CE& 808 Cais 
7060 FFFFFFFEFFFFFEFFE 901 SE COUNTS &£ 002 3CE6 0809 O427 
7088 FFFFFFFFFFEFFEFEE 901 | Coo €C 00t 0058 0034 046373 0458 
VOCO FRFEFFFFFFFEFFEFE 901 | DOCNE A ODL 23A7 0416 0410 
70C8 FFFEFFFFFFFFEFEFE 901 jDICKL =A 002 20EO0 0162 0153 
7000 FFFFFFFFFFEEFFEFEE S0i 1 “DMP100 A GO4 3CCA 0744 S68S* 0490 68944 
| 
7008 FFFFFFFFFFFEFFEE 901 | DONE = =4£ 004 38FD 0738 Ov2i 
7OEO FFFFFFFFFFEEEFEE 901 . £002 A 00% 2364 0461 0415 
7OE8 FFEFFFFFFFFEFFEE 901 | ‘DUMB A 00& 3879 o685 ©3860 0556 0687 o6s5a 
7OFO FFFFFFFFFFFEFFFE 902 DOZERO & 0CO2 3C07 080: 6403 0418 0484 0763 
7OF8 FFFFFFFFFFFEFFEEE 901 | ESOCOTF A 002 Bc1E O753 0503 0538 0539 0698 o733 
902 * PATCH FORMAT 0255 A 002 2106 0185 O366 0364 
903 * AAAADDDD0 000A AAADDDODDODFEFF D256 A 002 2108 01286 
9u4 & WHERE AAAA = 4 DIGIT HEX ADORESS (HI 5 GI¥S MUST BE ZEROES) | € YEA A 002 3€16 0749 GS87# CASE CAS9% C490% 0495 0506 06520 0695 
905 * DDDD = HEX DATA (MUST BE PUT IN IN GROUPS OF 4 DIGITS, | “ES & 002 3C14 O751 OS80% O451*% O482% Casas O569 
90S @ WHERE EACH 4 DIGITS IS 1 MICRO-WORO. THERE CAN EC# A C06 2777 0642 
907 «* BE MORE THAN 1 WORD SPECIFIED. EACH WORD MUST {| (SECSFX A 001 2778 9643 0386 
908 ¢ CONTAIN & DIGETS AND WILL 82 PLACED IN THE MICRO | ““EMUL A 004 2384 0420 0430 
909 « STORAGE MAP IN ASCENDING ORDER UNTIL A DELIMITER | ENDADD A 002 2608 o5a88 O2856 0287 0387 6583% 0584s oO5E5e 
910 s IS REACHED. | €"-ENDADT A 001 2259 0358 0293 
911 « 0000 = OELIMITER (END OF PATCHES at THIS AOORESS) | ““ENDLOD A 001 2609 0550 OS76 05281 
| 
912 « FFFF = END GF ENTIRE PATCH \ ENMLT A001 4095 0891 0444% 0445 04458 0466 
FFFF 913 END | ( -ENTAB & 002 233F 0382 0369% 
| es A 002 264C€ 0626 O359% 0360% 0364* 0369 0461 04538 9584 0585 
| EPATCH £004 220A 0351 0315 
\ €_ERRF A 049 2768 0635 e271 
ERRLOD A 004 2469 oa72 
i ERR6 A007 2686 0430 0172 
i 
'@ 
| 
DATE 26 JUN7TS PROG 10D 0893-0) DATE 26JUN75 PROG 10 0893-0 
EC NO. 825023 PAGE 3 EC NOs 825023 PAGE 9A 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


8930 


SYMBOL. 


ERR? 
ERRS 
ERRS 
ESNS 
FORME 
GARBE 
GENSUM 
' GETC 
HALT 


HCO 
HDB0B 
YAR2 
INCTOA 
oP 4 InNPuT 
INTPND 
KOMPX 
LENGTH 
LEVEL 
LINK 
LINKA 
CINKK 
Lrol1 
LOAD 
LoOaAoc 
“ LOAT 
oop 
LocoPro 
" LROPOP 
LOOP! 
LooP2 
LPRINT 
LPTR 
LUNPK 
mcse 
MCSLOO 
MICOD 
MIcoD2 
MLTAC 
MOVE 
MSDAR 
MSGG 
MSGH 
MSGHOB 
MSGLO 
MSGNA 
MSGNAA 
NEG1 
NEG3 
NEXDAT 
NG2S56 
NINST 
NCCORE 
NaoP 
NORM 
NOTROY 
NOTSRY 
NREP 
NUMTOK 
ONDE 
ONEO 
ONET 
ONO 
OPDEC 
OQPREG 
OPRK 


DATE 
EC NOe 





FC? MICRO-CODE LOADER PROGRAM 


Y LEN VALUE 
A 049 2687 
A 049 26€8 
A 049 2737 
A 004 3011 
A018 40F8 
A 002 3094 
A004 3015 
A 0Cc3 2438 
Cc 001 0222 
Cc 001 0048 
c 001 o088s 
€ 001 GOAO 
A003 2251 
¢c oof os6so0 
¢c 001 0089 
A 004 2513 
A 00& 218A 
A OC! 3AA9 
Cc coi 0216 
A 002 2642 
A O01 3Cé41t 
A 00& 2272 
€ COL O22A 
A OO! 2135 
A004 23E5 
aA 006 22F8 
A 004 389A 
A003 234€E 
A003 23&9 
A 003 216A 
Aa COL 3807 
A902 210€ 
A 002 3B6EF 
A002 3988 
A O17 38¢9 
A080 3888 
A 256 3868 
A OOt 3095 
A005 21£&4 
€ 001 0058 
A004 2068 
A 009 3CF4 
A016 3004 
A 028 395F 
A 021 3C6F 
AOQ47 3C9E 
A 002 2102 
A 002 2104 
A 003 226C 
A902 2118 
A002 278A 
A 001 2318 
c¢ 001 ¢c080 
& 004 2030 
¢c ooi 00s8s 
A004 2280 
A OOL 214A 
A 004 22AE 
A 004 2112 
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A O47 3AC5 
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0437 
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6189 
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o8sS2 
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0649 
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08s9 
0256 
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0119 
0813 
0814 
06S8 
O774 
C775 
0183 
0184 
O311 
0194 
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0656 
0096 
e028 
0316 
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0729 
0190 
0752 
08S4 
0191 
0035 
0644 
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0463 
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0202 
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0108 
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008s 
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O107 O1L07% 0187 


0478 
0253% 


OS87 0824 90893 


0792 


0241 


0449 


0327* 0362 0452 0482 0483 0489 0490 


0830 0839 0844 6845 


0481 
0324 
0480 


0488 
0460 


Oso? 
0842 


05:16 0542 0843 9oO703 


7s iat diwinincic SA  ONtanel an le? “alld a hia ele cline Ghai nina onthe tetas BL ke 


! 

\ 

PART NOe 4234257! 
PAGE 10 | 
{ 

| 

! 

| 

i 

| 

| 

| 

| 

OS71 0597 0607 0770 
| 

| 

| 

| 

| 

t 

t 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

0827 
{ 

{ 

{ 

t 

{ 

1 

| 

0706 oO725 0816 i 
| 

{ 

! 

| 

{ 

| 

PROG ID 0893-0) 
PAGE 10 
| 

| 

| 

| 

{ 

{ 

¢ 


@ re" MAINTENANCE OITAGNOSTIC PROGRAM 


©°rr 


© niscc T 


OPRT 
“OPRX 
oPRY 
m~OPRI 
opR2 
OPR3 
POPRE 
opRsS 
OPR6 
e. OP3B2 
ORA 
orc 
“ORD 
“ ORE 
ORF 
£2.59°. 
“OR. 
ORI 
OUTGO 
“OVERIE 
PACK 
Pm PAR 
PARTS 
PATCH 
(PATCHE 
“ PATCHH 
PATCHR 
\P ATCHX 
PFFX 
PPATCH 


EOPRINT 


~ PRINTO 
PRINTX 
PSR 
“PITAR 
“" QOUNT 
ea 
£,QUECK 
\ RESTRT 
RTNO1 


@)°>" 
SAVSNS 
se 

MS eeiee 


SBYTE2 
f~ SBYTES 
“ SECSW 
SENSE 
SEO 
SETRET 
SETUP 
‘SETUL 
“Stor 
SIZE 
™; SNSDEC 
’ SNSPRT 
SNSi 

(:Ssw00 
SSwot 
sswiod 
f~SSWw2c 
“SSW2F 
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640 3810 
C47 3A67 
0&7? 3A96 
034 38FC 
019 3943 
oss 3994 
038 39BA 
029 3961 
O04: <3a38 
c02 2116 
00& 3D34 
cos 303¢ 
004 3048 
003 304F 
003 3050 
00S 3068 
00& 3076 
00& 308F 
oo 233F 
004 3800 
601 0226 
Oo! 3082 
607 2770 
oo1 7600 
004 22¢c6 
0Co 4E&21 
C03 230F 
032 4€12 
CC& 20CF 
009 4E2A 
Oct O21A 
094 25E8 
COi 2SEF 
GOk 0004 
Ooi 0020 
oo2 3878 
Oot o00! 
002 2126 
O01 sci2 
001 2005 
oce 23C:4 
002 3CDE 
e0c2 3C€18 
Oot 02068 
oo: O20A 
OoL 9200 
Oo! 3CEB 
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606 300605 
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O04 2473 
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GOL 0008 
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0664 
0665 
06SS 
C657 
0689 
0660 
0661 
0663 
0193 
0829 
083% 
0834 
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0639 
0842 
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o8ss 
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OF23 
0884 
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0640 
09056 
0342 
0897 
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0444 
O195§ 
oea15 
0196 
O14&7 
0037 
oe7s 
Oo7seL 
0478 
0782 
os7? 
0878 
ces2 
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082s 


FC7 MICRO“CODE LOADER PROGRAM 


wake. tee IN SE a oe eee tinea hoe oe. 


eee 


CROSS-REF ERENCE 


REFERENCES 

0494 
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0132 
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C479% O0539% 654i 
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8930 FC? MICRO-CODE LOADER PROGRAM @°s7 FC? MICRO-CODE LGADER PROGRAM , 
CROSS~REF ERENCE : OBJECT CARD LISTING 
SYMBOL T LEN VALUE DEFN REFERENCES : © 7 eter 
THE CHARACTER INDICATES A BLANK COLUMN ANO THE CHARACTERS O E H INDICATE NUMERIC SHIFT. 
START A OO1 2017 0079 0266 0275 0284 
STAT A001 20FF 0177 0:75 O176 O197 0198 ’ Ou 21 THROUGH 16 CL 17 THROUGH 32 Ci. 33 THROUGH 46 CL 49 THROUGH 64 CL 65 THROUGH 680 Ct 82 THROUGH 96 
SUMCHK A 004 301C 0824 0468 
SWITCH A 001 3C0C 0804 ecoso0)§ 6 6(00e2st : 
SxXR1 A 004 3c 02 o741 0689oe 6. e —_eee (0 e e e ee e eee2eeeveeee eseeeose eeoaeenee 
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UDT1 A 003 OACC 0018 © 
vot2 A 003 OAOF 0019 ee o ee e ® ~_?@ ° ° a eo 
UNPACK C 001 O21E 0873 0320 0329 0898 OS2€ OS529 0549 OS53 ©0708 O727 O78S 0789 T+SBOOH*B0TS -» 20 #8 SR @Y*20H* GF-<S+{2 /OHE Ut SEOBG SYACLWMOH® BF-DWES» SOHEAZ2> 98% £#U89300004 
UNUSD A170 2868 0647 0308 9435 0488 0627 0822 @ 
uTAe Cc 001 oO232 0886 0148 0150 0152 0863 0165 ar s. 7 é ‘ 5 . e 
wORK A 002 210C 0188 0226% 0227 0242% 0243 0305* 0316 0322 0324* 0325 O327 0361% 0362 T#SCe JOHSS~ 0 BR [-~ G<?HACTES Te 2-68 2-H28-CJOH* SF-)P4+TT /OHSS7G 27348=- H3ID/ 60-0 8<xX4 28089300005 
0365* 0366 ; 
wORK2 A002 3CE8 0810 0399% 0414* 0419% 04278 0787 0791 08158 © e e oo ee ec eee e e e e ° 
WRK A 001 3086 C851 O0831% 0834* 0836 T4#SOWY C2-K3 /CH E1LT—-W//MBOHSDEK ZEMMHMEH 6E€ A> coalt{ci eé-x>{(a E0A 6<HBHI°B KC “OH* 81%89300006 
xOOR Aa 002 2552 0527 0506* 0511 @ 
xo0R1 A002 2554 0s28 0520% 05234 e .* e = e e e e 
XDONE A O01 2S5BE 0562 oSs37 T+SE/ SY-78*< CD 28(072/71G /OHOD<H ABHAC S8/GIRAZ8H 3 ABHAC VY-APHAOIO 3 CHJ1~A-</GBDK 78M @VvVD $Qa@89300007 
XFFFF a 002 2008 0070 0314 Se 
XKFC? A 003 7004 0064 0214 ee ° ° e e ° e e ° eoce eo eee eo 
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IBM MAINTENANCE DIAGNOSTIC PROGRAK PART NQ. 9234259, TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 423425 
P&aGE Ay fo PAGE 1A 
Mee : z 
8943 DA FUNCTIONAL TESTS | $943 DA FUNCTIONAL TESTS 
| & 
ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT | % ERR LOC OBJECT CODE ADOR STKT SQURCE STATEMENT 
2 CECK <¢ a 0013 69 ACCIN EQU X*13¢ 
3 SEQ Q | ) 0002 70 BUSE EGU. x*02* 
CA0O & WXYX ST&RT x*oadc* OO0A 71 ATNR EQU X* Oa? 
5 TREP O 0008 72 WACKE EQU X*OB * 
GAOL 6 oc XE 2°8943? $s P wt 000s 73 DATER EQU x*08 * 
pies Go OA02 7 DCO x ¢08 E R 0009 74 DEVHB EQU  xroge 
OA0O3 00 0A03 8 PRIN oc XLifos Cc E cs 0001 75 UNITCH EQuU eek 
OA04 9000 OAOS 9 oc xi 2* 0° Tt F | ars 00G3 76 INPN EQU pee 
OAN6 OAOD OAOT 10 oc ALZ(RTNOZ) I A ooos 77 ATTCH EQU x03" 
OAO08 FFFF OA09 11 oc XL2* FFFES Oo c ' fs 0006 78 ITBE EQU a. 06" 
QAOA 895000 OAO0c I2 LINES oC XL3* 895000* N E | See ret : paces ony ere 
13 
13 th spe OOlS 81 BOST EQU x?159 
0058 14 NOTROY EQU x*58¢ T10 NOT READY | C3 0016 82 MPINT EQU ee 
0050 1& ATTCHK EQU x*5D* TIO ATTACH CHECK 0017 83 MPCS EQU X*17 
0658 16 SIOI EQU x*ss° ; : SIO IMMEDIATE | *. 0018 84 RNST EQU xX*18¢ 
0001 17 XR1 €Qu 1 | C3 OCOF 85 MNL EQU X*OF®* 
0002 18 XR2 EQU 2 rad 
0008 19 ARR EQU & gr 
0 O PSR EQU & | €3 86 
qOKG oi TAR2 EQY x*AO8 | 87 * SSW 10 ON = SELECT DEVICES FROM SWITCHES 
0222 22 HALT EQu x*222¢ er 88 * SSW 11 ON = DO ROUTINE 01 COMPLETELY ON SYSTEM RESET/START 
-O21A 23 PRINT €EQU X*21A5 } ea? 89 * SSW 12 ON = HOLD TEST PATTERN INDEFINITELY 
O21E 24 UNPACK EQU X®*21E° \ 90 * SSW 13 ON = SEL PEN, BUT NO “EYBOARD 
® ® I 91 * SSW 14 GN = NO KEYBOARD OR SELECTOR PEN 
0212 25 TEST EQU X*212 1 e 
oo8sc 26 CAR eQu x*ec¢ i 92 * SSW 15 ON = GET SINGLE CHAR. FOR ROUTINE 4 EROM CONSOLE SWITCHES 
8 77 X*8Ae i 93 * 
Bone a a ti Saas | . 94 * SSW 20 ON = DO ONLY SELECTED TEST PATTERNS AS DETERMINED BY SSW 
0088 29 STATUS EQu x*sB* | © 95 * 21 THRU 26 AS FOLLOWS: 
OO8A 30 BUSY EQuU X*6Ae 96 * SSW 21 GN = 00 TEST PATTERN 1 IF SSW 20 IS ON 
OO8A 31 XMITR €EQU x* 8a ® 97 * SSW 22 ON = DO TEST PATTERN 2 IF SSW 20 IS ON 
0002 32 ENINTR EQuU x*o26 oe 98 * SSW 23 ON = DO TEST PATTERN 3 IF SSW 20 IS ON 
00CcO 33 ENABLE EQU x*coe 99 * SSW 24 ON = DO TEST PATTERN & IF SSW 20 IS ON : 
0088 34 CNTRL EQU x*ses 100 * SSW 25 ON = DO TEST PATTERN 5S IF SSW 20 1S ON ea Dn 
0088s 35 NORDUC EQu x*88° | © 101 * SSW 26 GN = DO TEST PATTERN 6 IF SSW 20 IS ON 
0058 36 CTRSTG EQU x*58* | 102 * SSW 27 ON = SKIP FULL BUFFER PRINT OUT IN RTN 03, 04 
0008 37 OPT3 EQU x*08* | 103 * SSW 28 ON = ON A MODEL 4 ONLY, DEVICE 40 IS NOT A MODEL 1 3277 
0010 38 OPT4 EQU x*10¢ 104 * WITH NO KEYBOARD (CONSOLE). 
ene 105 
re ae SeereS cae De ope 106 SESRGAA Ge RSTAEESESEESESERES ESS CESK ES EOEEERAEEREEERERESERE ERED £490204000088 
O20A 41 SBYTE2 EQu X*20A° SSH 10-17 G 107 * ROUTINE 01 SERVES A OUAL PURPOSE. DURING THE FIRST PASS, ALL ¢ 
0208 42 SBYTE3 EQU x* 2088 SSW 18-1F 108 * CONFIGURED OR SELECTED DEVICES ARE POLLED TO SEE IF THEY ARE * 
020C 43 SBYTES EQU X*20C* SSW 20-27 109 * THERE AND ANSWERING A POLL. A LIST OF ALL CONFIGURED OR SEL- *& 
0200 44 SBYTES EQu x*200° SSW 286-2F 4) 110 * ECTED DEVICES IS THEN PRINTED OUT SOR THE CE TELLING WHICH * 
6216 45 LINK EQU X*216? \ 111 * DEVICES ARE AVAILABLE. AN FF HALT THEN OCCURS, * 
O22A 46 LOAD EQU X*22at ie il2 * ON ALL SUCEEDING PASSES, ROUTINE 01 UPDATES THE SELECTED * 
0040 47 SSWOl EQU X*4O* | ¢ 113 * DEVICE TO THE NEXT AVAILABLE DEIVCE TILL ALL DEVICES ARE * 
0080 48 SSW10 EQU x*go* | 114 * DONE. THE SECTION IS THEN TERMINATED. % 
0040 49 SSW1l EQU x*4o° | C 115 SESRSSAASALSEASARSELSSSEKSELASAHRSRALS SSC KHKEERALE RES SHE EKESREREARESEREEE 
0020 SO SSW12 EQU x*20°* ut? 116 
0010 51 SSW¥1L3  EQU x*10¢ | OAOD 91 CAOD 117 RTNOL OC XL1°02¢ 
0008 52 SSW14 EQU x*08* | eo QACE 00 OAOE 118 DC XL2290¢ 
0004 53 SSwW1l5 EQu xX*04? | €3 ’ OAGF OCB5 GCALO ily oc AL2(RTNO2) NEXT ROUTINE 
0080 54 SSW20 EQU x*80' 120 
0049 55 SSW2] €EQU X*40* | a OAl1l 30 00 260E 121 START CLI RESTFL,0 TEST FOR PGM LOOPING 
0020 56 SSW22 EQU X*208 pe OA1S F2 O12 16 122 JNE TSSWFL JUMP IF SO 
0010 57 SSW23 EQU xe1ce OA18 38 40 0208 123 TBN SBYTEO.SS#O) TEST LOOPING RYN O01 
0008 58 SSW24 EQU x'os* | a OA1C F2 10 O07 124 JT LOOPRI JUMP IF SG 
0004 59 SSW25 EQU X* 04° { ig OALF 38 40 02048 125 TBN SBYTE2,SSWIt IS SSW 11 ON 
0002 60 SSW26 EQU x*02* \ OCA23 F2 90 O08 126 JF TSSWFL JUMP IF NOT 
oco. 61 SSW27 EQU X*O1° aoe OA26 3C FF 3099 127 LOOPR1 «VI SSWFL,X*FFe INDICATE SSw 11 WAS SET 
0080 62 SSW28 EQU x*so¢ mR QA2A 3C 00 2629 128 avi PASSI,0 RESET PASS 1 FLAG 
0001 63 SSW2F EQU x*ole i OA2E 3D 00 3099 229 TSSWFL CLI SSWFL,O WAS SSW 11 OFF LAST TIME THRU? 
C004 64@ UNX EQU X*04"* Ie ge OA32 F2 81 O08 130 JE OK JUMP IF SO 
0020 65 RVIS EQU x*20!' Gy O0A35 3C 00 2629 131 MMVI PASS1,0 SSW 11 WAS ON LAST TIME THRU 
0040 66 EOTC EQU x*408 1 OA39 3C 00 3099 132 MVI SSWFL,O RESET THE FLAG 
oooc 67 UNK EQU X*Oc ¢ | : OA3D 3D 00 2629 133 OK Cul PASS1,0 TEST FGR 1ST PASS 
0010 68 INCOR EQU x*10# | a 0441 F2 81 13 134 JE INIT JUMP IF LST PASS 
- 
DATE 26JUNTS5 250C T75 15JAN76 14MAYT76 PROG ID oe © pate 265UNT5 250CT75 IS JANT6 L4RAY 76 PROG ID 0894-3 
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| 
| 
8943 DA FUNCTIONAL TESTS | 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | 
| 
OA44 3D 00 260E 135 CLI RESTFL»0 TEST FOR PGM LOOP | 
0A48 CO 01 OCAL 136 BNE  PRIMG IF SO, GO TO NEXT DEVICE 
DA4C 38 80 020A 137 TBN SBYTE2,SSH10 GET DEVICES FROM SWITCHES? | 
OASO F2 10 04 138 J INIT JUMP IF SO 
0A53 CO 87 OCLE 139 t RLOUT GO REINITIALIZE 
OA57 38 O1 OAOC 140 INIT TBN  LINES»X*O1* IS KATAKANA FEATURE INSTALLED? 
ASB CO 90 OAT71 141 BF NOKAT BRANCH IF NOT 
OASF OC O01 2EEA 4181 142 MVC =- REPDT(2),KATDL MODIFY RIPPLE DATA FGR KATAKANA | 
OA65 OC O1 2ED4 4183 143 MVC —- REPOT-22 (2), KATO2 | 
OA6B OC 00 4173 4181 144 MVC - EXRI PE~3(1) »KATD} 
OA71 F3 5& 80 145 NOKAT SIG X'80',SIOL DISABLE 
0A74 F3 58 CO 146 SIO x*CO*,SIOI ENABLE ATTACHMENT | 
OATT 30 58 2FF9 147 SNS WORK, SIOI SENSE 1ST WORD OF CNTRL STG | 
OA7B OD O1 2FF9 2663 148 CLC WORK{2)¢X7200 TEST FGR CORRECT VALUE 
OABi CO O1 OCAD 149 BNE MICNL ERROR IF NOT EQUAL | 
OA85 3C 92 2612 150 MMVI BCNT »X*02! SET UP COUNTER | 
OAB9 3C F9 2611 15} MVE BCNT-1,.XtF9* l 
CA8D 30 58 2FF9 152 MECLP SNS  WORK,SIOI SENSE CNTRL STG 
OA91 Cl 5D OCAD 153 TIG MECNLsATTCYK CHECK FOR ATTACHMENT CHECK | 
OAS OE O1 2612 2620 154 ALC = BCNT(.2) ,ONE INCREMENT COUNTER | 
0A9B CO 20 OABD 155 BNOL MICLP Loop TIL FINISHED i 
156 
OASF CO 87 19F9 157 8 SETUP GO 00 INITIAL SETUP 
OAA3 CO 87 O21A 158 B PRINT GO PRINT HEADING 
OAAT O01 OAA7 159 DC XLL®OL1* | 
OAAB 22 OAAS 160 oC IL1*34° { 
OAAS 2680 OAAA 161 oc AL2(HEADIA) 
OAAB 3C 01 2607 162 MVI -LENEsX*O1? INITEALIZE | 
OAAF OC Gl 2605 265F 163 MVC = CURDEV(2) » STDEV 
OABS 3C 00 260F 164 MVI DONE,O ' 
OAB9 OC J1 1960 2609 165 MVC —-RINXR2+3(2)e INXR2 SET UP XR2 START ADDRESS | 
166 
OAC3 167 USING CLSET,xXR1 : 
OABF C2 O12 OAC3 168 LA CLSET sXRE 
OAC3 SF 03 5B 5B 169 CLSET SLC SETC4,XR1),SET(,XR1} CLEAR THE SET AREA | 
OAC7 7C 1C 5B 170 MMVI SET(eXRLDeX*1C" SET 1ST 3 BITS USED ; 
OCA OF 03 260D 2600 i7l SLC ONFLG (4) ,ONFLG CLEAR THE ON FLAGS 
CADO 3C EO 260A 172 MVI  ONFLG-3+X*EO? FORCE HI 3 BITS ON | 
OAD4 SC 01 22 50 173 MVC - TLIN#3(2eXR1PeCONS(,XR1L) INITIALIZE ADDR IN TBN INSTRe | 
OAD8 7C 08 IE 174 MVE TLEN(sX8194X"088 SET UP THE STARTING TEST BIT 
OAUB SC 00 20 IF 175 NEXT MVC  TLIN*|L(LeXRLD,TLING sXRL) MOVE TEST BIT TO IMMED- BYTE | 
OADF 7C 38 1F 176 SETTBN MVI  -TLINGsXRL}eX*38° FORCE TBN OP | 
177 
OAE2 38 00 0000 178 TLIN TBN #-*,#-* TEST LINE INSTALLED 
OAE6 F2 90 O05 179 JF UPL 
OAEO LE 03 260D 58 180 ALC ONFLGsSET(4,XR1} SET ON FLAGS IF INSTALLED 
OAEE SE 03 58 5B i81 UPL ALC  SET(4-XR1),SET(eXRL) SHIFT LINES LEFT 3 BITS 
OAF2 SE 03 58 5B 162 ALC  SET(4,XRL),SET(yXR1D 
OAF6 SE 03 58 58 183 ALC SET(4eXRLDeSET(oXRID 
OAFA 78 £0 58 184 TBN  SET-3(+XR1),X*EO° ARE WE DONE YET | 
OAFO F2 10 21 185 JT TSSW JuMP IF SO | 
OB00 7C 02 IF 186 MVE TLINGsXRLDeX4U2" PIUG IN SHIFT STOPPER 
uB03 SE 01 20 20 187 SHIFT ALC  TLIN*#1(2¢XRL),TLINGL(XRLD SHIFE LINE RIGHT ONE BIT 
OBO? CO 20 0803 188 BNOL SHIFT | 
OBOB 78 80 20 189 TBN  - TLIN€1(,XR1)2X"80! DID WE JUST GO TO NEXT BYTE l 
OBOE CO 30 OADB 190 BF NEXT 
OB12 4E 01 22 2620 191 ALC  TLIN#3(2¢XR1) ,ONE INCREMENT THE TEST ADD | 
0817 CO 87 OAODF 192 8 SETTBN GO SET TBN | 
193 
0818 00000000 OBIE 194 SET oc XL4*O8 SET BIT MASK | 
OB1F OAOB 0820 195 CONS oC AL2(LINES-1? ADDR OF OPTION BITS | 
196 
0B21 38 80 020A 197 TSSW TBN SBYTE2sSSW10 TEST DEVICES SELECTED BY SSW 
0625 CO 90 OBF6 198 BF DONXT JUMP IF NOT | 
199 | 
0B29 CO 87 O21A 200 GETDEV B PRINT PRINT MESSAGE | 
OB20 Ol 082D 201 oc XLL*O1* 
OB2E 4E OB2E 202 DC ILL*78¢ | 
DATE 26JUNT75 250CT75 15JANT6 14MAY 76 PROG ID 0894-3) 
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8943 
ERR LOC 


OB2F 
oB31 
0835 
0636 
0B37 
0839 
0B30 
0B43 
OB47 
0848 
0B4D 
OB51 
0B55 
0858 
OBS5C 
0B60 
0B63 
OB69 
0B6D 
OB71 
oe7s 
0879 
OB7C 
0B80 
OB 84 
0887 
OB8A 
0B 8D 
6890 
0894 
és CB97 
0898 
OB OF 
OBAZ2 
OBA6 
OBA 
OBAF 
OBBS 
: OBB9 
e oBBD 
oBCcl 
OBC4 
osc? 
OBCB 
: OBCE 
u OBD1 
OBDT 
OBDA 
OBDE 
OBE2 
pa OBE6 
OBEA 
OBEE 
OBEF 
OBFO 
OBF2 


x 
' 
\ 


ce y 


om 


Ly OBF6 
OBFA 
'e OBFE 


col 
0605 
‘ 0c09 
oc oc 
—0ci2 
{> ocie 


C pate 
EC NO. 


€ % 
> 

t 
a? 
“ 

. 
C3 


ve 


of 


OBJECT CODE 


305B 
CO 87 O21A 


06 
22 


307D 


3c 
OF 
3c 
co 


00 
03 
FO 
87 


89FO 


30 
38 
F2 
39 
38 
F2 
oc 
3B 
3C 
3C 
39 
F2 
38 
3D 
F2 
F2 
F2 
F2 
39 
=2 
3B 


38 
F2 
3D 
F2 
OF 
OE 
co 
C2 
38 
F2 
02 
38 
F2 
D2 
oc 
TA 
38 
co 
3¢ 
co 
co 
06 
1A 


00 
FF 
10 
20 
40 
90 
00 
FO 
Oi 
07 
8F 
10 
80 
09 
10 
04 
87 
84 
OF 
10 
F8 


5E 
10 
00 
81 
00 
00 
87 
OL 
10 
90 
01 
038 
90 
ol 
00 
00 
Ol 
10 
FL 
87 
87 


3097 


co 


co 
30 
F2 


co 
38 
F2 
oc 
co 
02 


87 


87 
00 
01 


87 
10 
10 
01 
87 


OB47 


1959 
260F 
10 


1039 
2658 
82 

2B0F 
O21A 


26JUN7S 
825023 


260D 


2FFC 


2620 
cFF 8 


2FF8 


25CF 


DA FUNCTIONAL TESTS 


ADDR 
0B30 
0B 35 


0836 
0838 


OB 4C 


OBEE 
OBEF 
OBF 1 


OC1E 


250CT75 
825032 


STMT 


203 
204 
205 
206 
207 
208 
209 
2195 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
265 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 


SOURCE STATEMENT 


SETFO 
DEVHLT 
DEVHC 


CORD 


DOK 


TADD 


FND 


NOTDS 


NOTSF 
SETFL 


INV 


DONXT 


POLLI 


AVAEL 


15S JANT6 
825034 


bc AL2(SETMG1) 
8 PRINT 

oc XL1* 06° 

DC IL1°34* 

oc AL2(SETMG2) 
MVE PASS1,0 

SLC ONFLG(4) ,ONFLG 
MVI DEVHC,X FO‘ 
B HALT 

DC XL2* 89F 08 
SNS TCOUNT,» X*00* 
TSN TCOUNT eX* FFP 
JT DONXT 

TBF TCOUNT + X*20° 
TBH TCQUNT»,X*40* 
JF INV 

MVC WORK (1), TCOUNT 
SBF WORK «X* FO* 
MVI WORK-1 91 

MVE TADD4+157 

TBF TCOUNT, X*8F* 
JT DOK 

TBN TCOUNT ,X* 80? 
cil WORK »9 

JT CORD 

JNH INV 

J OOK 

JH INV 

TBF TCOUNT, X* OF® 
JT INV 

“SBF WORK »X* F8* 
TBN TCOUNT, X* 5E* 
JT INV 

Cul WORK »##—-* 

JE FND 

SLC TADD+1(1!» ONE 
ALC WORK-1 (1) eWORK~-1 
B TADD 

LA ONFLG-3eXR1 
TBN TCOUNT ,X"10° 
JF NOTOS 

LA 2(oXR1)eXR1 
TBN TCOUNT »X*08* 
JF NOTS8F 

LA LU eXRLXR1 
MVC SETFL41 (1) ,WORK~1 
SBN O( »XR1) »¥-* 
TBN DEVHC,X*O1° 
BT SETFO 

MVI DEVHC ,X*Fi* 
B DEVHLT 

3 PRINT 

oc XL1*°06* 

oc IL1*26° 

DC AL2 CINVKG) 

B DEVHLT 

8 UPDATE 

CLI DONE »0 

JNE R1O0UT 

8 pOPOL 

TBN POLFLG+X*10° 
JT CHKST 

MVC DEVMG(2) »DEVICE 
B PRINT 

oc xLi‘o2° 
14MAYT6 
825035 


PART NO. 4234259 
PAGE 2A 
SET PASS 1 INOICATION 


RESET ALL ON FLAGS 

SET FOR HALT FO 

HALT TO SET SWITCHES 

HALT FO/FL 

READ THE CONSOLE SWITCHES 
TEST FOR END OF LIST 

ouT IF SO 

BIT 2 MUST SE OFF 

BIT 1 MUST BE ON 

INVALIO IF NOT 

MOVE ADDRESS TO WORK 

SET HI BITS OFF 
INITIALIZE POINTE. TO 1 
START TEST AT 7 

TEST FOR 40 OR 50 
OKAY IF SO 

TEST DEVICE HI BITS = 
TEST LO BITS SVER 9 
JuMP IF HI BITS = C OR DO 
JUMP IF LO BITS NOT OVER 9 


Cc oR O 


ERROR IF LO BETS OVER 9 
TEST LO BITS C 

INVALID IF SO 

SET HI BITS OFF 


TEST DEVICE 5E OR "iF 
INVALID IF SO 

TEST 3 BITS IN WORK 

JUMP TF EQUAL 

CHANGE COMPARE BYTE 
SHIFT BIT LEFT 1 

Loop 

GET ADDRESS OF ON FLGS 
TEST BIT 3 GN 

JUMP IF HE BITS = & UR C 
INCREMENT BYTE POINTER 
TEST BIT 4 ON 
JUMP IF LO BITS = 0-7 
SET MASK 

SET BIT IN ON FLAGS 
TEST HALT Fl 

IF SO CHANGE TO HALT FO 
CHANGE TO HALT F1 

GO GET NEXT ENTRY 

PRINT INVLAID DEVICE 


GO HALT AGAIN FOR NEXT 


GO SET UP FOR DEVICE TO BE POLLED 
TEST ALL DONE 
EXIT IF DONE 


GO POLL THE DEVICE 

WAS STATUS RECEIVED? 
GO CHECK IF SO 

PUT DEVICE IN PRINTOUT 


PROG ID 
PAGE 


0894-3 
2A, 


@ee00@00080080808886888 8 @ 
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PART NO. 4234259 
IBM MAINTENANCE DIAGNOSTIC PROGRAK PART NO. 18M MAINTENANCE DIAGNGSTIC PROGRAM 
PAGE as PAGE 3 
%F 
8943 DA FUNCTIONAL TESTS | 8943 OA FUNCTIONAL TESTS 
ee 
ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT .. ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 
17 271 oc ELLE19¢ 7 339 
nia eric acis 272 DC AL2(AVALMG) | a ecBs 02 par et RTNO2 ee : ryene: 
273 { ocBbé OO Cc 
OCIA CO 87 OBF6 274 B DONXT GO OO NEXT OEVICE ' o 0C8?7 GD6D Oc8s =e DC AL2(RTNO3) 
275 1S. 
OCLE OC 01 2605 255F 276 R10UT MVC CURDEV(2),STDEV REINITIALIZE ; OCBS CO 87 O21A 344 B PRINT GO PRENT HEADING 
OC24 3¢ O01 2607 277 “VI LINE.X*O1* ; co ocBo O1 OCBD 345 OC mee Ok! 
0C28 GC O01 1960 2609 278 MVC RIWXR243 (2) 4 INXR2 SET UP XR2 START ADDRESS | oe Haas ee ret oe ce Aes ema 
OC2E 3C 00 260F 279 MVI DONE, 0 ' a 
0C32 30 00 2629 280 CLI PASS1¢9 IS IT THE IST PASS? sce OcCCi CO 87 19F9 343 B SETUP GO DO INITIAL SETUP 
O0C36 3C FF 2629 281 MVI PASS1 ¢X* FF* SET PASS 1 CQHMPLETED FLAG bie OcCc5 3C 00 2FFD 349 MVI cereeer oa ceicee Device 
¥ MP IF NOT T PASS Occ9 CO 87 1C9A 350 B EL 
diemuuags Ses ve ao iy : ” | 2 OCCO OC O1 2D6E 25CF 351 MVC DEVRT2(2) »-DEVICE SET Brectae 6 ABS Cag 
2 OZiA 84 B PRINT PRINT MESSAGE & HALT ee OCL3 3C 60 3098 352 MVI NOAIDsX*60* SET DISPLAY ti 
acaL Ai eee oc41 She DC XL1'41° | OCD? OC O01 37ET 25CF 353 MVC MODMG1(2) , DEVICE PUT OEVICE IN MESSAGE 
OC42 56 0C42 286 oc IL1°86° fi bs OCOD 3C Fl 37F4 354 MVI MODMG2,C'1* SET MODEL 1 IN MESSAGE 
0C43. 2C5A 0C44 287 oc ALZ(RTLMG1) ‘7 OCE1 OC 06 37FC 380A 355 VC MODMG3 (7), OISPLY SET OISPLAY IN MESSAGE 
8 @ ’ 356 
cea? colar O2LA Pe one - ae . cn OCE7 CO 87 1LAB4 357 8 DOSIO GO 0G ERASE WRITE FUT DEVICE 
0C48 01 0c4B8 290 OC XL1‘O1¢ ei OCEB 0010 OCcEC 358 oc AL2(CEWRT2-WRIRT2) ADDRESS ON SCREEN 
Oc4C 50 oc4c 291 oc IL1¢*8o8 OCED 431F OCEE 359 OC AL2Z(XMITE} 
OC4D 2CAA OC4E 292 oc AL2(RT1MG2) i C OCEF 2D72 OCFO 360 oc AL2(EWRT2} 
OC4F CO 87 O21A 293 B PRINT is eae 361 
bcs8 ol 0Cc53 294 oc Xi1l*o1¢ OCF1 4D 01 931 263F 362 cic 1(2eXR1) ACK CHECK FOR CORRECT RESPONSE 
OC54 47 0c54 295 oc ILi‘7i¢ Gea OCF6 F2 81 34 363 JE READ2 
. Geer 2cFl OC56 296 oc AL2(RT1MG3) be OCF9 4D O01 O1 2639 364 CLC 102, XR1),WACK MAYBE IT WAS A PRINTER 
OCS7 CO 87 O21A 297 6 PRINT | OCFE F2 81 52 365 JE SPB _1F SO, GO SET PRINTER BIT 
OC5B 06 ocs5B 298 oc XL1°06* ' rc. 0D01 40 O1 O1 2637 366 cic 1(2,.XR1),EOT WAS RESPONSE EOT? 
OCSC 4F ocsc 299 oc IL1*798 aly 0D06 F2 O1 OC 367 JNE SETIN . JUMP IF NOT 
OCSD 20460 OC5E 300 oc AL2(RTIMG) | ODO0S 3¢ 40 262A 368 MMVI ERR, EOTC SET ERROR 
OCSF 38 40 0208 301 TBN SBYTEO,SSWO1] TEST LOOP ROUTINE SSW ON A cat” GDOD CO 87 22A7 369 B ERROR 
0C63 F2 90 04 302 JF RTLHLT HALT IF NOT | C3 Onli CO 87 1CDB 370 B FETCHS GO GET THE STATUS 
NK NO HALT IF SSW OL IS ON 371 
ne SceL ee noes ao RTIHLT : nace ern episkercciesis | < 0015 CO 87 LFOS 272 SETIN 8B FILLFF GO FILL EXP BUFF WITH FF a ee ee 
OC6E 89FF OC6F 305 oc XL2'B9FF® | ce 0D19 OC. 10 2083 2D72 373 MvC EX PBUF416(17),EWRT2 SET UP EXP DATA 
OC70 38 CO 020A 306 SBF SBYTE2 »SSW10+4SSW11 RESET SSW 10 AND 11 ODLF OC 01 2085 263F 374 MYvC EXPBUF4+18(2) -ACK1L 
307 | ms 0025 3C 10 262A 375 MVI ERR» INCOR SET INCORRECT RESPONSE 
OC74 CO 87 1959 308 SKIP1 8B UPDATE STEP TO NEXT DEVICE { 0029 CO B87 22AT7 376 8B ERROR GO TO ERROR ROUT INE 
OC78 3€ 00 260E 30% MVE RESTFL 20 leu ootnaad FLAG | Renee La abeS a7 eenie: a ee es ae cae RUERER 
OC7C 3D 00 260F 310 Cur DONE,C ARE WE Ps 0 
oc8s0 CO 81 0216 311 BE LINK GO TO ROUT. 2 IF NOT Lhe, 0031 80 0D31 379 oc XL1*80¢* EXPECT NULLS ; 
OC84 CO B7 O21A 312 TERM B PRINT GO SPACE } 0D32 4040 0033 380 oc XL2*4040# CurRSOR AT ZERO 
Ocss 16 ocss 313 oc XL1°16° Vien 381 
OC8S CO 87 022A 314 8 LOAD TERMINATE THIS PGM. | © 0034 3D 02 2FFC 382 . Cul TCOUNT 2 TEST TRANSMISSION COUNT 
oc8spD OO ocsp 315 oc XL1*00° \ 0038 F2 81 08 383 JE 4OD1 IS MOD 1 IF COUNT was 2 
316 : O0D38 3A 80 2FFD 384 S6N RTNFLGsX*80* SET MODEL 2 FLAG ON 
OCBE 329 12 2658 317 CHAST TBF POLST .X*12* ARE IR AND CC OFF IN STATUS © OD3F 3C F2 37F4 385 VI MODMG2 »C*2* SET MODEL 2 IN MESSAGE 
oc92 CO 10 OCOC 318 BT AVAIL SET AVAILABLE IF SO 0043 CO 87 O21A 386 MOD1 B PRINT GO PRINT MESSAGE 
OC96 BB 00 00 319 SFL S8F O01 eXR2) . #—-*# RESET THE ON BIT FOR THIS DEVICE ! Ci OD47 03 OD47 387 oc fe icga: 
oc9o9 CO 87 1027 320 8 FORMAT GO PRINT STATUS CD48 37 oc4ée 388 oC L1°5 
OC9D CO 87 OBF6 321 8 OONXT GO TO NEXT DEVICE j 0D49 37FC ; OD4<A 389 oc AL2(MODMG3) 
OCA1 CO 87 O21A 322 PRIMG 8B PRINT GO PRINT HEADING | ie 004B 3C FF 2660 390 MVI CONFLG, X*FF¢ SET CONFIG FLAG FOR THIS DE“ ICE 
OCAS 01 OCA5 323 oC XL1*01* | c OD4F CO 87 0216 391 3 LINK GO TO NEXT ROUTINE 
OCA6 16 OCA&6 324 oc Ir1*22¢ | 0053 3A 40 2FFO 392 SPB SBN RTNFLG »X*40! SET PRINTER FLAG ON 
OCAT 26C6 OCAB 325 oc AL2 (HEAD1 B} | o_ OD57 OC O06 37FC 3803 393 MVC MODMG3(7),PRINTR SET PRINTER IN MESSAGE 
OCA9 CO 87 OCT4 326 8 SKIP fe oDps5o0 3C ES 3098 394 MVI NOAID,X* E8* SET PRINTER NO AIO CHAR 
327 | 0D61 CO 87 215E 395 B WAITPB WAIT FOR 8USY TO DROP 
OCAD 3C OCF 262A 328 MICNL MVI ERRsMNL SET MICRO CODE NOT LGADED [go OD65 CO 87 1LC9A 396 e SELECT GO RESELECT THE PRINTER 
OCB1 CO BT 22A7 329 ERROR a 0069 CO 87 CD2D 397 READ2 GO READ THE BUFFER 
: 330 EERERGESSERELERECEREEEEESE ES EES EEEEEEREE SERS SEESEOREESEEEEEEE44E SERRE SS 39G FORERESERSESHRS SELTRSSEE THEE SH EESEK GSES EEER EE OEE EE EEEEE 44495 6E48EEEETED 
331 *# THIS ROUTINE WRITES THE DEVICE ADDRESS TO THE DEVICE BUFFER wo 399 * THIS ROUTINE WRITES A RIPPLE PATTERN TO THE BUFFER. THIS DATA * 
332 * USING THE ERASE/WRITE COMMAND. A READ BUFFER OPERATION IS THEN® & 400 * IS WRITTEN ONLY 80 CHARACTERS AT A TIME SO THAT THE BUFFER * 
333 * DONE. FROM THE INFORMATION, THUS OBTAINED, A MESSAGE 1s read ada 401 * ADDRESS DURING CHAINED Sacco ga CAE ane ee oe Z * 
334 * ED TELLING THE DEVICE TYPE (DISPLAY OR PRINTER} AND THE MODEL. 402 * A READ BUFFER COMMAND 1$ USED TO CHECK THE CONTEN GF TH * 
335 * THIS INFORMATION IS USED IN ALL FURTHER ROUTINES. WHEN SEL- < © 403 * BUFFER AFTER IT IS FILLED. * 
336 * ECTING ROUTINES, CARE MUST BE TAKEN TO BE S'Re ROUTINE 2 HAS x 404 FECES EEESE ESSA EE EEEESERE SHE SEEEESE EEEEE ES EES 84545850608 4850994E EERE EE 
337 * BEEN RUN FOR THAT DEVICE. ‘i ; 405 
338 Seren eng yer natngenrantherenr grr ese, somrree tare ee reeatet 3 OD6D 03 OD6D 406 RTNO3 OC XL1°03° START OF ROUTINE 03 
OATE 26J5UN75 250CTT5 ISJANT76 L4MAY TSC PROG ID aesed bate 265UNT5S 250C T75 LSJANT6 14MAY76 PROG ID 0894-3 
EC NO. 825023 825032 825034 825035 PAGE 3 | EC NG. 825023 825032 825034 825035 PAGE 38 
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89463 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
OD6E 00 OD6E 407 oC XL1°008 
OD6F O£15 0070 <Ce DC ALZCRTNOG) 
409 
OO71 CO 87 O21A 410 B PRINT GO PRINT HEADING 
0075 O1 0075 411 oc XL1°O1# 
OD76 19 OD76 412 oc ILi*25¢ 
OD77 2708 OD78 413 Dc AL2(KEAD3) 
O0D79 CO 87 19F8 414 B SETUP CO DO HOUSEKEEPING 
OD7D CO 8&7 1C9A 415 B SELECT GSO SELECT THE DEVICE 
OD08i OC O1 30AB 25CF 416 MVC =—- ;DEVRT 3-22) »DEVICE INSERT DEVICE 
CD87 OC 3F 30EF 2EEA 417 MVC —- WRTRBR(64)eRTPDT PLUG IN DATA 
ODED 3C 40 309D 418° MVI = -RT3CHeX 8408 INSERT DG NOTHING WCC 
0091 3C F5 309¢ 419 MVI «RT BCW-1XtES* FORCE CMD TO ERASE WRITE 
OD95 OC 11 2EAA 30AF 420 MVC —- RI PHDC 18} »RT3HD PUT HEADING IN RIPPLE DATA 
OD9B 3C 61 2FFB 421 MVI = ACK sXfol! START WITH ACK 1 
OD9F 35 O1 2FFC 422 MVE = TCOUNT,? INITIALIZE COUNT TO 1 
423 
ODA3 CO 87 1AB4 424 WRIR3A B DOSIO GO WRITE PATTERN 
ODAT 0056 ODA& 425 DC ALZ(EWRT3-WRTR3) 
CDAS 431F ODAA 426 oc AL2(XMITE} 
ODAB 30F0 ODAC 427 DC ALZ2CEWRT3) 
428 
ODAD CO 87 211C 429 B TRESPX GO TEST RESPONSE FOR CORRECT ACK 
430 
ODB1 3D 70 2FFB 431 R3NXT CLI ACKeX*70t TEST FOR ACK 6 
ODB5 3C 61 2FFB 432 MVI ACK» X* 618 SET ACK kL 
ODB9 F2 81 04 433 JE WASAO JUMP IF IT WAS ACK O 
ODBC 3C 70 2FFB 434 MVI = ACK sX*708 FORCE ACK 6 
©DCO 3C F1 309C 435 WASAO MVI  RT3CW-L,XEFLE CHANGE CHD TO WRITE 
O0C4 3D 40 309D 436 CLI RT3CW,X*408 WERE WE DOING LAST XMIT? 
ODC8 F2 01 32 437 JNE = RBPTR JUMP TF SO 
OOCB 38 80 2FFD 438 TBN = RTNFLG yx? 80° TEST FOR DEVICE = MODEL 2 
COCF F2 10 OA 439 JT R3M2 JUMP IF SO 
ODD2 3D O5 2FFC 440 CLI TCOUNTS5 MODEL 1, NEXT TO LAST XMIT? 
ODD6 F2 81 OA 441 JE R3WPR JUMP IF SO 
ODD9 F2 A? 16 442 J UP TCNT 
ODDC 30 17 2FFC 443 R3M2Z2 CLI TCOUNT,23 MODEL Ze NEXT TO LAST XMIT? 
ODEO F2 01 OF 444 JNE - UPTCNT JumP IF NOT 
ODE3 3C C2 309D 445 R3HPR MVI RT3CHX°C2° FORCE DIFF. WCE FOR LAST XMIT 
. ODE? 36 01 020C 446 TBN SBYTE4,SSW27 TEST FOR SKIPPING FULL BUFFER PRINT 
OCDEB F2 10 04 447 ut UPTCRT JUMP IF SG 
ODEE 3C 7A 309D 448 MVI = RT3CHeX*7A® SET START PRINT BIT ON LAST XMIT 
ODF2 OE 00 2FFC 2620 449 UPTCNT ALC  TCOUNT(1},ONE INCREMENT TRANSMISSION COUNT 
ODF8 CO 87 ODA3 450 B WRTRZA GO WRITE NEXT PATTERN 
451 
ODFC 38 40 2FFD 452 R3PTR TBN RTNFLG,x*gor TEST FOR DEVICE = PRINTER 
O£00 F2 90 07 453 JF RE AD3 
O£03 CO 87 1C9A 454 B SELECT RESELECT IT 
O£07 F2 87 OO 455 J READ3 GO READ BUFFER 
456 
OEOA CO 87 1088 457 READ3 B RE ADBF GO READ AND CHECK BUFFER 
OEOE 40 CEOE 458 oC XL1L"408 USE RIPPLE PATTERN 
QEOF 4040 O£10 459 oc XL2°4040! CUKSOR FS AT ZERO 
460 
OELL CO 87 0216 461 LINK GO TO NEXT ROUTINE 
462 SESEEAEREEF ERE SELES SEER EERE REEL EEE EEEREELE EERE RELEREES REECE ER EEK ERE OH 
463 * THIS ROUTINE WRITES A SINGLE CHARACTER OVER THE ENTIRE SCREEN 
464 * USING THE REPEAT TO ADDRESS OPTION. UNLESS THE CHARACTER IS 
465 * GOTTEN FROM THE SWITCHES, AN *** IS USED. 
4&5 SESSEREER ERE SRS SAEREEEERECRES EERE RESES SESE SSE EE ESSERE EEEEESES TERE EERE ES 
467 
OE15 04 CELS 468 RTNO& DC XL1 045 START OF ROUTINE 04 
0£16 00 O£16 469 oc XL1‘008 
OELT CE8S OE18 470 DC AL2(RTNOS) 
471 
O£19 CO 87 O21A 472 B PRINT GO PRINT HEADING 
OE1D O1 OEID 473 oC XL1*O1* 
OELE LE CELE 474 oc ILL"308 
DATE 26JUNT5 2500175 15. JAN76 14MAYT6 PROG ID 0894- 
EC NO. 825023 825032 825034 825035 PAGE 4 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR 
OELF 2726 SE20 
CE2ZL 38 64 020A 
OE&25 3C 5€ 3812 
QE29 F2 90 20 
GE2C CO &7 O21A 
OE30 OL OE35 
OE31L 42 0&31 
OE32 2ACE OF 33 
O£3% CO 87 O2Z1A 
OE38 06 0E38 
0E39 30 OE 39 
OE3A 2AFE OE3B 
OE3C CO 87 9222 
OE49 89FS OE 42 
GE42 30 O00 2FFC 
OE46 AC OO 3812 2FFC 
OE4C CO 87 19F9 
O£50 Cc 87 1C9A 
O&54 :£ 4A 380E 
O£58 38 O01 O20C 
OE5SC F2 9 O4 
OESF 30 40 380 
O£63 CO 87 1AB4 
OE67 OO0C OE68& 
OQE69 431F OE 6A 
OE€668 3817 GE6C 
CE6D CO 87 2118 
OE7T1 CO 87 LCQA 
OE75 OC 06 3818 3812 
OE7B CO 87 1088 
OELF 20 OE TF 
O€80 CT5F OEBL 
O&82 CO 87 0216 
CE86 U5 OE 86 
OE&7 OO OE87 
OE8B OFFA OE&S 
OESA CO 87 021A 
OESE O12 OESE 
OESF 18 OE SF 
OE9S 2741 O£91 
O£F92 CO 87 19F9 
CE96 CO BT 1C9A 
OEGSA OC 01 3828 25CF 
OEAD CO 87 LABS 
OEA4 002C SEAS 
OEA6 431F OEAT 
CEAB 3846 OEAS 
OEAA CO 87 2116 
OEAE CO 87 1C9A 
OEB2 CO 87 LABS 
CEB6 6003 OEBT 
OEB8 431F OEBS 
OEBA 25FF GEBB 
OEBC CO BT 1FOS 
OECO OC 03 2076 25FF 
OEC6 OC O03 ZDTA 2E98 
OECC OC 00 2DTA 3098 
OEDZ OC 00 2079 2605 
OEDS OC 01 207C 2651 
DATE 26J5UNT5 250CT75 
EC NO. 825023 825032 


PART NG. 4234259 
PAGE 4&A 


TEST SSW iS ON 

DEFAULT TO © 

USE CHARACTER * IF NOT 
GO PRINT RESSAGE 


GO HALT TIL CHAR SET 
HALT - F3 = 


READ THE SWITCHES 

MOVE iN THE CHARACTER 

GO 0G INITIAL HOUSEKEEPING 

GO SELECT THE OEV’“E 

SET UP TO PRINT 

TEST FOR SKEP FULL BUFFER PRINT 
SKIP IF NOT 

FORCE NO PRINT IN PRINTERS 

GO WRITE SINGLE CHARACTER 


.GO TEST FOR ACK 1 RETURNED 


GO RESELECT 
FILL IN THE REPEAT CHAR. USED 
GG READ THE BUFFER 


B 
SESKHLEKMESRARESKELSERERMECSERKESKASERTRESSSEASKSRKESCKSE HKEKSE SKSSERESAASEAARS 


* THIS ROUTINE CHECKS THE READ MODIFIED OPERATION. * 
RHEL EL RKKRK EK EAELE ERS SEALE SAAS SLRS SERA CEES SERS S SSRRESAATS SHEKKKS RH SKATE 


STMT SOURCE STATEMENY 

&75 pc AL2 (HEAD4} 

476 TON. SBYTE2,SSH15 

477 MVE RPTCH,Co#? 

4& 738 JF US EAST 

479 B PRENT 

480 oc XLE*O1* 

481 oc TL1"66° 

482 oc AL2(RO4KG) 

483 8B PRINT 

484 BC XL1°O6S 

485 DC I1L1*48* 

486 oc AL 2(RO4MG2) 

487 B HALT 

488 DC AL2*89F3¢ 

489 

490 SNS TCOUNT eX *00°* 

491 HC RPTCH(1) > TCOUNT 
492 USEAST B SETUP 

493 B SELECT 

494 MVE RGWRT+3 eX*GAP 

495 TBN SBYTE4sSSW27 

496 JF R6WRTL 

497 HVI R4WRT+3 X*408 

498 R4&WRTi B DGSIO 

499 DC AL2(R4HRTE-RGHRT ) 
590 oc AL2(XMITE) 

501 bc AL2(R4WRTE) 

502 

503 8 TRESPL 

504 8 SELECT 

505 ‘AVC SINCHR-1L(ES SRPTCH 
506 8 READBF 

507 DC XLL*20° 

$08 DC XL2*C75F° 

50° 

510 LINK 

511 

512 

513 

514 

515 RTNOS DC XL1*O55 

516 oc XL1* 00° 

517 OC AL2(RTNGO) 

516 . . 

519 5 PRINT 

520 BoC ALL*OL® 

S21 OC TL1l*27° 

522 DC AL2 (HEADS) 

523 B SETUP 

524 3 SELECT 

525 MVC DEVRT5S(2) eCEVECE 
526 B DOSIO 

527 oc AL2 (RSWRTE~-RSWRT } 
528 BC AL2(X#I TE} 

529 oc ALZ2CRSWRTE} 

530 5 TRESPL 

531 8 SELECT 

532 8 bOSIG 

533 DC AL2 (ROMODE-RoNOD) 
534 DC AL2EXHITE} 

535 DC AL2Z(RDMODE? 

536 

537 B FILLFF 

538 MVG EXPBUF+3(4) sROMODE 
339 HVC EXPBUFt+7(4) »RBEXL 
540 MVC EXPBUF+TE LI sNOAID 
541 MVC EXPBUF +6 (1 }e CURDEV 
542 © MVC EXP8UF+9(2) sPOLL 
15J5ANT6 L4MAV7T6 

825034 825035 


START OF ROUTINE O65 
GO PRINT HEADING 


GO 00 INITIAL HOUSEKEEPING 
GO SELECT DEVICE 

FILL IN DEVICE IN PATTERK 

GO WRITE PATTERN TO TEST 
READ MODIFIED 


GO TEST ACK 1 RECEIVED 
GO SELECT AGAIN 
GO NO READ MODIFIED 


GO FILL EXP BUFFER WITH Fi 
GO SET UP EXPECTED RESULT* 


FILL IN NO AIO CHAR. 
FILL IN CURRENT DEVICE 
FILL IN CURSOR ADDRESS 


PROG 10 0894-3 
PAGE 4A 


T88 MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 
PAGE 5 
8943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OEDE OC 17 2094 3842 543 MVC €XPBUF433(24),RSEXP FILL IN EXP. MOD. DATA 
OEES OC 01 2D7F 3908 544 MVC EXPBUF 41212) »X404B ADJUST ADDRESS 
OEEA 3C 03 2095 545 MVI - EXPBUF434,3 FILL IN ETX 
546 
OEEE CO 87 LF9D 547 B CHECK1 GO CHECK EXPECTED RESULTS 
OEF2 CO 87 LBC6 548 B GOACK GO SEND ACK TO ORGP DEVICE 
549 
OEF6 CO 87 0216 550 LIK 
§51 SERERICKESES SESLERLS SESE SCLESESEREKERE EKG RERKERERASESEERKAERREKEREESEEKEESEKESREE 
552 * THIS ROUTINE CHECKS THE VARIOUS WRITE GPTIONS SUCH AS INSERT # 
553 * CURSOR, REPEAT TO ADDRESS, ERASE UPROTECTED TO ADDRESS, PROGRAM* 
554 * TAS, AND SET BUFFER ADDRESS. * 
555 * IT THEN TESTS THE ERASE ALL UNPROTECTED COMMAND TO THE DEVICE. * 
556 SECERKKERESEKAEEKRAEKEAKESESEAEKESKEASCAKEESESESEEKEEREE SSAEKRESESSARFERSESE SHAE 
557 
OEFA 06 OEFA 558 RTNO6 OC XL1°06° START OF ROUTINE 06 
GEFB 00 OEFB 559 DC XL1°00" 
OEFC OF 64 OEFD 560 DC AL2(RTNOT} 
561 
OEFE CO 87 O21A 562 8 PRINT GO PRINT HEADING 
OFO2 O1 OFO2 563 oc XL1¢O1° 
OF03 25 OF03 564 oc 1L1°37° 
OF04 2766 OFOS 565 DC AL2 (HEAD6) : 
OFG6 CO 87 19F9 566 B SETUP GO DO INITIAL HOUSEKEEPING 
OFOA CO 87 1C9A 567 B SELECT GO SELECT THE DEVICE 
CFOE OC 01 3B1F 25CF 568 MVC =- RTOD V2), DEVICE PUT DEVICE IN PATTERN 
OF14 OC 01 3894 25CF 569 MVC =- ROEDV.2) «DEVICE PUT DEVICE IN EXPECTED RESULTS ! 
570 1 
OF1A CO 87 LABS 571 B DOSTO GO WRITE PATTERN 
OF1E 0053 OFF 572 oc AL2(RT6PE-RTOP) 
OF20 431F OF2i 573 oC AL2(XMITE) 
OF22 3B62 OF23 57% OC AL2(RT6PE) | 
OF24 CO 87 2118 575 8 TRESP] GO TEST FOR CORRECT RESPONSE | 
576 
OF28 CO 87 LABS 577 B DOSIO GO TEST FUNCTIONS OF WRITE | 
OF2C 0024 OF 2D 578 oc AL2(RT6TE-RT6T? | 
OFZE 431F OF2F 579 oC AL2( XMITE) | 
OF30 3887 OF31 580 oc AL 2(RT6TED 
OF32 3C 70 2FFB 581 MVI ACK» X* 708 FORCE ACK O EXPECTED | 
OF36 CO 87 211C 582 B TRESPX GO CHECK FOR ACK 0 | 
583 
OF3A CO 87 1DBB 584 8 READBE GO READ BUFFER | 
OF3E 10 OF3E 585 pc XL1°10° EXPECT PATTERN 1 | 
OF3F 4001 OF40 586 oc XL2"4001° CURSOR ADDRESS 
587 
OF41 CO 87 109A 588 B SELECT GO RESELECT THE DEVICE | 
OF45 CO 87 1ABS 589 8 DOSIO GO SEND AN EAU 
OF49 0003 OF4A 590 oc AL 2( EAUE-EAU? | 
OF4B 431F OF4C (591 oc AL2(XMITE) | 
OF4D 4000 OF4E 592 oc AL 2( EAUE) | 
OF4F CO 87 2118 593 8 TRESPI TEST CORRECT RESPONSE 
OF53 CO 87 2272 594 8 DELAY GIVE IT A CHANCE TO FINISH | 
OF5S7 0064 OFS8 595 oC 1L2*100° WAIT 100 #S 
OF59 CO 87 1DBB 596 B READBF NOW GO READ BUFFER TO CHECK 
OF5D 04 OFSD 597 oc XL1"06° EXPECT PATTERN 2 
OFSE 4040 OFSF 598 DC XL 2*404602 CURSOR AT 0 
599 
OF60 CO 87 0216 600 B LINK 
60] CRPEERERESEEESEAEREEEEEESEEEES 8488S OED SEES ERERESENEEEEEREEDEONESEEEESS! 
602 * THIS ROUTINE SENDS INVALID ADDRESSES IN THE WRITE DATA STREAM *, 
603 © TO THE DEVICES. IT THEN CHECKS THAT THE INVALID ADDRESSES *. 
604 * HAVE BEEN DETECTED AND RESULT IN OPERATION CHECK STATUS~ * 
605 * THE INVALID ADDRESSES USED ARE 1 OVER THE MAXIMUM ADDRESS * 
606 * FOR THE DEVICE BEING TESTED. 
607 seesesessnsseesssesesesacessscseaseeeseaesensessesassetsceseaeseascess 
608 \ 
OF64 07 OF64 609 RTNOT OC xL1l‘O7°¢ START OF ROUTINE 07 
OF65 00 OF65 610 oC XL1*008 | 
“t 
i 
DATE 264UNTS 250CT75 LSJANT6 L4MAY76 PROG ID 0894-3! 
EC NO. 825023 825032 825034 825035 PASE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAK 


8943 
ERR LOC 
OF 66 


OF68 
OF6C 
OF6D 
OF6E 
OFT7O 
OFT4 
OF78 
OF TE 
OF82 
OFS5S 


OF8B 
OF8F 
OF91 
OF93 


OF95 
OF9SA 
OF9D 
OFAL 
OFAS 
OFAS 
OF AF 
OFB2 


OFB6 


OFBA 
OF BE 
OFC4 
OFCB 
OFCC 


OFDO 
OFO1 
OFD2 


OFD4 
OFD8 
OFB9 
OFDA 
OFDC 
OFEO 
OFE4 
OFEA 


OFEE 


OFF2 
OFF6 


OFFC 
1001 
1004 
1008 
100A 
100E 
1012 
1015 
1018 


DATE 
EC NO. 


OBJECT CODE 
oFDO 


CO 87 O21A 

01 

20 

2786 

CO 87 19F9 

CO 87 I1C9A 

OC O01 3C2A 3C€2D 
38 80 2FFD 

F2 90 06 

OC O01 3C2A 3C2F 


CO 37 
0007 
431F 
3C 2B 


LABS 


4D 01 01 2637 
F2 01 2B 

-0 87 1€39 

38 10 2658 

co 90 1008 

OD 01 2658 3C31 
F2 01 08 

CO 87 1B8Cé6 


CO 87 0216 


xX. 15 262A 
OC 01 2FF9 3C€31 
CO 8&7 22A7 
3C 13 262A 
CO 87 22A7 


08 
OG 
LOAF 


CO 87 O21A 
ol 

1F 

27TA5 

CO 87 19F9 
3C Cl 3C62 
Oc 05 OFFB 
CO 867 1A41 


10A2 


CO 87 IC9A 


CO 87 1AB4 
000000000000 


4D 01 01 2637 
F2 O01 73 

CO 87 2272 

0019 

CO 87 iCc39 

38 10 2658 

F2 90 6A 

OD 01 2658 2649 
F2 81 OE 


26 JUNTS 
8259023 





DA FUNCTIONAL TESTS 


AODR 


OF67 


OF 6C 
oF éc 
OF6F 


OF90 
OF92 
OF 94 


OFOO 
OFDI1 
OFD3 


OFD8 
OFDS 
OFDB 


OF FB 


1009 


250CT75 
825032 


STMT 


611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
646 
641 
642 
643 
€44 
645 
646 
647 
648 
649 
650 
651 
652 
653 


654 - 


655 
656 
657 
658 
659 
660 
661 
662 
663 


SOURCE STATEMENT 


R7M1 


BADST 


TOOKBA 


oC 


8 
oc 
oc 
oC 
B 

8 
MVC 
TBN 
JF 
MVC 


B 

oC 
oc 
oc 


cic 
JNE 
B 
TBN 
BF 
cLC 
JNE 
8 


B 
MVI 


“MVE 


8 
MVE 
B 


AL2{(RTNOS) 


PRINT 

xL1°O1°* 

IL1*32° 
AL2(HEAD7) 
SETUP 

SELECT 
INVADR(2).INVML 
RTNFLG,X*80! 
R7M1 
INVAOR(2) 5 INVM2 


DOSIO - 
ALZ(RTTPE~RTTP) 
AL2(XMITE) 
AL2(RT7PE) 


1(2,5XR1L),E0T 
TOOKBA 

DOPOL 
POLFLG,x*°10° 
OHOH 
POLST(2) 50C 
BADST 

GOACK 


LINK 


ERR »BDST 
WORK( 2) ,OC 
ERROR 

ERR »ACCIN 
ERROR 


PART NO. 4234259 
PAGE SA 


GO PRINT HEADING 


GO 00 INITIAL SET UP 

GO SELECT THE DEVICE 

SET FOR INVALID MOD 1 AODRESS 
TEST FOR MODEL 2 

JUMP IF NOT 

SET FOR INVALID MOD 2 ADORESS 


GO TRY TO SEND INVALID ADDRESS 


EOT SHOULD HAVE BI=N REC*D 
JUMP IF NOT 

GO POLL TO GET STATUS 

TEST FOR STATUS REC*D 
ERROR IF NOT © 

TEST STATUS = OC 

JUMP IF NOT 

GO ACKNOWL EDGE 


SET HALT CODE 
PUT OP CHECK IN WORK 


SET HALT CODE 





SESKESSSESEESEKESAERESESSESEEEESS ERESS EAEEEESSEEEEEEEEEOEEEEEEEDEESEEEEES SED 
(HIS ROUTINE TESTS THAT DATA CHECKS IN THE DEVICE CAN BE DE- # 


* 
* 
* 
* 


RTNOB 


R8L OOP 


664 * 


665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 


R8P 


L5JANT76 
825034 


TECTED. 


SENT TO THE OEVICE. 
DETERMINE THAT THE BAD DATA IS DETECTED. * 
SPHEEEEEESEESESEESEREESESLE SES SEVERE EERESESSES £8 049$50055F84E464200099984 


oc xLl*oe? 

oc XiL1* 00° 

DC AL2(RTNO9) 

B PRINT 

DC xL1*o1° 

oc IL1*31° 

oc AL2 (HEADS ) 

B SETUP 

MvVI RSCHR,CTA® 
MVC REP(6) ,RBT1 
B NODST 

8 SELECT 

8 oosi1o 

oc XL6*O* 

cLc 102, XR1),EOT 
JNE NOTEOT 

8 DELAY 

oc L2°25* 

8 OOPOL 

TBN POLFLG,X*10° 
JF ooPss 

cic POLST (2),0CuUS 
JE REFIX 
L4RAVT6 
625035 


THE MICRO CODE IS CHANGED SO THAT BAD PARITY WILL BE * 


AFTER THIS IS DONE. A CHECK IS MADE TO * 


START OF ROUTINE 08 


GO PRINT HEADING 


GO OO INITIAL SET UP 
INITIALIZE CHARACTER TO *A® 
INITIALIZE WRITE PARAMTERS 

GO MODIFY MICRO CODE To CAUSE 
TRANSMIT CHECKS 

‘GO SELECT THE DEVICE 


GO WRITE ERROR PATTERN 
WRITE PARAMETERS GET FILLED IN 


EOT SHOULD HAVE BEEN RETURNED 
ERROR IF NOT 
WAIT FOR 25 MS 


GO GET THE STATUS 
CHECK FOR STATUS RETURNED 


JUMP IF NOT 
WAS STATUS DATA CHECKe UNIT SPECIFY 
JuMP IF SO 
PROG ID 0894-3 
PAGE 5A. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 
ERR LOC 


101E 
1024 
1028 


102C 
1030 
1034 
1038 
103A 
103C 
103E 
1042 
1046 
1048 
104A 


104C 
1050 
1053 
1057 
105D 
1061 
7065 
1069 
1060 
1073 


1077 
1078 
LOTF 
1083 
1089 
108F 
=e 1095 
1099 


109D 
LOSF 
10AL 
10A3 
10A5 
10A7 
10A9 
10A8 
10A0 


LOAF 


DATE 
EC NO. 


i nn oe ee oe Oe oe eo Oe er oe er 


DA FUNCTIONAL TESTS 


GBJECT CODE 


oc 
x 
co 


co 
co 
co 


O1 
15 
87 


87 
87 
87 


0008 
431F 
3C63 


co 
co 


87 
87 


0000 
4201 
2636 


30 
F2 
3c 
oc 
co 
30 
co 
3c 
oc 
co 


3c 
co 
co 
oc 
oc 
oc 
3c 
co 


cl 
01 
C2 
05 
87 
c2 
01 
c3 
05 
87 


14 
87 
87 
08 
00 
08 
10 
67 


0009 
431F 
3C44 
0008 
431F 
3C50- 
0009 
431F 
3C5A 


09 


26JUNTS 
£25023 


2FF9 2649 
262A 
22a7 


1A52 
IC9A 
LAB 


2118 
1AB4 


3C62 

OE 

3C62 

OFFB 10A8 
OFEA 
3C62 
0216 
3C 62 
OFFB 
OFEA 


10AE 


262A 
22A7 
1FDO5 
2D 78 
3C69 
2084 
262A 
22AT7 


4208 
2605 
3C6C 


ADDR 


1039 
103B 
103D 


1047 
1049 
1048 


1O9E 
10A0 
10A2 
10A4 
10A6 
10A8 
10AA 
1OAC 
1OAE 


1OAF 


250CT75 
825032 


| 


: 
+ 
, 
i 


PART NO. 423425 
PAGE 6 
STMT SOURCE STATEMENT 
679 MVC = WORK (2 ,OCUS PUT EXPECTED STATUS IN WORK 
680 AVI = ERR »BDST SET BAD SATUS INDICATION 
681 B ERROR 
682 
683 REFIX B FIXST GO PESTORE MICRO CODE 
684 B SELECT GG SELECT AGAIN 
685 B DOSIO GO WRITE PATTERN OF ALL *A,& OR CU! 
686 oc AL2 (RBP4E-RBP4) 
687 DC AL2(XMITE) 
688 oS AL2(RBP4E) 
689 B TRESPL GO CHECK RESPONSE 
690 8 DOSIO GO SEND EOT 
691 DC XL2*08 
692 oc AL2(XMITRO4L) 
693 OC AL2(EOT=-1) 
694 
695 CLI RBCHR,CEAP DID WE JUST WRITE ‘ae 
696 JNE TSTB IF NOT TEST FOR B 
697 _ MVE RSCHReC*B? SET FOR B NEXT PASS 
698 MVC = RBPL6),RBT2 SET NEW PARAMETERS 
699 B R8LOOP GO DO NEXT PATTERN 
700 TSTB CLi  RSCHR,C*BE WERE WE DOING "Be - 
701 BNE LINK GO TO NEXT ROUTINE IF NOT 
702 MVE —s- RBCHR»CPCE SET FOR ¢ce 
703 MVC =. RBPL 6) »RBTB SET NEW PARAMTERS 
704 8 RBLOOP GO DO NEXT PATTERN 
705 
706 NOTEOT MVI ERR, NOEOT SET ERROR 
707 B ERROR 
708 coPSsSs 8 FILLFF GO FILL EXP. BUFFER WITH FF 
709 MVC =—- EXPBUF48(9) »XMITRC+8 MOVE IN POLL MESSAGE 
710 MVC = RBEXP1(.1) ,CURDEY MOVE IN THE DEVICE 
711 MVC = EXPBUF417(9),RSEXP2 PUT IN EXPECTED RESPONSE 
712 KVI ERR» INCOR SET ERROR 
713 B ERROR 
714 
714 
715 * PARAMETER LIST FOR ROUTINE 8 
716 oC AL2(RBP1LE-R&PL} 
717 OC AL2 (X#1TE) 
718 R8T1 OC AL2(R8P1E) 
719 DC AL2(R8P2E-RBP2) 
720 OC AL2 (XMITE) 
721 R8T2 DC AL2(R8P2E} 
722 oC AL 2(RBP3E-R§P 3) 
723 OC AL2(XMITE) 
724 R8T3 OC AL2(RBP3E) 
725 FERSEEREE REL EGE EE REERESLEEEREEEEEE ES ES EREEEER EES EHEREEREERETEREREERE SEES, 
726 * THIS ROUTINE FIRST TESTS THAT BOTH UPPER AND LOWER CASE ALPHA +! 
127 * CHARACTERS ARE TRANSMITED AND RECEIVED QKAY~ *, 
728 * IT THIS TESTS THE MICRO POLL FEATURE AS FOLLOWS: *! 
729 * FIRSTe A MICRO POLL TO THE SELECTED DEVICE IS DONE WITH AN & 
730 + INIFINITE COUNT (FF). THERE SHOULD BE NO RESPONSE. & 2SECe * 
731 * TIMEOUT 1S THEN SENT TO CAUSE AN EOT RESPONSE AND INTERRUPT TG # 
732 * THE ORIGINAL MICRO POLL. * 
733 * NEXT, THE COUNT IS CHANGED TO G1 AND THE MICRO POLL IS RE- * 
734 * ISSUED. THIS TIME, TO EOT RESPONSE SHOULD COME IN RIGHT AWAY. # 
735 * NEXTs DEVICE END STATUS 1S CAUSED BY RESETTING THE ATTACHMENT & 
736 * AND RE-ENABLING IT. THE CURRENT DEVICE IS REPEATED 255 TIMES * 
737 + IN THE MICRO POLL LIST. THE SAR IS SET TO CAUSE A DELIBERATE * 
738 © OVER RUNe THE MICRO POLL IS THEN ISSUED AND SHOULD GET AN #| 
739 * IMMEDIATE DEVICE END STATUS MESSAGE. MOST OF THE MESSAGE IS ¥ 
740 * LOST BECAUSE OF THE SAR SETTING. *, 
741 * NOW, NAK IS ISSUED AND THE STATUS MESSAGE WELL BE RETRANSMITTED#® 
742 % SO THE ENTIRE MESSAGE IS RECEIVED. * 
143 WHER ERE EERE EE RES ERE RE EEEE EEE ERE ELEEE ESE EERE EREEESEERREL ERTS REEL ESE REE 
744 
745 RTNO9 OC XL1*09! START OF ROUTINE 09 
{ 
L5JAN76 L4MAY 76 PROG ID 0894-3; 
825034 825035 PAGE 6 


| 
| 
| 
| 
| 


| 
| 
| 


ee ce ere nee rm ee pene Aimee arama Sememe me rem etcatee Me eenerecee wl ene cme erent etme + mn nets atin weeny “et eine 
ome z wey ony 


18M MAINTENANCE DIAGNOSTIC PROGRAM 
eo 
us 
8943 ODA FUNCTICGNAL TESTS 
"EPR LOC OBJECT CODE ADDR STMT 
rm 1080 00 1980 746 
‘. 10B1 L1FO 10B2 747 
748 
os 1083 CO 87 O21A 149 
i, 1087 O1 10B7 750 
10B8 356 1088 751 
gk 1089 2708 10BA 752 
A 10BB CO 87 19F9 . 753 
108F 3C 03 3EEE 754 
e 10C3 CO 87 1C9A 755 
a 10C7 CO 87 LABS 756 
10CB 0052 10CC 757 
10CD 431F 10CE 7528 
LOCF 3E£EE 1000 759 
1001 CO 87 2118 760 
16D5 CO 87 CSA 161 
10D9 3C FE 3EEE 162 
100D CO 87 1088 163 
ay 10E1 08 10E1 764 
: LOE2 4040 10€3 765 
766 
1OE4 3C FO 3FFB 767 
1LOE8 OC OL 4006 2605 768 
1O0EE 37 FF 4004 769 
ee 770 
A 1OF2 CO 87 LABS 771 
10F6 0008 10F7 772 
it 10F8 431F 10F9 773 
mo 10FA 4007 10FB 774 
1OFC 3C OC 3FFB 775 
Mie 1100 CO 87 2272 716 
Ro! 1104 03€8 1105 777 
1106 3D 00 2610 778 
110A F2 01 08 779 
C 780 
11C3 3C 16 262A 781 
as 1111 CO 87 22A7 782 
{3s 783 
1115 F3 88 06 784 S2SEC 
es 1118 0D FF 4200 4200 785 
is 111E 3D 00 2610 786 
1122 F2 81 10 787 
a 788 
{2 1125 co 87 021A 789 | 
1129 82 1129 790 
on 112A 33 112A 791 
fee 112B 2A18 112C 792 
112D 3C O07 262A 793 
, 1131 CO 87 22A7 794 
© 795 
1135 0D O1 420D 2637 796 NXTMPT 
jo 113B F2 81 14 797 
€2 -113€ OC 08 2D7E 4007 798 
1144 0C OL 2080 2637 799 
fae 114A 3C 10 262A 800 
we 114E CO 87 22A7 801 
802 
a 1152 3D OF 3FFB 803 TMPCNT 
C 1156 F2 81 16 804 
1159 3C OF 3FFB 805 
ts 115D 3C 01 4004 806 
& 1161 CO 87 LAB4 807 
1165 0008 1166 808 
- 1167 431F 1168 809 
. 1169 4007 116A 810 
116B CO 87 1135 811 
Bs 812 
(> = «:116F £3 58 80 813 TMPDE 
C: DATE  26JUN75 —«- 250CT75.—s- 1 SUANT6 
EC NO. 825023 825032 825034 
CS 
© 
CG 
@ 


SOURCE STATEMENT 


DC XL1L*OO° 

DC . ALZCRTNOA) 

8 PRINT 

DC XLi*O1® 

oc IL1°*54% 

oC AL2(HEADS) 

8 SETUP 

MVI ROOPE,3 

B SELECT 

B DoSIO 

DC AL2(ROOPE-ROOP) 
oc AL2(CXMITE) 

DC AL2 (ROSPE) 

B TRESPL 

B SELECT 

MVI ROOPESX "FES 

B READBEF 

oc XL1°08* 

oc XL2*4040¢ 

MVI MICPEL sAtFOr 
MVC MICFO(2) eCURDEV 
MVE MICPD-2,X*°FF# 

B DOSIO 

OC AL2 (MICP1E-MICP1) 
oC AL2(XMITE) 

oc AL2(MICPIE) 

MVE MICPFL,.O 

‘B DELAY 

oc 1L2*1000° 

CLI INTFLG-0 

JNE $2 SEC 

MVI ERR,» MP INT 

8 ERROR 

$.0 X*06* sCNTRLE 

cic XMITRC( 256) eXMITRCE 
cul INTFLG20 

JE NXTMPT 

8. PRINT 

OC XL1*°82° 

DC IL1*51° 

cc AL2(MPMG23 

MVI ERR sNOINT 

B ERROR 

CLC XMITRC+13( 2} sEOT 
JE TMPCNT 

MVC EXPBUFF1L1 (12) eMICPLE 
MVC EXPBUF4+13(2) ,EOT 
MV I ERR» INCOR 

B ERROR 

cul MiCPFL »X*OF® 

JE TMPDE 

MVE MICPFL,X* OF® 
MVI MICPO-251 

B DOSIO 

oc AL2(MICPLE-MICPL) 
oc AL2UXMITE} 

DC AL2 (MICPLE) 

8 NATMPT 

sia x*80°,SIOI 
L4MAY76 

825035 


PART NO. 
PAGE 


4234259 
OA 


GO PRINT HEADING 


GO DO HOUSEKEEPING 

INSERT ETX AFTER DATA 

GO SELECT 

WRITE UPPER/LOWER CASE DATA 


GO TEST RESPONSE 

RESELECT 

INSERT FE FOR OATA TERMINATOR 
GO READ BUFFER 

EXPECT UPPER/LOWER CASE PATTERN 
CURSOR AT 0000 


SET MICRO POLL FLE. TO IND NO INT 
MOVE CURRENT OEVICE TO POLL LIST 
SET INFINITE COUNT 


GO DO MICRO POLL, EXP NO REPLAY 


RESET THE MICRO POLL FLAG 
GO WAIT A SECOND 


TEST FOR INTERRUPT OCCURRED 
OKAY IF NG INTERRUPT 


SET ERROR CODE 

ISSUE 2 SEC. T.Q. TO ENO MICRO POLL - 
DELAY TO LET IT HAPPEN 

TEST FOR INT OCCURRED 

IF sO CHECK EOT REC'D 


GO PRINT MESSAGE 


SET NO INT ERROR 


TEST FOR EOT REC'D 
JUMP IF SO 
SET UP EXPECTED RESULTS 


SET ERROR CODE 

TEST FLAG 

GO TO DE TEST IF = OF 

SET FLAG TO INDICATE INT EXP. 


SET COUNT TO 1 
GO REPEAT & EXPECT INTERRUPT 


GO CHECK RESULTS 
DISABLE ATTACHMENT 


PROG 10 
PAGE 


0894-3 
6A 
} 


| 


i 
4234259: 


I8K@ MAINTENANCE DEAGNOSTIC PROGRAM 


18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 
PAGE "1 a 
A 
8943 CA FUNCTIONAL TESTS 8943 
Oo 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT. ~ ERR LOC 
1172 £3 58 EO 814 SIO - X*EO* SIO RESTART MICRO CONTROLLER, DEVICE ae 1231 
815 © END SHGULD BE PENDING NOWe As 
1175 OC OT 4207 4003 816 MVC =—- XMITRC+#7(8) » HEC P2 SET UP TRANSMIT/RECEIVE FIELD 1233 
117B OC 00 4306 2605 817 MVC. XMITRC+262(1),CURDEV INSERT DEVICE ee 1235 
1181 OC FD 4305 4306 818 MVC =- XMIETRCO#261(254)eXMITRC+#262 INSERT DEVICE 255 TIMES 1! 1237 
1187 3C 2D 4307 819 MVE - XMITRC#263-X #208 INSERT ENQ AS LAST CHAR 
1188 3C O01 4208 820 MVI = XMETRCO+B,X*OL? SET COUNT TO 1 i 
821 If 1239 
118F F3 88 CO 822 SIO  ENA3LE,CNTRL RE-ENABLE DA 123A 
1192 3C OF 3FFB 823 MVE -MICPFLyX*0OF® SET UP FOR MICRO POLL EXPECTS INTRe | a 123B 
1196 CO 87 LAB 824 8 DGS IO GO DO MICRO POLL, EXPECT DE STATUS | © 
119A 0107 1198 825° DC IL2*263° 1230 
119C 4309 119) 826 oc AL2(XMI TRC+265) STOP SHORT OF FULL MESSAGE 1261 
119E 4307 LIOF 827 oc AL2(XMITRC+263} 1245 
828 | 1249 
11A0 0D 01 2620 2624 829 CLC —- SCAR(.2) ¢ SSAR CAR SHOULD NOW BE EQUAL TO SAR | 124D 
11A6 F2 81 08 830 JE SNAK GO SEND NAK IF $0 i: 1251 
11A9 3C 17 262A 831 MVE ERR» MPCS SET ERROR CODE 1255 
11A0 CO 87 22A7 832 8 ERROR | 1259 
833 1250 
1181 CO 87 1AB4 834 SNAK B 00S10 GO SEND N&k FOR RE TRANSMIT 1261 
1185 0001 1186 835 oc AL2 (NAKE-NAK) Ds 1265 
1187 431F 1188 836 DC AL2(XMITE) pe 1266 
11B9 4009 11BA 837 DC AL2(NAKE) | 1267 
11BB 4D 02 02 264C 838 CLC 2(35XR1)eSTATR BE SURE STATUS WAS RECEIVED 1269 
11CO F2 81 08 839 JE STATRC JUMP IF SO | 1260 
11C3 3C 18 262A 840 MVI —-ERR,RNST SET ERROR CODE 1273 
11C7 CO 87 22A7 341 8 ERROR i ie 1279 
L1CB 1C O1 2658 07 843 STATRC MVC POLST, 7(2,XR1) FETCH THE POLL STATUS | 1270 
1100 00 01 2658 2643 844 CLC = POLST (2),DE IT SHCULD BE DE 2, 127F 
1106 CO B1 0216 845 BE LINK FINISHED IF SO Ce 1281 
846 
LIDA OC O1 2FF9 2643 847 MVC =WORK(2),0E MOVE DE TO EXP. STATUS Leas 
11EO CO 87 O21A 848 B PRINT GO PRINT MESSAGE | C 
LLE4 82 LlES 849 DC XL1'82° 1283 
LLES 2B LlE5 850 DC IL1 43° 1284 
L1E6 2A46 11E7 851 oC AL2 (MPMG3) (4 1285 
L1E8 3C 15 262A 852 MVI ERR, BOST SET ERROR CODE 
LLEC CO 87 22A7 853 8 ERROR ie 1287 
854 me 1288 
855 EERE EEEE EEE ERERESEEEEEE EEE EEEEEEES EREREEE CSREES ES HERES SHEEESEEEE RES EE, 128F 
B56 * ROUTINES OA THRU OF ARE USED TO SEND TEST PATTERNS TO THE * 1293 
857 * DEVICES. ONE COMMON SUBROUTINE IS USED TO SEND ALL PATTERNS. * (J 1297 
858 SESE ST enema ewe tee he Peer ates See Shel SESS SEES ESALSSES SEAL ENS TESTES: 1298 
859 I ge 12A1 
L1FO OA 11FO 860 RTNOA OC XL1°OA® START OF ROUTINE 0A 18  42a7 
11F1 80 L1IFl 861 oc XL1L'808 12AB 
LLF2 1239 11F3 862 OC AL2(RTNOB) Coe L2AE 
863 Wee 12B2 
11F4 38 80 020C 864 TBN  SBYTE4,SS&20 1S SSW 20 ON? | 12B6 
J1F8 CO 10 0216 865 BT LINK 1F SO, SKEP INSTRUCTIONS tite 12BA 
1LFC CO 87 24EA 866 8 CHMODX GO TEST FOR MODEL 4, SKIP IF SO CoV ope 
1290 CO 87 O21A 867 B PRINT GO PRINT HEADING 12C2 
1204 01 1204 868 oc XL1L°O1? fs 12C 8 
1205 22 1205 869 OC IL1°348 é 12CB 
1206 27FD 1207 870 DC AL2(HEADA) 12D1 
1208 CO 87 19F9—- e7l B SE TUP GG 00 INITIAL HOUSEKEEPING 1205 
120C OC 03 3291 31AE 872 MVC = ALA(4),A1 INITIALIZE DEVICE ADDRESS 1209 
1212 38 40 2FFD 873 TBN  - RTNFLG»X* 408 TEST FOR DEVICE IS A PRINTER 1200 
1216 F2 10 OA ; 874 JT OEVP JUMP IF SO I2El 
1219 OC 05 21Ca 1232 875 MVC —- TPARM(.6),PORO} MOVE IN TEST PATTERN PARAMETERS 12E5 
121F CO 87 22BD 876 8 SENDTP GO SEND IT | 129 
1223 OC 05 21CA 1238 877 DEVP MVC  TPARM(6),PORDLA MOVE IN PRINTER PATTERN PARAMTERS | 12ED 
1229 CO 87 2180 878 B SENDTP GO SEND PATTERN Ee 12EE 
879 12EF 
122D O0BC 122E 880 DC AL2 (€ORD1~ORD) ) PARAMETERS TO SEKD TEST PATTERN FS. 12F1 
122F 4316 1230 881 DC AL2(XNITE) iG 
| 
DATE 26JUNTS 250CT75 L5 JANT6 L4MAY76 PROG ID 0894-3 © DATE 
EC NO. 825023 825032 825034 625035 PAGE us EC NO. 
(G 
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DA FUNCTIONAL TESTS 


OBJECT CODE 


3182 


OOEZ 
431F 
3295 


0B 
80 


1283 


38 
co 
38 
co 
38 
39 
co 
3c 
3c 
ca 
ol 
17 


40 
10 
8c 
90 
80 
40 
10 
C2 
Fl 
87 


2814 


co 
oc 
oc 
co 


87 
03 
05 
87 


OOES 
431F 
3378 


80 


1301 


38 
co 
3c 


co 
Oc 


38 
F2 
38 
co 
38 
39 
co 
oc 
F2 
Oc 
3c 
38 
co 
38 
39 
co 
co 
OL 
17 


40 
10 
C3 
F2 
87 
03 
03 
80 
10 
80 
90 
80 
20 
10 
05 
87 
05 
F3 
80 
90 
80 
10 
10 
87 


2814 


co 


87 


2FFO 
0216 
02 0C 
24EA 
c20Cc 
020C 
0216 
2803 
2814 
O21A 


LOFO 
3378 
21CA 
218D 


2FFO 
0216 
2803 
2814 
19OF9 
341A 
34F2 
2FFO 


020C 
24EA 
020C 
020C 
0216 
21CA 
1E 

21CA 
2814 
020C 
24EA 
020C 
o20C 
0216 
O21A 


2160 


26JUNT5 


825023 


21AE 
1282 


31LAE 
31AE 


ADOR 
1232 


1234 
1236 
1238 


1239 
123A 
123C 


1265 
1266 
1268 


127E 
1280 
1282 


1283 
1284 
1286 


12ED 
12EE 
12F0 


250CT75 


825032 





STMT SOURCE STATEMENT 

882 PORDI OC AL2(EORD1} 
883 : 

8&4 oC AL2(EQRDLA-ORDLA) 
885 OC ALZ(XMITE} 
886 PORDLIA OC AL2(EORDIA) 
887 

887 

888 RTNOB OC XL1°OB* 

889 oC XiL1°8O° 

B9C oc AL2(RTNOC} 
891 

&92 TBN RTNFLGX*408 
893 BY LINK 

894 TBN SBYTE4,SSW20 
895 BF CHKODX 

896 TEN SBYTE4,SSW20 
897 TBF SBYTE4,SSW21 
898 BT LINK 

899 MVI HOTP1,C°B! 
900 MVi HEADP,C*L? 
901 8 PRINT 

902 oC XL1L°OL* 

903 oc TL1*23° 

904 oC AL2(HEADP) 
905 B SETUP 

906 MVC A2(4),Al 

907 MVC TPARM(6) »PORD2 
908 B SENOTP 

309 

910 oc AL2 (EGRO2-ORD2 } 
911 ‘oc AL2(XMITE) 
912 PORD2 OC AL2(EORD2) 
913 

913 

913 

914 RTNOC Oc XL1L°OCs 

915 oc XL1*°60° 

916 oc AL 2(RTNOD) 
917 

918 TBN RTNFLG oX*408 
919 BT LINK 

$20 VI HOTPL,C*C® 
921 MVI HEADP,C*2¢ 
922 B SETUP 

923 MVC A3(4),Al 

924% MVC A4 (43,41 

925 TBN RTNFLG,X* 808 
926 JT OM2 

927 TBN SBYTE4, SSW20 
928 BF CHMOD X 

929 TEN SBYTE4, SSw20 
930 TBF SBYT ES. SSW22 
931 8T LINK 

932 MVC TPARM(6),PORD3 
$33 J PHD 

934 OM2 MYC TPARM(6),PORD4 
935 MVI HEADP,C*3* 
936 TBR SBYTE %» SSW20 
937 BF CHMOD 

938 TAN SBYTE4 »SSW20 
939 TEF SBYTE4, SSW23 
940 BT LINK 

94) PHD 8 PRINT 

942 oc XLL*O1* 

943 OC IL1°23° 

944 oc AL2(HEADP) 
945 B SENDTP 

946 
ISJANT6 14MAYT6 
825034 825035 
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PART NN. 4234259 
PAGE 7A 

START OF ROUTINE 08 

IS DEVICE A PRINTER? 

SKIP IF SO 

1S SSW 20 ON? 

GO TEST FOR MODEL 4, SKIP IF SO 


IS SSW 20 ON? 
1S SSW 21 OFF? 
SKIP IF SO 

SET UP HEADING 


GO PRINT HEADING 


GO DO HOUSEKEEPING 

SET UP DEVICE ID IN PATTERN 
MOVE IN PARAMTERS 

GO SEND IT 


START OF ROUTINE OC 


IS DEVICE A PRINTER? 
SKIP IF SO 
SET UP HEADING 


GO DO HOUSEKEEPING 

SET UP DEVICE ID IN PATTERN 

SET UP DEVICE ID IN PATTERN 
TEST FOR DEVICE IS MODEL 2 

JUMP IF SO 

IS SSW 20 ON? 

GO TEST FOR MODEL 4» SKIP IF SO 
IS SSW 20 ON? 

TS SSW 22 OFF? 

IF SO. SKIP THIS PATTERN 

MOVE IN MODEL 1 PARAMTERS 

GO PRINT HEADING 

MOVE IN MODEL 2 PARAMTERS 

SET FOR TEST PATTERN 3 

TEST SSW 20 ON 

GO TEST FOR MODEL 4+ SKIP IF SO 
IS SSW 20 ON? 

TEST SSW 23 OFF 


GO PRINT HEADING 


GO SEND PATTERN 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
12F5 OOAL 12F6 947 bc AL2(EORD3-—ORD3) 
L2F7 431F 12F& 948 oc ALZ(XMITE) 
12F9 3410 12FA 949 PGRD3 OC AL2 CEGRD3) 
12FB 00D7 12FC 60950 oc AL2(EORO4-ORD4) 
12FD 431F 12FE 951 OC AL2(XMITE} 
J2FF 34F5 1300 952 PORD4 OC AL2 (EGRD4} 
953 
953 
953 
1301 OD 1301 954 RTNOD OC XL1*OD* 
1302 80 1302 955 oc XL1°80° 
1303 1348 1304 956° oc AL2(RTNOE) 
957 
1305 38 40 2FFD 958 TBN = RTNFLG,X*40¢ 
1309 CO 90 0216 959 BF LINK 
1300 38 80 020C 960 TBN SBYTE4,SSW20 
1311 CO 90 24EA 961 BF CHMODX 
1315 38 80 020C 962 TBN SBYTE4, SSW20 
1319 39 08 020C 963 TBF SBYTE4,SSW24 
131D CO 10 0216 964 BT LINK 
1321 3C C4 2803 965 avi HOTP1sC*D* 
1325 3C F4 2814 966 MVI HEADP,C*4* 
1329 CO 87 021A 967 8 PRINT 
1320 OL 132D 968 oc XL1°01¢ 
132E 17 132E 969 oc IL1*23¢ 
132F 2814 1330 970 bc AL2(HEADP) 
1331 CO 87 19F9 971 8 SETUP 
1335 OC 03 35AF 31AE $72 MYC AS(4) 2Al 
133B OC 05 21CA 134A 973 MVC TPARM(6) ,PORDS 
1341 CO 87 2180 974 B SENDTP 
975 
1345 OOBC 1346 976 DC AL2 (EORD5-—ORDS ) 
1347 4&31F 1348 977 oe AL2UXMITE) 
1349 35B2 134A 978 PORDS DC ALZ( EGRDS) 
979 
979 
979 
134B OE 1348 980 RTNOE DC XL1*OE?® 
134C 80 134C 981 bc XL1*80°* 
1340 1390 134E 982 oc ALZURTNOF) 
983 
134F 38 80 020C 984 TBN SBYTE4,SSW20 
1353 CO 90 24EA 985 BF CHMODX 
1357 38 80 020C 986 TBN SBYTE4,SSH20 
1358 39 64 02 987 TBF SBYTE4,SSW25 
135F CO 10 0216 988 BT LINK 
1363 3C C5 2803 989 MVI HOTPL,C*E® 
1367 3C F5 2814 990 MVI HEADP.C&5® 
136B CO 87 O21A 951 8B PRINT 
136F QL 136F 992 OC XLitol? 
1370 17 1370 993 oc FLi*238 
1371 2814 1372 994% DC AL2(HEADP) 
1373 CO 87 19F9 $95 8B SETUP 
i377 CO 87 iIC9A 996 8 SELECT 
1378 OC 03 36CT 31AE 997 MVC A6(4),AL 
13821 OC 05 21CA 139C 998 MYC TPARM(6),PGRD6 
1387 OC 71 4271 3624 939 MVC 
1380 OC AS 4318 36CE 1000 MVC 
13923 CO S7? 21C1 1001 8 SENTPB 
1002 
1397 0118 1398 1003 OC AL2 (EQRD6-GRD6) 
1399 431F 139A 1004 DC AL2(XMITE} 
139B 36CE 139C 1005 PORD6 OC AL2(EORD6) 
1006 
1006 
L006 
1390 CF 139D 1007 RTNOF OC XL1‘OF* 
139E 80 139E 1008 oc Xti*80* 
DATE 26 JUNT5 250CT75 LSJANT6 L4NAYT6 
EC NO. 825023 825032 825034 625035 


AMITRC+LL6—-1 (L16),M100R6-i 
XMITRC+ETEXT6—1 (£26) »EQRDS 


PART NOW 
PAGE 


42342 


START OF ROUTINE OD 


IS DEVICE A PRINTER? 

SKIP IF NOT 

IS SSW 20 ON? 

GO TEST FOR MODEL 4, SKIP IF SO 
IS SSW 20 ON? 

IS SSW 24 OFF? 

IF SO, SKIP THIS PATTERN 

SET UP HEADING 


GO PRINT HEADING 


GO 00 INITIAL HOUSEKEEPING 
SET UP ADORESS IN PATTERN 
MOVE IN PARAMETERS 

GO SEND PATTERN 


START QF ROUTINE OF 


IS SSW 20 ON? 

GO TEST FOR MODEL 4, SKIP IF SO 
IS SSW 20 ON? . 

1S SSW 25 OFF? 

IF SO, SKIP THIS PATTERN 

SET UP HEADING 


GO PRINT HEADING 


GO LO INITIAL HOUSEKEEPING 

GO SELECT DEVICE 

SET ADDRESS IN PATTERN 

MOVE IN PARAMETERS 

SET UP XMIT/REC. FIELD THE 
LENGTH IS OVER 256 

GO SEND PATTERN 


START OF ROUTINE OF 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 
ERR LOC 
139F 


13Al 
13A5 
13A9 
13A0 
1381 
1385 
1389 
13B0 
13¢1 
13C5 
13¢9 
13CA 
13C€8 
13CD 
13D1 
1307 
1300 


13€1 
13€3 
13E€5 


13€7 
13€° 
13E9 


13EB 
13EF 
13F3 
L3FT 
13F8 
13FF 
1403 
1407 
1408 
14609 
1408 
140F 
1412 
1416 
141A 
1420 
1425 
1429 
1420 
1431 
1433 
1435 


1437 
1438 
143F 
1443 
L447 
144D 
1452 
1458 


145C 


DATE 
EC NO. 


DA FUNCTIONAL TESTS 


; 
; 
: 
: 


PART WC. 
PAGE 


TS DEVICE A PRINTER? 

SKIP IF NOT 

IS SSW 20 ON? 

GO TEST FOR MODEL 4, SKIP IF SO 
IS SSW 20 ON? ; 
IS SSW 26 OFF? 

IF SOs SKIP THIS PATTERN 

SEY UP HEADING 


GO PRINT HEADING 


GO 00 INITIAL HOUSEKEEPING 
SET ADDRESS IN PATTERN 
MOVE IN PARAMETERS 

GO SEN THE PATTERN 


4234259 
BA 


SREREEAEESES SERA RESESESERES ESE ERESSESEESERESEEREERESAEE EK EEEEEREEERESEES 
THES ROUTENE IS USED TO TEST ALL OF THE MANUAL ENTRY 


s 
* 


SSEREESAKEKEAEESCKAESHS SE SESERESKEKRSE SHAESESSESEEA GE LEE EHEC AE KERSEEOKESRRERES 


OBSECT CODE ADDR STHT SOURCE STATEMENT 
1L3E7 13A0 1009 DC AL2(RTN10) 
1010 : 
38 40 2FFD 1011 TEN RTNFLG,X* 408 
cO 90 0216 1012 BF LINK 
38 80 020C 1013 TBN SBYTE4, SSwW20 
CO 90 24EA 1014 BF CHMODX 
38 80 O20C 1015 TBN SBYTES, SSW20 
39 02 020C 1016 TBF SBYTE4, SSW26 
CO 10 0216 1017 BT LINK 
3C Cé& 2803 1018 MV I HOTPL CFS 
30 F6 2814 1019 NVI HEADP,C*6? 
CO 87 O21A 1020 B PRINT 
01 13C9 1621 oc XL1°O1° 
17 13CA 1022 oC IL1*238 
2814 13CC 1023 BC AL2(HEADP) 
CO 87 19F?) 1024 B SE TUP 
OC 03 37BC 31AE 1025 MVC AT(4),Al 
OC 05 21CA 136 1026 MYC TPARM(6) »PORDT 
cO 87 218D 1027 B SENDTP 
1028 
O0F9 13E2 1029 oc AL2 (EORD7-ORD7) 
431F 13E4 1030 oc AL2(XMITE) 
37BF 13E6 1031 PORD7? OC AL2( EOROT) 
1032 
1032 
1032 
1033 
1034 * 
2035 * FUNCTIGNS GF THE KEYBOARD. 
1036 
1037 
16 13E7 1038 RTNi0 0C XL1*108 
80 13E8 1039 oc XL1°80°* 
1629 13EA 1040 oc AL2(RTN11} 
1041 
38 40 2FFD 1042 Téa RINFLG, X*40° 
CO 10 0216 1043 BT LINK 
38 08 020A 1044 TBN SBYTE2,SSW14 
CO 10 0216 1045 BT LINK 
CO 87 24EA 1046 B CHMODX 
CO 87 19F9 1047 B SETUP 
CO 87 O21A 1048 B PRINT 
01 140T 1049 OC XL1¢°OL® 
1F 1408 1050. oC. TL1*318 
2833 140A 1051 pc AL 2(HEADI0) 
38 10 020A 1052 TEN SBYTE2,SSW13 
F2 90 17 1053 JF RiOST 
C2 02 3AAC 1054 LA SK TOSP «XR2 
34 02 3904 1055 ‘ST CURAIDsXR2 
OC OO 3ADE 2605 1056 MVC AIDEX1-1 (1) » CURDEV 
2C 00 3ADF 00 1057 MVC AIDEX1,O(1,XR2) 
CO 87 iSF9 1058 B SELPEN 
CO 87 1C9A 1059 RLOST 8 SELECT 
CO 87 1AB4S 1060 B DOSIO 
00BB 1432 1061 DC AL2(AIDTILE-AIDT1L} 
431F 1434 1062 OC AL2(XMITE) 
3902 1436 1063 DC AL2(AIDTLE) 
1064 
CO 87 2118 1065 B TRESPL 
C2 02 39E&6 1066 LA AIDTAB;:XR2 
34 02 3904 1067 ST CURAIO.XR2 
CO 87 1FD5 1068 8 FILLFF 
OC 00 3ADE 2605 1069 MVC AIDEX1-1(1)} ,CURDEV 
2C GO 3ADF 00 1070 MYC AIDEX1,0(19XR2} 
OC 11 208D 3AED 1071 MVC EXPBUF4+26(18) ¢ AIDEX2 
3C OO 2FFa 1072 MVI WORK-1,0 
1073 
cO 87 1C39 1974 AIDPOL B DOPGL 
265UNTS 250CT75 15JANT76 L4MAY 76 
825023 825032 825034 825035 


START OF ROUTINE 10 


TEST FOR PRINTER 

SKIP THIS ROUTINE EF So 

TEST FOR NO KEY BOARD 

SKIP IF SO 

GO TEST FOR MODEL 4, SKIP IF SO 
GO 0C INITIAL HOUSEKEEPING 

GO PRINT RTN HEADING 


TEST FOR SEL PEN BUT NO KEYBOARD 
JUMP IF KEYBOARD INSTALLED 
POINT TO SEL PEN ROUTINE 


SET EXPECTED FIELD 


GO oO SEL PEN ROUTINE ONLY 
GO SELECT THE DEVICE 


GO WRITE INITIAL PATTERN 


TEST FOR ACK1 RETURNED 

FETCH ADDRESS CF AID TABLE 

STORE IT 

GO FILL EXP RESULTS BUFFER WITH FF 
SET UP DEVICE IN EXP RESULi . 

SET UP ATID IN EXP RESULTS 

SET UP EXP BUFFER FOR IST TEST 
CLEAR CANCEL FLAG 


GO POLL THE DEVICE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 42342541 IBM MAINTENANCE DIAGNGSTIC PROGRAM PART NOw 4234259 
PAGE 3 | co PAGE 9A 
8943 DA FUNCTIONAL TESTS | - 6943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | © ERR LOC OBJECT CODE ADDR STMY SOURCE STATEMENT 
| 
FB 1075 MVC =—- EXPBUF 48(93-ENG PUT POLL IN EXPECTED RESULTS are 153A CO 67 IC9A 1143 WRTERM B SELECT GO RESELECT DEVICE 
ince 3 O2 agos = 1076 L CURAID»XR2 , POINT XR2 TO CURRENT AID TABLE [ 153E CO 87 1AB4 1144 8 pes1o GO WRITE ERROR MESSAGE ON TUBE 
146A 38 10 2658 1077 TBN EORTC ATS UM ee erelus RECEIVED Sse 0051 1 i ae SE 2UAL OTe AID DI 
146E CO 10 1502 1078 BT PS 4 Pee 2 
1472 38 20 2658 1079 TBN = POLFLG,X*208 TEST FOR TEST REQ. REC'D he 1546 39D6 1547 1147 oc AL2 (AIDTSE) 
1476 CO 10 15EA 1080 BT TRR BRANCH IF SO | 1548 CO 87 2118 1148 6 TRESP1 GO TEST CORRECT RESPONSE 
147A 38 40 2658 1081 TBN POLFLGeX*40! TEST FOR AID REC*D 154C 35 02 3904 1149 L CURAID, XR2 RELGAD xR2 
147E CO 90 145C 1082 BF AIDPOL MUST BE E0T, GO POLL AGAIN 14 1550 3D 7E 3ADF - 1150 CLI = AIDEX1 »X* 7E# DOING SEL PEN TEST? 
1083 : 1554 F2 81 C4 1151 JE SPRTY JUMP IF SO. 
1482 6D 00 03 00 1084 cre at seeteotexnet BT rec onmee? AID REC'D 3 7 1557 F2 87 12 lee J NXTAID GO TO NEXT AID TEST 
1486 CO 81 1520 1085 E %, 
1086 155A CO 87 1C9A 1154 NXTKEY B SELECT GO RESELECT DEVICE 
148A 1C 00 2FF9 03 1087 MVC =—s- WORK » 31) XR2) FETCH THE REC*D AID | - 155€ CO 87 LAB 1155 B DOSiO ERASE PREVIOS MESSAGES 
148F C2 01 39£6 1086 CHAID LA ALOTABeXR1 POINT XR1L TO TABLE Me 1562 0008 1563 1156 DC AL2 (AIDT4E-AIDT4) 
1493 1D 00 2FF9 00 1089 TSTAID CLC wORK,0(1,XR1) TEST THE REC'D AID AGAINST TABLE | 1564 431F 1565 1157 oc AL2(XMITE) 
1498 F2 81 OA 1090 JE AIDFND JUMP WHEN FOUND he 1566 3984 1567 1158 DC te let Gai GEST HeMneer ReeonsE 
1498 D2 01 OB 1091 LA L1(,XRLIeXRY INCREMENT TO NEXT ENTRY 7 1568 CO 87 2118 1159 B RESP 
149E 70 40 00 1092 CLI OC ,xXR1D,CE # TEST FOR LAST ENTRY 1160 
fen CO OL 1493 1093 BNE TSTAID— BRANCH IF NOT 4 156C E2 02 08 1161 NXTAID LA 11(yXR2) ¥XR2 INCREMENT XR2 TO NEXT TABLE ENTRY 
1445 1C 09 3944 OA 1094 AIDFND MVC = ALTDRC»20(10,XR1} MOVE THE AID TO THE MESSAGE 156F BD £6 00 1162 CLI = OL XRZD EX" EB! TEST FOR READER TEST (END) 
teach 1096 Oc xtitit Sa a : 1575 €) 87 1A84 les EovOUT BY posto. GO SEND EOT TO DEVICE 
14AE O1 14AE 1096 oc XL ‘ 
14AF 2FF9 14B0 1097 Oc AL2(WORK) | * 1579 0000 157A 1165 oC XL2*0° 
14B1 394C 14B2 1098 OC AL2 (HEXAI0-3) 157B 4201 157C 1166 DC AL2(XMITRC41) 
1099 | 1570 2636 157E 1167 DC AL2( €OT-1) 
1483 CO 87 1C9A 1100 8 SELECT RESELECT THE DEVICE ps 157F CO 87 0216 1368 B LINK GO TO NEXT ROUTINE 
1487 30 6€ 2FFY 1101 CLI WORK» X*6E8 WAS AID REC*D = PA-2(CNCL) 1169 
14BB F2 01 24 1102 JNE NOPA2 JumMP IF NOT ; 1583 2C 09 391F OA 1170 NEWAIO MVC AIDM,10(10,XR2) MOVE NEW AID To MESSAGE 
14BE 30 7E 3A0F 1103 CLI = AIDEX1.X*"7E* DOING SEL PEN TEST? a 1588 3C 00 2FFB 1171 MVI WORK-120 RESET PASS FLAG 
14C2 CO 81 1575 1104 BE EOTOUT EXIT IF SO 158C 34 02 3904 1172 ST CURAID sXR2 STORE NEW TABLE ENTRY 
14C6 38 FF 2FF8 1105 TBN WORK-1,X"FF# WAS THIS SECOND PASS 1173 
14CA F2 90 15 1106 JF NOPA2 JUMP IF NOT 1 ae 1590 CC 87 1F05 1174 B FILLFF FILL EXP RESULTS BUFFER WITH FF 
14CD 30 Fl 3ADF 1107 CLI AIDEX1 »X* FL WAS EXPECTED AID PF-17? | 1594 2C 00 3ADF 00 1175 MVC = AIDEX1 40 (1 ,XR2) SET UP NEW AID FOR EXP RESULTS 
1401 F2 81 O07 1108 JE SKIPTR IF SO SKI© REST OF PFTS | ots 1599 BD 7E 00 1176 CLI = OL» XRZ).X* TE® DOING SEL PEN TEST? See 
1404 30 F6 3ADF 1109 CLI = AIDEX1,X*F6* WAS EXPECTED AID PF~6? | te i59L F2 81 5A 1177 JE SELPEN JUMP IF SO 
1408 F2 01 7F 1110 JNE  NXTKEY GO ON IF NOT 159F BD FO 00 1178 CLI 0 eXR29 0X" FO! IS NEXT AID TEST REQ? 
1408 C2 02 3A6A 1111 SKIPTR LA TRSKIP,XR2 SET XR2 TO SKIP REST OF PFPS lee 15A2 F2 61 16 1179 JE SUTR JUMP IF SO 
140F F2 87 78 1112 J NXTKEY GO ON RESUME WITH TEST REQ [oy 15A5 BB 60 00 1180 TBN =O» XR2P.o X* 608 TEST FOR SHORT READ 
14E2 3A FF 2FF8 1113 NOPA2 SBN WORK-1,-X*FES INDICATE 1ST PASS OONE 15A8 89 90 00 1181 TBF 0(¢XR299x*90° PA KEYS OR CLEAR 
1466 CO 87 LABS 1114 8 posIO GO WRITE ERROR MESSAGE Ps 15AB F2 $90 20 1182 JF NORAD NORMAL AID IF NOT 
1SEA 0057 14EB 1115 oc AL2( AIDT3E-AIDT3) Pe: 15AE OC 03 207F 3ADF 1183 MVC) = EXPBUF+12(4),AILDEX1 SET UP EXP RESULTS FOR SHORT READ 
14EC 431F 14ED 1116 oc AL2(XMITE) 15B4 3C ©3 2080 1184 MVE —- EXPBUF4+13,x*03° 
| 
146EE 3978 14EF 1117 oC AL2( AIO¥3E) os 1588 F2 87 19 1185 J WRTAID GO WRITE PATTERN 
14FO CO 87 2118 1118 8 TRESP1 GO TEST CORRECT RESPONSE iC 15BB OC 02 2D7E 264F 1186 SUTR) MVC) = (EXPBUF*11(3)eTSTREQ MOVE IN TST REQ HEADING 
1119 15C1 3C 02 207F 1187 MVI - EXPBUF412,2 INSERT STX 
14F4 CO 87 1AB4 1120 AIOLP 8B DOSIO GO SEND EOT TO DEVICE a 15C5 OC OB 2088 3AED 1188 MVC =—- EX FBUF424(12) sAIDEX2 
14F8 0000 14F9 1121 oc XL2"08 | * 15CB F2 87 06 1189 J WRTAID GO WRITE PATTERN i 
14FA 4201 14FB 1122 oc AL2(XMITRC#1) 15CE OC 11 2085 3AED 1190 NORAID MVC = EXPBUF4+26(18)¢AIDEX2 MOVE IN NORMAL EXP. RESULTS 
14FC 2636 14FD 1123 DC AL2(EOT-1) 1191 
14FE CO 87 145C 1124 B AIOPOL GO START POLLING AGAIN | CG 1504 CO 87 1C9A 1192 WRTAID 8 SELECT GO RESELECT DEVICE 
1125 1508 CO 87 1AB4 1193 B 00SI0 GO WIRTE NEW AID TO TRY 
1502 BD 60 00 1126 GOPS2 CLI Of »XR2),X*6D8 WAS AID BEING OGNE = CLEAR | i 150C 0018 150D *194 OC AL2CAIOT2E-AIDT2) 
1505 F2 01 10 1127 JNE OOPS1 ERROR IF NOT pees 1SDE 431¢ 15D0F 1195 DC AL2(XMITE) 
1508 38 O8 265A 1128 TBN POLST-1,X*08" TEST FOR BUSY 15E0 3920 15E1 1196 OC AL2(AI1DT2E) 
150C CO 1O 145¢ 1129 BT AI OPC. POLL AGAIN IF SO ! C 15£2 CO 87 2118 1197 8 TRESP1 GO TEST FOR CORRECT RESPONSE 
1510 38 02 265A 1130 TaN POLST~1,x"02¢ TEST FOR DEVICE END 3 15E6 CO B87 14F4 1198 B AIDLP 60 Loop 
1514 CO 10 145C¢ 1131 BY ALDPOL POLL AGAIN IF SO | 1199 
1518 3C 04 262A 1132 OOPS1 MvVI ERRUNX SET UNEXPECTED RESPONSE | LSEA BD FO QO 1200 TRR Cli O(»XR2),X*FO® WAS TEST REQ. EXPECTED 
151¢ CO 87 22Aa7 1133 B ERROR GO TO ERROR ROUTINE ‘. 15ED CO 81 1520 1201 BE AIDOK Ox IF So 
is = 1134 | 15Fl 3C FO 2FF9 1202 MVE =—- WORK,» X*FO* SET UP FOR TEST REQ. 
O OD FF 2E72 42FF 1145 ALOOK CLC = EXPBUF4+255(256)eXMITRC+255 TEST EXP AND ACTUAL KESULTS 15FS CO 87 148F 1203 8 CHAID GO HANOLE ERROR IF NOT 
1526 F2 81 32 1136 JE NXTKEY . 1204 
1529 2C 09 3B0E OA 1137 MVC =O ENCORP(10),10(,XR2) = FIX UP MESSAGE | 15F9 OC O8 2D84 3AE4 1205 SELPEN MVC = EXPBUF+17(9) sAIDEX2—9 SET UP EXPECTEE RESULTS 
152E 87 021A cece B ce GO PRINT FAILING AID KEY le 15FF OC 09 208B 3FFA 1206 MVC = EXPBUF #24(10) »SELPEX 
1532 82 1532 113 oc xXL1°82* mn 1207 
1533 21 1533 1140 DC 1L1°338 | 1605 CO 87 1C9A 1208 B SELECT GO SELECT DEVICE AGAIN 
1534 3B0E 1535 1141 oc AL2( INCORP } | 1609 CO 87 1AB4 1209 B 00s10 PUT SEL PEN PATTERN ON 
1536 CO 87 1LFES 1142 8 PXREXA GO PRINT EXP. € ACTJAL RESULTS | C: 1600 0001 160E 1210 Oc AL2( ALDT6E-AIDT6) 
BATE. 255JUNT7S 250CT75 L5JAN76 LOMAYT6 PROG ID or ae al C DATE 263UN/5 250CT75 1SJANT6 14MAYT6 PROG ID 0894-3 
EC NO. 825023 825032 825034 825035 PAGE 91 EC NO. 825023 825032 825034 825035 PAGE 9A 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 
ERR LOC 


L60F 
1611 
1613 
1617 


1618 
1l61F 
1621 
1623 
1625 


1629 
162A 
1628 


162D 
1631 
1635 
1639 
1630 
1641 
1645 
1649 
1640 
1651 
1652 
1653 
1655 
1659 
165D 
L65F 
1661 
1663 
1667 
166D 
1671 
1675 
1679 
1670 
1683 
1689 
168F 
1693 
1696 
169C 
L6A0 
16A6 
16AC 
1680 
16B3 
16B9 
1680 
16C3 
16C9 
16CC 
1600 
1604 
1607 
1608 
16DF 
16€3 
L6E7 
16EB 
16EF 


OATE 
EC NO. 





DA FUNCTIONAL TESTS 


OBJECT CODE 


431F 
3FCO 


co 
co 


co 


87 
87 


87 


002F 
431F 
3FFO 


co 


11 
BO 


87 


17C4 


38 
co 
39 
co 
co 
38 
co 
co 
co 
Ol 
20 


40 
10 
18 
90 
87 
ol 
10 
87 
87 


2860 


co 
co 


87 
87 


ooDdDé 
431F 
3047 


co 
Oc 
co 
30 
co 
co 
oc 
oc 
oc 
38 
F2 
oc 
3c 
oc 
oc 
x 
F2 
oc 
3c 
oc 
OD 
F2 
co 
30 
Fe 
38 
co 
30 
co 
38 
co 
co 


87 
00 
87 
6E 
81 
87 
00 
08 
08 
20 
90 
02 
02 
02 
19 
03 
87 
19 
03 
00 
FF 
81 
87 
6E 
81 
20 
10 
70 
87 
20 
10 
87 


2118 
16F4 


1AB4 


14F4 


2FFD 
0216 
O20A 
0216 
24EA 
OAOC 
0216 
19F9 
O21A 


IC9A 
1AB4 


2118 
3E95 
1735 
2659 
1756 
1FO5 
3E96 
2078 
2084 
26£0 
iD 

207E 
2D7F 
2082 
209C 
2090 
OA 

2D09E 
2D SF 
2661 
42FF 
18 

1783 
2659 
10 

2658 
17A5 
2659 
1455 
2658 
0216 
1C9A 


26J5UNTS 


825023 


2605 


2659 
25FB 
3E9B 
264F 
ZE98 
3D8D 
3CCF 


2659 
2E72 


ADDR 


1610 
1612 


1620 
1622 
1624 


1629 
162A 
162C 


1651 
1652 
1654 


165E 
1660 
1662 


250CTT5 


825032 


STMT 


(2k 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 


SPRTY 


DC 
oc 
& 
B 


B 
OC 
oc 
DC 
B 


SOURCE STATEMENT 


AL2(XMITES 
AL2(ALDT6E} 
TRESP1 
AIDLP 


DOSIO 
AL2(AEDTTE-AIDT7; 
AL2 (XHITE} 
ALZ(ALOT7E) 

AIDLP 


PART NO. 
PAGE 


4234 


GO CHECK RESPONSE 
GO WAIT FOR RESPONSE 


WRETE RETRY ON TUBE 


RETURN TO LOGP 


259. 
10 


122], EUREHSERESEREEESSESEAKEREE REESE ESE RERT EEREETEREREEREEEREEEREEKTERERREEE ERE 
THIS ROUTINE CHECKS THAT THE KEYBOARD CAN CORRECTLY ENTER 
BOTH UPPER ANN LOWER CASE ALPHABET CHARACTERS. 


1222 * 
1223 * 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1246 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 RILTE 
1265 

1266 CONDE 
1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 R11LGO1 
1277 


RTHLL 


RLIRT1 


RILPL 


1278 R1IKT2 B 


LSJAN76 
825034 


oc xXLi*11° START OF ROUTINE 11 

oc XL1*80°* 

OC AL2(RTN12) 

TBN RTNFLG»X*40* IS THE DEVICE A PRINTER 

BT LINK SKIP THIS ROUTINE IF SO 

TBF SBYTE2.SSW14+SSW13 TEST FOR NO KEYBOARD 

BF LINK SKIP IF SO 

8 CHMODX GO TEST FOR MODEL 4, SKIP IF SO 
TBN LINES»sX*O1! TEST FOR KATATKANA INSTALLED 
BT LINK SKIP THIS ROUTINE IF SO 

B SETUP GO DO HOUSEKEEPING 

8B PRINT GO PRINT RYN HEADING 

DC XLL*GL® 

oC TLi'45* 

oc AL2(HEADLi} 

5 SELECT 60 SELECT THE DEVICE 

8 DOSIGO GO WRITE PATTERN FOR KEYBOARD TST 
oc AL2(RLIPLE-RILPL) 

oC ALZ2(XMITE} 

BC ALZ(RIIPLE) 

B TRESP1 GO TEST CORRECT RESPONSE 

MVC RLIEXI-1(1) ,CURDEYV PUT DEVICE IN EXP. RESULTS 

8 R11 POL GO POLL DEVICE & ‘WAIT 

Cul AID," 6E* WAS THE RESPONSE CNCL? 

BE RELUNL IF SOs GO UNLOCK & POLL MORE 
6 FILLFF FILL EXP. BUFFER WITH FF 

MYC RILEX1(¢13,A10 FILL IN EXPECTED AID 

MVC EXPBUF+6( 9) ,ENQ FILL IN POLL PGRTIOGN OF BUFFER 
MYC EX PBUF+1L7(9)-RLIEX2 FILL IN 1ST PART OF RESPONSE 
TBN POLFLG oX*208 WAS TST REQ. REC*D 

JF RITE JUMP IF NOT 

MVC EX PBUF+11(3),TSTREQ MOVE IN TST REQ. HEADING 

AVI EXPBUFtL2 52 MOVE IN STX 

MVC EXPBUFt+15(3) ,RLLEX2 

MVC EX PBUF4+41(26).UCP UPPER CASE EXPECTED 

MVI EXPBUF+42 43 INSERT ETX 

J CONDF 

MVC EXPBUF443(26),LCP LOWER CASE WAS EXPECTED 

MVI EXPBUFA44 ,3 INSERT ETX IN EXP. RESULTS 
MVC SAVAID(1L) ,AIO SAVE THE AID CHAR. 

cLe XMITRC#+255(256),EXPBUF +255 CHECK RESULTS CORRECT 
JE R11G01 JUMP IF SO 

B RIIER OOPS, ERROR GO HANDLE 

CLI AID, X*6E® WAS THE AID — CANCEL? 

JE R11G01 IF SO GO TO NEXT PART 

TBN POLFLG +X*#208 WAS TST REQ. REC*D 

BT RILLPA RETURN TO POLL IF SO 

CLI AIDsX*708 WAS AID CHAR ENTER 

B RLIRTL GO RETRY IF SG 

TBN POLFLG,X*20° WAS TST REQ. REC'D 

BT LINK OONE IF SQ 

SELECT GC SELECT AGAIN 

L@MAY 76 PROG ID 089 
825035 PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN 


PART NO. 234259 
Pe PAGE 10A 
& 
8943 DA FUNCTIGNAL TESTS 
“ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
“ 16F3 CO 87 1AB6 1279 & poste HRITE NEW PATTERN 
16FT 0067 16F8 1280 DC - ALZERLIPZE-R11P2) 
16F9O 431F L6FA i281 DC AL2EXMITE) 
16FB 3DAF L6FC 1282 DC AL2(RLIPZE) 
16FD CO 87 2118 1283 8 TRESPL GO CHECK RESPONSE 
2701 CO 87 1735 1284 RLLPB 8B RLLPOL GG POLL & WAIT FOR RESPONSE 
1705 30 70 2659 1285 Ri1B- CLI AIDexX*7D* WAS ENTER REC*D 
1709 CO 01 1756 - 1286 BNE RILUNL IGNORE IF NOT 
270D OC 19 2D9E 308D 1287 MVC = EXPBUF 4 43126) ,UCP MOVE UPPER CASE TO ExP BUFFER 
be 1713 OD FF 42FF 2£72 1288 CLC) =XMITRC#255(256).e EXPBUFt4255 CHECK FOR CORRECT RESULT 
te 1719 CO 81 0216 1289 BE LINK DONE IF SO 
1290 
171D CO 87 1783 1291 8 RLLER GO TO ERROR ROUTINE 
1721 30 7D 2659 1292 CLI AID »sX*7D* WAS ENTER REC'D 
1725 CO 81 16EF 1293 BE RLIRT2 IF SO GO RETRY 
fs 1729 3D 6E 2659 1294 CLI AIDeX*6E® WAS AID = CNCL 
s 172D CO O01 17A5 1295 BNE RLILPA RETURN TO POLLING IF NOT 
1731 CO 87 0216 1296 B LINK DONE IF CNCL REC*O 
‘ 1297 
C3 1297 
1297 
‘ 1298 * SUBROUTINE TO POLL FOR ROUTINE Ll. ~ RETURNS WHEN TST REQe, CNCL OR 
© 1299 * ENTER ARE DETECTED. ANY STATUS CAUSES ERROR 
1300 
sa 1735 34 08 1776 1301 RLIPOL ST R1LLPOR4+3-ARR STGRE RETURN ADDRESS 
ae 1739 CO 87 1639 1302 R11P B DOPOL GO POLL THE DEVICE 
173D 38 10 2658 1303 TBN POLFLG.Xx*10¢ WAS STATUS REC'D 
ee 1741 F2 10 33 1304 JT R11CB GO CHECK FOR BUSY. ERROR IF NOT 
t 1744 38 20 2658 1305 TBN POLFLG,X®20° WAS TEST REQ. REC'D 
1748 F2 10 28 1306 JT RLLPOR IF SO. RETURN 
174B 38 40 26548 1307 ‘TBN POLFLG,»X*4O8 WAS AID REC*D 
174F F2 10 12 1308 sT RLLAT 
17F2 CO 87 1739 1309 8 RiP GC POLL AGAIN 
= 1756 CO 87 iAB4 1310 RILUNL B DOSIC GO UNLOCK KEYBOARD 
%. 175A 0004 175B 1311 pc AL2(UNLOCE-UNLOCK) 
175C 431F 175D 1312 Do ALZUXMITE) 
oh 175E 30F5 L75F 1313 BC AL2(UNLOCE} 
ae: 1760 CO 87 1739 1314 B RiP RETURN TO POLLING 
1764 3D 70 2659 2315 RLLAT CLE AID,xX*7D* WAS ENTER REC'D 
” 1768 F2 B81 08 1316 JE R1ilPGR EXIT IF SO 
= 1768 3D 6€ 2659 1317 CLI AID,X*6E* WAS CNCL REC'D 
176F CO 90 1756 1318 BF RILUNL UNLOCK & RETURN TO POLL IF NOT 
6 1773 CO 87 OCOD 1319 R1LLPOR 8 nk RTN TG USER IF TST REQ. ENTER, CNCL 
2 1320 - - 
1777 39 OA 265A 1321 RL1CB YBE POLST-1-X*OAt TEST IF BOTH DB AND DE ARE OFF 
oe 1778 CO 90 i739 1322 BF R11P POLL AGAIN IF NOT 
{2 177F CO 87 1518 1323 B OOPS1 ERROR IF BOTH CB AND DE ARE OFF 
1324 
ay 1324 
CG 1324 
1325 * SUBROUTINE TO HANDLE ERROR FOR ROUTINE 12. CAUSES YTRANSMIT/REC 
sn 1326 * & EXPECTED RESULTS TO BE DUMPED ON PRINTER AND ALLOWS CE OPTION 
oo 1327 * CANCEL OR RETRY. 
1328 
te 1783 34 08 17C3 1329 RLIER ST RLLERR+3,ARR STORE RETURN ADDRESS 
& 1787 CO 87 O21A 1330 B PRINT GO PRINT MESSAGE 
178B 81 178B 1331 oc XL1°61* 
ys 178C 21 178C 1332 DC TLi*33e 
ae L78D 3£92 L78E 1333 oc AL2(R1L1MG} 
1334 
Pe 178F CO 87 1FES 1335 B PXREXA GO PRINT ACT & EXP RESULTS 
ey 1793 CO 87 1C9A 1336 RLLRTN B SELECT GO SELECT AGAIN 
1797 CO &7 1AB4 1337 8 DOSIO GO WRITE ERROR PATTERN & INSTR. 
re 1798 00A3 179C 1338 DC AL2Z(RLLPZE-RLEPS} 
ee 1790 431 179E 1339 DC ALZ(XMITE? 
179F 3E53 17A0 1340 DC AL2(RLIP3E) 
oa 17Al CO 87 2118 1342 B TRESPL GO CHECK CORRECT RESPONSE 
ce L7A5 CO 87 1735 3342 RLLPA 8B RLLPOL GO POLL DEVICE TO GET RESPONSE 
an 
‘ue DATE 265(.N75 250CT75 15JANT6 14MAY76 PROG 10 0894-3 
EC NO. 825023 825032 825034 825035 PAGE 10A, 
© 
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I6M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4234259 
PAGE Wye PAGE 11A 
8943 DA FUNCTIONAL TESTS | 8943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | “ERR LOC OBJECT CUDE ADDR STMT SOURCE STATEMENT 
| 1343 CLI AID,Xx*7D° CHECK FOR ENTER a 1611 
Ae Pe nt ror ia JE RLIERR EXIT IF SO | f 1871 CO &7 1CS9A 1412 100P13 B - SELECT GO SELECT THE DEVICE : 
1780 3D 6E 2659 1345 Cul AID,X*6e! WAS AID CNCL | 1875 CO 87 182 1413 8 CGNV ER GO CONVERT ADDRESS 
17B4 CO 01 LTAS 1346 BNE RilPpaA GO POLL AGAIN | “ 1879 OC FF 4320 412E 1414 MYC FILL €256),EXBUFE RESTGRE XMIT/REC FIELD FOR WRITE 
1788 3D 00 2661 1347 CLI SAVAID-S WAS Pee GeiNET Te TEST REQ? | 1B7F OC 20 4220 402E 2415 ayvC XMITRC# 32133) ,EXBUFA+2Z6 
INK NEXT ROUT! so { 1416 sans 
i7c0 oo 37 booG i349 RILERR B aa RETURN TO USER ' r- 1885 CGO 87 LABS 1417 B DOSIo GO WRITE ENTIRE BUFFER vf 
1350 ####ESEESREREEESERARER ERE SSES ARES REHEARSE RRR ESRRETRRETES EET EER TEER [ 1889 oCcCO 188A 1418 PLENG OC XL2¢ 0000" PATTERN LENGTH 
1351 # THIS ROUTINE PUTS OUT AN END OF TEST MESSAGE ON THE DEVICE * 188B 4SC4 188C 1419 oc AL2(XMITRC+1988)} 
1352 #EE SEREEREEE SESE SRS SEES SEARS EAEEAEEAEAAE LER EDIE BER SERS EEEREEER ELS OFFERS a 188D 4980 188E 1420 DC AL2(XMITRC+1920) 
1353 oN: 1421 
1704 12 17C4 1354 RTN12 DOC KLIS12¢ START OF ROUTINE 12 188F CO 87 2118 1422 B TRESPL GO TEST CORRECT RESPONSE 
17c5 00 1705 1355 BC XL1°OOG* oot 1423 ‘ 
17C& 1806 17c7 1356 oc AL 2(RTN13) PGINT To EXCERCISER i : 1893 OC FF 412E 4320 1424 SAVEX MVC EXBUFE (256) ,FILL SAVE XMIT/REC FIELD 
1357 ! 18S9 OC 20 402E 4220 1425 MVC EXBUF+26(33) »XMITRC4#32 
17C8 CO 87 19F9 1358 8 SETUP GO 0G HOUS EXEEP ING ly 189F 3C FF 4320 1426 MVI FILL eX*FFS RESTORE FILL CHAR 
oon te6 ne Fein Sere eee | i 18A3 CO 87 1C9A pe B SELECT GO RESELECT 
1700 06 1700 1360 
17D1 24 1701 1361 ee A Cate , : cae .. 87 iDBB sean vee a cities GO READ BUFFER 
17D2 2884 1703 1362 H ‘ 
1704 OC 01 3€70 25CF 1363 MVC EJMG(2),DEVICE PUT DEVICE IN PATTERN | 18AC 0000 18AD 1431 CONADR OC XL2* OO! EXPECTED CURSOR AODORESS 
17DA CO 87 ILCSA 1364 B SELECT GO SELECT ‘ 1432 
17DE CO &7 1AB4 1365 8 DOSsIO GO WRITE PATTERN | % 18AE OF 01 4134 262D 1433 SLC CURRIP(2),0NE UPDATE RIPPLE START ADDRESS 
17E2 OO1D 17E3 1366 oc AL 2(RL2PE-R12P ) 1 18B4 OD 01 4134 4136 1434 cic CURRIP(2),RIPEND AT END YET? 
17ES 431F 17E5 1367 oc AL2(XMITE} a 18BA F2 01 06 1435 JNE UPHEX 
1VE6 3E71 17E7 1368 DC ALZ(R12PE) A 18B8D OC O1 4134 4138 1436 MVC CURRIP(2),REIPRST REINITIALIZE RIPPLE ADDRESS 
17E8 CO 87 2118 1369 B TRESP1 GO CHECK RESPONSE ! 18C3 GE 01 4130 262D 1437 UPHEX ALC HEXADR(2).GNE INCREMENT HEX ADDRESS 
17EC CO B87 LABS 1370 8 basio GO SEND EQT od 18C9 OD 01 4178 4130 1438 cLc EADR{ 2) »HEXADR ARE WE DONE? 
17FO 0000 17Fl 1371 oC xXL2°00! frees! 18CF CO O1 1871 1439 BNE LooPp13 . L002 TF NOT 
17VF2 4201 17F3 1372 oc AL2(XMITRC#1) | 18D3 OF O21 4130 4130 1440 SLC HEXADR(2),HEX ADR RESET HEX ADORESS 
1TF4 2636 1L7FS 1373 oc AL2(EOT-19 re pee 1809 CO 87 0212 1441 B TEST GO CHECK CONSOLE SWITCHES 
1374 ra 18DD CO 87 1871 1442 B L0ooP13 RESTART 
17F6 CO 87 L7FA 1375 B ENDRT 1443 . | 
LTFA 3C 00 OAO3 1376 ENORT MVI PRIN,O RESET PRESENT ROUTINE NUMBER 1443 
17FE 3C FF 260E 1377 MVE -RESTFLsX* FES SET FLAG TO DENOTE PGM LOoP | © 1443 eS ee 
1802 CO 87 0000 1378 B x*or RESTART AT ADOR 0 | 1444 % SUBROUTINE TO CONVERT HEX ADOR TO GRAPHIC ADOR 
L379 HEY REREEREREAE TRESS ERD SEEEEREE ER ESS EES ERERE SEES RERERESERERER EER EEE RREES z 1445 
1380 * THIS ROUTINE IS A MANUALLY SELECTED EXCERCISE. IT WRITES AND * {3 18£2 34 08 1958 1446 CONVER ST CONVR+3,ARR STORE RETURN ADDRESS 
1361 * READS RIPPLE DATA TO AND FROM THE DEVICE. THE CURSOR POS. AND * 18E5 OC 00 18AD 4130 1447 MVC CONADR(1),HEXADR MOVE LOW BYTE 
1382 * THE DATA ARE CHANGED EACH PASS THROUGH. THIS ROUTINE WILL * 18EB 38 80 18A0 1448 SBF CONADR,X*808 FORCE HI BrT OFF 
1383 * LOOP CONTINGUSLY ONCE IT IS ENTERED. et 18EF 34 +0 18AD 1449 SBN CONADR,X* 408 FORCE BIT 1 ON 
1384 REWER ERERERERES EEE ES EE EERESEES ERA TELERE SERGE RAS EETEREARER GREE SEER ESE EEE 1450 
1385 feet 18F3 OC O1 2FF9 4130 1451 MVC WORK (25 »HEXADR MOVE HEx ADDR +0 wORK SPACE 
1806 13 1806 1386 RTN13 OC XLI‘13" ROUTINE 13 | f. 18F9 OE O1 ZFF9 2FFS9 1452 . ALC WORK(2) WORK SHIFT LEFT 2 BITS 
1807 QO 1807 1387 oc XL1*008 L8FF OE O1 2FF9 2FF9 1453 ALC WORK (2) »WORK 
1808 FFFF 1809 1388 OC XL2¢*FFFF® | i 1905 38 €0O 2FF8 1454 SBF WORK-1-5X*EO® RESET HI 3 BITS 
1389 i ka 1909 3A 40 2FF3 1455 SBN WORK~1,X"4O* FORCE BIT 1 ON 
180A CO 87 19F9 1390 B SETUP GO 00 INITIAL HOUSEKEEPING 190D OC 00 16AC 2FFS 1456 MvC = CONADR-1(1) »WORK-1 MOVE HI BYTE OF ADDRES 
180E OC O7 4207 4015 1391 MVC XMITRC+7(8) ,EXBUF+1 INITIALIZE XMIT/REC FIELD | a 1913 3C OO 2FFS 1457 AVI WORK,O USE WORK AS INDICATOR 
1814 OF O1 4130 4130 1392 SLC HEXADR (2), HEXADR RESET HEX ADDR To BE USED { (> 1917 C2 O21 18AC 1458 LA CONADR~] »XR1 POINT XR1L TO HI BYTE 
181A OC O1 4134 4132 1393 MVC CURRIP(2),RIPST POINT TO START OF RIPPLE DATA 1918 79 GF OO 1459 XLATZ TBF 0(,XR1) ,X*OF® ARE ALL LO BITS OFF 
1820 C2 01 4243 1394 LA XMITRC+67 -XR1 POINT XRL TO 1ST DATA POSITION ph LOLE F2 lo 18 1460 st LOZER JUMP IF SO 
1828 4C 38 00 4176 1396 FILAGN MVC 0(60,XR1L}sEXRIPE FILL XMIT/REC FIELD WITH RIPPLE DATA 1924 F2 90 06 1462 JF DLTOS LO BITS = 1 To 7 IF NOT 
182D 02 01 3C 1397 LA 60 +XR1) eXR1 INCREMENT TO NEXT 60 iin, 44,3 1927 79 06 00 1463 TAF Ol sXR2)eX*06! ‘BIT 293 OFF? 
1830 O£ 00 2FF9 2620 1398 ALC WORK( 1) ONE INCREMENT COUNTER j\ 192A F2 90 13 1464 JF TLON TRANSLATE DONE 1F NOT 
1836 CO 20 1828 1399 BNOL FILAGN LOOP TILL FIELD IS FULL 192D 7D 61 60 1465 DLTO9 CLI Ol ,XRL}.X*6L? TEST FOR 61 
1834 OC 01 4178 4179 1400 MVC = EADR 1.2) »E MOD SET UP FOR MOD 2 Is 1930 F2 81 OD 1466 JE TLON DONE IF $O 
1840 OC 01 188A 417F 1401 MVC PLENG(2).MOD2L INSERT MODEL 2 LENGTH oe 1933 7A 80 00 1467 SETHIN SBN O(eXR1) eX*80° FORCE HI BIT ON 
1846 38 60 ZFFO 1402 TBN RTNFLG»X*808 TEST FOR MODEL 2 1936 F2 37 O7 1468 J TLON DONE 
184A F2 10 10 1403 JT SM2 JUMP IF SO r 1939 78 70 00 1469 LOZER TBN 04,XR1),X* 70° TEST BITS 1,2,3 ON 
1857 OC 01 188A 417D 1406 MVC] - PLENG(2) »MODEL INSERT MODEL 1 LENGTH Ms 1943 3D 00 2FF9 1472 CLI WORK,O 1S THIS FIRST PASS THRU 
1861 CC FF 412E 4320 1408 MVC) = - EXBUFE (256), FILL S-VE THE WRITE BUFFER | 1948 CO 81 191B 1474 BE XLATE REPEAT IF 1ST PASS 
1867 OC 20 402E 4220 2 VG’  EXBUF #26 (35). sKRETRC #32 . Eg 194F OC Ol 4014 18AD 1475 MVC EXBUF (2) eCONADR PUT CONVERTED ADDRESS IN WRITE CMD 
1860 3C FF 4320 1410 MVI FILL) X*FF RESTORE FILL CHARACTER ; & 1955 €O 87 0000 1476 CONVR B *-2 RETURN TO USER 
| - 
! 
DATE 26JUN75 250C 175 1S JAN76 14MAY76 PROG ID 0894-3. © pate 26JUN75 250CT75 15JAN76 14MAY 76 PROG 10 0894-3 
EC NO. 825023 &25032 825034 825035 PAGE Il | EC NOw 825023 825032 825034 825035 PAGE LLA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN PART #0. 4224259 IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART #0. 4234259 
PAGE eae rc é PAGE 12a 
8943 DA FUNCTIONAL TESTS 8943 OA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
1478 FERESESEAEERESEEHEERSREKESERKASAHKRE KEELE : we LA2i 268E 1A22 1543 DC AL2 (WARN} 
1479 * SUBROUTINE TO INCREMENT DEVICES KEKKSESERESKEEKEKAARKEKSESERRAEKRARREKEKE | 1A23 CO 8T G222 1544 B 7 HALT GO HALT 
1480 SEEM SEKKSEREKKAKKRESEAKLKKKERE SEEKERS ES | 1LAZ7 89FE LA28 1545 oC ML2*89OFE? HALT FE 
1481 a 1546 
1959 34 08 19F5& 1482 UPDATE ST UPDR+3eARR STORE RETURN ADDRESS ! c 1A29 C1 58 1A30 1547 TRDY TIG NGRDY»NGTRDY TEST HICRO CONTROLLER RUNNING 
1950 C2 62 GO000 1483 RINXR2 LA #—% gXR2 REINITIALIZE XR2 LA2D F2 87 06 1548 J MICRON JUMP IF RUNNING 
1961 3C 00 2660 1484 MVE CONFLG.O RESET THE CONFIG. FLAG 1A30 F3 58 80 1549 NORDY SIO X*80',SIOI DISABLE ATTACHMENT 
1965 OF O1 2665 2633 1485 GOUP ALC CURDEV{2).DEVINC UPDATE CURRENT DEVICE ADDRESS 1A33 F3 58 EO 1550 SIGs X$ EO »SIOI ENABLE, START MICRO 
1968 38 &0 2607 1486 JBN LENE, X*#808 TEST FOR 1ST LINE SELECT 1436 F3 88 CO 1551 MICRON SIG ENABLE »CNTRL ENABLE DA 
196F F2 90 08 1487 JF T2 1A39 35 AO 2616 1552 L AINT2¢ ITARZ LOAD INTERRUPT ADDRESS REG 
1972 3A 80 2605 1488 SBN CURDEV,xX*80* CHANGE Hi BITS TOC OR D 1A30 CO 87 0000 1553 SETUPR B €-* RETURN TO USER 
1976 3A 89 2604 1489 SBN CURDEV-1 »X*80* L554 FEREEKEKEAEEEES KEERERKERERESAKESEKEESRSESAKAKKHEKREKKRERKERGRER 
197A 38 OA 2605 1490 ¥2 TBN CURDEV,X'OA® ARE LO BITS OF ADDR = A | oe 1555 * SUBROUTINE TG MODIFY OR RESTORE WORD OLFE OF MICRO CODE *#848e8820K0 
197E 39 05 2505 1491 TBF CURDEV,X*O5¢ ie 1556 FEREKESSERERERSEERERESEEEEERSEEREHEAERESE SSS ESSERE EREESERCEEEDS 
1982 F2 90 08 1492 JF 3 JUMP IF NOT ‘ 1557 
1985 3B 80 2605 1493 SBF CURDEV,X*80°* CHANGE HI BITS TO 4 OR 5 LAG1 34 08 1LAAB 1558 MODST ST MODSTR4+3,ARR STORE RETURN FOR MODIFYING MICRO 
1989 3B 80 2604 1494 SBF CURDEV-1,X*80° 1A45 OC 91 LAST 3CG6E 1559 MVC = MODIFY4+3(2)> ASSNG GET ADDRESS OF SSN6 WORD 
198D 38 01 2607 1495 13 TBN LINEsX*O1* ARE WE AT THE LAST LINE BIT ' 1A4B 3C FE 3C3A 1560 MVI STFLG,X*FES SET FLAG TO INDICATE MODIFIED 
1991 F2 90 OF 1496 JF T4 ne LAGE F2 87 OE 1561 J DISABL 
1994 E2 02 01 1497 LA 1(_XR2},XR2 INCREMENT XR2 TO NEXT FLAG BYTE KS 1562 
1997 34 02 1960 1498 ST RINXR243 9X22 SAVE THE ADDRESS 1A52 34 98 1AAB 1563 FIXST ST MODSTRE3~,ARR STORE RETURN FOR RESTORING MICRO 
199B 3C 80 2607 1499 MVI LINE »X' 808 START AT BIT 0 AGAIN Oo 1A56 OC O1 LAG? 3C70 1564 MVC MODI FY4+2(2) ,ABDGRY SET ADDRESS OF RESTORE WORD 
LO9F F2 87 22 15006 J ADOOK aN IASC 3C O1 3C3A 1565 MMVI -STFLGeX*O1* SET TO INDICATE BEING RESTORED 
19A2 3D SE 2605 1501 T4 CLI CURDEV,X*5E* DID WE JUST BO LAST DEVICE 1460 F3 5B 80 1566 DISABL SIO X*80',SIOI OISABLE 
19A6 F2 01 O07 1502 JNE DE VOK JUMP IF NOT ch 1A63 F3 58 CO 1567 Sid X*COt Stor ENABLE ATTACHMENT 
19A9 3C FF 260F 1503 MVI DONE, XKtFE® SET THE DONE FLAG h 3 1A66 OF O1 2FF9 2FF9 1568 SLC WwORK(2),WORK SET WORK SPACE TG ZERO 
19AD F2 87 45 1504 J UPDR EXIT 1A6C 30 58 3C33 1569 SNSLP SNS  SNSARE,CTRSTG SENSE TO INCREMENT ADDRESS 
1980 30 02 2606 1505 DEVOK sVI LINE-1,X*02° LOAD THE SHIFT STOPPER i 1AT70 OE O1 2FFS 2620 1570 ALC WORK( 2) ,ONE INCREMENT COUNTER 
19B4 OF O01 2607 2607 1506 SHIFTR ALC LINE( 2) ,LINE SHIFT LINE LEFT ms 1A76 C1 5D LAAC 1571 TIG OOPS4,ATICHK TEST “OR ATTACHMENT CHECK 
19BA CO 20 19B4 1507 BNROL SHIFTR BRANCH TIL OFLO OCCURS LATA OD Q1 2FF9 3035 1572 CLc WORK(25 »XCLFE DID WE GET TO THE ADOR YET? 
1i9BE OC 00 2607 2606 1508 MVC LENE (1) pLINE~2 LINE IS NOW SHIFTED PIGHT ONE BIT | s LASO CO OL LAC 25723 “BNE SNSLP LOOP TIL WE 30 
19C% C2 91 2607 1509 ADDOK LA LINE,XR1 POINT XRi TC LINE POINTER | = 1A84 31 58 0000 1574 MODIFY LIO *.CTRSTG DATA AT O1FE GETS CHANGED 
19C8 1C GO 6C97 00 1510 MYC SFiti,Ol1eXR1) SET IMMELIATE INSTRUCTIONS 1A%8 30 58 3C39 1575 SNS BDGRIN:CTRSTG GET CONTENTS OF WORD AT OLFEF 
19CG 1C GO 19EC 00 1511 MVC) =~ TOGL 4b OCLs XRD} Doe 1A8C CL 5D LAAC 1576 TIG COPS4sATTCHK TEST FOR ATTACHMENT CHECK ot et 
1512 {3 2490 38 OL 3C3A 1577 TEN STFLG,X*tors CHECK FOR RESTORE 
1512 ; 1A94 3C FF 3C3A 1578 HYE STFLG X* FFE 
1902 CO 87 O21E 1513 B UNPACK UNPACK THE DEVICE CODE 1A98 F2 90 04 1579 JF ENABL JUMP IF MODIFYING STG. 
19D6 O1 1906 1514 oc TELL®L1¢ toa 1A9B 3C 00 3C3A 1580 MVI STFLG,O INDICATE STG OKAY AGAIN 
19D7 2605 1908 1515 oc AL 2(CURDEV} | 1A9F F3 58 89 1581 ENABL SIO xX*80*.SIOI DISABLE AGAIN 
1909 25CF 19DA 1516 DC AL2 (DEVICE) he ee 1AA2 F3 58 EO 1582 SIQ X*€O*,SIOI START MICROCONTROLLER AGAIN 
1908 OC O1 256A 25CF 1517 MVC LOGDEV(2} ,DEVICE MOVE DEVICE TG LOG OUT FIELD | €. LAAS F3 88 CO 1583 SIG ENABLE,CNTRE GO ENABLE BSCA 
19El OC O1 31LAE 25CF 1518 MVC = ALC. 2) ,DEVICE INITIALIZE DEVICE IN TEST PATTERNS 1AA8 CO 87 0000 1584 MGDSTR B +~* RETURN TO USER 
19E7 34 02 1960 1519 ST RINXR243,XR2 STORE XR2 VALUE lo 1585 
1520 C3 LAAC 3C OS 2624 1586 oOPS4¢ MMVI ERRsATTCH SET ATTACHMENT CHECK 
19EB B88 GO OO 1521 TOOL TBN = OL p XRZ} HE TEST DOING THIS DEVICE 1ABO CO 87 22A7 1587 B ERROR 
19EE F2 10 04 1522 JT UPDR OKAY IF SG — 1586 *#kseeeeseeseseseceeeas 
19FL CO 87 1965 1523 B GouP SET UP FOR NEXT 1 €> 1589 * 00 SIO SUBROUTINE KESLASESKECKKKSSSELEKSESLERSEKERE CE SERS TESTES CEEEKEKESKES 
1524 L590 Skee SEEKER EESSECEESSESESE 
19F5 CO 87 6000 1525 UPDR 8B +-% RETURN TO USER | 159} 
1526 ! © LAB4 34 O08 1884 1592 DOSIO ST DOSIOR+3,ARR STORE RETURN ADDRESS 
1526 | 1ABB 34 02 1880 1593 ST REST2434,XR2 STORE XR2 
1526 ae 1ABC 35 O01 1884 1594 L COSTOR+3,XR1 POINT XR1 AT PARAMETERS 
LS27 FERRER SEES ERE ER EERE RR ERRE AS EEE EERE REE REC RK KE 5 1ACO OC 25 2590 2591 1595 MVC LOGMSG(38) »4SGBLK BLANK OUT THE MESSAGE FIELD 
1528 * SUBROUTINE TQ OU INITIAL HOUSEKEEPING IN EACH ROUTINE ¥**eteeeeeaeee LAC6 OC O1 256A 25CE 1896 MVC LOGDEV(2),DEVEICE INSERT THE DEVICE IN MESSAGE 
L529 FHEKSSSSEREEEREEESEREES AEE EE SESE RHAERERKSKEEAEREGEAERASEASSE ge 1ACC OC O07 2590 2806 1597 MYC LOGMSG{(8} »=NGERR MOVE IN NO ERROR MESSAGE 
1530 ow 1AD2 OC 03 259E 2657 1598 MVC LOGST (4) gXXXX *X® OUT DATA 
19F9 34 O08 LA4O 1531 SETUP ST SETUPR43,_ ARR STORE RETURN 1AD8 OC 03 25A8 2657 1599 MVC LOGCAR(4} o XXXX 
19FO 3C OO 3FFB 1532 MVi MICPFL,O RESET MICRO POLL FLAG IF LEFT oN 1ADE OC 03 2582 2657 1600 MVC LOGTAR(4) eo XXXX 
1A01 3C FF 4320 1533 MVI FILL ,XtFFt REINITIALIZE FILL CHAR FOR XMIT/REC 1AE4 OC 03 25BC 2657 L602 MVC LOGSAR(4) gXXKX 
LAOS 3D 00 3C€3A 1534 CLIO STFiG IC WAS STG MODIFIED? LAEA OC O1 261C 261k 1602 MVC LTAR(2),LCAR PUT INITIAL CAR INTO TAR LOAD AREA 
1A09 CO OO} 1A52 1535 BNE FEXST GO Fix IT IF SG : IAFO LE O1 261C OL 1603 ALC LTARs1(2,XRi} ADD IN THE DISPLACEMENT 
1A00 3D G2 0A03 1536 CLI PRTNe2 TEST AT RTN 02 3 LAFS5 O€ O1 261C 2620 1604 ALC LTAR(2) ,OQNE ADD 1 HORE 
1A1L1 F2 04 15 1537 JNH TROY JUMP IF RTN OL OR 02 LAFB IC 02 261E 03 1605 MVC = LSARe 3% ZeXRED MOVE IN THE SAR ADDRESS 
1A14 3D 00 2660 1538 cL CORFLG 5G WAS DEVICE CONFIG FLAG SET tae 1B00 C2 02 4200 1606 LA XMITROEeXR2 PUT ADDR OF TRANSMIT/RECEIVE FIELD 
YALB F2 CL OE 1539 JNE TRDY JUMP ITF SO | C3 1607 * INTG XR2 
1ALB CO 87 O21A 1540 8 PRINT 1804 7D 690 00 1608 CLI O( »XR1}-0 TEST FOR xMETRC ALL SET(LENGTH IS 
1LA1F 86 LALF 1541 oC XL1*86¢ PRINT WARNING MESSAGE oe 1807 F2 01 20 1609 JNE  ODATIN GREATER THAN 256} 
1A20 28 1A20 1542 oC IL1* 438 | 0 1BOA 1C O01 1829 05 1610 MVC = MVDATA4+445(2 -XR1) MOVE IN DATA ADDRESS 
{ 
{ 2 
DATE 26JUN7S 250CT75 L5JAN76 L4MAY 76 PROG 1D 0894-3! €” pate 265UN75 250CTT5 LSJAN76 14MAY 76 ProG ID 0894-3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. IBM MAINTENANCE DIAGNOSTIC PROGRAK : PART NOQw 4234259 
PAGE a eo PAGE 3A 
8943 DA FUNCTIONAL TESTS "8943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1BOF 1C 00 1826 O1 1611 MVC = BVDATA41L yo LC ieXRL) MOV® IN THE LENGTH i¢ 1BFO CO 87 22A7 1678 B ERROR . 
1B14 1C 00 1827 O1 1612 MVC = MVDATA#2 91 (1 2XR1) MOVE IN TZE DISPLACEMENT Sea 1679 so : , re 
1819 OC FF 431F 4320 ers ae SiR eet eoy ieee WHOLE XMIT/REC FIELD WITH "FFE { 1BF4 CO 87 00006 meee soso osenaseeicscasessaesieeee ee 
“1B1F OC 1F 4220 4221 6 + , " 
ies sc 00 00 0000 1615 MVDATA MVC = #-*( #-*,XR2},%-% MOVE XMIT DATA TO XMIT/REC. FIELD | €. 1682 * SUBROUTINE TO FILL EXP > RESULTS BUFFER. Seeeeeseenesyeseeseecer sees 
1B2A 3C CO 2611 es DATIN a carer ees cee the ccc t0 ena TuacHmUpes ee CREEKS SERKEEEEEEKEE EE TERREKE 
1B2E 3C FF 2610 161 f i ’ ge a 
1832 3C 00 262A 1618 MVI  ERR»O SET ERROR FLAG TO ZERO t ae 7 a eae ce SETEXP 2 See oe ADORESS 
pea ee base Pee eceiae on SAV ATTACHNENT CHECRS pOnRee Gl 1COO 34 02 1C€34 1687 ST HVXR243,KR2 SAVE XR2 
1620 * i 
AReCAR LOAD THE CAR i 1C04 C2 02 2073 1688 © LA EX PBUF »XR2 POINT XR2 TO EXP BUFF 
i630 31 Sh ocic ieee tro CaAcTAR LOAD THE TAR 1€08 C2 01 4200 1689 LA XMI TRC oXR1 POINT XR1L TO XMIT/REC. FIELD 
1B41 31 89 261E 1623 LIO LSAR~eSAR LOAD THE SAR ie 1COC CO &7 1FDS 1690 8 FILLFF FILL EXP. RESULTS BUFFER WITH FF 
TROY TIO OROPED,NOTROY CHECK MICROCONTROLLER STILL RUNNING ! £ 1691 
Sone Renee ee ° : | 1€10 9C 00 00 00 1692 MVCHR MVC 0(1¢XR2),0(,XR1) MOVE XMIT/REC FIELD TO EXP RESULTS 
1849 F3 8A 02 1626 S1Q —s- ENINTR»s XMITR $10 TO TRANSMIT/REC., ENABLE INTR. |: 1€14 02 01 01 1693 LA 1 ,XRL) eXR1 INCREMENT POINTERS 
1627 | 1C17 €2 02 O1 1694 LA 1(yXR2),XR2 
628 BUSYB TIG €EXIT,BUSY TEST BUSY 1C1A 34 01 2FF9 1695 ST WORK »XR1 SAVE XRI 
iBs0 30 sc 2620 ve : ' SNS SCAR sCAR SENSE THE CAR | 1C1E OD 01 2FF9 1¢30 1696 CLC WORK(2) »MVXR143 TEST FOR END OF MUVE 
1854 30 8A 2622 1630 SNS STAReTAR SENSE THE TAR 1€24 CO 01 1C€10 1697 BNE  MVCHR IF NOTe MOVE ANOTHER 
1858 30 89 2624 1631 SNS SSAR,SAR SENSE THE SAR | 1C28 8C 01 01 2FFB 1698 MVC =: 142 »XR235ACK MOVE IN CORRECT ACK 
1B5C 30 8B 2626 1632 SNS  SSTATsSTATUS SENSE THE STATUS | 1C2D C2 01 06000 1699 MYXR1 LA #—* yXR1 RESTORE XR1 
ieee 30 00 2010 ie un tran biorve inremturt occin ver? | «eam Co 67 vee Iver serexe 6h cet? cETURNTO USER 
1864 3D 00 2610 1634 cul INTFLG 20 - 
1B68 F2 B1 04 1635 JE TSTERR JUMP IF SO | ey 1702 *eeeeeeeeesereeesesesess a careanesed tae clieees 
1B6B 3C OF 262A 1636 SIONIN MVI ERR, NOINT SET NO INTERRUPT ERROR 1 ha 1703 * DO POLL SUBROUTINE *#taea4 ¢¢0¢% 444 600044090000004044408 
186F 30 00 262A 1637 TSTERR CLI  ERR»O TEST FOR NO ERROR 1704 *eeeeeereereeseeseeeeeese 
1873 CO O01 22a7 1638 BNE ERROR BRANCH IF ERROR OCCURRED Q 1705 
1877 OE O01 1884 2631 1639 ALC O0SIOR+3(2),S1X UPDATE RETURN ADORESS 1706 * SETS UP THE FOLLOWING 4 BYTES AS FOLLOWS: 
1B70 C2 02 O000 1640 REST2 LA *-*,XR2 RESTORE XR2 1707 * BYTE 1 POLFLG BIT 0 = 1 = EOT WAS RECEIVED 
1881 CO 87 OO0O 1641 DOSIOR B +--+ RETURN TO USER Oo Ee : es ; = ; = Reet Ree cae peeaneoes 

1642 | =i: - 

1642 1710 * BIT 3 = 1 = STATUS WAS RECEIVED 
1B85 3D FO 3FFB 1643 EXIT CLE MICPFL»X*FO® COING MICRO POLL? fs 17i1 * BYTE Z AID - CONTAINS THE AID CHAR IF BIT 1 OF BYTE 1 IS ON ea kone 
1B89 CO 81 1B6F 1644 BE TSTERR EXIT IF SG | © 1712 * BYTES 3 & 4 POLST CONTAIN STATUS IF BIT 3 OF BYTE 1 WAS ON 
1B8D OE Ol 2622 262D 1645 ALC BCNT(2),0NE ADD TO BUSY COUNTER 1713 
1893 CO AO 18A2 1646 BOL BSYERR ERROR AFTER ABOUT 1 SEC. | se 1639 34 08 1099 1714 DOPOL ST DOPOLR+3 ,ARR STORE THE RETURN ADDRESS 
1897 30 00 2610 1647 CLI INTFLG,O DID AN INTERRUPT OCCUR YET? Pk. 1C3D OC 01 23F8 2651 1715 MVC = =SPFLO(2),POLL SET UP POLL 
1898 F2 61 1C 1648 JE GOTIT JUMP IF SO 1043 OC O1 25FA 2605 1716 MVC} 3=—- PSOE V2) ,CURDEV SET UP DEVICE : 
1B9E CO 87 184C 1649 B BUSYB GO CHECK BUSY AGAIN Ls eo 1049 OF 03 2658 2658 1717 SLC = POLST(4) »POLST CLEAR POLL STATUS, AID. € FLAGS 

1650 | t 1C4F CO 87 0212 1718 8 TEST GO CHECK CONSOLE SWITCHES 
1BA2 3C 02 262A 1651 BSYERR MVI ERR.» BUSE SET BUSY TOO LONG INDICATION | 1719 
18A6 CO 87 22a7 1652 B ERROR GO TO ERROR ROUT INE | f° acee Sael LABS sie ree - pee cae fone GO 0O THE POLL 

1653 MN : bse 
IBAA 3D 00 262A 1654 OROPED CLI —‘ERR,O DID AN ERROR OCCUR | 1059 431F 1C5A 1722 oc AL 2¢ XmITE) 
1BAE CO 01 22a7 1655 BNE ERROR IF SO, GO TU ERROR ROUT. a 1C58 25FB 1C5C 1723 oc AL2(ENQ) 
1BB2 3C OA 262A 1656 MVI  ERR.ATNR SET ATTACH. NOT READY ERROK Lh 1724 
1886 CO 87 22a7 1657 8 ERROR | 1C€50 70 37 00 1725 CLI Ol p XR1L)yX" 37" WAS RESPONSE EQT? 

1658 Bas 1C60 F2 01 07 1726 JNE  TSTAT JUMP IF NOT 

1BB8A 3D 00 2624 1659 GOTIT CLI €ERR,.O OID AN ERROR OCCUR YET? Pv 1C63 3A 80 2658 1727 SBN POLFLGsX*80* SET THE EOT BIT ON 

1BBE CO 82 1B66C 1660 BE BUSYB IF NOT, GO ON 1C67 F2 87 2C 1728 J DOPOLR RETURN 

18C2 CO 87 22A7 1661 B ERROR GG TO ERROR | ¢ 1C6A 4D 02 02 264C 1729 TSTAT CiC 243,XR1L),STATR TEST FOR STATUS RECEIVED 

1662 844440 94669544444208484444 8 rs 1C6F F2 01 OC 1730 JNE TTR IF NOT GO CHECK TST REQ 

1663 * SEND ACK 1 SUBROUTINE Sr ray en ema es ee ee eetes seeeee eee ® 1C72 1C 01 265B 07 1731 MVC = POL ST. 742 y XRD? FETCH THE POLL STATUS 

1664 485088664046 449406 54046404668 wa 1C77 3A 10 2658 1732 SBN POLFLG,sX*10° SET THE STATUS BIT 

1665 N. 1C78 F2 87 18 1733 J DOPOLR EXIT 
1B8C6 34 08 1BFT 1666 GOACK ST GOACKR+3,ARR STORE RETURN ADDRESS | 1C7E 4D 02 02 264F 1734 TTR CLC =—s_- 235 XR1) g TSTREQ CHECK FOR TEST REQUEST 
1BCA CO 87 i AB4 1667 B DOSIG SEND ACK 1 TO DEVICE le 1083 F2 01 07 1735 JNE STAID IF NOTe GO STORE AID 
1BCE 0001 1BCF 1668 oc AL2( ACK1-ACK141) - 1C86 3A 20 2658 1736 SBN = POLFLG»eX*20° SET TST REQ FLAG ON 
1800 431F 1B01 1669 OC AL 2( XMI TE) | 1C8A F2 87 09 1737 J DoPOLR EXIT 
1BD2 263F 1BD3 1670 oc AL2CACK1) le 1C8D 1C 00 2659 03 1738 STAID MVC AIDs3¢1+XR1) FETCH THE AIC CHARACTER 

1671 Sy 1C92 3A 40 2658 1739 SBN = POLFLG eA "408 SET THE AIO BIT ON 
1804 4D 01 01 2637 1672 CLC =—«_:14 2 XR1) ~EOT TEST RESPONSE = EOT | 1C96 CO 87 0000 1740 DOPOLR 8 + RETURN TO USER 
1809 F2 81 ES 1673 JE GOACKR EXIT IF SOs ALL OKAY Lee, 1741 *4044400409409240290400% 
1B0C 3C 10 2424 1674 MVI  €RR,INCOR SET INCORRECT RESPONSE | © 1742 * SELECT SUBROUTINE  %9949694096449049960669000608000000000000008008 
1BEO CO 87 ikFD5S 1675 8 FILLFF GO SET EXP RESULTS TO FF \ 1743 #0400 0040444500604024248 
18E4 OC 01 207% 263F 1676 MVC = EXPBUF41(2),ACK1 SET EXP RESULTS i 1744 
IBEA 01 2076 2637 1677 MVC = EXPBUF4¢3(2), E0T C 1C9A 34 OS 1013 1745 SELECT ST SELECR*3 ARR STORE RETURN ADDRESS 

| 
OATE 26J5UNT75: 250CT75 15JAN76 L4MAYT7E PROG ID 0894-3. €. DATE 26JUNTS 250CT75 15JAN76 14MAY76 PROG ID 0894-3 
EC NO. 825023 825032 825034 825035 PAGE 13 7 EC NO. 6825023 825032 825034 825035 PAGE 134, 
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{ te 
ERR LOC OBJECT CODE ADOR STHT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
ICSE OC OL 25F8 2653 1746 HVC SPFLDE2)-SEL SET uP TO SELECT Bd 1Dte CO GL 1D59 18146 BNE TRIT IF NOT, SO DO THIS BIT 
1CA4 OC O1 25FA 2605 i747 MVC PSDEV (21 ¢CURDEV SET TG SELECT CURRENT DEVICE et 1615 : 
1CAA CO 87 1AB4 1748 B DOSIO GO SELECT DEVICE : .1080 3C 00 1D58 1816 MVI THI T+2,.0 SET DISPLACEMENT FOR HI BYTE - 
iCAE 0008 1CAF i749 DC AL2(ENQ-SELPOL ) ae 1D84 3C 02 1D5A 1817 MVE TBIT#1,2 SET MASK FOR 1ST BIT OF HI BYTE 
iCBC 431F 1€B1l i750 oc ALZ(XMITE} a 1088 CO 87 1D59 1818 B TBIT GO TEST NEXT BIT 
1CB2 25FB 1CB3 1752 Dc AL2(ENQ) 1819 
1CB4 4D O1 OL 263D 1752 CLC 1(25XR1},ACKO TEST RESPONSE = ACKO . 1D8C 3D 10 IDSA 1820 Hi CLI TBIT41—9X*108 AT END YET? 
I1CB9 F2 81 54 1753 JE SELECR OKAY IF SG - 1D90 CO 01 1059 - 1822 BNE TBIT IF NOT, TEST NEXT BIT 
ICBC 4D 91 01 2638 1754 CLC 1(42~¢XR1} eRVI TEST RESPONSE = RVI 1822 
1CCl F2 81 OF 1755 JE GETST IF SO- GO GET STATUS es 1094 CO 87 O21A 1823 B PRINT SPACE 12 LINE 
1CC4 40 01 01 2639 1756 CLC 102 5XR1 eo WACK TEST RESPONSE = WACK ia 1098 91 1098 1824 DC XL1"*92¢ 
1CC9 F2 81 31 1757 JE PWACK | 1099 C2 01 0000 1825 FXR1 LA %—*5XR1 RESTORE XR1 
1758 hd 1D9D C2 02 0000 1826 FXR2 LA *—*, XR2 RESTORE» XR2 
1cCC 34 08 1013 1759 GETPS ST SELECRE32 ARR STORE RETURN ADDRESS ji 1DA1l CO 87 0000 1827 FORMRT A + RETURN TO USER 
1CD0 F2 87 04 1760 J GOERR | 1828 
1003 3C 20 262A 1761 GETST MMVI ERR»RVIS SET UNEXPECTED STATUS 1DA5 34 08 1LDBA 1829 PSROUT ST PSROUR+3,ARR STORE RETURN ADDRESS 
1CO7 CO 87 22AT7 1762 GOERR B ERROR GO PRINT RVI OR EOT | 1DA9 CO 87 O2Z1A 1830 B PRINT PRINT LENE 
1CD8 CO 87 1C39 1763 FETCHS 8 DOPGL GO GET STATUS | 1DAD 81 1DAD 1831 oc XL1L°81é 
1CDF 38 10 2658 1764 TBN POLFLG eX*10# WAS STATUS RECEIVED bas 1LDAE LE 1DAE 1832 oC IL1*30? 
1CE3 F2 90 22 1765 JF OKGH BAD IF NOT | . LOAF 2C03 1DB0O 1833 bc AL2(STATFL) 
1766 | 1081 OC 1D 2C03 2C€04 1834 MVC STATFL (30) sSTATBL CLEAR PRINT FIELD FOR NEXT ENTRY 
1CE6 CO 87 1027 1767 PSTAT 8B FORMAT GO PRINT STATUS BITS REC*D bp LDB7 CO 87 90000 i835 PSROUR B *—* RETURN 
1CEA CO 87 1BC6 1768 3) GOACK GO SEND ACKi » AL 1836 EXEEEEEEEKEEEREEAEEEESESEREKSESES 
ICEE CO 87 O21A 1769 SP6HLT B PRINT GO SPACE 6 | 1837 * SUBROUTINE TO READ BUFFER *##& 82S C5EREESEEEECER ES ERESEERESERERSSEOCE 
1CF2 96 1CF2 1770 oC XL1* 96? | ‘ 1838 ReRSHKKERAKTKEKEEEKEKREREREE ESS 
1CF3 CO 87 0222 1771 B HALT GO HALT + 1839 * 8 READBF BRANCH TO SUBROUTINE 
1CF7 891F 1cCF8 1772 oC “XL2°*891F# HALT ¥*#*4)] F G42 | 1840 * oc XL1EXxt XX = FLAGS 
1CF9 CO 87 0216 1773 8B LINK GG TO NEXT ROUTINE Lee, 1841 * oc XL2*AAAA® AAAA = CURSOR ADDRESS 
1774 + Sear 1842 * 2 23 
ICFD 3C CB 267A 1775 PVACK MVi ERR »WACKE SET WACK MESSAGE | 1843 * FLAGS BIT 0 = 1 = PATTERN IS NULLS 
1001 CO 87 22A7 1776 8B ERROR ae 1844 *& . BIT 1 = 2 = PATTERN IS RIPPLE DATA 
1D05 £2 87 C8 1777 J SELECR 1@ 1845 * BIT 2 = 3 = PATTERN IS A SINGLE CHAR. REPEATED 
i008 3C OC 262a 1778 OHOH MVI ERR, UNK SET UNKNOWN RESPONSE | 1846 * BIT 3 = 1 = USING PATTERN 2 
1DCC CO 87 22A7 17793 8 ERROR 1847 * BIT 4 = 1 = USING UPPER/LOWER CASE PATTERN 
LT6C | © 1848 * BIT 5 = 1 = USING PATTERN 2 
1010 CO 87 0000 1781 SELECR B e—& RETURN TG USER | 184$ * BIT 6 = 1 = DOING RTN 13 EXCERCISE 
1782 RESREREERLEKLSESHERHS KEERKEEREKERSS SEEKTARE ae 1859 * 
1783 * SUBROUTINE TO PRINT POLL STATUS BITS SSE SC STESSASSICE STRAP ESSE TEENS ee 10B8 34 08 LFS5C 185i READBF ST RE ADBR+ 3, ARR STORE RETURN ADDRESS 
L784 SSReSERESEKAEEKESESEKESERESRAR SEK KK SS KKREKE 1D0BF CO 87 lFDS5 1852 Ss) FILLFF FILL EXPECTED BUFFER WITH FF 
1785 ! Be: 10C3 OC 03 2D76 2603 1853 MVC EXPBUF+3(4) ,RDBE PUT IN EXPECTED RESULTS 
1DL4 34 08 IDA4 1786 PEXPST ST FORMRT+3,ARR STORE RETURN ADORESS ee 1DC9 34 O1 LF4E 1854 ST RDOBXR1+3,XRE STORE XR1L 
1018 OC O1 2BE5 25CF 1787 MYC STATME (2) ,DEVICE SET UP MESSAGE TO PRINT EXPECTED : 1D0CD 34 G2 1F52 1855 T ROBXR24+32XR2 STORE xXR2 
IDLE OC 10 2C03 2BES5 1788 HVC STATFL (30) .STATME MOVE TO MESSAGE on LOD1 35 61 1F-5C 1856 L RE ADBR+3 eX RE GET PARAMETERS ADDR 
1D24 F©2 B87 16 1789 J FINEXP JuMP TO FENISH bur 1005 1C 00 2E94 956 1857. MvC RBFLG, OC 1, XRE} FETCH FLAGS 
1027 34 08 19a4 1790 FORMAT ST FORMRT+3,ARR STORE RETURN ADDRESS 1DDA 1C O21 2D7C 02 1858 MVC =—- EX PBUF 49.2¢2eKR1) FETCH CURSOR ADDRESS 
1028 OC O1 26C? 25cF 1791 MVC STATMS(2},0EVICE PUT DEVICE iN HEADING ask LDDF OC 63 207A 2€98 1859 MVC  EXPBUF+7 (4). RBEXL FILL IN READ HEADING 
1031 OC 1D 2C03 2Bc7 1792 MVC =- STATFL (30) 2STATMS PUT HEADING IN PRINT FIELO bes 1DE5 OC 00 2DTA 3098 1860 MVC = EXPBUF4+7(1}) »NOAID FORCE NG AID CHAR 
1037 OC O01 2FF9 2658 1793 MVC = WORK (2), POLST MOVE POLL STATUS To WORK SFACE 1DEB OC CO 2D79 2605 186}. MVC  EXPBUF+6{(1)» CURDEV INSERT DEVICE IN EXP. RESULT 
103D 34 O21 1D9€ 1794 FINEXP ST FXR1It3,XR1 SAVE XRL I 1DF1 3C 26 2E73 1862 MVI EXPBUF+256 »X #265 INSERT ETB 
1D41 34 02 1DA6 1795 ST FXR2435XR2 SAVE XR2 1 C3 1DF5 3C OL 2FFC 1863 MVI  TCOUNT+1 SET COUNTER TO i 
1796 LDFS 38 80 2E94 1864 TBN RBFLGeX*8O* TEST FOR DATA = NULLS 
1045 CO 87 IDAS 1797 B PSROUT . GO PRINT iT ! ae 1DFO F2 10 TE 1865 JT NULLS 
1798 Lae 1£00 38 40 2£94 1866 TBN =. RBF LG eX *4 08 TEST FOR RIPPLE DATA 
1D49 3c O1 IDSA 1799 MVE  TSiT+lel SET BIT MASK TO START AT SIT 7 1E04 F2 10 6C 1867 JT RIPPLE 
1060 3C O01 1D58 1800 AVI TEI T#¢2,i SET DISPLACEMENT TO 1 ee LEO? 38 20 2E94 1868 TBN RBFLGsX*§20* ‘TEST FOR SINGLE CHAR WRITTEN 
1051 C2 01 2FF8 1801 LA WORK-1, XR1 POINT XR1 TO POLL STATUS HI BYTE i ks 1E0B F2 10 SA 1889 JT RAP 
1055 C2 G2 2B1A 1802 LA STTABsXR2 POINT XR2 TO BIY NAME TABLE | LEOE 38 10 2E94 1870 TBN RBFLG-eX* BOF TEST FOR PATTERN 1 
1803 io 1E12 F2 10 44 1871 JST PATL 
1059 78 GO nO 1804 TBIT TN ¥-*( .XRL) ,F-* TEST STATUS BIT ON La 1E15 38 O08 2&94 1872 TBN RBFLG »X* 08* IS THIS UPPER/LOXER CASE PATTERN? 
105C F2 90 09 1805 JF NEXTB IF NOTe UPDATE TO NEXT | LE1L9 F2 19 2E 1873 JT UPLWR 
10SF 2C OF 2C03 OF 1806 MVC STATFL 515 (16yXR2) MOVE IN BIY NAME TO MESSAGE hee 1E1C 38 04 2E94% L874 TBN RBFLG eX 'O4Ge TEST FOR PATTERN 2 
1064 CO 87 1DAS 1807 8 PSROUT GO PRINT IT ee 1£20 F2 10 18 1875 JT PAT2 JUMP IF SO 
pede | 1E23 38 C2 2E94 1876 TEN  RBFLG, X*02° TEST FOR RTN 13 EXERCISE 
1D68 OF OO 1D5A IDSA 1809 NEXTB ALC THET+1L(1)-TBLTEL SHIFT MASK BIT LEFT GONE 1E27 F2 10 OO 1877 JT R13EX 
1D6E E2 02 1060 18106 LA 16( eXR2) ¢XR2 UPDATE KR2 TO POINT TO NEXT ENTRY ‘ €: 1878 © TEMP -—- TO BE FILLED E% FOR OTHERS 
1071 3D OL 1058 1812 CLE = TBIT#2,1 ARE WE DOING HI BYTE YET? LE2A C2 02 2070 1879 RLZEX LA EXPBUF+10sxR2 POINT XR2 TO 1ST ADDR TO BE FILLED 
1075 F2 O1 14 1812 JNE HI JUMP TF NOT Ua 1E2E OC O1 2EF1 4132 1880 MVC =- STDAT(2) sREPST SET UP DATA START ADDRESS 
1078 30 40 1058 1813 cll TRIT+1yXxX*408 DID WE JUST DO LAST 8ITF OF LO BYTE | i 1€3% 35 01 4134 1881 i CURRIP »XRE POINT XR1L TO DATA 
! 
DATE 26JUNT5 250CT75 L5JANT76 14MAYT6 PRGG ID 08s4-3! €* pate 26J5UNTS 250CT75 LSJANTS 14 MAY 76 PROG IC 0894-3 
EC NO. 825023 825032 825034 825035 PAGE 
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8943 
ERR LOC 


1€38 
1€38 
1E3F 
1E43 
LE4&7 
LEGA 
1EGE 
1E€52 
1£56 
1E59 
1£50 
1€61 
1E65 
1E68 
lE6C 
1E70 
1€73 
1E77 
LE7B 
1ETE 
1E€82 
1E88 
1E8C 
1£90 
1£94 


1E98 
1E9C 
1E9E 
2EAO0 


1EA2 
1EA6 
TEAC 
1E€B0 
1EB6 
1EBC 
1ECO 
1EC4 
iEC8 


1ECC 
1€00 
1ED2 
1ED4 


1ED6 
1EDA 
1EDE 
1EE2 
1EE6 


1EEA 
1EEE 
1EF2 
1EF5 
1EF8 
1EFB 
LEFF 
1FO2 
1FO5 


1F09 
1FOC 
1FOF 
1Fl2 
lFL5 
1F18 


DATE 
EC NO. 


OBJECT CODE 


F2 
c2 
c2 
x 
F2 
C2 
c2 
3c 
F2 
c2 
C2 
3c 
F2 
C2 
C2 
F2 
C2 
c2 
F2 
C2 
oc 
C2 
34 
34 
co 


co 


87 
02 
ol 
00 
87 
02 
ol 
00 
8T 
02 
01 
60 
87 
02 
ol 
87 
ol 
02 
87 
01 
08 
02 
ol 
ol 
87 


87 


0003 
431F 
2603 


co 
oc 
co 
GE 
oc 
3C 
c2 
3c 
co 


co 


87 
O01 
87 
00 
OL 
26 
02 
02 
87 


87 


6001 
431F 
2FFB 


co 
30 
3c 
co 
co 


4 
c2 
7D 
F2 
7D 
co 
De 
E2 
co 


BC 
E2 
80D 
F2 
BC 
co 


&7 
70 
70 
81 
87 


01 
02 
03 
B81 
FF 
81 
01 
02 
87 


03 
02 
FF 
81 
FF 
87 


55 

2070 
3808 
3818 
42 

2070 
3EA0 
3818 
33 

2070 
3B88 
3818 
24 

2070 
3818 
19 

2E99 
2070 
OE 

2E EC 
2085 
2086 
2€F 1 
2EEF 
LFSD 


LABS 


1F 9D 
2FFB 
1FDS 
2FFC 
2074 
2€71 
2076 
2075 
1F50 


1AB4 


1F89 
2FFB 
2FFB 
1EA6 
1EAC 


4200 
2073 
oo 
ll 
00 
1FFO 
Ol 
ol 
1EF2 


00 
ol 
a0 
oT 
00 
1F0C 


26JUN7T5 
825023 


DA FUNCTIONAL TESTS 


ADDR STMT SOURCE STATEMENT 


2D6E 
1E9D 
1E9F 
LEA] 
263F 
2620 
2FFB 
1ED1 
1E03 
1€05 
250CTT5 
825032 


1882 J ExsTR 

1883 PAT2 LA EXPBUF410,XR2 
1884 LA REEXP2, XR1 
1885 VI SINCHR=-1 2X*008 
1886 J STFXR1 

1857 UPLWR LA EXPBUF4+10,XR2 
1888 LA ROOPS,XRL 
1889 “VI SINCIiR—1 ,0 
1890 J STFXRL 

1891 PATIL LA EX PBUF¢10,.xXR2 
1892, LA R6EXP,XRI 
1893 MVI SINCHR~-1L,C*~—* 
1894 J STFXRL 

1895 RAP LA EXPBUF+10 »XR2 
1896 LA SINCHR—1, XRi 
1897 J STFXRL 

1898 RIPPLE LA RIPDAT,XR1 
1899 LA EXPBUF+10,XR2 
1900 J STFXRL 

1901 NULLS LA NULL sXRI 

1902 MVC EXPBUFt+18(9) ,DEVRT2 
1903 LA EXPBUF419,XR2 
1904 STFXR1 ST STDAT,XR1 
1905 EXSTR ST CURDAT «XR1 
1906 B FILTAB 

1907 

1908 8 DOSIO 

1909 oc AL 2(ROBE-RDB) 
1910 oc AL2(XMITE) 
1311 oc AL2(RDBE) 
1912 

1913 CHECKI 

1914 OQACK1 MVC ACK (2), ACKL 
1915 OOACK 8 FILLFF 

1916 ALC TCOUNT (1),GNE 
1917 MVC EXPBUF41 (2) » ACK 
1918 MVI EXPBUF4254.X "26° 
1919 LA EXPBUF4+3,XR2 
1920 MVI EXPBUF+222 
1921 8 FILTAB 

1922 

1923 8 DOSIO 

1924 OC AL2 CACK~-ACK41) 
1925 oc AL2(XMI TE) 
1926 oc AL2( ACK) 

1927 

1928 8 CHECK2 

1929 cur ACK ,X*70° 
1930 MVE ACK «X*708# 
1931 BE DOACK} 

1932 8 DOACK 

1933 

1934 CHECK LA XMI TRC sXR1I 
1935 LA EXPBUF, XR2 
1936 TETX Cur O(eXR1)-3 
1937 JE FIX 

1938 CLE OCsXR1L) »X*FFE 
1939 BE ROERR 

1940 LA 10,XR1) eXR1 
1941 tA 10,XR2} ,XR2 
1942 8B TETX 

1943 

1944 FIX MVI OU eXR2),3 
1945 LOOP LA 1(,XR2),XR2 
1946 CLI O€oXR2) aX FFE 
1947 JE TESTAG 

1948 MVI O(,XR29 eX" FF? 
1949 8 Loop 

15JAN76 LCMAYT6 

825034 825035 


PART NOW 
PAGE 


POINT XR2 TO FIRST CHAR TO BE FILLED 


POINT XR1 TO EXPECTED DATA 
EXPECT FILL TO BE A NULL 


POINT XR2 TO FIRST DATA TO BE FILL 


LA ADDRESS OF EXPECTED DATA 
SET FILt CHAR TO NULL 


POINT XR2 TO 1ST CHAR TO BE FILLED 


POINT XR1 TO PATTERN 
SET SINGLE CHAR TO A *-* 


POINT XR2 TO 1ST CHAR TO BE FILLED 


POINT XRL TO SINGLE CHAR USED 


FETCH ADDR OF RIPPLE TABLE 


POINT XR2 TO 1ST CHAR TO BE FILLED 


GO STORE IT 

FETCH ADOR OF NULLS 

FILt IN 1ST 9 CHAR 

POINT XR2 TO 1ST DATA BYTE 
STORE IT 

INITIALIZE CURRENT DATA ADDR 
GO FILL EXPECTED RESULTS 


GO READ BUFFER 


GO CHECK RESULTS OF READ 
SET TO OO ACK 1 


ADD TO TRANSMISSIGN COUNTER 
SET UP 1ST 2 CHAR = ACK 1 OR O 
INSERT ETB 

POINT XR2 TO START OF DATA 
INSER STX 

GO SET UP EXPECTED RESULTS 


GO SEND ACk 1 GR O 


GO CHECK RESULTS AGAIN 
TEST FOR ACK O 

SET ACK © 

DO ACK 1 IF LAST WAS ACK O 
GO DO ACK O 


SET TO SCAN FOR ETX 


LOOK FOR ETX 

GO FIX RESULTS IF SO 
1S CHAR FF 

ERROR IF SO 
INCREMENT POINTER 


LOGP TIL. FF OR 03 FOUND 


INSERT ETX IN EXPECTED RESULTS 
FILL REST WITH FF 

TEST FOR FF AGAIN 

FINISHED IF SO 

FILL EXP BLEF WETH FF 


PROG 10 
PAGE 
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8943 


"ERR LOC 


LFLC 
1F20 
1F24 
3 1F28 
‘ 1F2C 
1F2F 
1F33 
1F39 


arn, 


1F3D 
1F41 
1F43 
eA 1F45 
w 1F47 


‘ 


iz 1°48 
LF4F 
1F53 
1F59 


} 


wae 


1F50 

C lre1 
1F65 

. -1F68 
- «1 F6B 
LF6E 
LF71 
1F74 
LF77 
-. LFTB 
fo LETE 
1*83 
1F86 
189 
LF8D 
1F91 
1F95 
1F99 


1f9D 
iFAl 
1LFAT 
1FAB 
1FB1 
LFB5S 


1FB9 
1FBO 
1FC3 
1FC7 
1FCD 
1FD1 


ie 


oN 


1FD05 
1FO9 
1F GF 
1FES 


cry 


Oo © 


1FE9O 
LFED 
1FFO 


DATE 
EC NO. 


oo 6 


20 0 


DA FUNCTIONAL TESTS 


PART NO. 
PAGE 


#234259 
iSA 


OBJECT CODE ADDR STMT SOURCE STATEMENT 
CO 87 1F9D 1950 TESTAG 8 CHECK} GO CHECK RESULTS AGAIN 
CO 87 1FD5 1951 B - FILLFF GO FILL EXP BUFF WITH ‘FES 
3D 70 2FFB 1952 CLI ACK, X"708 TEST FOR ACK 0 
3C 70 2FFB 1953 MVI ACK, X*708 FORCE ACK 0 
F2 01 04 1954 JNE  DOACKX JUMP IF ACK 1 
3C 61 2FFB 1955 MVI = ACK» X* 618 COPS, FORCE ACK 2 
OC Ol 2074 2FFB 1956 DOACKX MVC EXPBUF41(2),ACK SET UP ACK 
3C 37 2075 1957 MVI - EXPBUF 42 X°37! SET TO EXPECT EOT RETURNED 
1958 
CO 87 LABS 1959 B posic GO SEND LAST ACK 
0001 1F42 1960 DC AL2( ACK~ACK41} 
431F 1F44 1961 oC AL2(XMI TE) 
2FFB 1F46 1962 oC AL2( ACK) 
CO 87 1F9D 1963 B CHECK1 GO CHECK FOR CORRECT RESPONSE 
1964 
C2 01 0000 1965 RDBXR1 LA #-*, XR} RESTORE XR1 
C2 02 0000 1966 RDBXR2 LA #—#,XR2 RESTORE Xr2 
OE 01 1F5C 262F 1967 ALC READBR4+3(2),THREE UPDATE RETURN ADDRESS 
CO 87 0000 1968 READBR B +-+ RETURN TO USER 
1969 
1969 
34 08 1F9C 1970 FILTAB ST FILTR+3 ,ARR STORE RETURN 
35 01 2EEF 1971 L CURDAT »XR1 POINT XR1 TO CURRENT DATA ADDR 
BD FF 00 1972 AGAIN CLE 0 ¢XR2)X'FE® TEST FOR END OF PATTERN 
F2 01 2A 1973 JNE BLKON DONE IF NOT 
7D FF 00. 1974 CLI OL »XRL) XP FEC TEST END OF DATA TABLE 
F2 81 1C 1975 JE TOONE 
7D FE 00 1976 CLI Ol, XRLD,X*FES TEST FOR SWITCH TO SINGLE CHAR 
F2 01 08 1977 JNE MOVE JUMP IF NOT 
C2 01 3818 1978 LA SINCHR-1 »XR1 POINT XR1 TO SINGLE CHAR FOR REST 
34 OL 2EF1 1979 ‘ST STDAT,XR1 CHANGE POINTER — 
% 00 00 00 1980 MOVE MVC 0(1,.XR2),0,XRiD MOVE DATA FROM TABLE TO EXP BUFF 
02 01 O1 1981 LA LU yXR1) gXR1 UPDATE POINTERS 
£2 02 01 1982 LA 1(,XR2)_9XR2 beter Te cadence ee 
CO 87 1F65 1983 B AGAIN Loop 
35 O1 2EF1 1984 TOONE L STDAT »XR1 POINT XR1 TO START OF DATA AGAIN 
CO 87 1FTF 1985 B MOVE 
34 O01 2EEF 1986 BLKDN ST CURDAT «XR1 UPDATE CURRENT DATA ADOR 
CO 87 0000 1987 FILTR B ++ RETURN 
1988 
1988 
34 08 1FB8 1989 CHECK1 ST CHIRT+#3» ARR STORE RETURN ADDR 
OD FF 2E72 42FF 1990 CLC EXPBUF+255(256) sXMITRC4#255 TEST EXP. = ACT. 
CO 01 1FFO 1991 . BNE RDERR ERROR IF NOT 
OD 1F 2E92 431F 1992 CLC = EX PBUF #287132)» XMITRC+287 
CO 01 1FFO 1993 BNE  RDERR 
CO 87 0000 1994 CHIRT B + % RETURN TO USER 
1995 
34 OB 1FD4 1996 CHECK2 ST CH2RT*3 ARR STORE RETURN ADDRESS 
OD FF 2E72 42FF 1997 CLC = EXPBUF*255(256) eXMITRC+255 TEST EXP. = ACT. 
CO 01 1EEA 1998 BNE CHECK MAYBE THE END 
OD 1F 2€92 431F 1999 CLC = EXPBUF 4287 (32) eXMITRC+287 
CO 01 LEEA 2000 BNE CHECK 
CO 87 0000 2001 CH2RT B ++ RETURN TO USER 
2002 
2002 
34 08 1FE8 2003 FILLFF ST FILFFR+3,ARR STORE RETURN 
OC FF 2E92 2E93 2004 MVC EXFIL-1(256), EXFIL FILL EXPECTED RESULT BUFFER 
OC 1F 2093 2094 2005 MVC = EXPBUF #32 (32) ,EXPBUF+33 WITH "FF? 
CO 87 0000 2006 FILFFR B +—* RETURN TO USER 
2007 284K 4SS4RES EEE FSREEKSREKSSKSELSSKSEKSESSESKAKEBEKKEREKEESSE 
2008 * SUBROUTINE TO PRINT CONTENTS OF TRANSMIT/RECEIVE #88¢0¢80s008200640 
2009 * FIELD AND EXPECTED RESULTS BUFFER * 
2ZOLD FH¥EO4956564608405E44K40940K288EE68SS SSESKESESEAKRSTEKRE 
2011 
34 08 2083 2012 PXREXA ST PXRRT+3,ARQ STORE RETURN ADDRESS 
F2 87 08 2013 J PXREX PRINT EXPECTED & RECEIVED FIELDS 
30 08 262A 2C14 RDEKR MVE ERRsOATER SET DATA MISCOMPARE ERROR 
26JUN75 250CT75 15JAN76 L4MAY76 PROG ID 0894-3 
825023 825032 825034 825035 ' PAGE 15A 
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6943 DA FUNCTIGRAL TESTS 
ERR LOC OBJECT CabE ADDR STHT SOURCE 
LFF& CO 87 22a7 2015 MISCO 
1FF8 OC 4&9 2F39 2F3A 2016 PRREX 
IFFE OC 49 2F84 2-65 2017 
2004 OC O7 2F78 300D 2018 
200A OC 37 2F53 3005 2619 
2010 OC OC 2F4&7 39E5 2620 
2016 CO 87 O21a 2021 
201A BL 201A 2022 
2018 4A 2016 2023 
Z201C 2F84 2010 2024 
201E OC 49 2F84 2FCF 2025 
2024 CO 87 O21A 202€ 
2028 8&2 2028 2027 
2029 4A 2029 2028 
202A 2F84 2028 2029 
202€ OC OL 2FDL 261A 2030 
2032 C2 01 2082 2031 
2036 C2 02 420F 2032 
2033 
2034 1C OF 2F84 00 2034 GOAGN 
203F 20 OF 2F70 00 2035 
2044 CO 87 O21E 2036 
2048 1G 2048 2037 
2049 2F84 204A 2038 
2048 2F15 204C 2039 
204D CO &Y O22LE 2040 
2051 16 2051 2041 
2052 2F TO 2053 2042 
2054 2°39 2055 2043 
2056 CO 87 O2i1E 2044 
20548 02 205A 2045 
2058 2FOL 205C 2046 
205D 2EF3 Z205E 2047 
2048 
205F OD 1F 2F39 2F15 2049 
2065 F2 01 OC 2950 
2068 OD LF 2F3S 2FFE 2051 
206€ F2 61 iD 2052 
2071 F2 &7? OC 2053 
2074 CO 87 2088 2054 GOSETP 
2076 CO BT O21A 2055 
207C Bi 207C 2056 
2070 4A 2070 2057 
20TE 2784 207F 2056 
2080 OC 49 ZF8& 2F39 2059 PRINLN 
2086 CO &TF O22k 2060 
2084 §1 2084 2061 
2086 4a 2088 2062 
208C 2F84 2080 2063 
208E OF GCL 2FDL 2FF3 2064 NOPRIN 
209% OD OL 2FDI 2FF5S 2065 
2094 F2 81 CA 2066 
Z209D D2 Gi i6 2067 
26A0 EZ O2 10 2068 
20A3 CO 8&7 2038 2069 
20AF 2070 POUT 
20A7 CO B87 G24 207) 
208 96 2OAB 2072 
20AC 3D OC 2828 2073 
Z066 CO 82 O0c6 2074 PXRRT 
2084 CO 87 24C8 2075 
2076 
2076 
2088 34 OF ZED 2677 PP 
208C 3% OL 2208 2078 
20C0 34 02 2:0 207 
20C4 OC 49 2F84 2FB5 2080 
20CA OC 43 2°84 2F39 2081 
DATE 26ISUN 75 2500 T75 LS JANTE 
EC NO. 825023 825032 825034 


STATERENT 

8 ERROR 

MVC RECFEL E74). PEUFBL 
MYC PLENEC TG} ¢PLINSEL 
MvC PLINE-i2(6}) RECO 
MVC PLINE-49 (61, EXP 
MWC PLINE-612 (23) 5XHRCMG 
8 PRENT 

oc XLi*8i* 

oc ILL*T4é 

oC ALZ(PLINE! 

MYC PLINE(74$,PHEAD 
B PRINT 

oC XL1°62° 

oC ILLE 74? 

oc ALZ(PLINE? 

&VC HEADAD( 2) -L CAR 
LA EXPBUFFI5.XRI 

LA XMITRCO+E 5 XR2 
MVC PLENECLG Pe Ole XRL} 
MVC PLINE-26 (16) sO ¢XR2Z) 
B UNPACK 

oc TLESL6F 

oC AL2(PLINES 

oc AL2 CEXPFL 3 

8 UNPACK 

oc ILE f 268 

oC AL2 EPLINE-20} 

BC ALZERECFLI 

B UNP ACK 

be ELLf2e 

BC AL 2¢(HEADAD} 

oc ALZELINADR} 

cic RECEL (32). EXPEL 
JNE GOSETP 

CLec RECFLA321,F FFF 
JE NOPRTN 

J PRENLN 

8 FP 

8 PRINT 

DC XLLe Ste 

Oc TLL 746 

oC AL2Z(PLINE?} 

MYC PLINE (7%) ,RECEL 
5 PRINT 

Oc ALi°Bié 

OC ELLS74e 

be ALZ{PLINE} 

ALC HEADAD{ 2} «SIXTEN 
CLE HEADAD( 2) -ENDE 
JE POUT 

La 16eXRLE XR? 

LA 16 2A4R2) sXRZ 

6 GOAGH 

EQU * 

6 PRINT 

oc XLL'96° 

cur ERR-O 

Be eK 

8 HL TERR 

ST PPR 3 ,ARR 

ST PPHRLG3,XRE 

ST PPXRZ43 oXR2 

MYC PLINE( 74) ,PLENBL 
MYC PLINE(68},RECFL 
14 BAY 76 
825035 


PART NO. 
PAGE 


GO TO ERROR ROUTINE 
BLANK QUT BUFFER 
BLANK QUT PRINT LENE 
SET UP HEADING 


MOVE IN HEADING INFO 
GO PRINT HEADING 


MOVE IN HEADER 
PRINT IT 
SPACE 2 


INITIALEZE ADDRESS 
POINT TO DATA 


MOVE IN EXP DATA 
MOVE IN REC. DATA 


iS THIS LINE SAME IN BOTH FIELDS 
JUMP TF NOT 

iS THES LINE ALL FEF?S 

TF SG, DON'T PRINT 

GO PRINT LINE 

GQ FRIMT *.* GVER DIFFERNECES 


MOVE LENE TO PRINT 


ADD SIXTEEN TG ADDRESS 
CHECK FOR END 

OUT IF SO 

UPOATE POINTERS 


Loop 
GO SPACE 6 ANO HALT 
WAS ERROR CODE SET UP? 


RETURN TQ USER IF NO ERROR CODE 
GO HALT 


STORE RETURN 


4234259 


16 | 


i 


| 
BLANK OUT PRENT CINE 
PUT IN DATA 
| 
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NOs 4234259 


16A 


8943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CUDE ADDR STHT SOURCE STATEMENT 
2600 C2 O1 2F65 2082 LA PLINE=31 9XRL POINT TO DATA 
20D4 C2 02 2F41 2083 L& PLINE-67,XR2 
2008 6D 00 60 55 2084 CHKET CLO GL eXR1L)e0€eXR2} CHECK DATA EQUAL 
200C F2 Gi OS 2085 JNE  PUTP IF NOT INSERT « 
20DF 70 40 06 2086 MVE O€eXRLD-C*® 8 INSERT BLANK 
20E2 BC 40 06 2087 MVI O€,XR21,C® ? INSERT BLANK 
20E5 F2 87 06 2088 J uPiT 
20E8 7C 48 00 2089 PUTP KVi Oy XR1LD-C oS INSERT PERIOD 
20EB BC 4B 00 2090 MVE Of eXR2},C%o? INSERT PERIOD 
2OEE 34 O01 2FFS 2091 UPIT ST WORK eXR1 
20F2 OD OL 2FF9 2FFT 2092 CLC wORK(2),ELEN TEST FOR END OF LINE 
20F8 F2 81 OA 2093 JE PPXR1 EXIT IF SO 
20FB 02 01 01 2094 LA L(XR1L) XR UPDATE POINTERS 
20FE E2 02 O01 2095 LA L€yXR2) -XRZ 
2101 CO B87 2008 2696 B CHKET Loop 
2105 C2 02% C000 2097 PPXRL LA %~#* XR RESTORE XRL 
2109 C2 62 0000 2098 PPXR2 LA $—~%*,XR2 RESTORE XR2 
210D CO 87 06000 2099 PPR 8 +-% RETURN 
2100 RKKKEKREKAE HK EKEKARPESERKSEAKSEKEEKRHEKSEKSKAEKESEESHARAKRS 
2101 * SUBROUTINE TO TEST ACK IN RESPONSE TO WRITE CMD *o>e8oteseeesseaeey 
2102 KERALEAARAKALAKARKSEKESEREKSS SER SKAAKEHKSHK ASSAYS PFSRESE 
2103 
2111 3C 70 2FFB 2104 TRESPO MVE ACK,X® 70° SET FOR ACK O 
2115 F2 87 04 2105 2 TRESPX 
2118 3C 61 2FFB 2106 TRESPL MVE ACK eX®61* INITEALIZE TO ACK 1 
211C 34 08 215D 2107 TRESPX ST TRESPRE3 5 ARR STORE RETURN ADDRESS 
2120 38 40 2FFD 2108 TBN RINFLG-.X#408 TEST DEVICE = PRINTER 
2124 F2 90 16 2109 JE DISP JUMP IF NOT 
2127 38 98 4203 22110 TEN XMITRC+3,X* O88 WAS START PRINT ON IN WCC BYTE? 
212B F2 96 OF 2111 JE DISP IF NOT, IF LOOKS LIKE & DISPLAY 
2E2E 4D 01 OL 2639 2112 “ELC = LEA PXRLPEHACK DEVICE WAS PRINTER. TEST WACK 
2133 £2 01 OF Z113 JNE TSTEOT if WOT, TEST FOR EOT 
2126 CO 87 215E 214 B WAI TPB WATT FOR PRINTER BUSY TO FALL 
213K F2 87 1D 2415 J TRESPR RETURN 
2130 4D 01 01 2FFE 2116 DISP CLO 16424XR1} 2 ACK TES? FOR CORRECT ACK 
2142 FZ 81 15 211i? Se TRESPR EXIT IF CORRECT 
2118 
2145 40 O01 01 2637 2119 TSTEGQY CLC 1425XR1L},E0T WAS REPLY AN EGT? 
2144 CO OL 1908 2120 BNE  OGHOH BRANGH IF NOT 
Z21L4E 3C 40 262A 2121 MVI ERR, EQTC SET ERROR 
2152 CO BT 22A7 2122 B ERROR 
2156 CO 87 1CDB 2123 B FETCHS GO FETCH STATUS 
ae 2124 
x 2158 CO 87 000d 2125 TRESPR A €—* RETURN TO USER 
2126 KHKAERCAEKKE SAKA KARKAKCKESSRSEKEKL ESSE KRECEKHKEHRSERES 
: 2127 * SUBROUTINE TO WALT FOR PRINTER BUSY TO DROPSSHSeES EHS SSECESEESE SES SES 
ce: 2228 REAKKSKSEKKKAEEEKARSEVSRH SSRHBAKKKSSHASSEVEKREK SES RK 
2129 
aa Zi5E 34 08 2184 2130 WALTPB ST WAT TPRe 3 BRE STGRE RETURN ADDS 
i 2162 OC OL 25FA 2605 2132 MvC  PSDEV(2)},CURDEY GET CURRENT DEVICE 
2168 OC O1 25F8 2651 2232 MVC = SPFLO(2)- POLL SET UP TO POLL 
i Zi6E OF OL 2614 2614 27133 SLC OVBCNT(2} ,OVBCNT SET BUSY COUNT TG ZERG 
i 2134 
2174 OF O1 2614 2620 2135 POLPR ALC DVBCNTi2},GNE ADD TO BUSY COUNTER 
217A 38 60 2613 2136 TBN DVBCNT-} »X*60* keEEteADIUST THIS VALUE 
217E F2 10 34 2137 Jt OVHE JUMP IF HUNG BUSY 
2181 CO B87 1039 2135 8 DOPUL GO POLL 
2185 38 10 2658 2139 TBN POLFLG,X*10° WAS THE RESPONSE STATUS 
2189 F2 90 LD 2146 JF WHAT JUMP IF NOT 
218C 78 68 06 2141 TBN 6¢sXREReX*O8* TEST FOR BUSY ON 
228F CO 10 217% 2442 BY POLPR IF sO GO POLL AGAIN 
2193 4D O1 OT 2643 2243 CLO Th2eXRLEDE NOT BUSY TEST FOR DEVICE EN 
2198 F2 BL 16 2144 JE WAETPR DONE LF SO 
2198 3C 15 262A 2145 MYVI ERR »BOST SET BAO STATUS INO} ; 
a 219F OC OL 2FFO9 2663 2146 HVC WORK(2)-DE MOVE DEVICE END STATUS 16 #ORK 
21A5 CO ST 22A7 2147 8 ERROR 
; 21A9 3C OC 262A 2148 WHAT MMVI  ERRsUNK SET UNKNOWN RESPONSE 
N Z22LAD CO 87 22A7 2149 B ERROR 
. - DATE 263UN75 250CT75 15 JAN76 L4G MAY 76 PROG ID 0894-3 
EC NG. 825023 825032 825034 825035 PAGE L6A 
C. i 
Re 
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8943 
ERR LOC 


2181 
2185 
2189 


2180 
21C1 
21C5 
21C8 


21CF 
2105 
2108 
210F 
212 
21E6 
21EA 
21EE 
21F2 
21F5 
21F9 
21FC 
2200 
2202 
2204 
2206 
220A 
220E 
2210 
2212 
2214 
- 2218 


221C€ 
2220 
2224 


2228 
222C 
2230 
2234 
2237 
2238 


223F 
2245 
2248 
224E 


2252 
2256 
225C 
2260 
2266 
226A 
226E 


2272 
2276 
227A 
227€ 


DATE 
EC NO. 


DA FUNCTIONAL TESTS 


OBJECT CODE 


co 87 0000 
3C 09 262A 
CO 87 22A7 


CO 87 1C9A 
CO 87 1AB4 
000000000000 


co 


OF 
OF 
38 
F2 
30 
co 
co 
38 
F2 
38 
F2 
co 


87 


ol 
ol 
20 
10 
TF 
81 
87 
20 
10 
40 
90 
87 


0004 
4@31F 
30FS 


co 
co 


87 
87 


0000 
4201 
2636 


38 
co 


3D 
co 
co 


38 
co 
38 
F2 
3c 
co 


OF 
oD 
F2 
co 


co 
OD 
co 
OE 
38 
co 
co 


34 
34 
35 
1c 


26J5UNTS5 
825023 


20 
10 


6E 
81 
87 


10 
90 
40 
10 
04 
87 


ol 
01 
81 
87 


87 
G1 
81 
01 
08 
90 
87 


08 
01 
01 
ol 


2118 


2614 
2614 
O20A 
08 

2613 
0216 
1039 
2658 
07 

2658 
2c 

1LAB4 


2614 
2620 


2118 
1AB4 


2658 
0216 


2659 
0c 84 
2105 


2658 
2105 
2FFO 
08 

262A 
22aT 


2614 
2658 
04 

2237 


2614 
2635 


1039 
2658 
0216 
2614 
2613 
2252 
OC 84 


2643 


2620 


22A6 
22A2 
22A6 
3AD9 01 


ADDR 


21CA 


2201 
2203 
2205 


2207 
2211 
2213 


250CT75 
825032 


PART NO. 
PAGE 


a acer eet 


4234259 


17 


| 
! 
| 
' 


| 
{ 
t 
! 
' 


STMT SOURCE STATEMENT 

2150 WAITPR 8B e-% 

2151 OVHB MVI ERR»DEVHB SET DEVICE HUNG BUSY 

2152 ERROR 

2153 SERERKRESESSESCERETRERTARESEAERAREROEES 

2154 * SUBROUTINE TO SEND TEST PATTERNS S*8¢4659254954600405606 629085485084 
2155 SREEAERASEESEAACEEESEREASEESCEESRSES CERES KER 

2156 

2i57 SENDTP B SELECT GO SELECT THE DEVICE 

2158 SENTPB B O00sto GO WRITE THE TEST PATTERN 
2159 TPARM OC XL6*O# PARAMETERS GET FILLED IN 
2160 8 TRESP1 GO TEST FOR CORRECT RESPONSE 
2161 

2162 SLC DVBCNT (2 },OV8CNT RESET COUNTER 

2163 WRTOK ALC DVBCNT(2) ,ONE ADO ONE TO COUNTER 

2164 TBN SBYTE2,SSW12 IS SSW 12 ON? 

2165 JT CONPOL NO TIME OUT IF SO 

2166 CLI OVBCNT—1 oX* 7F® ADJUST FOR 90 SEC. 

2167 BE LINK GO TO NEXT ROUTINE IF 90 SEC. 
2168 CONPOL B DOPOL GO POLL THE DEVICE 

2169 TBN POLFLG ,X*2CFr WAS THE RESPONSE TEST REQ. 
2170 JT GOUNLK IF $O GO UNLOCK THE KEYBD 
2171 TAIO TBN POLFLG+X*40? WAS AN AID KEY OEPRESSED 
2172 JF TS IF NOT GO CHECK FOR STATUS 
2173 GOUNLK B oosro GO UNLOCK THE KEYBOARD 

2174 OC AL2 (UNLOCE-UNLOCK ) 

2175 oc ALZ(XMITE) 

2176 oc AL2(UNLOCE) 

2177 8 TRESP1 GO CHECK CORRECT RESPONSE 
2178 B DOSIO GO SEND EOT TO DROP DEVICE 
2179 OC xXL2°O° 

2180 Oc AL2CXMITRC41) 

2181 oc AL2(EOT—-1) 

2182 TBN POLFLG,X*20¢ WAS IT A TEST ReQ. 

2183 BT LINK GO TO NExT ROUTINE IF SO 
2184 

2185 CLI AIDeX*6E* WAS AID A PA~-2 (CNCL) 

2186 BE TERM IF SOe TERMINATE PGM. 

2187 B WRTOK IF NOT,» GO POLL SOME MORE 
2188 

2189 TS TEN POLFLG, X* 10° WAS THE RESPONSE STATUS? 
2190 BF WRTOK IF NOT POLL AGAIN 

2191 TBN RTNFLG eX" 408 IS THE DEVICE A PRINTER 

2192 JT CHKPS IF SO, GO CHECK STATUS 

2193 OOPS3 MMVI ERReUNX SET UNEXPECTED RESPONSE 

2194 8 ERROR GO ¥O ERROR 

2195 

2196 CHKPS SLC OVBCNT (2), 0V8CNT RESET COUNTER 

2197 CLC POLST(2),IR WAS STATUS IR? 

2198 JE WAITDE IF SO GO WAIT FOR DEVICE END 
2199 8 OOPS3 

2200 

2201 WAITDE 8B OOPOL GS POLL AGAIN 

2202 CLC POLST(2),0E€ CHECK FOR DEVICE END 

2203 BE LINK IF SO, GO TO NEXT ROUTINE 
2204 ALC OVBCNT( 2) .ONE ADO 1 TO COUNT 

2205 TBN OVBCNT~1,X*08° WAITS FOR ABOUT 6 SEC 

2206 BF WAITOE GO POLL AGAIN 

2207 8B TERM GO TERM PGA. 

2208 KSEE HHEREKKEDRSRESCESEE 

2209 * DELAY SUBROUTINE £696699229 902904 040060403%9606290206024240420 40908000 
2210 FEES 54050954 KEKEESE i 
22i1 # 8 OELAY 

2212 * oc TL2¢xxe Xx = NUMBER OF MILLISECONDS YO DELAY 
2213 ; 
2214 DELAY ST DELAYR+3,ARR STORE RETURN ADOKESS 

2215 ST RXR143,XR1 STORE XR1 

2216 L DELAYR+43 »XR1 GET ADDReS OF DELAY ARAMETER 
2217 MVC COUNT 2142 ¢XR2)} FETCH COUNT 

I5SJANT6 L4MAY 7a PROG ID 
825034 825035 PaGE 
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8943 
ERR LOC 


2283 
2289 
228F 
2295 
2298 
229F 
22A3 


22A7 
22AB 
2231 
2285 
2288 
22BE 
22€2 
22C5 
22CB 
22CF 
2202 
2208 
220C 
220F 
22E5 
22£9 
Z22EC 
22F 2 
22F6 
22F9 
22FF 
2303 
~ 2306 
230C 
2310 
2313 
2319 
2310 
: 2320 
i 2326 
232A 
2320 
2333 
2337 
. 233A 
No 2340 
2344 
2 2347 
Ls 234D 
2351 
2354 
; 235A 
235E 
2361 
2367 
2368 
236E 
2374 
2378 
2378 
2381 
2385 
2388 
238E 
2392 
2395 
Xe 2398 


“pate 
EC NO. 


Cm Oo 


DA FUNCTIONAL TESTS 


: 
= 
= 


DELAYR4+3(2),TWO 
XMI TRC (256) sXMI TRC 
XMITRC (6239 XMETRC 
COUNT (2), GNE 
CNTLP 

#-~,XR1 

*—* 


S s = S S = e Sj S & e Se a a oe eET @ 2 2 


PART NO. 
PAGE 


4234259 
iva 


UPDATE THE RETURN ADDRESS 


DECREMENT COUNT 
LOOP TIL COUNT = O 
RESTORE XR1 


CESESKEAEERAKEARE SS RAERSESEREREKAESEEEESEKEEERE 


* ERROR FORMATTING & PRINTOUT ROUTINE ¢64204404006660€¢64¢20242046649068% 
RKACHESESSESERHKAAKEKSAKSE SE AREKSESESKEKESREAERSE 


ERRORR+ 3, ARR 
ERRHLT (1)95ERR 
ERR»UNITCH 

TERR2 

LOGMSG (18) ,UNITNR 
ERR, BUSE 

TERR 
LOGMSG(17),HBUSY 
ERR»INPN 

TERRS 

LOGMSG(14). INTPND 
ERR» UNX 

TERRS 
LOGMSG(19),UNEXP 
ERR»ATTCH 

TERR6 

LOGMSG(16) ,ATTMSG 
ERR, ITBE 

TERRT 

LOGMSG(13), ITBMSG 
ERR, NOINT 

TERRES : 
LOGMSG (12) »NOIN 
ERR, DATER 

TERRI 
LOGMSG(15) ,Mz SDAT 
ERR, DEVHB 

TERROA 
LOGMSG( 14) »DVBMSG 
ERR, ATNR 

TERROF 
LOGMSG(17),ATTNOR 
ERR, MNL 

TERRIO 

LOGMSG(21) ,MICNLM 
ERR» INCOR 

TERR2O 

LOGMSG(18} ,INCORM 
ERReRVIS 

TERRI} 
LOGMSG( 23) ,RVINSG 
ERR, ACTIN 

TERRIS 

LOGMSG(19) ,ACCE NM 
ERR,NOEQT 

TERRI5 
LOGMSG (16) sRS2EOT 
ERR» BDST 

TERRI6 
LOGMSG(17} sMRS TMG 
ERR »MPINT 

TERR17 

LOGMSG(36) »RPmGE 
ERR, MPCS 

TERRIS 

LOGMSG (20) ,ePmGe 
ERR,RNST 


OBJECT CODE ADOR STMT SOURCE STATEMENT 
OF O1 22A6 3AD8 2218 ALC 
OD FF 4200 4200 2219 CNTILP CLC 
00 30 4200 4200 2220 CLC 
OF O1 3AD9 2620 2221 SLC 
co O01 2289 2222 BNZ 
€2 01 0000 2223 RXRL LA 
CoO 87 6600 2224 DELAYR B 

2225 

2226 

2227 

2228 
34 08 24€9 2229 ERROR ST 
oC 00 24CD 262A 2230 MvC 
30 O01 262A 2231 Cul 
F2 01 06 2232 SNE 
oC 11 2590 28A7 2233 MVC 
30 O02 262A 2234 TERR2 CLI 
F2 01 06 2235 JNE 
oc 10 2590 2903 2236 MVC 
30 03 262A 2237 TERR3 CLI 
F2 01 06 2238 JNE 
oc CD 2590 28F2 2239 MYC 
30 04 262A 2240 TERR& CLI 
F2 01 06 2241 JNE 
OC 12 2590 2925 2242 MVC 
30 05 262A 2243 TERRS CLI 
F2 01 06 2244 JNE 
OC OF 2590 28E4 2245 MVC 
30 06 262A 2246 TERR6 CLi 
F2 01 06 2247 JNE 
OC OC 2590 2804 2248 ‘MVC 
30 O7 262A 2249 TERR? CLI 
F2 01 06 2250 JNE 
OC 08 2590 28C7 2251 MVC 
3D 08 262A 2252 TERRA CLI 
F2 01 06 2253 JNE 
OC OF 2590 2912 2254 MVC 
30 09 262A 2255 TERRO Cil 
F2 01 06 2256 JNE 
OC 0D 2590 294A 2257 mvC 
3D OA 262A 2258 TERROA CLI 
F2 01 06 2259 JNE 
OC 10 2590 2895 2260 HVC 
3D OF 262A 2261 TERROF CLI 
F2 01 06 2262 JNE 
OC 14 2590 29C4 2263 MvC 
30 10 262A 2264 TERRIO CLI 
F2 01 06 2265 JNE 
OC 11 2590 2978 2266 MVC 
3D 20 262A 2267 TERR2O CLI 
F2 01 06 2268 JNE 
OC OC 2590 2932 2269 MVC 
3D 13 262A 2270 TERRI3 CLI 
F2 01 06 2271 JNE 
OC 12 2590 298& 2272 MVC 
30 24 262A 2273 TERRES CLI 
F2 01 06 2274 JNE 
OC OF 2590 299€ 2275 MVC 
30 15 262A 2276 TERRIS CLI 
F2 01 06 2277 JNE 
OC 10 2590 29AF 2278 MVC 
3D 16 2624 2279 TERR16 CLI 
F2 01 06 2280 JNE 
OC 23 2590 29E8 2281 MVC 
30 17 2624 2282 TERRI7T CLI 
F2 01 06 2283 JNE 
OC 13 2590 2ASA 2284 MvC 
3D 18 262A 2285 TERRILS CLI 
263 UNT5 250C 175 15 JANT6 L4KAY 76 
825023 825032 825034 825035 


STGRE RETURN 
FILL IN HALT CODE 
TEST FOR UNIT CHECK 


INSERT UNIT CHECK MESSAGE 
TEST FOR HUNG BUSY 


INSERT HUNG BUSY AZSSAGE 
TEST FOR INT PND ERROR 


INSERT INT PND ERROR MSG 
TEST FOR UNEXPECTED STATUS 
JUMP IF NOT 

MOVE IN MESSAGE 

TEST FOR ATTACHMENT CHECK 


INSERT ATT CHECK MESSAGE 
TEST FOR ITB ERROR 


INSERT ITB ERROR MESSAGE 
TEST FOR NO INTERRUPT 


INSERT NG INTERRUPT MESSAGE 
TEST FOR DATA MISCOMPARE 


INSERT MISCOMPARE MESSAGE 
TEST FOR DEVICE HUNG BUSY 
JUMP IF NOT 

MOVE IN DEVICE BUSY MESSAGE 
TEST FOR ATTACH. NOT READY 
JUMP IF NOT 

MOVE IN MESSAGE 

TEST MICRO CODE NOT LOADED 


MOVE IN MESSAGE 
WAS IT INCORRECT RESPONSE 


MOVE IN MESSAGE 

TEST FOR RVI TO SELECT 

JUMP IF NOT 

MOVE IN MESSAGE 

WAS INVALID ADDRESS ACCEPTED 


CHECK FOR ERROR NO EQT 


MOVE IN MESSAGE 
TEST FOR WRONG STATUS 


MOVE IN MESSAGE 

CHECK MICRO POLL INT ERR 
TEST CAR NOY EQUAL TO SAR 
MOVE IN LOG MESSAGE 

TEST STATUS NOT REC*D 


PRoG ID 
PAGE 


y 
* 
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8943 DA FUNCTIONAL TESTS 


£943 DA FUNCTIONAL TESTS 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC SBYECT CODE ADOR STHT SOURCE STATEMENT 


; 
239F F2 OL 06 2286 JNE TERRSO 245C OC OL 2471 37C3 2354 MVC UNPKAL2$¢STXRP INETIALEZE UNPACK ADDRESS 
23A2 OC L6 2590 2ATL 2287 MVC =6LOGMSG(231.MPMGS MOVE IN LOG HESSAGE 2462 CO 87 OZLE 2355 PXBNL B UNBACK UNPACK ADDRESS 
23A8 30 40 262A 2288 TERRSO CLI ERR, EQTC TEST FOR EQGT TG CHD 2445 02 26466 2356 DC KLECQZe 
23AC F2 01 06 2289 JNE TERROB SUMP TF NOT 2467 2F01 2448 2357 OC AL 2¢ HEADED} 
23AF OC 09 2590 293¢ 2290 MVC = LOGMS G10), EGQTNSG MOVE IN MESSAGE 2463 25 3E 246A 2358 DC AL2¢PLINE=70} 
eee? = - cock oo TERROB CLI ERR eWACKE TEST UNEXPECTED WACK 2468 CO 67 O21E 2359 3B UNPACK UNPACK DATA 
2 3 JNE TERROC 246F 20 2465 2360 pc ILE *3ze 
23BC OC OE 2559 2959 2293 MYC LOGMSG(15}.UNWACK MOVE IN MESSAGE 2479 0006 247L 236L UNPKA DC AL2(& 9} SOURCE ADDR GETS FILLED IN 
a. sa n aoe oe TERROC CLI ERRsUNK TEST FOR UNKNOWN RESPONSE 2472 2-86 2473 2362 oc AL2 (PLINE~@} Se 
JNE GETSET ee 2474 OD LE 2F80 Z2FFI 2363 CLO = PLINE-4432}) pFEFF TEST CINE ALL F 
23CS OC OF 2590 2969 oo MVC =—s- LOG MSG 16 - UNKOK MOVE IN MESSAGE 2478 F2 OL 09 2364 JNE = PXRC PRINT LE NOT 
9 ' 247D OD 1F 2F60 2FF1 2365 CLC PLEINE~36(0323,FFFF 
23CF CO 87 O21E 2298 GETSET B UNPACK GO UNPACK CAR 2483 F2 81 08 2366 JE NOP NG PRINT IF ALL FPS 
2303 02 2303 2299 oc Iubeze 2486 CO 87 O2Z1A 2367 PRRC B PRINT PRINT LINE OF DATA 
oo 2620 2305 2300 oc AL2(SCAR} 248A 81 248A 2368 Oc XLL*81¢ 
6 2548 2307 2301 bc AL2{LOGCAR} 2488 46 2488 2369 OC ILL* 708 
2302 248C 2F80 248D 2370 DC AL2(PL INE-4} 
23D8 CO 87 OZLE 2303 B UNPACK GO UNPACK TAR 248E OF O1 2471 37CL 2371 NOP ALC  UNPKA(2} eTHREE2 ADD 32 TG ADDRESS 
230C 02 23DC 2304 Oc TLEt2e 2494 OF G1 2FDi 37C1 2372 ALC HEADAD(2},THREEZ ADD 32 £0 ADDRESS 
2300 2622 23DE 2305 oc ALZUSTAR} 249A OD OL 2471 37C5 2373 CLO UNPKAC232SPXRP CHECK FOR END 
23DF 25B2 23EO 2306 oC AL2(LOGTAR} 2446 CG 04 2462 2374 BNH  PXRAL GO oO NEXT LINE if NOT END 
2307 2375 
aaa ce 87 O21E pe ate & UNP ACK GO UNPACK SAR 248% CO 87 O21A4 2376 8g PRINT GO SPACE 6 
3 oc ILie2¢ 2448 96 2448 2377 DC XLE*9G8 
23£6 2624 23E7 23106 oc AL2(SSAR} 2378 i 
23€8 25BC 23E9 231k ac ALZULGGSAR) 2409 4D O02 02 264C 237¢ CLC =—s- 23 e XRLF eSTATR WAS RESULT STATUS? 
2312 24AE F2 01 09 2380 JRE TSTHLT JUMP Ie NOT 
2364 CO 87 O2Z1E 2313 B UNPATK GO UNPACK STATUS 2481 CO 87 1027 2381 8 FORMAT GO PRINT STATUS GECGDE 
cere se Z3EE 2314 pc ILift2¢ 24B5 CO AT O21A 2382 B PRINT GO SPACE 6 
626 23FO0 2315 pc AL2¢SSTAT? 2489 96 2439 2383 DC XL 2 #96? 
23F1 259E 23F2 2316 be AL2(LOGST} 2384 ; 
ee 2317 24BA 30 20 262A 2385 TSTHLT CLI ERR-RVIS WAS IT ee ae 
F OC 24062 2318 HVC =HEADC1},ERR MOVE ERRNR ¥O HEADER 248E F2 SL LL 2386 JE PHMSG GO PRENT HESSA a 
23F9 CO 8? 021A 2319 B PRINT GG PRINY IST MESSAGE 24.1 3D 40 2624 2387 CLE ERReEQTC WAS IF EQT TG COMMAND Wie te aaa 
23FD C2 23FD 23206 DC XLL°C2¢ 2405 F2 BL OA 2384 JE PHASG GO PRINT MESSAGE IF SC 
23FE 30 23FE 2321 oc ILit4g? 22389 
23FF 2592 2400 2322 oC ALZ2 (MSGBLK} 2408 CO 87 0222 2390 HLTERR & HALT GO HALT 
2401 8966 2462 2323 HEAD DC XL2°6900° 24CC 8966 24CD 2391 ERRHLY DC XL2*e900* &eeekHOLT CODE GETS FILLED INess3ee 
5.03 a 87 0218 satis 2324 B PRINT GG PRINT CAR, TAR. SAR & STATUS 24CE CO BT G2lée 2392 B LINK GO TO NEXT ROUTINE 
4 2407 2325 DC KLL'G2? 2393 
oe oe 2408 2326 DC IL1&43¢ 24D2 CO 27 G21A 2394 PHNSG B PRINT PRINT MESSAGE TO RESET HALT 
5 240A 2327 oc AL2(LGCSARI 2406 B6 2406 2395 oC XL 2°86? 
240B 30 08 262A 2328 cil ERR» DATER TEST FOR DATA ERROR a 24D7 21 2407 2396 oC FLR@33¢ 
240F CO O01 2427 2329 BNE TEENC BRANCH IF NOT phe 2408 2D6} 2409 2397. BC AL2 (RSTHNG} 
2413 38 G4 2E94 2336 TBN RBFLGexX'G4? TEST DOING ERASE ALL UNPROT. 240A OC OO 24€5 24CD 2398 AYE STHLT(L} pERRHELT MOVE IN HALT CODE 
2417 CO 90 LFFS 2331 BF PXREX 24E0 CO 87 0222 2399 8 HALT 
2418 CO 87 O21A 2332 8 PRINT GG PRINT MESSAGE | 2464 8906 24E5 2400 STHLT OC XL2*8900° HALT CODE GETS FILLEC IN 
241F 02 241F 2333 Dc MELE oze 2405 
2420 18 2420 2334 oc ILLS 27° ce 24E&@ CO B87 0006 2402 ERRORR B —¥ RETURN TO USER 
2421 2a8C 2422 2335 DC AL2 (EAUMG} ts 2403 
2423 CO 8T 1FFE 2336 B PXREX ; 2403 
2427 30 10 2624 2337 TEINC CLE ERA, INCOR TEST FOR INCORRECT RESPONSE : $e, 2404 FHASERARASERRERELERS PEER SEAESESLSE SE LH KEATER SESS GREASE 
2428 CO BL LEFS 2338 BE PXREX IF §Ge GO PRINT poke? 2405 + SUBROUTINE TQ CHECK FGR MODEL 4 AND DEVICE 40 ee eee eeSS 282 6% 
242F 30D £5 262748 2339 Chi ERR, 30ST WAS ERRGR - WRONG STATUS i 2405 KEEERAEKALAEAEE ESPEASERLESLLESEASASSHKEARKIRCRESRERARS ERS 
2433 FZ OL 04 2346 JNE PXRK JUMP IF NOT Sie 2407 : 
2436 CO 87 iDke 2341 8 PEXPST GO PRENT EXPECTED STATUS i & 2 2408 * THIS ROUTINE CHECKS FOR FHE CONSGLE DEVICE (460) ON BA MODEL 4 
2342 © PRINT CONTENTS OF TRANSHIT/RECEIVE FIELD 2409 # Ie SG, TEST PATTERNS AND KEYBOARD ROUTINES ARE SKIPPED. 
243A CC BT OZLA 2343 PXRM B PRINT PRINT XMET/RES HEADING a 2410 © HOWEVER, LF SS 28 ES FURNED ON, THIS TEST IS IGNORED. 
243E 81 243E 2346 oc XLES SLE is 2411 
af oD 243F 2345 Dc TLLE EBS i 24EAR 34 O08 2507 2412 CHMGOX ST MODXR4+3, ARR STORE RETURN ROPRES® 
440 39€5 2441 2346 Dc AL 2UXMRCMG} ' 24£E 38 80 S200 2413 TBN SBYTES,SSW28 TEST SSH 2 
2442 OC LF 2F8G 2FECEF 2347 M¥C PLENE~4 (32 be PHEAD SET UP HEADING ‘ 24F2 F2 16 OF 241% JT MOOXR SKIP THIS FEST ITF SO 
2448 OC 25 2F60 2FAS 2348 MYC PLINE-36038; »PHEADA i 24F5 3D 40 2605 2615 CLI CURDEYsx*40° CHECK FOR DEVETE 40 
244E CO 87 OZLA 2349 B PRINT GO PRINT HEADING | 24F9 F2 02 08 2415 JNE  MODXR OUT 1L& NOT 
2452 82 2452 2356 oC MLE'B2° * 24FC 3D C2 0200 2417 cil X*200* .C?B? TEST FOR MODEL 4 
2453 46 2653 235} oc ILL¢ TO? i 2500 CO 81 0216 2418 BE i ENK SKIP ROUTINE IF SO 
2454 2F80 2455 2352 oC AL2CPLINE-4} : 2504 CO 87 0006 2419 MODXR B e-¢ RETURN 
2456 OC Ol 2FD2 262A 2353 MVC HEADADI2}-L CAR INITEALIZE HEADING ADOR | to 2420 
DATE 26JUNTS 2500T75 LSJANT6 L4MAYT6 PROG ID ite \.. DATE 26J5UN75 250CT75 LSJANTS L4MAY 76 PROG ID 0894-3 
EC NO. 825023 825032 825034 625035 PAGE 18 | EC NO. 825023 825032 825034 PAGE 18A 
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ERR LOC OBJECT CODE 


2508 
250C 
2510 
2514 
2518 
251C 


2520 
2524 
2528 
252C 
252F 


2533 
2537 
2538 
253F 


2543 
2546 


254A 
254E 
2552 
2556 
255A 
255E 


DATE 
EC NO. 





34 
34 
34 
35 
ci 
Ci 


Cl 
Cl 
3C 
F2 
cl 


3c 
C2 
C2 
35 


F3 
co 


3C 
co 


co 
3c 
co 


01 
02 
04 
04 
5D 
89 


8& 
8C 
03 
87 
8B 


n0 
Ol 
02 
04 


88 
87 


01 
87 
06 
87 
a5 
87 


253A 
253E 
261¢ 
262C 
255A 
2520 


254A 
252F 
262A 


2552 


2610 
0000 
0000 
2618 


01 
2508 


262A 
2533 
262A 
2533 
262A 
2533 


26JUN75 
825023 


DA FUNCTIONAL TESTS 


ADDR STMT SOURCE STATEMENT 
242] ERESEKSSRESCKHESRESSESERASESE 
2422 * INTERRRUPT ROUTINE 
2423 FEERAERSEARAEKEKEKSESEERGTRES 
2424 
2425 INT2 = ST X143 sXR1 
2426 ST X24+3_XR2 
2427 ST PSRWePSR 
2428 L ZERO,PSR 
2429 TSTATT TIO  ERRATC,ATTCHK 
2430 TIO GOON»x*89* 
2431, 
2432 GOON TIO  UNITC,NORDUC 
2433 TIO = 101,X*8C* 
2434 MVI ERR, INPN 
2435 J IEXIT 
2436 101 TIO = ITBER,X*8B¢ 
2437 
2438 IEXIT MVI INTFLG0 
2439 x1 LA  =s- **, XR1 
2440 X2 LA = #~%, XR2 
2441 L PSRWsPSR 
2442 
2443 SIO —- X01" ,CNTRL 
2444 B INT2 
2445 
2446 * ERRORS 
2447 UNITC MVI  ERR,UNITCH 
2448 B IEXIT 
2449 ITBER MVI ERR,ITBE 
2450 8 IEXIT 
2451 ERRATC MVI ERR»ATTCH 
2452 8 TEXIT 
250CT75 ISJAN76 =—s_ LGMAYT6 
825032 825034 825035 
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4234259 
19 | 


PART NO. 
PAGE 


| 
i 
| 
{ 
I 


REKSRAREEKSEKKHKES CKKAAKSLHKKSEKKEKSAKSSSSREKARKSEKAKSAK 


SAVE XR1 

SAVE XR2 

SAVE PSR 

INITIALIZE PSR TO ZERO 

TEST FOR ATTACHMENT CHECK 
TEST FOR DA OP END INTERRUPT 


TEST FOR UNIT CHECK 

TEST FOR INTERRUPT PENDING 
ERRORs INTERRUPT SHOULD BE PND, 
EXIT 

TEST FOR ITB INTERRUPT 


SET INTERRUPT OCCURRED INDICATION 
RESTORE XR1 
RESTORE XR2 


RESTORE PSR ; 


RESET THE INTERRUPT 
TAKE NEXT INTERRUPT 


SET UNIT CHECK : 
EXxIT i 
SET ITB ERROR 


SET ATTACHMENT CHECK 


{ 
{ 
! 
| 
PROG ID 
PAGF 


0894-3) 
19: 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


8943 


ERR Loc 


2562 
256A 
256B 
2573 
2578 
2583 
258B 
2591 
2592 
259A 
259F 
25A7 
25A9 
2581 
2583 
25BB 


2580 
25C0 
25C1 
25C4 
25C7 
25CF 
25De 
25D2 
250A 
25E2 
25EA 
25€F 
25F2 


25F3 
25F9 
25F8 


25FC 


2600 


2604 
2606 
2608 


260A 


260E 
260F 
2610 
2611 
2613 
2615 
2617 


(- DATE 


‘ 


Sy, 


Mm O 


~ 


Q 


Pm, 


EC NO. 


DA FUNCTIONAL TESTS 
OBJECT CODE ADDR 
2562 
C4CS5SESCOC3CS40E7 256A 
E7 
4040404040404040 2590 
404040404 0404040 : 
40404040404 04040 
4040404040404040 
404040404040 
40 2591 
4040E2E3C1EZE4E2 259 
TEETETETE?T 
4040C3C1ID9OTEETVE? 2548 
ETET 
4040E3C1LO9TEETET 2582 
E7E7 
S040E2C1D97TEETE7 25BC 
ETE7 
258D 
O22T7F5 25BF 
5F 25C0 
110000 25C3 
1NE913 25C6 
C+CSE5CIC3C540E7 25CF 
€7 
10C1 2501 
OO5COO5COOS5SCO0SC 25£E9 
005C 00 SC 005C 005C 
005C005C005C 005¢ 
D9E3D5FOF2 25E€€ 
114040 25F1 
03 25F2 
25F3 
37FF 32320000 25F 8 
0000 25FA 
2D 25FB 
25FC 
0227F603 25FF 
2600 
0227F203 2603 
0000 2605 
co0o 2607 
2609 2609 
00000000 2600 
00 260E 
00 260F 
00 2610 
0000 2612 
0000 2614 
2508 2616 
0000 2618 
26 SUNT5 250CTT5 
825023 625032 


STMT SOURCE STATEMENT 

2454 44050405 5ES SRE RE RED 

2455 * ERROR LOGOUT FECKESEET ETS SEREESEES SEEEEEESESEEREDRESEOE9SSS EEREREREE 

2456 BRECEEEESEEE ERE EERSE 

2457 LOG EQU * 

2458 LOGDEV OC CLO*DEVICE xx®* 

2458 

2459 LOGMSG DC 3BCL1* § 

2459 

2459 

2459 

2459 

2460 MSGBLK OC cLie * 

2461 LOGST OC CL1I3® STATUS=XXXX* 

2461 

2462 LOGCAR OC CL1IO® CAR=XXXX* 

2462 , 

2463 LOGTAR DC CL1O* TAR=XXXX*t 

2463 

2464 LOGSAR OC CL1IO® SAR=EXXXX# 

2434 

2465 

2466 EERE EEE EEE EE9 ONSEN ETESEERE 

2467 * DATA FIELOS AND CONSTANTS 28 64664654094046294400640066096000020006033 

2468 ¥¥45940S 44090449499 5409E8SESED 

2469 

2470 WRT EQU * 

2471 WRIFLOD OC XL3°O227F5°* STXsESC,ER/WR (GETS CHANGED TO WR) 

2472 WCC Oc XL1°SF® WCC - DO EVERYTHING 46 CHAR PRENT 

2473 WRTAOR OC XL3°110000° SBA, ADDR GETS FILLED IN 

2474 DC XL3*1DE913° SFye PROT, HI INT.s MODes IC 

2475 DEVICE OC CLO*DEVICE xx? OEVICE GETS FILLED IN 

2475 

2476 oc XL2*°10C1° SF, UNPROT.+ MOD. 

2477 oc 6XL4 *005COO5C * — 

2477 

2477 

2478 oc CL5*RINO2* 

2479 oc XL3°1140408 SBA TO RESET BUFFER ADOR TO ZERO 

2480 EWRT OC XL1°03°* ETXx 

2481 

2482 SELPOL EQU * SELECT/POLL MESSAGE 

2483 SPFLD OC XL6'37FF32320000* POLL OR SLECT GETS FIt,eED IN 

2484 PSDEV OC XL2*°0000° DEVICE GETS FILLED IN 

2485 €—NQ DC XL1°2p° ENQ - ENDS POLL OR SELECT 

2486 

2487 ROMOD EQU + READ MODIFIED COMMAND 

2488 RDMODE OC XL4°0227F603° STX»ESCyRO MODLETX 

2489 

2490 RDB EQU * 

2491 RDBE oc XL4*0227F203°* READ BUFFER COMMAND 

2492 

2493 CURDEV DC Xi2'08 CURRENT DEVICE 

2494 LINE oc KL2°0O* CURRENT LINE POINTER (LOW BYTED 

2495 INXR2 OC AL2(ONFLG-4} START OF ‘ON*® FLAGS 

2496 

2497 © KEEP THE FOLLOWING 2 BYTE FLAG BYTES TOGETHER AND IN ORDER 

2498 * BITS 2-7 OF HI BYTE USED FOR DEVICES C2-C7 

2499 * BITS 2-7 OF LO BYTE USED FOR OEVICES 02-07 

2500 

Sens GNFLG OC XL4*O8° DEVICE AVAILABLE FLAGS 1 

0 

2503 RESTFL OC xL1°O# RESTART FLAG = FF IF PGM IS LOOPING 

2504 DONE DC xtL1°o° = FF WHEN ALL DEVICES ARE DONE 

2505 INTFLG DOC XL3°O? INTERRUPT FLAG 

2506 BCNT OC XL2°O8# BUSY COUNTER 

2507 DVBCNY OC XL2*O* DEVICE BUSY COUNTER 

2508 AINT2 OC AL2UINT2}3 ADDRESS OF INTERRUPT ROUTINE 

2509 PSRwW BC XL2*O8 PSR STORAGE AREA 

L5JANT76 L4MAYT6 PROG ID 0894-3 

825034 825035 PAGE 194 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 
ERR LOC 


2619 
2618 
261LD 
261F 
2621 
2623 
2625 
2627 
2628 
2629 
262A 
2628 


262E 
2620 
2632 
2634 
2636 
2638 
263A 
263C 
263E 
2640 
2642 
2644 
2646 
2648 
264A 
264D 
2650 
2652 
2654 
2658 
2659 
265A 
265C 
265E 
2660 
2661 
2662 
2664 
266C 
2574 
267C 
2684 
268C 


268F 
2697 
269F 
26AT7 
26AF 
2661 
26B9 
26C1 
26C7 
26CF 
2607 
2&DF 
26E7 
26EF 
26F 0 
26F8 
2790 
2708 
2709 
271k 
2719 


DATE 
EC NO. 


DA FUNCTIONAL TESTS 


OBJECT CODE ADDR 
#200 261A 
0006 261C 
0000 261E 
0000 2626 
0000 2622 
0000 2624 
0000 2626 
00 2627 
00 2628 
00 2629 
00 262A 
000001 2620 
262C 
0003 262F 
0006 2631 
O1OL 2633 
4050 2635 
37 FF 2637 
1068 2639 
107C 2638 
1070 2630 
1061 263F 
C250 2641 
C240 2643 
40C2 2645 
C840 2647 
C404 2649 
016CD9 264C 
O16C 61 264F 
4040 2651 
6060 2653 
ETE TETE? 2657 
00 2658 
00 2659 
0000 2658 
o0ca 2650 
3ESF 265F 
00 2660 
00 2661 
7206 2663 
E6C 1D905C9D5C740 268E 
604009E 30540F OF 1 
60FOF2400506E340 
0964054 0C6D60940 
E3C BC 9E240C4C5E5 
C9C 305 
D9IE3D540F0F14060 2680 
40C 3C 8C5C 3D240C4 
CS5E5C9C3C540C1E5 
C1iC9D3C1C2C9D3C9 
E3E8 
DSE 3D540F0F 14060 2606 
4£0C4C5E5C9C3C540 
E4D7C4CLE3C5 
DIE 3D540F0F 24060 26EF 
400406C4C5036B840 
C4C 5ESC9C3C540E3 
E8D 7 540€ 4C 5E 305 
OI DSC9D5SCLE3C9IDE 
O05 
D9E3D540F0F34060 2768 
49D9CSD7D703C540 
C4CLESCIS0E3C5E2 
E3 
DSE3D540F GF 44060 2726 
40E2C905C703C540 
C3C 8CLD9SCLC3E3C5 
26SUNTS zZ50CT75 
825023 825032 


STMT SOURCE STATEMENT 

2510 LCAR OC .AL2EXMITRCE} 
2511 LTAR DC XL2¢Q8 

2512 LSAR DE XL2*0! 

2513 SCAR OC KL2°O?- 
2514 STAR DC XL2°G6¢ 

2515 SSAR DC XL2¢08 

2516 SSTAT OC XL2*O? 

2517 PFLG 0c XLL®O® 

2518 WRICND OC XL1*O8 

2519 PASS1 DC XL1*O# 

2520 ERR OC xL1L¢Q8 
252) ONE oc XL 3* 0000018 
2522 ZERO EQU = ONE~-1 

2523 THREE O0C XL2*® 00038 
2524 SIX DC XL2* 00065 
2525 DEVINC DC XL2¢*OLOL! 
2526 IR DC XL2*4050" 
2527 EOT DC XL2°37FF? 
2528 WACK oc XL2*106B° 
2529 RVI DC XL2* 107C* 
2530 ACKO OC XL2*1070¢ 
2531 ACK oc XL2*1061° 
2532 IRDE oC XL2*C250° 
2533 OE pc XL2°C240# 
2534 CC DC XL2*40C2? 
2535 DB pc XL2°C840° 
2536 OCUS DC XLZ°C4C4? 
2537 STATR DC XL3*O16CD9* 
2538 TSTREQ OC XL3*OLSC6LE 
2539 POLL DC XL2* 40408 
2540 SEL DC XL2° 6066? 
2541 XXXK DC CL&EEXXXXE 
2542 POLFLG DOC XLL‘68 

2543 AID oc XiLL*o? 

2544 POLST OC XL2508 

2545 CURACK DC XL2°GOF 
2546 STDEY oC XL2°¢3F 3F¢ 
2547 CONFLE DC XL1L*O# 

2548 SAVAID DC XLitoFt 

2549 X7200 CC XL2° 72008 
2550 WARN DC 

2550 

2550 

2550 

2550 

2550 

2553 

2552 HEAULA OC CL34°RTN G1 
2552 

2552 

2552 

2552 

2553 HEADIB DC CL22°RTN OL 
2553 

2553 

2554 HEAD2 oC CL4L*RTR 2 
2554 

2554 

2554 

2554 

2554 

2556 HEADZ OC CL25*RIN 03 
2555 

2555 

2555 

2556 HEADS DC CLEO*RTR 04% 
2556 

2556 

15JAN76 1L4HAYTS 

825034 


825035 


PART NO. 
PAGE 


TRANSHMIT/RECEIVE FEELO ADDRESS 
LIO TAR FIELD 

LIO SAR FIELD 

SNS CAR FIELD 

SNS TAR FIELD 

SNS SAR FIELD 

SNS STATUS FEELD 

PRINT FLAG = FF IF PRINTING 
CURRENT WRITE OR ERASE/WRITE CMD. 
= FF IF NOT FERST PASS 

INTERIM ERROR HALT BYTE 

HEX 1 AND ZERO 

ZERO FIELD 2 BYTE LONG 

CONSTANT THREE 

HEX 6 

CONSTANT TG INCREMENT DEVICES 
INT. REQ. STATUS 

ENT RESPONSE 

WACK RESPONSE 

RVI RESPONSE 

ACK O RESPONSE 

ACK £ RESPONSE 

INT. RQe, DEVICE END STATUS 
DEVICE END STATUS 

CONTROL CHECK STATUS 

DEVICE BUSY STATUS 

DATA CHECK, UNIT SPECIFY STATUS 
START OF STATUS MESSAGE 

START OF TEST REQ MESSAGE 

POLL CONSTANT, DEVICE 40 

SELECT CONSTANT 

ERROR BLANKING CONSTANT 

POLL FLAGS 
AID CHARACTER 
POLL STATUS --------~-------~----- 
CURRENT ACK BEING SENT 

CONSTANT FOR START DEVICE 

FLAG TQ DETERMINE RIN O2 RUN 

AID GETS SAVED HERE SOMETIMES 
CONTENTS OF LST WORD IN MICRO CGDE 


a ee ee me ee ete ee cee cee A ee ee ee ee 


CL&3S°WARNING - RTN O1-G2 NGT RUN FOR THIS DEVICE® 


CHECK DEVICE AVAILABILITY® 


DEVICE UPDaTE® 


MODEL, 


DEVICE TYPE DETERMINAT ION é 


RIPPLE DATA TEST® 


SINGLE CHARACTER TEST® 


PROG ID 
PAGE 


RO or ee ae re re a ge CO et ee ie ee I 
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ee 
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, 


‘, 


Ce 


% 


IBA MAINTENANCE DIAGNOSTIC PROGRAM 


8943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR STMT SOURCE 
272% DS40ESCSEZES 2556 
2727 DSE3D540F0F54060 2741 2557 HEADS 
272F 4GD9C5C 1C 440D4D6 2557 
2737 C&C9C6CSC5C440E3 2557 
Z73F C5E2E3 2557 
2742 DSE30540F OF 64060 2766 2558 HEADE 
274A 40 E6D9C9E3C540C6 2558 
2752 E4DSC3E3C9D6D540 2556 
275A €3C SE 2E 3E240C 105 2558 
2762 C4&40C5CLE4 2558 
2767 DOESD540F0F 74060 2786 2559 HEADT 
276F 40C9D5E5C1D3C9C4 2559 , 
2777 400104C4D94B40C4 2559 
277 CSE3C5C3ZE3C9ID6DS 2559 
2787 DIE3ZD540F OF 8406C 27A5 2560 HEADS 
278F 40CSD5E5C1D3C9C4 2560 
2797 40C4C1E3C140C4C5 2560 
279F E3C5C3E3C9D605 2560 
2TA6 DSE3D540F 0F 94060 2706 2561 
2TAE 40E4D7D7C5D96103 256% 
27B6 D6E6C5D940C3CLE2 2561 
ZTBE C540C 103D7C 8C 140 2561 
27C6 E3C5E2E3405040C3 2561 
Z7CE D6éD5E5C9D5E4 DEES 2561 
27D6 E2 2561 
2707 4007060303 27DB 2562 HEADS 
Z27DC DSEZD540F0C14060 27FD 2563 HEADA 
27E4 40E€3C5E 2E34007C2 2563 
27TEC E3E3C5090540C¢905 2563 
27F4 E2ESDPESC3E3 CODE 2563 
27TFC O5E2 2563 
27FE CIE3D54CF0E7 2803 2564 HDTPL 
2864 406040E3C5E2E340 2814 2565 HEADP 
280C DICLEZC3C5D90546 2545 
2814 EF 2565 
2815 DIESD540F1F04060 2633 2566 HEADIO 
2810 40D2C5ESC2D5Ci DP 2566 
2825 C440C SE 4D5C 32 3C9 2566 
2820 DED540ESC5E2E3 2566 
2834 DIEZDS+0F1LFL4060 2860 2567 HEADLE 
283C 40E4D07D07C5D96103 2567 
2844 D6E6C50940C3C 1E2 2567 
284C C5S40CL D3C7CECI40 2567 
2854 D2C5EBC2DEC1DSC4 2567 
285C 40E3CSE2E3 2567 
2861 DIE3D540F1F24060 2884 2568 HEADL2 
2869 40C4C9E2ZDTD3CLEB 2568 
2871 40C 505C 440D6C 640 2568 
2879 E3SC5E2E340D4C5E2 2566 
2881 E2CicTCcs 2568 
2885 CLE3E3C1C3C84840 2895 2569 ATTNGR 
2880 D5D6E34009C5CiC4 2569 
2895 E8& 2569 
2570 
2896 DSD6E340D9C4E861 28A7 2571 UNI TNR 
289E E4D5C9ES40C3C8C5 2571 
28A6 C302 2571 
28A8 CID5E34B40D9C5D8 28BB 2572 NOTAVL 
2880 4B6105D6E340C1E5 2572 
28B8 C1C90345 2572 
28BC D5D640C9D5E3C5D9 26C7 2573 NOINTR 
28C4 OSE4D7E3 2573 
28C@ C9E3C240C9N5E340 28D4 2574 ITBMSG 
2800 C509D9D046D9 2574 
28D5 CLEZE3C1C3C8D4C5 28E4 2575 ATTMSG 
2800 O5E340C3C8C5C3D2 2575 
28E5 C9OD5E340D705C440 28F2 2576 INTPND 
28ED D5D6E340D6D5 2576 
DATE 26JUN7S 250CT75 LSJANTO 
EC NO. 825023 825032 825034: 


PART Nude 
PAGE 


4234259 


20A 





STATEMENT 

DC CL27*RTN 05 - KEAD MODIFIED TEST® 

DC =CL3T*RIN 06 - WRITE FUNCTION TESTS AND EAUt 

DC CL3Z*RIN OF - INVALID ADDR. DETECTION® 

DC CL3L®RTN O08 - INVALID DATA DETECTION? 

DC CL49*RTN O9 — UPPER/LGWER CASE ALPHA TES: & CONTINUOUS* 
pC = CL5* POLL? 

OC = CL34*RTN OA - TEST PATTERN INSTRUCTIONS® 

BDC ss CLEFRTNOXE 

DC CLLT® - TEST PATTERN X* 

DC «ss CL31*RTN LO ~ KEYBOARD FUNCTION TEST® 

DC Ci&5*RIN 11 - UPPER/LOWER CASE ALPHA KEYBOARD TEST® 
DC CL36*RTN 12 - DISPLAY END OF TEST MESSAGE! 

BC —«-s« CLT“ ATTACH. NOT READY® 

DC ss CL18*NOT ROV/UNIT CHECK* 

DC = CL20* ENT. REG./NOT AVAIL! 

DC CLLZ*NO INTERRUPT® 

DC =CLL3"ETB ENT ERROR® 

DC = CLI6* ATTACHMENT CHECKS 

DC CLIS'INT PND NOT ONS 

L4MAY76 PROG ID 0894-3 
825035 PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 
ERR LOC 


2eF3 
28FB 
2903 
2904 
290C 
2913 
2918 
2923 
2926 
292E 
2933 
2938 
293D 
2945 
2948 
2953 
295A 
2962 
296A 
2972 
297A 
297C 
2984 
298C 
298F 
2997 
299F 
29A7 
29AF 
2980 
2988 
29C0 
29C5 
29C0 
2905 
2900 
29E5 
29E9 
29F1 
29F9 
2A01 
2A09 
2All 
2A19 
2A1C 
2A24 
2A2C 
2A34 
2A3C 
2A44 
2A47 
2 AGF 
2A57 
2A58 
2A63 
2A68 
2A72 
2A7A 
2A82 
2ABA 
2A8D 
2A95 
2490 
2AA5 
2AAD 
2AB5 
2AB7 
2 ABF 


DATE 
EC NO. 


DA FUNCTIONAL TESTS 


OBJECT CODE 


ClE3E3C1C3C84 B40 
C8E4D5C 740C 2E4E2 
E8 
C4C1E3C140D4C9E2 
C3D604D7C1D9C5 
E4D5C5E7DIC5C3E3 
C5C440D9C5E2D706 
D5E2C5 

D9E 5C 940E 30640E 2 
C503C5C3E3 
C5D6E340E30640C3 
D4C4 
C4C5E54B40C8 E405 
C740C2E4E2E8 

E40 5C SE 7D 7C5C 3E3 
C5C440£6C1C3D2 
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PART NO. IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4234259 
PAGE 22 is PAGE 214A 
8943 ODA FUNCTIONAL TESTS 
z aad 
STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
i 
77 HBUSY OC CLI7T*ATTACH. HUNG BUSY® 2AC7 C8CLO3E340C6F348 2597 
eel one 2ACF C3C1E4E3C9D6D540 2AFE 2598 ROGMG2 DC - CL48*CAUTION - ERRORS MAY OCCUR IF CHAR. IS NOT VALID® 
2577 2A07 6040C5D9D09D6D9E2 2598 
2578 MISDAT DC CLL5*DATA MISCOMPARE § ZADF 4004C1 E840D6C3C3 2598 
2578 2AE7 £40940C9C640C3C8 2598 
2579 UNEXP OC CLI9*UNEXPECTED RESPONSE® 2AEF C1D094840C 9E 246005 2598 
2579 Z2AFT 06E340E£5C103C9C4 2598 
2579 Z2AFF DSD640C5D0909D609 2806 2599 NOERR OC CL8*NO ERROR ® 
2580 RVIMSG DC CLI3*RVI TO SELECT? 2B07 C4C5E5C9C3C540E7 2BOF 2600 DEVMG OC CL9* DEVICE xx* 
2580 2BOF E7 2600 
2581 EDTMSG DC CLIO*EOT TO CMD* 2B10 40CLE5C1C9D3C1C2 2B19 2601 AVALMG OC CL10* AVAILABLE® 
258) : 2518 D3C5 2601 
2582 DVBMSG DC CL14*DEV. HUNG BUSY® 281A 2602 STTAB EQU * STATUS BIT NAMES — KEEP IN ORDER 
2582 2B1lA D6D7CS5SD9C1E3C9D6 2829 2603 oC CL16* OPERATION CHECK * — 
2583 UNWACK DC CLIS*UNEXPECTED WACK® 2B22 0540C3C8C5C30240 2603 
2583 282A C30605E3D9060340 2839 2604 DC CLI6*CONTROL CHECK & 
2584 UNKOW OC CLI6*UNKNGWN RESPONSE® 2832 C3C8C5C3D2404040 2604 
2584 : 2B3A C4C1LE3C140C3C8C5 2849 2605 oc CLI6*DATA CHECK ° 
2585 INCORM OC CLI8* INCORRECT RESPONSE* i 2B42 C3D240404 0404040 2605 
2585 | 284A C5D8E4C9D7D4C5D5 2859 2606 oc CL16*EQUIPMENT CHECK * 
2585 2B52 £340C3C8C5C30249 2606 
2586 ACCINM OC CLI9* ACCEPTED INV. ADDR.? 2B5A C9D5E3C5D9E5C5D5 2869 2607 DC CLIG*INTERVENTION REQ? 
2586 i 2862 €3C906D0540D9C5D8 2607 
2586 2B6A C3D60404C1D5C440 2879 2608 DC CLI6"COMMAND REJECT ¢ 
2587 RSBEOT DC CL16*RESPONSE S/B EOT* 2B72 D9C5D1C5C3E34040 2608 
2587 I. 2B7A C4C5E5C9C3C540C5 2889 2609 oc CLI6*DEVICE END * 
2588 WRSTMG DC CLI7*WRONG STATUS REC.* 2882 D5C4404040404040 2609 
2588 2B8A ES4D5C9E340E2D7C5 2899 2610 oc CLI6*UNIT SPECIFY ® 
2588 2B92 C3C 9C 6E 840404040 2610 
2589 MICNLM OC CL21*MICRO CODE NOT LOADED? { 2B9A C4C5E5C9C3C540C2 2BA9 2611 oc CL16"*DEVICE BUSY ® 
2589 2BA2 E4E2E84040404040 2611 . 
2589 be 2612 
2590 MPMG1 DC CL36"UNEXP. INTR. AFTER CONT. POLL ISSUED? ; 2BAA E2E3C1E3E4E24009 2BC7 2613 STATMS DC CL30*STATUS RECEIVED FROM DEVICE Xxx®* 
2590 os 2BB2 C5C3C5C9E5C5C440 2613 pious Gale 
2590 2BBA C609060440C4C5E5 2613 
2590 28C2 C9C 3C540E TET 2613 
2590 : 28C8 E2E3C1EZESE240C5 28E5 2614 STATME DC CL30* STATUS EXPECTED FROM DEVICE xx* 
2591 MPMG2 DC CLS1°NO INTR, AFTER 2 SEC. T.M. ISSUED DURING CONT. POLL" | : 2BD0 ETD7C5C3E3C5C440 2614 
2591 | 2BD8 Cé6D9DED440C 4C SES 2614 
2591 ba 2BEO C9C3C540E7ET 2614 
2591 . 2BE6 2CO3 2615 STATFL DS 30CL} PRINT FIELD 
2591 | 2004 40 2C04 2616 STATBL DC cLue ¢ BLANK FOR PRINT FIELD 
2591 Loe 2617 
2591 oN 2CO5 C9C640C4C5ES5C9C3 2634 2618 . OC. CL48"IF DEVICE SHOULD SE AVAILABLE AND IS NOT, CHECK ° 
2592 MPMG3 OC CL43* INCORRECT STATUS RECEIVED DURING CONT. POLL' 2COD C540E2C 8D6E4D3C4 2618 
2592 i 2C15 40C 2C540C 1E5C1C9 2618 
2592 re 2€1D0 03C1C203C540C1D5 2618 
2592 i 2025 C440C9E240D5D6E3 2618 
2592 | s 2C 2D 6B 40C 3C 8C5C 30240 2618 
2592 ; A 2C35 C3D6C1lE740C3CIC2 205A 2619 RT1MG1 OC CL38*COAX CABLES AND/OR REFER TO THE DEVICE® 
2593 MPHG4 OC CL20°CAR NOT EQUAL TO SaRt i 2C3D 03C5E240C1D5C461 2619 
2593 [og 2C45 06094009C5C6C5D9 2619 
2593 ie. 2040 40£3D640E3C8C540 2619 
2594 MPMG5 DC CL23* RESPONSE WAS NOT STATUS® 2C55 C4C5E5C9C3C5 2619 
2594 2C5B E3D9D6E4C2D3CSE2 2C8C 2620 oc CL50*TROGSLESHOOTING GUIDE. SSW Ol MAY BE SET TO LOOP * 
2594 ' 2C63 C8D606E3C905C 740 2620 
2595 EAUMG OC CL27* ERASE ALL UNPROTECTED ERRGR® 2C6B C7TE4C9C4C54B40460 2620 
2595 | 2C73 E2E2E 640F OF 14004 2620 
2595 2C7B C1E840C 2C540E 265 2620 
2595 2C83 £340£3064003D6D6 2620 
2596 oc CL4¢2*DIAL EBCDIC CHAR. TO SE REPEATED INTO DATA* i 2C8B D740 2620 
2596 2C8D D9IEZDS40FOF140C6 2CAA 2621 RTIMG2 DOC CL30*RTN O61 FOR CONTINUOUS POLLING. * 
2596 2C95 D60940C30605E3C9 2621 
2596 : 2C90 05E406E4E240D706 2621 
2596 [2s 2CA5 D3D3C9D5C 748 2621 
2596 2CAB C9C640C4C5E5C9C3 2CDB 2622 oc CL49°IF DEVICE IS A PRINTER, CHECK FOR FORMS PROPERLY * 
2597 ROSMG OC CL24*° SW 354. RESET HALT F3.° | 2CB3 C540C9E240C14007 2622 
2597 by 2CBB 09C9C5E3C5096840 2622 
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PART NG. 4234259, IBM MAINTENANCE OLAGNOSTIC PROGRAM PART RO. 4234259 
PAGE 22; PAGE 224 
8943 DA FUNCTIONAL TESTS | 8943 DA FUNCTIONAL TESTS 
ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT i ERR LOC CBLECTY CODE ADDR STMT SOURCE STATEMENT 
2CC3 C3C8C5C30240CEDS 2622 | 2FDO GOSO 2FD1 2656 HEADAD OC AL2'*O¢ 
2CCB 0940C 6D6D9D4E240 2622 Z2FD2 C6CECECSCECE6CECH 2FFi 2657 FFEF oc 32CLise? 
2608 Oe bees | Hes Csceescecececccs 31 
2CDC CODSE2ZC5SDIESC5C4 2CFE1L 2623 RT1LKG3 OC CL22* INSERTED, ON LERE ETC.? | Z2FEA C&C &CEC 6&CECEC OCH 2657 
2CE4 684006054653C905 2623 ' 2FF2 0010 2FF3 2658 SIXTEN DC Fe2*168 
2CEC C540C5E20348 2623 a 2FF4 4320 2FF5 2659 ENDP oc ALZ2(XHITRC+288) 
2CF2 DEDSDZEB40CLESCL 2022 2624 oc CL49°GNLY AVAILABLE DEVICES WILL BE USED IN FOLLOWING * ; ; 2FF6 2F84& 2FFT 2660 ELIN oC AL2(PLINE) 
2CFA C9D3C1C203C540C4 2624 2FFS8 9000 2FF9 2661 WORK oc XL2*O# 
2002 C5E5C9OC3C5E240E6 2624 2FFA 1070 2FFB 2662 ACK oc XL2*10708 ACK O OR i 
2D0A C9D30340C2C540E4 2624, ' Z2FFC OS 2FFC 2663 TCOUNT DC XL1'0O* 
2012 E2C5C44CC 9054006 262% { 2FFD 06 2FFD 2664 RTNELG OC XLL* OF MODEL 2 AND PRINTER FLAGS 
201A D6D3D3D06E6C9DS5CT 2624 i 2FFE CSETDTCSC3ESC5C4& 3005 2665 EXP oc CLSB*EXPECTED?® 
2022 40 2624 3006 DSC 5C3C5C9E5C5C4 3000 2666 KECD DC CLBE* RECEIVED? 
2023 DODSESESCIDSCSE2Z 2040 2625 RTIMG OC CL30*ROUTINES. RESET HALT TO GO ON-®* | 300E C4C9C1D340C1C4C4 3030 2667 oc CL48*OITAL ADOR OF DEVICE/S YOU WISH TO TEST INTO DATA® 
2028 4B40D9C5E2C5E340 2625 | 30816 D940D6CE640C4C5E5 2667 
ose CiUecebeoeae SGse | R026 EA SOERCSE Sees Ced Sie, 
2041 DICSE2C5E340C8C1 2061 2626 RSTHHG oc CL33* RESET HALT TO FETCH DEVICE STaATUS® | 302E D640E3C5E2E340C9 2667 
2049 D3E340E3D640C6C5 2626 i 3036 DSE3D640C4C1 E3C1 2667 
2051 E3C 3C840C4C5E5C9 2626 | 303E 40E 2E640F 36BF 448 3058 2668 SETMG1 DC CL30* SW 30%. OIAL FF TO END LIST.? 
2059 C3C540E 2E 3C 1E3E4 2626 ! 3046 4040C4C9C10340C6 2668 
2061 E2 2626 i 304E C640E30640C5D5C4 2668 
2062 2627 WRIRT2 EQU * 3056 40D 3C 9E 2E 348 2668 
2062 O22 7F55A 2065 2628 oc XL4* O227F55 AS STXsESC, ER/WRITE,WCC=START PRINT oa: 305C DOCS5E2ZC5E34°C8C1l 307D 2669 SETNG2 OC CL34°RESET HALT FO/FL AFTER EACH ENTRY. * 
2066 C4CSESCOC3C540ET 2D6E 2629 DEVRT2 DC CLO*DEVICE xx® ! é 3064 D3E340C6FO61CHFL 2669 
206E E7 2629 ; 306C 40C 1C 6E 3C 5D940C5 2669 
2D6F 11404003 2072 2630 EWRT2 OC XL&*211404003° SBAe ADDR Gy ETX i 3074 CIC3C840C5D5E3D9 2663 
2073 263] EXPBUF EQU * . EXPECTED DATA BUFFER ! 307C E84B 2669 
2073 2E92 2632 os 288CL1L BO7TE C305E5€1D3C9C440 3097 2670 INVMG DC CL26° INVALID DEVICE - TRY AGAIN® 
2E93 FF 2E93 2633 EXFIL oc XLRLO FFE FELL CHAR FOR ExP. DATA BUFFER i “ 3086 C4C5E5C9C 3054060 2670 . 
2E94 00 2E94 2634 RBFEFLG OC XL1i*Q* READ BUFFER FLAGS i 3025 40E3DS9EB40C1L CTCL 2670 
Z2E9SS O0240FF60 2E98 2635 RBEXL DC XL&* O240FF 60° READ BUFFER HEADING : ehce ad oS a wanie: Ge Aeneas Nd ha CHAR ZO.RORO1G8s RCR OR oR 
2E99 2636 RIPOAT EQU & ar 3098 O00 3098 267 3 e ° 
2€99 2EAA 2637 RIPHD DS 1SCLi RIPPLE DATA HEADER oe 3039 O90 3099 2672 SSWFL im KLLEOS SSW 11 FLAG 
ZEAB CIC2C3C4C5C6C7TCB 2ZECE 2638 oc CL36 *ABCDEFGHE SKLMNOPQRSTUVWXY 261234567898 ‘ 5 309A oo WRTR3 er * ensaaeenGn etree wae su6e 
2EB3 C90 1020304950607 2638 & 309A O227F54 309D 2674 RT3CW OD XL4? Xe ¢ 9 
2EBB 080 9E 2E 3E4E SEGET 2638 | is 309E LDES 309F 2675 Dc XL2°*1ipEBt SF, HE INTs, PROTECTED 
ZEC3 ES ESFOFLEZESE4E5 2638 i 30A0 ee eedeeean 30AD co DEVRTS DOC CLIG*S4eDHEVICE XxXeet 
Z2ECB F6FTFSF9 2638 : 30A8 CS40E TE TSC5C 2678 
ZECF 405060614A5ATASB ZEEA 2639 RIPDT OC CL28* g-f 2 oS, HCHZQCF_ Ff es da pum et | 4 30AE 1040 BOAF 2677 RT3HD DC ea eTESLE Barn RGce Gece 
ZED? SB6B7BS4C5C6CTC4D 2639 { 30B0 30EF 2678 WRIR3R DS 64CL R R 
2EDE SD6DTOSE5 EGETEGE 2639 , e. 30FO 03 3S0FO 2679 EWRTS NC XLL*O38 ETX 
2EE7 SFGFTFS&A 2639 : + 30F1 2680 UNLOCK EQU * CMD SEQUENCE TO UNLOCK DEVICE 
2EEB FF ZEEB 2640 oc ALL®C FEF RIPPLE DATA TERMINATOR | 30F% O227TFLC203 30F5 2681 UNLOCE OC XL5*O0Z227F1C203° bceta Ceprae nae eece 
2EEC 2641 NULL EQU * ioe 30F6 2682 ORD1L EQU * BEGIN ORDERS FOR TEST i 
2EEC OOFF 2EED 2642 oc KL2 *OOFF? NULL DATA t: 30F6 O22T 30£ 7 2683 DC XL2* 02278 STX-ESC 
ZEEE C000 2ZEEF 2643 CURDAT OC XL2°O8 CURRENT DATA ADDRESS | 30F8 F5 3O0FE 2684 oc XL1L°F5! CMD-ERASE »HRITE : 
2€FO 0000 2EF1 2644 STDAT OBC XL]?¢*ot START DATA ADDRESS { . 30F9 5F 30FS 2685 oc XLItSeFe WCC SOUND ALARM/RESTORE KEYBOARD/ 
ZEF2 2645 PRUF EQU * PRINT BUFFER KEEP FIELDS EN ORDER * 2686 * 5 START PRINT-40 CHAR LINE 
2ZEF2 0000 2EF3 2646 LINADR DC XL2°O# z 1 30FA Ll 30FA 2687 OC XLEfLLt SBA 
2EF4 2EF5 2647 os CL2 2 | Qc 30FB 40C6 30FC 2688 BC XL2°40C6* ADDRESS--6 
Z2tFo 2FL5 2648 EXPFL DS 32CLi 3 Re Z0FD ESCSEZEZ40DTCLES 3113 2689 DC CL23° TEST PATTERN SEQUENCING*® BEGIN MESSAGE 
Z2F16 2F19 2649 os CLE 4 | 3105 E3C5D090540E2C5D8 2689 
2FlA 2—F39 2650 RECFL ODS 32CL1 5 . 3100 E4C0505C3C9D5C7 2589 
2F3Aa 40 2F3A 265) PBUFBL OC cLit * & ty NOS 2690 * 
2F 3B 2F84 2652 PLINE OS 74&Cul Say poe peine ine | aeae il 4 atte eias Be cL ociCo mopnexe 6 
ZFE5 406 ZF85 2653 PLINBLE DC cite ¢ LANK FO & 1, 3215 C15 16 269. x a e - 
Z2F86 CLC4C4DS404960FO 2FAB 2654 PHEADA OC CL36°ADDR Gt2345 6T7T8BGABCDE F? | x 3117 FL4B40D7D9C5E2ZE2 3138 2693 oc CL34*1. PRESS TEST REQUEST To CALL NEXT? 
2FBE 40F140F 240F 340F4% 2654 3LLF 40E3C5E2ZE34009C5 2693 : 
2F96 S0F540F640F 7T40F8 2654 | 3127 D8E4SC5E2E340E3D65 2693 
Z2F9E 40F940C0140C27460C3 2654 fp 312F 40C3C 103034005C5 2693 
2FA6 4004400 54006 2654 ‘ 3137 ETES 2693 
2FAC 40404040406 640F 1 2FCF 2655 PHEAD O0C CL36* ©0123 45 6769 ABC OD EF c 2694 * ar 
2FB4 40F240F340F460F5 2655 f Age 3139 il 3139 2695 oc XLicizpe S$ 
2FBC 40F 640F 760F S40F9 2655 : 313A C2E2 3138 2696 boc XL2°*C2E2* ADORESS-—~— 162 
<FC4 40C 140C 240C 34604 2655 eo dy 313C E2C5SDBESCSDSE3C9 3L4E 2697 oc CLI9* SEQUENTIAL PATTERN. ¢ 
2FCC #00540C6 2655 d Re. 3144 C1034007CLE3E3C5 2697 
{ 
} 
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BE=Gs— FF NS CEB:R=DERS FOR TEST 2 

Stix ex  — = sc 

Chie - —_-___ ERR PASE, WRITE 

Ns S=——OL_siltedD ALARM/RESTORE KEYBOARD/ 
S TABRLRERT PRINT/40 CHAR LINE 

SS Aha 

ACD RR. -——---— ss 

PRO T= CT E=0, NORMAL INTENSITY 


auamce — aa & PFABCDEFGHI JKLMNOGPQRSS EF UV" We vm’Z * BEGIN MESSAGE 


PReRCO@ 8 E=-CT¥ G=D,NON DISPLAY 
FCO othe Dee GE feed NON-DISPLAY AREA 


Saha 

ACDFR= -———1&:C 

UNF? #FR_OeesTE= CC TEO,NORMAL INTENSITY 
IeNSS - CES RT CURSOR © 


aa aie 68 | hCOPY ABOVE IN THIS Exit FE NEBBE : 


NC ORS. _- SMBZALUL I NT/UNPROTECTED 


2 WN: SEL LF CHARACTERS 


PRRCOm “I~ £ Cy E=D,NORMAL INTENSITY ere te eT MR 
SES 2A .. 
ACDRRO - — - 2 enn - Cat 





PERO Je TT” E=:CT™” &=-D,HIGH INTENSITY 
SFPE&= -8C-— Fr ALL 
Clr ASRACZ. OT ERS (CENT SIGH? 
ma” Es. TF 
=pme= (EXCLAMATION) 
—= 


a (QUOTE) 


PRRC Je “T E CT E= D,sHIGH INTENSITY 
a&= RR. IC FIELD 


——— - 327 Om 
PRR Oe Tio CO TED,HIGH INTENSITY 
S tL. TD Nae € ‘ INSFRUCTICNS TO CONSOLE 


vy UNPEOTECTEDs HIGH INTENSITY 


Chins 
b  eyNORMAL INTENSITY 


Coan 
E..D,NORMAL INTENSITY, SELECTOR 


DEM T 2 bee) HEF SE L PEN AREA 
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PAGE 
3m wz PAGE 260A 
CROSS-REFERENCE 
a 6869* 
_ ; 5767778? = 
1950 1963 
0928 0937 0961 0985 1014 1046 1234 i= 
— SF — Mites EET R PROTECTED/NORMAL INTENSITY 
. c7Cscg* 
1551 1583 1619 2443 , | 
. 1449% 1456% 1458 1475 aay 
EB ED® 
¥ 1538 | Soe een 
SB_A 
159 
. S§— Sew BT TIR UNPROTEC TED/NORMAL INTENS 
* 1575 rOEL® 
# 1076 1149 LLT2* | 
1986% SBA. 
«0541 O7L0 0768 0817 1056 1069 1248 1K85* 146 8 [ES ests 53° ° SS seo 
Si&—— - ES, “TTR PROTECTEO/NORMAL INTENSITY 


1492% 1494* 1501 1515 i716 1747 266k 2131 2415 
* 1434 1436* 1681 | 
2328 : 


, 2145 2146 2202 





/ OTT& 
» 2218% S fi Bate 
23—~ FS 
. 0253% SF-——. citi. T TR. UNPROTECTED/NORMAL INTENSITY 
? 
| 0353 0416 0525 0568 0569 1363 1516 1517 1516 St. 8S Soe 
. r 
= - SBR fue 
2 , 2? ap: 
| Se=——- amt TR PROTECTED/NORMAL INTENSITY 

i 

SS Pe 

3 Ce 
: ose c= Gos CTe M4ESSAGE CALT-CODES) 
2 O279% O31 1 * 
5 6274 0321 SS a Aen 
L 0674 1074 1302 1763 2138 2168 2201 309. + 
8 1733 1737 , Sa ———- mF UME TGF «| UNPROTECTED/NORMAL INTENSITY 
% 0498 0526 0532 O571 0577 0589 0624 667 0685 - ‘ei eis ete 
4 0807 0824 0834 1066 14114 1120 12144 1155 L264 - ~ > ¥Br: ows iN SS SEE RT e2r UR SOR 
@ 1243 1279 1310 1337 1365 1376 1417 1667 172006 - = ae B 5 8 aA 
93 «1959 2158 2173 2178 ep te ana 
34 1639% : : ——5. RA TTSROMIGH INT/ PROTECTED 

_ > ae. eet «6 «6ON ADDR TO FOLLOW 

33% 2135" 2136 2162 2162* 2163% 2166 2156 2196% 2204~e-e - -= © suemmttice = 2. _— @ Ss S Tee MLLAG HB AREA FOR SELECTION ADDR 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4234259 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4234259 
PAGE 23 | PAGE 23A 
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8943 DA FUNCTIONAL TESTS 8943 DA FUNCTIONAL TESTS 


i 
ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
314C D9D54B 2697 aro 3295 03 3295 2738 EORDIA DC XL1* 038 ETX 
2698 @ 1&2 2739 
314F 11 314F 2699 pc XLLSLI¢ SBA 3296 2740 ORDZ EQU #*# BEGIN ORDERS FOR TEST 2 
3150 C540 3151 2700 DC XL2'C540° ADDRESS—-320 ae 3296 0227 3297 2741 pc XL2°0227* STX-ESC 
3152 F24B40D7L9C5E2E2 3179 2701 oc CL40'2- PRESS CANCEL{OR PAZ)TO DISCONNECT CPU* ea 3298 F5 3298 2742 DC XLL°F5° CMD--ERASE, WRITE 
315A 40C 3C1N5C3C5D34D 270) 3299 SF 3299 2743 DC XLI°SEF® WCC SOUND ALARM/RESTORE KEYBOARD/ 
3162 D6094007C1F25DE3 2701 le 2746 % START PRINT/40 CHAR LINE 
316A D640C4C9E2C3 0605 2701 _ 329K il 329A 2745 oc XL1°41* SBA 
3172 D5C5C3E340C3D7E4 2701 329B C150 329C 2746 oc XL2'C150° ADR-- 60 
2702 * Loe 329D 1060 329E 2747 pc XL2*1D608 PROTECTED, NORMAL INTENSITY 
317A 11 317A 2703, oc ML1°Lze SBA rk 229F CLC2C3C4C5COC7TCE 3289 2748 oc CL27*ABCDEFGHI JKLKNOPQRSTUVWXYZ * BEGIN MESSAGE 
317B C602 31L7C 2704 pc XL2*C6D2°* ADDRE SS—- 402 32A7 C9D1D203D4050607 2748 . 
3170 C1D5C440D3C5C1E5 31A1 2705 DC CL37® AND LEAVE PATTERN FOR OFF-LINE USAGE.‘ be 32AF DSD9E 2E 3E4E 5EGET7 2748 
3185 C540D07C1E3E3C5D09 2705 1% 32B7 EBE940 2748 
318D 0540C6D6D940D6C6 2705 | 2749 * 
3195 C660D3C 9D5C540E4 2705 > ee 328A 1B6C 32BB 275C¢ DC XL2*1D6C* PROTECTED,NON DISPLAY 
319D E2C1C7C548 2705 Ls 32BC D5D6D0540C4C9E207 32C6 2751 oc CLI1L*NON DISPLAY® FOUND IN NON-DISPLAY AREA 
2706 * | 32C4& D3C1E8 2751 
31A2 11 31LA2 2707 DC XLL‘11° SBA 2752 * 
31A3 C706 31LA4 2708 pc XL2°C7D6 ADORESS--470 Cc 32C7 11 32C7 2753 DC XL1#11¢ SBA 
2709 * 32C8 C260 32C9 2754 oC XL2*C260° ADR—160 
31A5 1LDEB 31A6 2710 oc XL2°1DE8* SF-HIGH INTENSI TY/PROTECTED Vitae 32CA 1D40 32CB 2755 oc XL2*1D40° UNPROTECTED,»NORMAL INTENSITY 
31A7 C1C4D980 31AA 2711 pc CL4* ADR-* ADDRESS GF OVC WILL FOLLOW i & 32CC 13 32CC 2756 DC XL1i*13# INSERT CURSOR © 
31AB F6FOF4FO 31AE 2712 Al DC CL4*6040° DEVICE ADDR GETS FILLED IN 32CD C30607E840C1C2D6 32E7 2757 oC CL27'*COPY ABOVE IN THIS LINE ‘ 
2713 * i oe 32D5 £5(540C9D540E3C8 2757 ; 
31AF 1040 3180 2714 DC XL2°1D40° SF-NORMAL INT/UNPROTECTED Ou 32DD CS9E240D3C 9050540 2757 
2715 * 32E5 404040 2757 
31B1 19 31B1 2716 DC XL1°19° I wae 2758 * 
31B2 03 31B2 2717 EORDL OC XL1°03° —ETX i & 32E8 1D40 32£9 2759 OC XL2*1D408 NORMAL INT/UNPROTECTED 
3183 2718 ORDIA EQU * 32EA CSD5E2C5D09E340C3 32F2 2760 oc CLOT INSERT CK* 
3183 C227F55F 3186 2719 DC XL4* O22 7F55F® STXsESCER/WReWCC START PRINT ON | 32F2 D2 2760 
3187 1140C6 3189 2720 oC XL3*1140C6° SBA ADR 6 ih 32F3 0000 32F4 2762 DC XL2"0000* 2 NULL CHARACTERS 
31BA E3C5E2E340D7C1E3 3100 2721 pc CL23"* TEST PATTERN SEQUENCING® | 2762 * " 
Si 31C2 E3C509D540E2C508 2721 as 32F5 1D60 32F6 2763 DC XL2*1D608 PROTECYED, NORMAL INTENSITY Se ere at ag te EE at 
31CA E4C5D5C3C9D5SC7 2721 pS 32F7 Li 32F7 2764 oc XLL‘1ye SBA 
3101 110150 3103 2722 pc XL3*1L1C150° SRA ADDR 80 32F8 C3FO 32F9 2765 DC XL2*C3FO? ADR--240 
31D4 F14B40E3D640C3C1 31FB 2723 DC CL40*1l. YO CALL NEXT PATTERN ~ AFTER PRINTING® tg 32FA 1DE8 32FB 2766 OC XL2*1DE8" PROTECTEDsHIGH INTENSITY 
310C D3D340D5C5E7E340 2723 ie Ree 32FC 4F7IC7B5B6C 3300 2767 oc CL5*}agsz® SPECIAL 
31E4 D7C1E3E3C5D90540 2723 3301 4A 3301 2768 DC XLL*4AE CHARACTERS (CENT SIGN) 
31EC 6040C 1C 6E 3C 50940 2723 a 3302 SO5C4D5D6D4E 3307 2769 DC CLO*Ee(}_+! TEST 
31F4 D7DICID5SE3C9D5SCT 2723 the 3308 5A 3308 2770 DC XLL'SAt * (EXCLAMATION) 
31FC L1C2E2 31FE 2724 oc XL3*11C2E2¢ SAB ADR 162 | 3309 7A 3309 27721 oc CLit:? * 
31FF EZE306D7E26B40D6 321E 2725 oc CL32*STOPS, OPEN COVER, THEN CLOSE IT* | of 330A 7F 330A 2772 DC XLL* 7F® * (QUOTE) 
3207 D7C5D540C3D6E5C5 2725 i 330B 4C6EGFECTESF5ETD 3313 2773 - DC: CLO*<>?—-Eagttse * 
320F D96B40£3C8C50540 2725 | 3313 61 2773 
3217 C3D3D6E2C540C 9E3 2725 | fm 2774 * 
321F 11C3F2 3221 2726 oc XL3°11C3F2° SBA ADR 242 ° 3314 10F8 3315 2775 oc XL2*1DF8¢ PROTECTED, HIGH INTENSITY 
322Z E6C9EZCE8C9IDS4OF5 3232 2727 oc CLIT'WITHIN 5 SECONDS.° | 3316 FOFLF2F3F4F5F6F7? 3323 2776 oc CL14*0123456789590-A* NUMERIC FIELD 
322A 40E2C5C3D6D05C4E2 2727 : 331E FSF96B4B60C1 z776 . 
3232 4B 2727 | 2777 * 
3233 110540 3235 2728 DC XL 3*11C540° SBA ADR 320 3324 U1 3324 2778 DC XLie1.it SBA 
3236 FZ4B40C9C640C306 325C 2729 OC CL39"%2e IF COVER 1S LEFT UP MORE THAN 5 SEC e® r 3325 C540 3326 2779 DC XL2*C546° ADR-~320 
3B23E E5C50940C 9E 24003 2729 f he 3327 1DC8 3328 2786 DC XL2*1DC8® UNPROTECTED, HIGH INTENSITY 
3246 C5C6E340E4D74004 2729 3329 C3D6D7E84OCIC2D6 3340 2782 DC CL24*COPY ABGYE IN THIS LINE * INSTRUCTIGHS TO CONSOLE 
324E D609C540E3C8C1D5 2729 a 3331 £5C540C9D540E3C8 z7al 
3256 40F 540E2C5C34B 2729 Teh 3339 C9E240D3C905C540 z78l 
325D 11C6D2 325F 2730 pc. XbL3#11C602* 3341 1DDE 3342 2782 DC XLZ2*iDD8¢ NUKERIC, UNPROTECTED, HIGH INTENSITY 
3260 D7C7D440E6C9D3D3 3284 2731 DC CL37'PGM WILL TERMINATE AND LEAVE PATTERN.® my 2783 * 
3268 40€3C5D0904C9D5C1 2731 bees 3343 12 4343 2784 oc MLLS1ie SBA 
3270 €32C540C 105C 44003 2731 334% C5E8 3345 2765 oc XL2*CSE8# ADR—~360 
3278 C5CLE5C540D7C1E3 2731 ley 3346 1060 3347 2786 oc. xL2*10608 PROTECTEDeNORMAL INTENSITY 
3280 E3C5090548 2731 AS 2787 * 
3285 11C7D6 3287 2732 oc XL3*11C706° SBA ADDR - - 470 3348 1% 3348 2788 OC XLieize SBh 
3288 10€8 3289 2733 BC XL2*10E8* SF HE INT/PROT ae 3349 C456 3348 2789 oC XL2*C650° ADR——460 
328A C1C04D960 328D 2734 oc CL4*ADR-* a 334B IDES 334C 2790 DC XLZ*1DE46 PROTECTED;NORMAL INTENSITY, SELECTOR 
328E F6F04040 3291 2735 ALA oc Ct4*60 °° DEVICE ADORESS GETS FILLED IN 2791 ¢ 
3292 1040 3293 2736 oc XL2*1040* SF ~— NORM INT./UNPROT. Vite 3340 6FE2ZC5D034007C505 3359 2792 CC CLi3"7SEL PEN TEST® DEFINE SEL PEN AREA 
3294 19 3294 2737 oc xL1°19° | ‘© 3355 406 3C5E2E3 2792 
DATE 26JUN75 250CT75 15JAN76 14MAYT6 PROG ID Pees, © pate 265UN75 250CT75 155ANT76 L4MAY 76 PROG ID 0894-3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4234259 
PAGE 24 ie PAGE 24A 
8943 DA FUNCTIONAL TESTS | 8943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT l ERR LOC GBJECT CODE ADDR STMT SOURCE STATEHENT 
335A 000000 335C 2793 oc XL3*00G000* 3 NULL CHARACTERS ie 2860 * 
335D 1DE8 335E 2794 DC XL2*10E8* PROTECTEDeHI INTENeSELECTOR PEN ok 33BE il 33BE 2861 pC - XLitli* SBA 
335F 6EE2C5D340D7C5D5 336B 2795 oC CLI3*>SEL PEN TESTS DEFINE SEL PEN FIELD 33BF C4C3 33C0 2862 oc XL2*C4C3° ADR-—-259 
3367 40E3C5E2E3 2795 33C1 FOFO 33C2 2863 oC CL2*00° 
2796 * | C. 2864 * 
336C 11 336C 2797 OC XLL¢iLe SBA 3303 11 33C3 2865 oc XL1°11° SBA 
336D C7D6 336E 2798 pc XL2*C706! ADR-—470 a 3304 C460 33C5 2866 DC XL2*C460! ADR—288 
‘ 2799 * te 33C6 ESC5EZE340D7C1E3 33DC 2867 OC CL23'TEST PATTERN FOR 3277-1° 
336F 1DE8 3370 2800 oc XL2*1DE8° SF-ATTR HIGH INT/ PROTECTED 33CE £3C5D9D540C6D6D9 2867 . 
3371 C1C4D960 3374 2801 DC CL4*ADR-5 A ge 3306 40F 3F 2F 7F760F 1 2867 
3375 C0000000 3378 2802 A2 BC xL4? 000000008 NULLS FOR SEL ADDR f 2868 * 
3379 10E8 337A 2803 pc XL2°1DE8* SF-ATTR HIGH INT/PROTECTED * 330D Li 3300 2869 DC MLE LL SBA 
337B 03 337B 2804 EORD2 OC XL1°03° ETX e 33DE C54F 33D0F 2870 DC XL 2" C54F® ADR-~ 335 
337C 2805 ORD3 EQU * i 8 33E0 CID3CICTDSN4C505 33E8 2871 oc CL9* ALIGNMENT ® 
337C 0227 3379 2806 DC XL2¢02278 STX-ESC 336 £3 2871 
337E &5 337E 2807 DC XL1L°F5® CMD-—ERASE, WRITE es 2872 + 
337F SF 337F 2808 DC XLL'SFS HALT oe 339 1L 33£9 2873 oc XLitiLe SBA 
2809 # | 33EA C5SFO 33EB 2874 Dc XL2'*C5FO® ADR—~368 
3380 11 3380 2810 oc XLLOLIe SBA : ay 33EC 5C 33EC 2875 pc CLies? 
3381 4040 3382 2811 oc XL2"40408 ADR——O PALS 2876 * 
3383 3¢ 3383 2812 DC XL1°3C° RA - REPEAT TO ADOR 33ED 1040 33EE 2877 DC XL2* 1D408 SF-ATTR UPReNIE 2 NSP, 369 
3384 40E8 3385 2813 oc XL2*40E8° ADDR ia ale 33EF 13 33EF 2878 DC XLit13? INSERT CURSOR 
3386 C5 3386 2814 pc CLLYEt CHAR TO BE REPEATED C- 33F0 E4D5D709D6E3C5C3 33FF 2879 oc CLIG*UNPROTECTED DATA® 
3387 C8 3387 2815 oc CLIfHe 33F8 E3C5C440C4C1E3C1 2879 
2816 & to dows 2880 * 
3388 11 3388 2817 oc XLL@1L¢ SBA i ey 3400 11 3400 2881 DC XLI®LL¢ SBA 
3389 C14F 338A 2818 DC XL2°C14F° ADR 79 3401 C6LE 3402 2882 DC XL2°C6C6S _ ADR—3906 
3388 CB8C8 338C 2619 pc CL2* HHE aes 3403 1060 3404 2883 OC XL2°1060° SF-ATTR PRONI oNSP 
2820 * : aed 3405 SC 3405 2884 DC CLLeee 
3380 11 338D 2821 DC XLL®LLE SBA 2885 * 
338E C1FT7 338F 2822 pc XL2°CLFT® ADR--11¢ Ne, 3406 LL 3406 2886 ‘DC XLICLis SBA 
3390 CéCs 3391 2823 pc Ci2°HHE Ss 3407 CéFS 3408 2887 pC XL2°C6FB? ADR—446 
2824 * 3409 30 3409 2888 DC XL1*3C* REPEAT 
: ant 3392 il 3392 2825 oc XLLLLe SBA rae 340A CT5F 3408 2889 DC XL2°C75F# ADR—479 sss eee 
3393 C25F 3394 2826 DC XL2°C25F° ADR--159 1 &S 3400 C5 340C 2890 DC CLLtE® CHAR TO BE REPEATED 
3395 C8CB 3396 2827 Dc CL2*HH® | 340D CS 3400 2891 ot CLite® — FOR LAST PLACE IN BUFFER 
2828 * = 2892 * 
3397 11 3397 2829 pC xXL1®1i1° SBA 340E LL 340E 2893 pC XELSLLE SBA 
3398 C3CT 3399 2830 DC XL2°C3C7® ADR-——199 340F £660 3410 2894 pc XL2°Ce6D! ADR-- 429 
339A C8C8B 339B 2831 oc CL2°HH® oe 3411 1DE8 3412 2895 DC XL2*1DE8° SF~ATTR HIGH INT/PROTECTED 
2632 © Rte 3413 C1C4D960 3416 2896 DC CL4*ADR-* ADDRESS TO FOLLOW 
339C 11 339C 2833 oc MLLELL® SBA i 3417 00000006 341A 2897 AS DC XL4#00000000° STORAGE AREA FOR SELECTION ADDR 
339D C36F 339E 2834 ' oc XL2°C36F* ADR—~23¢ Ke 3418 1060 3410 2898 DC XL2* 10608 SF<ATTR NORMAL INT/PROTECTED 
339F C8C8 33A0 2835 oc CL2°HHE pC 341D 03 341D 2899 EGRO3 O0C- XL2°O3* ETX 
2836 * : 341E 2900 ORDS EQU * ORDERS FOR TEST & BEGIN HERE 
33A1 11 33AL 2837 oc XLL*LLe SBA te 341E 0227 341F 2901 DC XL2*0227° STX-ESC 
33A2 C407 3343 2838 DC XL2°C4D7° ADR--27¢ ee 3420 FS 3420 2902 De XLL°F5# CMD-ERASE» WRITE 
33A4 C8C8 33A5 2839 oc CL2*HHE 3421 TF 3421 2903 oc XLL°T7E* WCC-SOUND ALARM/RESTORE KEYBOARD? 
2840 ¢ | ‘ 2904 * START PRINT/80 CHARS PER LINE 
33A6 11 33A6 2841 oc XLE*LES SBA | 3422 3CC150 3424 2905 SC XL3*3CC150° REPEAT TO ADR 
33A7 C47F 33A8 2842 oc XL2°C47EFS ADR--319 j 3425 CS 3425 2906 pc CLLPEt 80 E CHARACTERS 
33A9 C8C8 33AA 2843 oc CL 2*HHE Lg 3426 C8 3426 2907 pc CLitH CHAR Sl=H 
2844 % + et 2908 # 
33AB 11 33AB 2845 DC XLL°LLe SBA 3427 U2 3427 2909 oc XLL®LLt SBA 
33AC CSET 33AD 2846 oC XL2°CSET® ADR—359 Netz, 3426 C25F 3429 2910 oc XL2*C25F€ ‘ADR—159 
33AE C8C8 33AF 2847 oc CL2°*HH® 1 &. 342A CECB 342B 2911 pc CL2°HH® 
2848 # i. 2912 * 
33B0 11 33B0 2849 oc XLEOLLe SBA es 342C ii 342C 2913 oc XLIELLE SBA 
33B1 C64F 3382 2850 DC XL2°CO4F® ADR— 399 ae 342D C36F 342E 2914 DC XL2°C36F8 ADR—239 
33B3 C8CcB 3384 2851 Dc CL2* HHE 342F C8Ce 3430 2915 DC CL2*HHE 
2852 ¢ ia 2916 * 
3385 11 33B5 2853 pc XLLSLLE SBA C 3431 LE 3431 2917 OC XELELLe SBA 
3386 C6F7 33B7 2854 oc XL2°COFT® ADR-~- 439 3432 C47F 3433 2918 DC XL2°C47F? ADR-—319 
3388 C8 3386 2855 oc CLi°H? (aa 3434 CaCce 3435 2919 DC CL2°HH® 
s 2856 * i 2920 # 
33B9 11 33B9 2857 DC XLELL® SBA | 3436 11 3436 2921 oc XLLELR® SBA 
33BA C358 3388 2858 oc XL2°C35B° ADR--219 — 3437 C64F 3438 2922 DC XL2*C64F* ADR-- 399 
338C FOFO 33BD 2859 pc cL2*008 i S 3439 C8C8 343A 2923 — pc CL2*HH 
1 
| 
DATE 26NUNTS5 250CT75 LSJANT6 14MAYT76 PROG ID 0894-3! ©& pate 26JUNTS 250CT75 15JAN76 L4MAY 76 PROG ID 0894-3 
EC NOw 825023 825034 825035 PAGE 24 EC NO 825023 825032 825034 825035 PAGE 248, 


¢ 


RES 

ae 

ae > ; . _@ 
ote : 
Swag? , ‘ j 


° 

© 

o | 
@eeeoeoeooao4@aneeesde7?#8d ®@ 





@#eoeeoeeeeeeg eee @ @ | oe ) « | 
ay : : 


1BM MAINTENANCE OIAGNOSTIC PROGRAM 


PART NOs 


| 
| 


ke 


4234259 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 4234259 
PAGE 255. PAGE 25a 
8943 OA FUNCTIONAL TESTS ' 6943 —s«ODA FUNCTIONAL TESTS 
j , 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | . RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2924 * { 3486 11 3486 2987 oC XLieaine _ SBA 
3438 12 343B 2925 DC XL1°22° SBA 34B7 026F 3488 2988 DC. XL2°D26F* ADR--1199 
343C C75F 343D 2926 oc XL2°*C75F° ADR——-479 3489 C8C8 34BA 2989 oc CL2* HH? 
343E C8C8 343F 2927 Dc CL2*HH® : 2990 * 
2928 * ! 34BB 11 3486 2991 DC XLA°2.e SBA 
3440 11 3440 2929 oc XLLOL2¢ SBA 34BC D37F 348D 2992 oC XL2'°D37F* ADR-~ 1279 
3441 C7E8 3442 2930 oc XL2*C7E8* ADR——488 Uh 34BE C8C8 34BF 2993 oc CL2*HH* 
3443 ESCSE2ZE340D7C1E3 3459 2931 oc CL23*TEST PATTERN FOR 3277-2° ee - 2994 * 
344B E3C5090540C6D609 2931 ‘ 34C0 12 34CO 2995 oC XLIe1ae SBA 
3453 40F3F2F7FT60F2 2931 iv. 34C1 2996 EFOR3 EQU * 
2932 * 1 34C1 D54F 34C2 2997 oc XL2"D54F ADa—1359 
345A 11 345A 2933 oC XLI°12° SBA 34C3 C8C8 34C4 2998 OC CL2°HH® 
345B C86F 345C 2934 oc XL2*C86F® ADR-——559 i 2999 * 
345D C8C8 345€ 2935 oc CL2*HH® : 34C5 21 34C5 3000 DC XLA°A38 SBA 
ee 2936 * ' 34C6 D65F 34C7 3001 DC XL2*O65F* ADR-~ 1439 
3465F il 345F 2937 DC XE L210 SBA a 34C8 C8C8 34C9 3002 oc CL2°HH® 
3460 C8TE 3461 2938 oc XL2°C87E° ADR—574, Pes 3003 * 
3462° C103C9C 7D5D4C505 346A 2939 oc CL9* ALIGNMENT ® | 34CA il 34CA 3004 DC XL1°12° _ SBA 
346A £3 2939 ted 34CB O76F 34CC 3005 oC XL2*°O76F* ADR-- 1519 
346B 11 3468 2041 . oc 1°22° SBA ie ee apa ee ewe 
x i ‘ 
346C COTF 346D 2942 oc XL2°CO7F® ADR--639 | 34CF 11 34CF 3008 7 DC XLi°Lie SBA 
346€ C8C8 346F phere oc CL2*HH? be 34D0 DS87F 34D1 3009 oc XL2*°O87F¢ ADR—-1599 
* 3402 C8C8 3403 3010 DC CL2*HH® 
3470 11 3470 2945 oc MLL? 12¢ SBA | a 3011 @ 
3471 4B4F 3472 2946 oc XL2°4B6F © ADR—719 | e 34D4@ 11 34D4 3012 OC XtL*ile SB8A 
3473 C8C8 3474 2947 oc CL2*HH® 3405 SA4F 3406 3013 oc XL2*5A4F* ADR—-1679 
acne ones zest * ae (ee 3407 C8C8 3408 3014 oc CL2*HH® 
76 4CS5F 3477 2950 oe xigracsee ADR 799 = 3409 11 3409 sais oc XL1e21* SBA 
34 = 
3478 C8Ce 3479 2951 oc CL2* HH 1. 34DA SBSF 34DB 3017 “oc XL2°SB5F° ADR—1759 
2952 © lis 34D C8C8 34DD 3018 oc CL2* Hine 
ants ll : aa74 2953 oc MLI°2L¢ SBA i 3019 # 
47B 4CE 41C 2954 D XL2°4CE7® ADR--807 ee 34DE li 340E 3920 DC XLieaie SBA Gece ee ee 
347D SC 3470 2955 OC. Cites | - 340F SCO6F 34E0 3021 oC XL2*SC6F® ADR-- 1839 
2956 * | 34E1 C8 34E£1 3022 Dc CLifHe 
sete 1040 347F 2957 oc XL2°1040* UNPROTECTED, NORMAL INTENSITY ne 3023 * 
3480 13 3480 2956 oc XL) °13° INSERT CURSOR eo 346EZ 3640640 3464 3024 D XL3°3C4060 LAST LIN 
3481 E4O5D070906E3C5C3 3494 2959 oc Ci. 20°UNPROTECTED AREA , | 34E5 C5 34E5 3025 ae CLIteEe Eaine oeoeeee 
3489 £3C5C440C1D9C5C1 2959 é 3026 * 
3491 40404040 2959 Co 3486 11 34E6 3027 oc XLI*ins SBA 
ante oor ce 4 a ae PROTECTED, NORMAL INTENSITY : 34E7 SCES 34E8 3028 oc XL2°5CE5* ADR-- 1829 
i 34E9 1DE8 34EA 3029 oc XL 2° 10E8* SF-ATTR HIGH INT/PROTECTED 
2962 © ch 34EB C1C4D960 34EE 3030. oc CL4*ADR-* ADDR TO FOLLOW 
3498 11 3498 2963 oc XLLCine SBA \ 34EF 00000000 34F2 3031 A4 oC XL4* 0OCOONND® STORAGE AREA FOR SEL ADDR 
3899 apse anyk anes & eee. ADR-— 879 | G 34F3 1060 34F4 3032 oC XL2* 10608 SF-ATTR NORMAL INT/ PROTECTED 
6 ee 3033 3 
2966 © 34F5 03 34F5 3034 EORDS OF XL1°03° ETX 
3490 11 349D 2967 oc xLILie SBA = 34F6 3035 ORDS EQU” # 
349E 4ED7 349F 2968 oc XL2*4ECT® ADR--919 1 C2 366 0227 34F7 3036 DC XL2°0227° STX-E SC 
34A0 FOFO 34A1 a9 : oc CL2*00" 34F8 F5 34F8 3037 DC XL1°F5® CMD-ER ASE, WRITE 
. oe, 34F9 6F 34F9 3038 pc XL1°6F* WCC-START PRINT/64 CHARS PER LINEs 
34A2 11 34A2 2971 oc LTSLAe SBA BS 3039 * SOUND ALARM/RESTORE KEYBOARD 
3443 4ETF 34A4 2972 oc XL2*4E7F ADR-—-959 ' 34FA 1060 34FB 3040 oc XL2"1060¢ SF/NORMAL INT/PROTECTED 
34A5 C8C8 34A6 273 7 oc CL2*HH® I 34FC C6060940C303E4E2 3510 3042 DC CL34*FOR CLUSTERED PRINTERS DATA SHOULD? 
3504 E3C5D9C5C440D769 3041 , 
34A7 11 34A7 2975 oc XLI°12¢ SBA 350C C9D5E3C5D9E240C4 3041 
3448 4FE7 3449 2976 oc XL2°4FET7® ADR-~999 t 3514 C1E3C140E2C8D6ES 3041 
34AA FOFO 34AB 2977 oc cL2*00* | 351C D3C4 3041 
2978 « | 351E 40E2E3C1D09E34005 353A 3042 oc CL29* START NEXT LINE HERE -----~ >" 
34AC 11 34AC 2979 oc XL1°1is SBA Te 3526 C5E7E340D3C9D5C5 3042 
asa0 Boer aeAe z360 ce XL2*SO4F* ADR— 1039 i: 352E 40C8C509C5406060 3042 
3480 298 CL2* HHS 3536 606060606E 3042 
2982 * | 3538 C3C8C5C3D2C9D5C7 3560 3043 DC CL38°CHECKING PROGRAM TAB/ERASE UNPROT. TO °* 
34B1 11 3481 2983 oc XLiti.e SBA | + 3543 400709D6C709C1 06 3043 
34B2 D1SF 34B3 2986 oC XL2*D15F° ADR—~2119 | {3548 4063C1C261C509C1 3043 
34B« C8CB 34B5 2985 oc CL2°HH® - 3553 E2C 540E 405070906 3043 
2986 * % | C4 3558 £348460E3D640 3043 
4 
\ 2 
Sy x , . 
DATE  26J5UN7TS 2500175 15JANT6O  —-L4HAY™S , PROG ID 0894-31 “pate  26gUN7S =~ 2500175 ANT. 
EC NO. 825023 825032 825034 . 825035 a PAGE 25| ~~ %c no. 625023 axsba3 aasose 525035" oae ” ae 
¥ Cf 
: | } 
‘ , | | S 





faves MARE UI WY Oe ee aS F 2 te, he, Sie ~ 


IBM #AINTENANCE DIAGNOSTIC PROGRAN 


8943 DA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADDR 
3561 CICSC4D961C4ZE4DT 357A 
3569 61 C6C9C5N3C440D4 
3571 CiD9D240D609C4C5 
3579 DSF2 
3578 LiC3FO 3570 
357E 13 357E 
357F DFS 3580 
358k 3SCCSFOFR 3584 
3585 10C8 3586 
3587 3CC650 3589 
358A Cl 35 8A 
3588 1D60 358C 
; 358D 3CC 75F 35 8F 
3590 C2 3590 
3591 1 3594 
3592 C4D7 3593 
3594 FL 3594 
3595 05 3595 
3596 LICSES 3598 
3599 120650 3598 
359C€ ll 359C 
359D C&4A 359E 
359F ICLELSIO 3542 
35A3 iL 3583 
35A4 CREE 35A5 
35A5 1DES 3547 
3548 CiC4&O0960 3548 
35AC 00005000 35 AF 
3580 £060 3561 
3582 03 3582 
3583 
3583 9227 35B4 
3585 FS 3585 
3586 4&F 3586 
3587 8182838485868T88 3504 
Z5BF 898 A8C8DBESE 
35C5 9091929394959697 3552 
35CD S6999A9ND9E SF 
3503 11 35D3 
3504 &0E7 3505 
3506 1060 3507 
35D8 AZA3A4ASAGARTABAD 35E4 
35EO AAACADAEAF 
35€5 BABBBCBOBEBFEOSB 35F1 
35E0 9B9CACALAS 
35F2 BOB1R 28384758687 35FB 
35FA B879 
35FC Li 35FC 
35FO C14F 35FE 
35FF 1D40 3606 
3601 4142434445464748 3609 
3609 49 
360A 5152535455565758 3612 
3612 F9 
DATE 265UN75 250CTt75 
EC NO. 825023 825032 


1 


PARY SO. - 4234259 


PASE 26. 
STMT SOURCE STATEMENT | 
i 
304% Bt CL26°ADOR/DUP/FIELD MARK ORDERS?* 
3044 
3044 i 
3044 bo 
3045 © _ 
3046 BC XLB"LEC3FO¢ SBA 249 
2047 DC XLLOL38 INSERT CURSOR oes 
3048 DC XLZ°1DEBS AUTOSKEP, PROTECTED sHIGH INTENSITY | ° 
3049 oc XL4*3CC5FOFLE RA 320 (1¢S} 
3050 * 
3051, Dc XL2°1DC88 UNPROTECTED, HIGH INTENSITY 
3052 Dc XL3°3CC450° RA 400 (&°S) 
3053 pc CLiPat REPEATED CHARACTER 
3054 « 
3655 DC XL2*1D60¢ PROTECTED,» NORMAL INTENSITY 
3056 oc KLB°3CC7SFS RA 479 (B#S) 
3057 DC CLitB? REPEATED CHARACTER 
3058 * 
3059 DC XLL°LLs SBA (1 ES TG PRECEDE PROGRAM TAB) |. 
3060 pc XL2°C4D7* 279 
3061 oc CLitys 
3062 oC XLEEOS® PROGRAM TAB ls 
3063 * i 
3064 oc XL3* LICSEB! SBA 360 
3065 oc XL3*12C650° EVA 400 eh 
3066 * Lb 
3067 DC XLLOELE SBA 
3068 DC XL2°C64A° 394 be 
3069 oC XLS°LCLELSI9¢ DUP/FIELD MARK /NEW LINE /EOH Ls 
3070 * | 
3071 oC XLU*LLé 58h had 
3072 OC KL2°C3E6! 230 1 § 
3073 DC XL2°IDEBE SF~ATTR HIGH INT/PROTECTED 
3074 oc CL4*ADR-* SELECTION ADDRESS TG FOLLGU Pe: 
3075 AS DC XL4? 00000000" STORAGE AREA FOR SELECTION ADOR _ 
30746 «© 
3077 DC XL2°ED608 SE-ATTR NORMAL INT/PROTECTED 
3078 EORDS oC KLEPO3¢ ETX - 
3979 GROG = EQU & 
3086 Bt XL2°0227° STX-ESE ie 
308L DC KLL‘ES¢ CND-ERASE- WRITE ts. 
3082 * UNIVERSAL 3270 TEST PATTERN {RFT MESSAGE) i 
3083 oc ML L°4F¢ WCC SOUND ALARM/RESTORE KEYBOARDS 1 |. 
3084 + START PRINT/132 CHARS PER LINE | ©. 
3085 oC KL14'81828384858687628 98 ASCADGESEt | 
3085 _ 
3086 oc XL 24°90919293949896979B999ASDSE SF # ! i 
3086 
3087 € se 
3088 pc XLItLLt SBA pe 
3089 BC XL2*SOET® 39 
3090 DC KL2* LD608 SF-ATTR PROTECTED/NORMAL INTENSITY | 
309] & fe A 
3092 oC KL13 © AZA3A4ASAGATABAGAAACADAEAEF ® 
3092 = 
3093 DC XL 13 *BABBBCBDBE BF 80 8B9B9C AD AL AB? i * 
3093 
3094 oC XL10* 80B1 B282B475 86 87 BS 79 « ' 
3094 i 
3095 « ' 
3096 DCs XL" 248 SBA Le Se 
3097 oc XL2"°CA4FS 79 | 
3098 pc KL2°1D408 SF-ATTR UNPROTECTED/NORMAL INTENe 
3099 # 
3100 oc XL9°4142434464546474849 * PL 
3100 
3101 oc XL9°5152535455565 758598 Dax 
3101 | C3 
{ 
t re 
LSJANT6 LGHAY?E PROG ID 0894-3! © 
825034 825035 PACE 26 
ee 
le 
| & 
l 
es 


iB MAINTENANCE DIAGNOSTIC PROGRAM 


PARY KU. 
PAGE 


&23425¢9 
26a 


SOURCE STV ATEMENT 


8943 OA FUNCTIONAL YESTS 
ERR LOC GBYECT COBE ADDR STMT 
3643 &263646566676869 361A 3152 
3618 TOTLT2Z73 7475 7677 3624 3193 
3623 7879 3103 
3104 @ 
3625 3205 MIDORE 
OOT2 3106 LIS 
3107 * 
3625 LL 3625 3168 
3626 CLE 3427 3109 
3628 1060 3629 3110 
3RIL & 
362A CIC2ZC3C4CS5CEC7TCE 3632 3112 
3632 C9 3112 
3633 DLiD2D3D0405D6D0708 3638 3113 
363B D9 3113 
363C E2ESEGESEGEETESES 3643 2114 
3644 FOFLF2ZF3F4F5FGE7 364D 3115 
364C FSF9 3215 
3126 * 
35¢E 11 36G6E 3117 
384F C25F 3650 3118 
3651 1046 3652 3119 
3120 * 
3653 405060S5iCODCEOE! 365A 3121 
3122 * 
3658 114 3658 3123 
365C C3C7 3650 3124 
365E 1LD6O 365F 3125 
3126 & 
2660 4A4B40 406E4F 2465 3127 
3666 SASBSCSDSESF 3668 3128 
266C 3129 MORS6 
366C SASBEC ED6EGFE 3BS7i 3130 
3672 TATBICTOTVETE 3677 3131 
3132 = 
3678 Ll 3678 3133 
3679 C 36F 367A 3134 
387B 1540 357C 3135 
3136 # 
3670 CACBCCCOCECE 3682 3137 
3683 DADBDOCODDEDF 3688 3138 
2689 EAEBECEDEEEF 26B8E 3139 
368F FAFBFCFOFE 3693 3140 
3141 * 
3694 Lt 3694 3142 
3695 C407 3696 3143 
3697 1D69 3698 3144 
3699 OS6LD340C3C8C5C3 36AL 3145 
36Al D2 3245 
3642 1585158515 35A6 3146 
3L47 * 
36A7 il 36487 3148 
3648 €540 3649 3149 
36AA C5DE8D440C3C8C5C3 3682 3150 
36B2 B62 3150 
36B3 8919 3686 3151 
3152 « 
36B5 il 3685 3153 
36B6 C64F 3687 3154 
36B8 1D40 3689S 2155 
3156 * 
35BA 13 36BA 3157 
3688 il 3688 3158 
36BC CTD6 36BD 3159 
36BE iDES 368F 3160 
36€0 C1C 40960 3603 3161 
36C4 G6000000 36C7f 3162 A6 
3163 # 
DATE 265UNTS 250CT75 LSJANT6 
EC NOw 825023 825032 825034 


DC «XL 8 16263646566676869" 

BC . XLLO'VO0727273767576777879° 

Feu e 

EQU  #-ORDS m 

DC 8 XL AL? SBA 

DC —- KL2°CLF7* i19 

pC = XL2* 10608 SF-ATTR PROTECTED/NORMAL INTENSITY 
OC = =- KL9*C LC ACBC4CSCECTCSC9* 

DC  =—- XL 91D 10 2030405040708 09" 

OC XLB*EZESESESEGETEBED* 

DC =—- XLLO* FOF LF2F3F4FSF6FT7FEF* 

OC = KLL* 1 SBA 

OC = xL2"C.25F* 159 

DC = XL2" Ip 408 SF-ATTR UNPROTECTED/NORMAL INTENe 
DC = XLB' 40506081 CODOEOEL* 

oC =o XLUP aie SBA 

DC =. XL2*C3C7# 199 

oc = ¥@L2# 10608 SF~ATTR PROTECTEO/NORMAL INTENSITY 
DC XL6"GA4BECGDGESFE 

DC = KL6" SASBSCSDSESF* 

equ ¢ 

DC —-—- KL@ "6 ABBECEDS ES F® 

Dt =: XL6* TATBTCTDTETE* 

poo OXLELLS SBA 

DC KLZ*C36F* 239 

DC = XL2 "10408 SF-ATIR UNPROTECTED/NORMAL INTENSITY 
OC =- XL6 "CAC BCCCOCECE* 

DC  XL6*DADBOCODDEDE® 

DC XLS *EAEBECEDEEEF® 

DC = MLS" FAFBFCFOFE* 

PC | XLE?4L! SBA 

OC = KL2 *C4D7° 279 

DC —- XL2* 1608 SF~ATTR PROTECTED/NORMAL INTENSITY 
OC = CLO*N/L CHECKS 

DC = - KL5° 15851585156 

pc XL fans SBA 

CPC 8 XL2 #5408 320 

OC CLOTEOM CHEEK® 

BC = -XL2*89198 END CF MESSAGE (ALT.CODES) 

DC OKLA ALS SBA 

DC -XL2*Ceare 399 

DC —-_- XL2° L408 SP-ATTR UNPROTECTED/NORMAL INTENSITY 
OC =o XLEN 13° INSERT CURSOR 

DC = XLL#A1° SBA 

DC xL2‘CzD6e 470 

OC xLZ"1DEB* SF-ATTR HIGH INT/ PROTECTED 

DC CLG * ADR-* SELECTION ADDR YO FOLLOW 

OC = XL4* 000000008 STORAGE AREA FOR SELECTION ADDR 
L4MAYT76 PROG 1D 9894-3 
825035 PAGE 268 


eeseeeeveaeeaoeneeaeoaenaeoeeeoeneeaeneeoeee eee 8 @ @ 





AY 


+ 


IBM MAINTENANCE DIAGNOSTIC PROGRAK 


8943 
ERR LOC 


36C8 
3ECA 
326CB 
36CD 
36CE 


36CF 
3603 
3602 
3603 
3608 
36E3 


36EA 
36EB 
36F3 
36F8 


36FC 
36FD 


3705 
3706 


3709 
370A 


3712 
3713 
3718 
3723 


3724 
3725 
3720 
3735 


373C 
3730 
373F 
32147 
374F 
3757 
375F 
3767 


3768 
376A 


376C 
3774 
377C 
3784 
3788 


378C 
37eC 
3795 
3790 
3T7AS 
37AD 
37AF 


3780 
3781 
3783 


DATE 
EC NO. 


DA FUNCTIONAL TESTS 


OBJECT CODE ADDR 
1040 36C9 
11 36CA 
C4C7 36Cc 
FF 36CD 
03 36CE 
011C 
OOAA 
36CF 
0227 3600 
F5 3601 
4F 3602 
OSC 5E64003C905C5 36E9 
40C6ESD5C3E3C9D6 
DS40C3C8C5C302 
15 36EA 
OSC5E64003C9D5C5 36FB 
40C6E4D5C3E3C9D6 
05 
15 36FC 
OSC 5E640D3C9D5C5 3704 
15 3705 
OSC SES 3708 
15 3709 
O5C 5E640D3C9D05C5 3711 
15 3712 
D5C 5E640D3C9D5C5 3723 
40C 6£ 405C3E3C 906 
DS 
15 3724 
O5C5E640D3C9D5C5 3738 
40C 6ESDSC3E3€906 
D540C 3C 8C5C3D2 
15 373¢ 
104C 373E 
ESC8CIE2Z40C4CIES 3767 
C140NS06E340E5SC9 
E2C 9C 203C 561C506 
D440C 105C 4400561 
D340C9C7D5D6D9C5 
c4 
1519 3769 
1040 3766 
C5D 5C 46006066004 378A 
C5 EZE2C1C7TC560E3 
C50906C9D5SC1E3C5 
E240D 7DO9CID5SE3 
19 3768 
15 378C 
F205C440C5D6D440 37AE 
03C905C540D5D6E 3 
40 06954007D9C9D5 
E3C 50940D6E4E3D7 
ESE 3 
19 3TAF 
21 3780 
C706 3762 
10€8 3784 
26JUN 75 250C T75 
825023 625032 


| 
PART NOo 4234259 


PAGE 


27 


XL2*1040* SF-ATTR NORMAL INT/UNPROTECTED 
XL2¢11° SBA 

XL2°C4C7* 263 

XLI*FFS INSERT PROBLEM CHARACTER 
XL1*03° ETX 

*-OROG 

+*-MIDOR6 

* 

XL2°0227* STX-ESC 

XLI°F5* CHD, ERASE-WRITE 

XL1*4F¢ WCC-RSTRE XYBRD/SND ALRM/STRT PRAT 


CL23"NEW LINE FUNCTION CHECK *® 


XL1#45° NEW LINE 
CLI7*NEW LINE FUNCTION® 
XL1°15* NEW LINE 
CLB*NEW LINES 

XL1°158¢ NEW LINE 
CL3* NEW? 

KL1°459 NEW LINE 
ClLe*NEW LINE® 

XLL°15* NEW LINE 
CLI7*°NEW LINE FUNCT ION® 


XL1°15° 
CL23°NEW LINE 


NEW LINE 
FUNCTION CHECK® 


xLi*as* 
XL2*1N4C* 
CL41" THIS DATA NOT VISIBLE/EOM AND N/L IGNORED® 


NEW LINE 


XL2*15198 
XL2°1040° 


NEW LINE EOM (IGNORED) 
SF/NCRMAL INT/ UNPROTECTED 


CL31° END—OF—MESS AGE-TERMINATES PRINT * 


XL1°19¢ END OF MESSAGE 


xL2°35° 
Ct34*2ND €OM LINE NOT 


NEW LINE 
ON PRINTER GuTPUT® 


STMT SOURCE STATEMENT 
3164 oc 
3165 oc 
3166 oc 
3167 oc 
3168 EORD6 oC 
3169 ETEXT6 EQU 
3170 126 €Qu 
3271 ORD? EQU 
3172 oc 
3173 oc 
3174 oc 
3175 oc 
3175 

3175 

3176 * 

3177 DOC 
3178 oc 
3178 

3178 

3179 * : 
3280 oc 
3181 oc 
3182 * 

3183 oc 
3184 oc 
3185 * 

3186 Doc 
3187 oc 
3188 # 

3189 oc 
3190 OC 
3190 

3190 

3191 * 

3192 oc 
3193 oc 
3193 

3193 

3194 ®@ 

3195 oc 
3196 oc 
3197 oc 
3197 

3197 

3197 

3197 

3197 

3198 ® 

3199 oc 
3200 oc 
3201 * 

3202 OC 
3202 

3202 

3202 

3203 oc 
3204 @ 

3205 oc 
3206 oc 
3206 

3206 

3206 

3206 

3207 oc 
3208 * 

3209 oc 
3210 oc 
3211 oc 
15 JANT6 14HAY76 
825034 825035 


XL1919° ENO OF MESSAGE 

xtaelis SBA 

XL2°C 706° 470 

XL2*1DE8* SF—ATTR HIGH INT/PROTECTED 
PROG ID 
PAGE 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
i 
, 
NON DISPLAY,NON PRINT,NON DETECTABLE| * 
| 
| 
I 
| 
| 
| 
| 


0894-3 


27 


| 
| 
| 
| y 
| 
| 
| 


164 MAINTENANCE DIAGNOSTIC PROGRAN 


8943 
"ere LOC 


mr: 
es 3785 
3789 
‘ 378D 
37BF 
37C0 
37¢2 
37C4 
37C6 
37CE 
37D6 
370E 
376 
37E8 
37FO 
37F5 
37FO 
3804 


3808 


38133 
3618 


Bs 381A 
381E 
ee 3620 
fag” 3828 
3829 
382B 
382E 
3856 
383€ 
3843 
3846 


os 


ae, 


| 3e67 


3848 
384D 
3855 
3857 
385F 
3867 
386F 
3877 
387F 
3882 
3889 
3891 
3899 


- 


faite 


. 38Al 


a 38A9 
38AF 
: 3887 
‘ 38BF 
38C7 
38CF 
38D7 
38DA 
ae 38E2 
an 38EA 
38EB 
ie 38EE 
ne 38FO 
38F3 
38FB 
3902 


OBJECT CQDE 


C1 C4D960 
00000000 


1040 

03 

0020 

421F 

431F 

C1C 3C3D6D9C4C905 
C740 E3D640D9D06E4 
E3C905C540F 0F268 
40C 4C SE 5C SC 30 540 
ETE? 
40€09E240C1400606 
C4C 5D340E7 
4£040404040404040 
D7D9C9D5E3C509 
C4C SE2D 7D03C1E8 


0227F14A3C04040 


3812 5c 


11C75F 1303 
SCFF 


O227F5C2 

10€8 

C4C 5E5C9C3C540E7 
€7 

10C2 

11€150 

E3C 8C9E24009E240 
D406C4C9CEC9C5C4 
40C 46 1E3C1 
114040 

03 


O227F5C2 

1061 
40C4CS0709C5E2E2 
1D60 
E3C8CS40C9D5C4C9 
C3C1E3€5C440C1C9 
C440D 2C 5E 8406040 
60406040 6040C SE 3 
40E2C8D6E4D3C440 
c2c5s 

40C 4C 5E3C 5C 3E3C5 
C440C905E2E3C105 
E303€ 84B4940C9C6 
400 2C SE 8C 9E 24005 
D6E340C9D5EZ2E3C1 
0303C5C46B40 

C4C 5D 7D9C 5E 2E 240 
CLOSES 400D6E 3C8C5 
0940C1C€9C44002C5 
E840C 5E 7C3C5D07E3 
40C303C5C10940C1 
05C440 
C6D6030306E 64005 
D9D9D60940D4E 2C7 
4B 

Lic 25F 

10€8 

11C6Fs 

C4C 50 709C SE2E240 
6040C 505E3C509 
03 


26JUNT5 
825023 


DA FUNCTIGNAL TESTS 


ADDR 


3768 
37BC 


37BE 
37BF 
37C1 
37C3 
37C5 
3TE7 


3TF4 


37FC 
3803 
380A 
380B 
3811 
3812 
3817 
3819 
381A 
3810 
381F 
3828 


382a 
3820 
3842 


3845 
3846 
3847 
384A 
384C 
3854 
3856 
3880 


38AE 


38D9 


38EA 


38ED 
38EF 
38F2 
3901 


3902 


2S50CT75 
825032 


- 4234259 
27a 


PART ND 
PAGE 


STMY SOURCE STATEMENT 

3212 * 
3213 Oc . CL4*ADR-* STORAGE AREA FOR SELECTION ADOR 
3224 av oc XL4*00000000* STORAGE AREA FOR SELECTION ADDR 
3215 * 

3216 oc XL2*1040°* SF-ATTR NORMAL INT/UNPROTECTED 
3217 EGRO7 OC XL1°O3°* ETX 

3218 THREE2 OC ItL2* 32° 

3219 STXRP OC AL2(XMI TRC4+31) 

3220 SPXRP DC AL2(XMITRC#2873 

3221 MODMG1 DC CL34* ACCORDING TO ROUTINE 02. DEVICE Xx? 

3221 

3221 

3221 

3221 

3222 MODMG2 DC CLi3° 1S A MODEL x* 

3222 

3223 MODMG3 DOC cis . 

3224 PRINTR DOC CL7*PRINTER® 

3225 DISPLY OC CL7* DISPLAY® 

3226 R4wRT EQU # PATTERN FOR ROUTINE 4 

3227 oc XL7*O0227F14A3C40408 STXsESC WRITE eWCCeRA 0000 

3228 RPTCH OC CLItsee REPEAT CHARACTER 

3229 R4WRTE DOC XL5°11C75F1303° SBAs ICs ETX 

3230 SINCHR DOC AL2°*SCFFF SINGLE CHAR REPEATED, MAY SE CRYNGED 
3231 RSWRT EQU * PATTERN FOR ROUTINE 5 

3232 oC XL4* O0227F5SC2* STX, ESC» ER/WR ONCE 

3233 Dt AL2*1DE8* SFe Hi INT. PROT. 

3234 DEVRTS OC Crs*DEVICE xx 

3234 

3235 oc XL2*10C 1° SF, NORM INTos UNPROT., MODIFIED 
3236 ‘oc XL3*110156* SBA 

3237 RSEXP OC CL2Z1* THIS IS MODIFIED OATA®* 

3237 ; 

3237 

3238 OC XL3°114060°* 

3239 RSWRTE OC XL2°03° Em 

3240 AIDT1I EQU - : 

3241 oc XL4°O227FSC2° STXs ESC, ER/WReWCC 

3242 oc XL2°1061° SF — PROT MODIFIED 

3243 oc CL8* DEPRESS®* 

3244 oc XL2*1D60° SF —- PROT 

3245 oc CL42*THE INDICATED AID KEV - — - - IT SHOULD BE* 
3245 

3245 . 

3245 

3245 

3245 

3246 oc CL46* DETECTED INSTANTLY. IF KEYIS NOT INSTALLED, * 
3246 

3246 

3246 

3246 

3244 

are oc CL43"DEPRESS ANY OTHER AID KEY EXCEPT CLEAR AND ° 
324 . 

3247 

3247 

3247 

3247 

3248 oc CLi7* FOLLOW ERROR MSG. * 

3248 ; 

3248 

3249 oc XL3*2L1C25F* SBA 

3250 DC XL2* 1DES8* SF - HI INT. PROT 

3251 OC XL3°11C6F8* SBA 

3252 oc CLIS*OEPRESS - ENTER® 

3252 

3253 AIOTLE OC XL1°03°* ETXx 

IS JANT6 L4MAYT6 PROG ID 0894-3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. £2236259 1BM HAINTENANCE DIAGNOSTIC PROGRAM PART AG. 2346259 
PAGE 28: PAGE 288 
ioe 
8943 DA FUNCTIONAL TESYS , 8943 -DA FUNCTIONAL TESTS 
i 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMY SOURCE STATEMENT 
3903 0000 3904 3254 CURAID OC Xi2*08 WORK SPACE FOR CURRENT AID TABLE 3A5F TBDTC660F1F14040 3469 3292 oc CLIL* #PF—-11 a 
3905 3255 AIDT2 EQU # 3A67 404040 3292 : 
3905 0227F1C2 3908 3256 DC XL4"O227FiC2¢ STX,ESCsWRITE. UNLOCK | 246A 3293 TRSKIP EQU  * 
3909 1IC6F8 3908 3257 OC XL3* LLC6FS8E SBA 3A6A TCOTCO6OFLF2Z4060 3A7T4 32946 DC CLIL*aPpF-12 @ 
390C C4CE0TD9ICSEZE240 391F 3258 AION OC CL20°DEPRESS - e 3A72 404049 3294 
3914 6040404040404040 3258 3AT5 FOE3CSEZE340D9C5 3ATE 3295 oC CLLEL*OTEST REQ °¢ 
391C 40404040 3258 3A7D 084040 3295 
3920 03 3920 3259 AIDYZE OC KL2°03° ETX ance OTE COE EUAN BABA id Oc CLIL*ZPA-3 a 
3921 3260 AIDT3 EQU « 
3921 O227F1C2 3924 3261 DC XL4°O227FiC2! STX:ESCsWRITEs UNLOCK a res ee ecoeneeneate 3A95 223! oc CLIL*>PA-2(CNCL)* 
3925 11C260 3927 3262 Dc XL3°11C2608 : A9 D350 
3928 CLC9C44009C5C3C5 3944 3267 AIDRC DC CL29*AID RECEIVED WAS - e aoc ee 3AA0 eae oc CLLI® »PA-3 : 
3930 C9E5C5C440E6C LE 2 3263 a a 9 4 
3738 4060404040404040 3263 | 3AAlL 6DC3D3C5C1094040 3AAB 3299 Oc CLL1L*_CLEAR 2 
3940 4040404040 3263 | 3AA9 404040 3299 
3945 4D0C8CS5ET407DETET 394F 3264 HEXAID PC CLLI® (HEX P8xxeey hie 3AAC 3300 SKTOSP EQU «& 
394D 705040 3264 ! 3AAC TEE2C5D340D7C505 3ABG 3301 OC CLIL*=SEL PEN ® 
3950 ESD9E840CICTCLCO 3977 3265 oc CL&O*TRY AGAIN OR DEPRESS PA-2(CNCL) TO GO ON® | 3AB4 404040 3301 
3958 D540D6D940C4C507 3265 3ABT E6C3C1LD9C440D9C4 3AC1 3302 DC CLIL*WCARD ROR # 
3960 D9C SE 2E 240D7C 160 3265 3ABF 094040 3302 
3968 £240C305C3035040 3265 | 3AC2 6005D640C1C9C440 3ACC 3303 DC CLIL*-NO AID ® 
3970 £30640C 706400605 3265 me 3ACA 404040 3303 
3978 03 3978 3266 ALDT3E DC XL1*°03° ETX l 3ACD 40E4D5D205D6E6D5 3AD7 3304 OC CLilL* UNKNOWN 8 ' END OF TABLE - - - - - 
3979 3267 AICT4 EQU” # 3AD5 404040 3304 
3979 0227F1C2 397C 3268 oc XL4°O227F1C2° STX,ESCeHRITE, UNLOCK t 3AD8 0000 3AD9 3305 count a optee Poa sa 
397D 11C€260 397F 3269 Oc XL391102608 SBA 4 3ADA 0002 3aDB 3306 TH 
3980 3CC6FT4O 3983 3270 DC XL4"*3CC GF 7408 BLANK QUT PREV MESSAGES | 3ZADC 0240DDAA 3ADF 3307 AIDEX} oe epee ae DEVICE (0D) AND AID €AA) FILLED IN 
3984 03 3984 3271 AIDT4E OC XLE*O3° ETX 3AEO 40401140C1 3AE4 3308 L 
3985 3272 AIDTS EQU # |. 3AE5 S40C4CSDTD9CSEZE2 3AEC 3309 oc CL8* DEPRESS? 
3985 O22TF1C2 3988 3273 oc XL4° O227F1C2* STX »ESC-WRITE, UHRLOCK 3AED 03 SaTD 3310 AIDEX2 OC XL1*03° ETX ‘ 
3989 110540 3988 3274 oc XL3°LIC5S40° SBA : 3AEE C905C3D609D9C5C3 3BOE 3311 INCORP OC CL33*INCORRECT RESULTS FROM 
398C C3D6D9D9C5C3E340 3983 3275 ac CLEO* CORRECT AIO WAS RECEIVED, SUT RESPONSE °* ie 3AF6 E340D9C5E2E403E3 33LL 
3994 C1C9C440E6C1E240 3275 | 3AFE £240C 60906044040 3311 
399C DICSCSCSCIESC5SC4 3275 I ze 3B06 40404040404040460 3311 
3944 6840C2E4E340D9C5 3275 Ns 3BOE 40 3312 
39AC E207D605E2C54040 3275 | 380F 3312 RTSP EQU #® ROUTINE 6 BRITE PATTERN 
39B4 E6C1E240C905C306 3905 3276 oc CL34°WAS INCORRECT, SEE PRINTER LOG GUT® i. 3BOF 0227F540 2B12 3313 oc XL4* O227F540# STX ,ESCrER/UR KCC 
39BC 09D 9C 5C3E36840E2 3276 | * 3B13 BE ESR aCe ESC? 3BLE ace RT6D¥ OC CLI3**SseDEVICE Xx? 
39C4 C5C540D709C9D5E3 3276 3B81B C3C540ETE 3314 
39CC €5D940D03D6C74006 3276 t 3620 1060 3B21 3315 oc XL2*1D60* SFe PROT 
3904 E463 3276 1 3 3B22 DO7FL 3823 3316 oc CL2*P1* 
3906 03 3906 3277 AIDTSE DC XLL*03* ETX | 3824 1D40 3825 3317 oc XL2*1D468 SFe UNPROT 
3907 4048 3908 3278 X404B OC XL2*404B° CONSTANT 4068 are 3B26 E4F1 3827 3318 DOC CL2*u1* 
3909 ETD4C9E3Z61L09C5C3 39E5 3279 XMRCMG DC CLIZ*XMIT/KEC FLO. ° be 3828 1060 3B29 3319 | DC. XL2*1060° SF, PROT 
39E1 4006030448 3279 | 3B2A DTF2 382B 3320 OC Stee, cen anieney 
39E6 3280 AIDTAB EQU # YABLE OF AEDS ws 3B2C 1040 382D 3321 DC XL2 104 ’ 
3SE6 TDCS5D5E3C5D94060 39F0 3281 oC CLIi®** ENTER e i 3B2E E4F2 3B2F 3322 DOC CL2*U2 
39EE 404040 3281 | 3B30 1060 3B31 3323 DC XL2*1060¢ SF, PROT 
39Fl FLD7C660F 1404040 39FB 3282 OC CLUS LPF-i ® Cc: 3B32 DTE3 ae. es ee aa ee Neent 
39F9 404040 3282 1 Aus 3B34 1D46 3 : ’ 
39FC F207C660F 2404040 3A06 3283 DC CLLL*2PF-2 e 3B36 E4F3 3B37 3326 DC eee denn aes 
3A0% 404040 3283 gus 3838 1D60 3839 3327 DC x ’ 
3AOQ7 F3D7C660F3404040 3A1L 32284 OC CLLL® 27PF-3 e pkey 3B3A OTF4 3838 zee fe See ne are Manet 
3AOF 404040 3284 : 3B3C 1040 3830 3329 * 
3A1L2 F407C660F 4404040 3A41C 3265 oc CL11°4PF~4 . Ye 3B3E E4F4 383F 3330 ee ee ae pate 
ZALA 404040 3285 DAL. 3B40 1060 3B41 3331 D XL2e ° ’ 
3A1D FSD 7C660F5404040 3A27 3286 OC CLLIL*SPF-5 ‘ 3842 DTF5 at ae be etre es escent 
3A25 404040 3286 i ae 3B44 1D40 3845 3 ’ 
A28 FEDTCEG0F64C4040 3432 3287 oc CLil *6PF—-6 s ong 3B46 EGF5 3B4? 2 8 ee eee EGE 
3430 404040 32e7 | 3B48 1060 3B49 333 @ 
3433 FIDIC660F 7404060 3430 3288 oc CLLL® TPE-T 8 ie oe Avs abe ai ne So aeei ee: WkeRot 
3A3B 404040 3288 a 3B4C 1D4 fe ’ 
ZA3E FEDTC660F8404040 3448 3289 oc CLiL* 8PF-g ° | 3B4E E4F6 pa a8 es Tene ere 
3A46 404040 3289 [ 3B50 1060 3B5 9 ° 
3A49 FID7C660FS404040 3453 3290 oC CLIL* OPF-9 8 Nes 3852 DTFT7 a022 oats . eee 22° aupeag 
3A51 404040 3290 3854 1D40 8 9 
3A54 TAD 7C660t1F 04040 345E 32912 DC CLELS Ss PF-10 e | spe 3B56 E4F7 3B57 3342 DC CL2*uT* 
3A5SC 4040409 3291 { ee 3B58 1D60 3859 3343 oc XL2*1D60° SF, PROT . 
le : 
DATE 26J3UN75 250CTT5 15 JSANT6 L4MAVTE PROG ID 0894-3, \.. DATE 26 SUN7TS 250CT75 15JANTS L4MAY 76 PROG 10 0894-3 
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PART 4 2 
IBM MAINTENANCE DIAGNOSTIC PROGRAM pol NO. a IBM MAINTENANCE DIAGNOSTIC PROGRAM PAGE NO. a2028: 
ERR LOC CBJECT CODE ADDR STMT SOURCE STATEMENT j ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT 
{ 38F1 10400000 3BF4 3410 pc X%L4°1D400000° 
3344 oc cL2‘pst { 
SBSC nose 3559 3345 DC 8 =—-_«»-XL 21040" SF, UNPROT i 38F5 1060 3BF6 3411 DC. XL2*°10608 
3B5€ E4FB 3B5F 3346 oc CL 2*us* . 3BF7 D7F3 3BF8 3412 oc CL2*P3! 
3B60 0005 3B61 3347 oc XL2°05" PTs SHOULD GO TO ADDR O 3BF9 10400000 3BFC 3413 OC XL4*1D400000* 
3B62 03 3B62 3348 RIOPE DC XL1°038 ETX { 3BFD 1060 3BFE 3414 DC =. XL.2*'10608 
3349 . 3BFF D7F4 3000 3415 oC CL2°P4s 
3B63 3350 RT6T EQU + te ROUTINE 6 TEST SEQUENCE 3C01 10400000 3CO4 3416 oc XL4*10400000" 
3B63 0227F140 3B66 3351 oc XL4@*0227F140# STX,ESC,WRITE WCC | 3C05 1060 3C06 3417 oc XL2°10608 
3B67 0S 3B67 3352 oc XL1'058 PT (PROGRAM TAB) 3CO7 O7F5 3C08 3418 oC CL2"P5¢ . 
3B68 1305 3B69 3353 Dc XL2°1305¢ INSERT CURSOR AND PT 3C09 10400000 3COC 3419 oc XL4*1D400000 
3B6A 3C40D8D9 3B6D 335% oC XL4*3C4008D9" RA AND INSERT AN *R®* na 3COD 1060 3COE 3420 oC XL2°1D60° 
3B6E 05 3BLE 3355 oc XL1°05* PT 3COF D7F6 3010 3421 oc CL2*P6! 
386F 1140E3 3871 3356 oc XL3°1140E3°* SBA it 4 3C11 10400000 3C14 3422 oC XL4*10400000° 
3872 0505 3873 3357 oc XL2"0505° PT TWICE 3C15 1060 3C16 3423 OC XL2°10608 
3B74 D4 3874 3358 oc CLitme INSERT AN @A° 3C17 DTF7 3C18 3424 oc CL2'*p7e 
3875 O05 3B75 3359 oc XL1'05* PT | 3C19 10400000 3C1C 3425 DC XL4*10400000° 
3B76 12407C 3B78 3360 DC XL3'12407C* ERASE UNPROT 10 ADDR . 3C1D 1060 3C1E 3426 oc XL2"1060¢ 
3879 C5 3879 3361 oc CLItE® INSERT AN *E® | 3C1F D7F8 3C20 3427 DC CL2' pss 
3B7A 12403 3B7C 3362 oC XL3°1240C3" EUA TO ADDR 4 3C21 1040 3C22 3428 DC XL2"1D40" 
3B7D 114070 3B7F 3363 oc XL3°211407D* SBA i 3C23 FE 3023 3429 oc XLL'FE® END OF PATTERN 
3880 3C40C 260 3883 3366 DC XL4*3C40C260* REPEAT A *=* TO ADDR 3 3C24 3430 RT7P «= EQUS PATTERN TO TRY INVALID ADDRESS 
3BB4 114940 3B86 3365 oc XL 3°2240408 RESET BUFFER ADDRESS i 3C24 02277540 3C27 3431 oc XL 4°0227F 540! STXsESCsER/WRT »WCC 
3B87 03 © 3B87 3366 RI6TE OC XL1'03¢ ET | acze 120000 aczs ae INVADR . Abs 1 1s000. INVALID SBA GETS FILLED IN 
| 3 3 € 
3B 88 3368 R6EXP EQU + EXPECTED RESULT FOR RTN 6 b 3 3C2C C760 3C2D 3434 INVM1 OC XL2°C 7608 INVALIO MODEL 1 ADDRESS 
3888 6060 3B89 3369 OC cL2'——* | A 3C2E 5E40 3C2F 3435 INVM2 OC XL2'SE4O8 INVALID MODEL 2 ADDRESS 
388A 00 3BBA 3370 oc XL1¢08 3C30 40C1 3031 3436 OC oc XL2'40C1" OPERATION CHECK STATUS 
3B8B SCC4C5E5C9C3C540 3894 3371 R6EEDV OC CL10"*DEVICE Xx* I ae 3C32 0000 3C33 3437 SNSARE OC XL2'08 SENSE AREA 
3893 ETE? 3371 {3 3C34 O1FE 2235 3438 XOLFE OC XL2°O1FE* HEX O1FE 
3895 1060 3896 3372 oC XL2*1060* 3C36 1604 3C37 3439 SSN6 OC XL2°1604! MICRO WORD TO SET SSN6({BLOCK PARITY) 
3B97 D7FL 3898 3373 OC CL2°P1e bo 3C38 0000 3C39 3440 BDGRIN DC XL2¢08 MICRO WORD TO RETURN TO WRITE LOOP 
3B99 1040 3B9A 3374 oc XL2"1040° i 3C3A 00 3C3A 3441 STFLG OC XL2"08 FLAG TO INDICATE MICRO CODE CHANGED 
3B9B E4F1 3B9C 3375 DC Ci2‘u1° | 3C3B 3442 R8BP1 EQU ERASE WRITE TO CAUSE PARITY CHECK . 
3B9D 1060 3B9E 3376 oc XL2'10608 to 3C3B 0227FSC2 3C3E 3443 OC XL4'0227F5C2* STX2ESCy ER/WR UNLOCK eat ree, 
3B9F O7F2 3BAO 3377 o¢ CL2'P2¢ 18 3C3F 003C4040F1 3C43 3444 NC XL5'003C4040F1° RA 0000 CHAR 2 
3BA1 1040 3BA2 3378 oC XL2*1040° | 3044 03 3044 3445 RBP1E OC XL1'03° ETX 
3BA3 D9F2 3BA4 3379 oC CL2°R29 i) 422 3C45 3446 RBP2  EQU * ERASE WRITE TO CAUSE PARITY CHECK 
3B8A5 1060 3BA6 3380 oc Xi 2°1D60" r &. 3045 0227F5C2 3048 3447 oc XL4'O227F5C2¢ STX»ESC,ER/WR s UNLOCK 
3BAT D7F3 3BA8 3381 OC cL2'P3? 3C49 F3 3049 3448 oc CLis3e CHARACTER 3 
3BA9 1D40 3BAA 3382 oc XL2*10408 — 3C4A 10FE 3C4B 3449 DC XL2°10FE* BAD PARITY ATTRIBUTE GETS PUT IN 
3BAB E4F3 3BAC 3383 DC CL2"u3* ys 3C4C 3C4040F2 3C4F 3450 oc XL4'3C4040F2¢ Ra 0000 CHAR 2 
3BAD 1D60 3BAE 3386 oC XL2°1060° 3C50 03 3C50 3451 RB8P2E oC XL1'03¢ ETX 
3BAF DTF4 3B80 3385 oc CL2° Pas Bee 3C51 3452 RBP3  EQU + ERASE WRITE TO CAUSE SAD parity 
38B1 1040 3BB2 3386 oC XL2*1040* | t. 3C51 O227F5C2 3C54 3453. oc XL4'0227F5C2° STXeESCyER/WR s UNLOCK 
3BB3 E4F4 3BB4 3387 oc CL2"U4* 3C55 Fl 3C55 3454 oc cLitne BAD PARITY GETS PUT IN 
3885 1060 3BB6 3388 oC Xt2*10608 | 3C56 3C4040F4 3¢59 3455 DC XL4!3C4040F4* RA 000 CHAR 4 
38B7 D7FS 3888 3389 DC CL2¢P5* C 3C5A 03 3C5A 3456 RBPZE DC XL1'03° ETX 
3BB9 1040 3BBA 3390 OC = XL2"1040* 3C58 3457 R8P4 EQU + SENDS ALL ONE CHARACTER 
388B E4F5 3BBC 3391 OC CL2*us¢ Be 3C5B O227F5C2 3C5E 3458 oc XL4'O227F5C2# STX sESC,ER/ WR oUNLOCK 
3B88D 1060 3BBE 3392 oc XL 2*1D60¢ \,  3C5F 36404000 3C62 3459 RBCHR OC XL4'3C404900" RA, CHAR GETS FILLED IN 
3BBF D7F6 3BCO 3393 oc CL2‘Pe? 3C63 03 3663 3460 RBPSE OC XLi'03° ETX 
3BC1 1040 3BC2 3394 oc XL2°1D408 ro 3C64 016CD9024000 3C6S 3461 RBEXP1 DC XL6'016CD9024000" DEVICE GETS FILLED IN 
3BC3 04% 3BC3 3395 oc cline ti 3C6A €4C403 3C6C 3462 RBEXP2 OC XL3'C4C403° EXPECTED STATUS = OC US 
3BC4 001060 3BC6 3396 oC XL3"001D60" 3C6D 3037 3C6E 3463 ASSN6 DC AL2 (SSN6) 
3BC7 DIF? 38C8 3397 oc CL2°P7* has 3C6F 3039 3C70 3464 ABDGRT DC AL2(BDGRTN) 
3BC9 104000001060 3BCE 3398 DC XL6*104000001 60" cs 3C71 3465 RIIPL EQU * 
3BCF D7F8 3BD0 3399 oc CL2'P8* 3C71 O227F5C2 3C7T4 3466 oC XL4'O227F5C2¢ STX,ESC,ER/WR»WCC ~ UNLOCK 
3801 104900 3BD3 3400 DC XL3*1D4000° 3C75 1060 3CT6 3467 OC XL2'1D60! SF - PROT 
3BD4 C56060 3BD6 2401 DC CL3¢e--* 3C77 C9DS400306E6C509 3090 3468 oC CL39°IN LOWER CASE (ALPHA IF DATA ENTRY KDB)° 
3807 FE 3BD7 3402 oc XLI‘FE® SWITCH TO SINGLE CHARACTER *-* 3C7F 40C3C 16205406001 3468 
3808 3403 REEXP2 EQU + 3C87 0307C8C140C9C640 3468 
3808 0000000000000000 3BE4 3404 oc 13XL1* 008 | 3C8F C4C)E3C140C5D5€3 3468 
3BE0 0000000000 3404 | 3C97 D9E840D2C4C25D 3468 
3BES 1D60 3BE6 3405 OC =—s_- XL 21060" | 3C9E 40C3D607E840E3C8 3CBO 3469 oC CL19* COPY THE FOLLOWING® 
3BE7 O7F1 3BEB 3406 oC CL2*P1° 3CA6 C540C6D60303D6E6 3469 
3BE9 10400000 3BEC 3407 oc XL4*°1D400000* 3CAE CODSC7 3469 
3BED 1D60 3BEE 3408 oc =F XL. 2°1D608 Ds 3CB81 11C17E10E8 3CB5 3470 Dc XL5*11C17E1DE8" SBA, SF HI INTs PROT 
3BEF OTF2 3BFO 3409 oc CL2* P29 ey 3CB6 9BA68599A3AB8A489 3CCF 3471 LCP oc XL 26"96468599A3A8A4 89969781 A284868 788919293 A9A783A5829596" 
Loe. 
DATE 26 5UNTS 250CT75 15J3ANT6 LGMAY TS PROG I0 0894-3 ( DATE 26JUN75 250CT75 15 JAN76 L4MAYT76 PROG ID 0894-3 
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f 
Cc | 
7 ‘ C 


C3 


i 
| 
| 
| 
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8943 
ERR Lac 


3CBE 
3CC6 
3CCE 
3cD0 
3CD6 
3CDB 
3CDE 
3CE6 
3CEE 
3CF6 
3CFE 
3065 
3D00 
3015 
3010 
3025 
3D2D 
3035 
3030 
3045 
3047 


3D48 
3D4C 
3D4E 
3D56 
3D5E 
3066 
3D6E 
3D 6F 
3D74 
307C 
3084 
3D8C 
3D8E 
3094 
3099 
3D9C 
3DA4 
3DAC 
3 DAF 


3080 
30B4 
30B6 
3D0BE 
30C6 
3DCE 
3006 
300E 
3DE6 
3DE9 
3DEE 
3DF6 
30FE 
3E04 
3E07 
3 EOF 
3E17 
3E1F 
3E27 
3E2E 
3E36 
3ESE 
3E46 
3E4E 
3E53 


DATE 
eC NO. 


e2e2eneeeoeenoeeneneneee 


OBJECT CODE 


969781A2 84868788 
919293 A9AT83A582 
9594 

11034E 104013 
11C3€&91060 
11C5C1 

C9C 640E 806644008 
C1E5C540C140C4C1 
E3C140C5C5E3 D9E8 
400 2C 20468404005 
E404C 509C 9C 3E2 
40C1D9C540E4D707 
C50940C5C1E2C540 
€1D0307C8C 1504004 
C507 09CSE2ZE240E3 
CSE2E34009C5 D84B 
40D 6E 3C BC5D9E6C9 
E2C £6B40C4C50709 
CSEZE240C5D5E3C5 
D948 

03 


O227F 5C2 

1060 

C90540 E4D707C5D9 
40C3C1LE2C56840C3 
D6D TE 840E 3€ 8C 540 
C6D6D303DSE6C9D5 
cT 

LICL7Z10E8 
DBESCSD9SEZEBESCO 
Dé DTCLE2ZC4C6CTCB 
D10203E9E 7C3E5C2 
0504 
11034E104013 
1103€91060 
11C5C1 
E3C8C5056B40C4C5 
D7D9C5E2E240C5D5 
E3CSD9 

03 


022 7F 5C2 

1D60 

C509D9 D6ED9E240F6 
C50 9C540C4CS5E3C5 
C3E3C5C440C105C4 
4003D6C7C7C5C440 


cA FUNCTIGNAL TESTS 


ADDR 


3C05 
3CDA 
3C0D 
3D04 


3D 2c 


3D46 


3047 
3048 
3D4B 
3D 4D 
3D6E 


3073 
3D 8D 


3093 
3098 
30 98 
3D AE 


3DAF 
3080 
3083 
3085 
3DE8 


D6E 4E340D60540E3 ~ 


C8C 5400 7D 9C 90 5E 3 
C50348 

1102601 DE8 

C 4C 5D 709C 5E2E240 
C5D5£3C50940E3D6 
40D9C5E3D9E8 

11c 3F 1 
C4CS5D7D9C5E2E 240 
07 C160 F24D0C3 05C3 
035040E 3D640C 7D6 
40D 60 548 404060C 3 
CLESE3C9D6D560 
40D9C508E4C9D9C5 
E24003D6E6C5D940 
E2CBC9C6E340D605 
40E20604C540D2C5 
E8C2C4E248 

03 


26JUNTS 


825023 825032 


3DE0 
3E03 


3E 06 
3E 20 


3€52 


3€ 53 
3E54 


250CT75 


STMT SOURCE 
3472 
3471 
3471 
3472 
3473 
3474 
3475 
3475 
3475 
3475 
3475 
3476 
3476 
3476 
3476 
3476 
3477 
3477 
3477 
3477 
3478 
3479 
3480 
3481 
3482 
3482 
3482 
3482 
3482 
3483 
3484 
3484 
3484 
3484 
3485 
3486 
3487 
3488 
3488 
3488 
3489 
3490 
3491 
3492 
3493 
3493 
3493 
3493 
3493 
3493 
3493 
3494 
3495 
3495 
3495 
3496 
3497 
3497 
3497 
3497 
2497 
3498 
3498 
3498 
3498 
3498 
3499 RILP3E 
3500 R1L2P 


RIIPLE 
R11LP2 


ucep 


R LLP 2E 
RLLP3 


LSJANT6 
825034 


PART NO. 


PAGE 30 


STATEMENT 

oC XL6°11034E1 04013 * SBA, SF UNPROT, INSER CURSOR 
oc XL5*11C3E91D608 SBA, SF PROT 

Oc XL3*LICSEL® A 

oc CL39*4IF YOU HAVE A DATA ENTRY-XBD, (NUMERICS? 

oc CL40* ARE UPPER CASE ALPHA) DEPRESS TEST REQ.! 

oc CL26* OTHERWISE, DEPRESS ENTER.* 

oc XLi*o03°* ETX 

EQU * 

oc XL4*O227F5C2° STX,ESC»ER/WReWCC ~- UNLOCK KBD 
oc XtL2*1D60' SF PROT 

oc CL33°IN UPPER CASE, COPY THE FOLLOWING® 

bc XLS*LICI7ELDES® SBAy SF HI INT, PROT 

DC CL26* QHERTYUI OPASDFGHJSKLZX CVBNH® 

oc XL6&*11034E 104013! SBA, SF UNPORT, INSERT CURSOR 
oc XLS'1iC3E91D60' SBAe SF PROT 

oc XL3*11C5C1° SBA 

oc CL19* THEN, DEPRESS ENTERS 

oc XL1*03? ETX 

EQU * 

DC XL4°O22T7F5C2* STX,ESCe ER/WRe UNLOCK KBD 

DC XL2°1D608 SF - PROT 

OC CLSL"ERRORS WERE DETECTED AND LOGGED Out ON THE PRINTER.! 
oc XL5*11C2601DE86° SBA SF PROT, HI INT 

oC CL22*OEPRESS ENTER TO RETRY® 

oc XL3*1L1C3F1¢ SBA 

De CL39*DEPRESS PA-2(CNCL) TO GO ON. -CAUTION-* 

OC CL37* REQUIRES LOWER SHIFT ON SOME KEYBDS.? 

oc XL1°O3¢ ETX 

EQU * 
L4aMAY 76 PROG ID Pa 
825035 PAGE 
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8943 OA FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
3E54 022 TF5 TF 3E57 3501 oc XL4*O227FS7FS STXe ESC, ER/WR»WCC - DO EVERYTHING 
3E€58 C505C440D6C640E3 3E70 3502 EJMG OC - CL2S5*END OF TEST FOR DEVICE xx* 
3€60 C5E2E340C6060940 3502 
3E68 C&C 5E5C SC 3C 540E FT 3502 
3ETO E7 3502 
3ETL 03 3E7i 3503 RL2PE OC XL1°0O3* ETX 
3E72 E6D9DEDS5SC740C4C1 3E92 3504 RLLMG OC CL33"WRONG DATA RECEIVED FROM KEYBOARD? 
ZETA E3C140D9C5C3C5C9 3504 
3E82 E5C5C440CED9D6D4 3504 
3E8A 40D2C5E 8C2D6C1D9 3504 
3E92 C4 3504 
3E93 O2400DAA 3E96 3505 R1LIEX1 OC XL4*0240DDAA* DEVICE AND AID GET FILLED IN 
3E97 C36AL1C34F 3E9B 3506 RILEX2 OC XLS ‘'C36AL1IC34F KEEP WITH ABOVE DATA 
3E9C 3507 ROOP EQU * 
ZESC O227FS6A 3E9F 3508 oc XL@* O22TF56A5 STX sESC, ER/ WR WCC 
3EAO 3509 ROGPS EQU * 
3EAO E4D 7D 7C5D940C3C1L 3EAA 3510 oC CLIL*UPPER CASE-* 
3EAB E2C560 3510 
3EAB C1C2C3C4C5SC6CTCB8 3ZEC4 3511 oc CL26* ABCOEFGHIJKLMNOPQRSTUVWXYZ* UPPER CASE PATTERN 
3EB3 €9D102D3040506D7 3511 
3EBB DSD9E2ZEZESESESE7T 3511 
3€C3 E8E9S 3521 
3EC5 4040404003D6E6C5 3ED3 3512 oc eLis¢ LOWER CASE-* 
3ECD D940C3L1E2C560 3522 
3ED4 8182838485868788 3£EO 3513 DC XL13°81828384858687888991929394" LOWER CASE PATTERN 
3EDC 8991929394 3513 
3EE1 95969798994 2A3A% 3EED 3514 ROQEXP DC XL13® 95969796 99 AZ AS ASA5AGATABASD* 
3EE9 ASA6ATASAD 3524 
3EEE 00 SEEE 3525 ROOPE OC XLL°O?¢ ETX OR HEX FE 
3EEF 3516 AIDTS& EQU ® 
S3EEF O227FSC2 ZEF2 3517 “OC XL4*O227TF5C2* STX, ESCs ERZWR WCC 
3EF3 1060 3EF4 3518 oc XL2*1D60° SF - PROT 
BEFL E4€2C905C 740E3C8 3SF1B 3515 oc CL39"USING THE SELECTOR PEN, SELECY - FLD A * 
3EFD C540E2C05D3C5C 3E3 3519 
3FOS D&D0940D7C5D56640 3519 
3FOD E2C5D3C5C3£34060 3519 
3F15 400 603C440C 146 3519 
3F1C 5040C6D03C440C34B 3F43 3520 oC CL40°G FLO Cw. THEN SELECT ""END®®. IT SHOULD ¢ 
3F24 4040E3C8C5D0540E2 3520 
3F2C C503C 5C 3E34070C5 3520 
3F34 05C4704B4040C9E3 2820 
3F3C 40E2C8D6E4030440 3520 
3F44 C2C540C4C5E3C5C3 3F6B 3521 oc CL40°BE DETECTED. IF FEATURE NOT INSTALLED, * 
3BF4C E3C5C44B4040C9C6 3521 - : 
3F54 4O0C6C5CLESE4D9C5 3521 
3F5C 40D5D6E 340C9D5E2 3521 
3F64 €3C1D303C5C46840 3521 
3F6C C4CSDTO9CSE2ZE24O SBF TE 3522 oc CLIS*DEPRESS PA-2(CNCL}.f 
374 D7C160F240C305C3 3522 
3F7C 035D4B 2522 
BFT7F 11C25F 3F81 3523 OC KL3"11C25F¢® SBA 
3F82 1DE8 3F83 3524 oc XL2*1DE8° SF ME INT — PROT 
3FE4 1LIC3FO 3F86 3525 oc XL3°1L1C3F0° SBA 
3F87 10&8 3F88 3526 oc XL2*1pE8* SF, HI INT PROT, DETACTABLE 
3F89 6FC603C440C14040 3F91 3527 oc CLO*?FLD A 8 
3F91 40 3527 
3F92 1DE8 3F93 3528 DC Xt2"°1] DE8® SF, HE INT PROT, DETACTABLE 
3F94 6FC6D3C440C24040 3F9C 3529 bc CLO*?FLD B&B : 
3F9C 40 3529 
3F9D 1DE8 3F9E 3530 DC XL2*1DES* SF, HE ENT PROT, OETECTABLE 
3FSF 6FC6D3C0440C34040 3FA7 3531 DC CLO*?7FLtD C- Ot 
3FAT 40 3531 
3FA8 1DE8 3FA9 3532 DC xXL2*1066° SF, HI ENT PROT, DETECTABLE 
3FAA 6FC6D3C440044040 3FR2 3533 oc CL9*7FLD D 7 
3FB2 40 3533 
3FB3 IDES 3FB4 3534 DC XL2°1D0€8°* Sfe Hi INT PROT, DETECTABLE 
3FBS 40C05D5C440404040 3FBD 3535 oc CL?* END 7 
3FBD 40 3535 
‘ DATE 265UNT5 250CT75 15 JAN76 L&MAY 76 PROG ID 0894-3 
EC NO. 825023 825032 825034 825035 PAGE 308 
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PAGE 31 lc PAGE 31a 
8943 DA FUNCTIONAL TESTS } 8943 Da FUNCTIONAL TESTS 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3FBE 1DE8 3FBF 3536 oc XL2* 1DE8* Sf, HI INT PROT, DETECTABLE a 3593 TREP 
3FCO 03 3FCO 3537 AIDT6E OC XL1*03¢ ETX he 3594 TREP 
3FC1 3538 AIDTT EQU # 3595 TREP 
3FCL 0227F1C2 3FC4 3529 DC XL4*0227F1C2° STXsESCeWRITEs UNLOCK WCC Ve 3596 TREP 
3FC5S 11C6F8 3FCT 3540 oC XL3°1LC6FS* SBA C 3597 TREP 
3FC8 E309E840C1C7C1C9 3FEF 3541 DC CL4O*TRY AGAIN OR DEPRESS PA-2(CNCL? TO GO ON*t 3598 TREP 
3FDO 0540D60940C4C5D7 3561 Lee 3599 TREP 
3FD8 D9CSE2E24007C160 3541, | fo 3600 TREP 
3FEO F240C305C3035D40 3541 4 3601 TREP 
3FE8 £30640C 70640D505 3541 Vp 3602 TREP 
3FFO 03 3FFO 3542 AIDT7E OC XL1°03" ETX ka 3603 TREP 
SFFL LRC3BFLILC&C511C4 3FFA 3543° SELPEX DC =. XL10°11C3F111C4C511C40903* EXPECTED SEL PEN RTN« 3604 TREP 
3FF9 0903 3543 os 3605 TREP 
3FFB CO 3FFB 3544 MICPFL OC XL2°O* MICRO POL FLAG QL 3606 TREP 
3FFC 3545 MICP1] EQU # MICRO POLL CONTROL SEQUENCE | 3607 TREP 
3FFC 37FF323240408F BF 4003 3546 MICP2 OC XL8'37FF323240608F8F* ba 368 TREP 
4004 000000 4006 3547 MIC?D OC XL3*O8 COUNT & OEVICE GO HERE | C3 OA11 3609 END START 
4007 20 4007 3548 MICPLE DC = XL1*°20¢ ENQ 
4008 3549 NAK EQU # NAK RESPONSE i 
4008 30FF 4009 3550 NAKE OC XL2°3DFF* | Ce 
3551 
‘400A 3552 EAU equ ERASE ALL UNPROTED CMD SEQ. { ak 
400A 02276F03 4000 3553 EAUE 0C XL4"02276F03" STX v€SCy EAU, ETX Pe 
BNOE (OSSPELAGTIGOGS: . AOT4 S555) Sacue- oe XL7*OZZ27F140110000"  STX,ESC,WRITE »WCC,SBA l 
4015 13 4015 3555 DC XL.2°23° INSERT CURSOR ~ 
4016 412E 3556 EXBUFE DS  281CL1 SAVE WRITE BUFFER HORK SPACE iS 
412F 0000 4130 3557 HEXADR DOC XL2*00° HEX ADDRESS FOR RIN 13 EXCERCISE | 
4131 4138 4132 3558 RIPST DC AL2(EXRIP) START OF RIPPLE DATA 
4133 0000 4134 3559 CURRIP OC XL2*008 CURRENT RIPPLE DATA START > 
4135 413A 4136 3560 RIPEND DC AL2(EXRIP-1) END AOOR OF RIPPLE DATA 1 
4137 4176 4138 3561 RIPRST DC = AL2CEXRIPE) RESTART ADOR FOR EX. De 
4139 O1E0 413A 3562 EMOD1 0c XL2°O1E0° END OF MOD 1 BUFFER © 
413B 3563 EXRIP EQU * 60 CHAR RIPPLE DATA FOR RIN 13 EXe 
“ 4138 CIC 2C3C4CSCECTCE 415E 3564 OC =—s-_— CL36 "ABC DE FGHIJKLANOPQRSTUYWXYZ 0125456 789° 
4143 C9D102D3D4D5D6D7 3564 ce ae rae 
414B D8D9E2E 3E4E5E6E7 3564 
4153 ESESFOFLEZF3F4F5 3564 oe 
415B FOF 7F8F9 35646 i 
4I5F 506061 7A4B5B6B78 4176 3565 EXRIPE OC  — CL24*E-/2.$,8<Zal)4s>=]a72EO8 © 
4167 4C6C7TC4D506ESE6E 3565 os 
416F 7E4F5F6F TF5C7D40 3565 a: 
4177 FF 4177 3566 oc XLi¢ree END OF EX. DATA 
4178 0780 4179 3567 EMOD2 0C XL 2*0780* END OF HOD 2 BUFFER 
417A 0000 4178 3568 EADR DC xL2¢*0° END ADDR IN USE (MOD 1 OR 2) €: 
417C O1E8 4170 3569 MODIL OC 1L2*488° LENGTH OF MOD 1 WRITE PATTERN i 
417E 0788 417F 3570 MOD2L OC IL2°3928" LENGTH OF MGD 2 WRITE PATTERN 
4180 EOAA 4181 3571 KATOL OC xXL2*EOAAS REPLACEMENT KATAKANA CHAR. G. 
4182 BA9A 4183 3572 KATD2 OC XL2*8A9A" 
3573 
4200 3576 ORG *,256,0 ORG TO 256 BOUNDARY 2) 
4200 3575 XMITRC EQU + TRANSMIT & RECEIVE FIELD 
4200 431F 3575 XMITE OS 288CL1 
4320 FF 4320 3577 FELL oc XLI*FFe FILL CHARACTER © 
4321 49FF 3578 OS 1759CL1 SPACE FGR RIN 13 EXCERCISE ' 
3579 TREP en 
3580 TREP 1 €3 
3581 TREP | 
3582 TREP | 
3583 TREP + € 
3564 TREP | 
3585 TREP | 
3586 TREP | © 
3587 TREP 
3588 TREP | 
3589 TREP 1 © 
3590 TREP 
3591 TREP | i 
3592 TREP 1G 
: 
OaTE 26 JUNTS 250CT75 TSIANT6 B4MAY76 PROG ID 0894-3! C> pare 26 JUN7T5 250CT75 ISJANT6 1L4MAY TS 
1 Me PROG ID 94— 
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8943 DA FUNCTIONAL TESTS 8943 DA FUNCTIONAL TESTS 


CROSS-REFERENCE 


oN 


CROSS-REFERENCE 


| 
SYMBOL T LEN VALUE DEFN REFERENCES | # SYMBOL 7 LEN VALUE ODEFN REFERENCES 
ABOGRT A 002 3C70 3464 1564 | CHECK A 004 EEA 1934 1998 2000 
ACCIN C 001 0013 6069 0643 2270 { CHECKE A 004 1F9D 1989 0547 1913 1950 1963 
ACCINM A 019 298E 2586 2272 CHECK2 A 004 1FB9 1996 1926 
ACK A 002 2FFB 2662 0421# 0431 0432* 0434% 0581* 1698 1914*% 1917 1924 1924 1926 1929 ; CHKIT A 064 2008 2064 2096 
1930® 1952 1953% 1955* 1956 1960 1960 1962 2104* 2106# 2116 i CHKPS A 006 223F 2196 2192 
ACKO A O02 2630 2530 1752 | CHKST A 004 OC8E 0317 6267 
ACKL A 002 263F 2531 0362 0374 1668 1668 1670 1676 1914 CHMODX A 004 soee 2412 Songs 0895 0928 0937 0961 0985 1014 1046 1234 
ADNOK A 004 1904 1509 1500 CHIRT A 004 1FBS5 1994 1 
AGAIN A003 1F65 1972 1983 | CH2RT A OCe IFDL 2001 1996% 
AID A OOL 2659 2543 1250 1253 1266 1270 1274 1285 1292 1294 1315 1317 1343 1345 i CLSET A 004 OAC3 0169 0167 0168 
1738* 2185 } CNTLP & 006 2289 2219 2222 
AIDEX1] A004 3ADF 3307 1056* 1057# 1069% 1070# 1103 1107 2109 1150 i175* 1183 |. CNTRL C€ 601 0088 0034 0784 0822 1551 1583 1619 2443 
AIDEX2 A 001 3AED 3310 1071 1288 1190 1205 CONADR A 002 18AD 1431 1447% 1448 1449% 1456%* 1458 1475 
AIDFND A 005 1445 1094 1090 ; . CONDE A 006 168D 1266 1263 
AIDLP A004 I14F4 1120 1198 1214 1220 i. CGNFLG A 001 2660 2547 0390% 1484% 1538 
AIDM A020 391F 3258 1170% CONPOL A 004 21EA 2168 2165 
AIDOK A 006 1520 1135 1085 1201 ; - CONS A 002 OB20 0195 0173 
AIDPOL A 004 145C 1074 1082 1124 21129 1231 { . CONVER A 004 18EL 1446 1413 
AIORC £029 3944 3263 10944 ' CONVR A 004 1955 1476 1446% 
AIDTAB A OOL 39£6 3280 1066 1086 bs Ce A oe ae ace Sore Seve 
AIOTL A O01 3847 3240 1061 i UNT A 002 3AD9 
AIDT1E A O0L 3902 3253 21061 1063 | CTRSTG C 001 0058 0036 1569 1574# 1575 
AIOT2 A OOL 2905 3255 1194 . CURACK A 002 265D 2545 
AIDT2E A O01 3920 3259 1194 1196 { * CURAID A 002 3904 3254 1055* 1067* 1076 1149 LLT2* 
AIOT3 A OOl 3921 3260 1115 CURDAT A 0O2 2EEF 2643 1905% 1971 1986* 
AIDT3E A O02 3978 3266 1215 «ELIT '  CURDEY A G02 2605 2492 0163% 0276 0541 O710 0768 O817 1056 1069 1248 1485* 1488% 1489% 
AIDT& A GOL 3979 3267 1156 [te 1490 1691 1493% 1494* 150 1515 1786 1747 2661 22131 2415 
AIDT4E A OOL 3984 3271 1156 1158 CURRIP A 002 4134 3559 1393% 1433# 1434 1436% 1881 
AIDTS A OO1 3985 3272 1145 1 , DATER COOL 0008 0073 2014 2252 2328 
ALDTSE A O01 3906 3277 1145) 1147 ; =. DATIN A ee re pose 1809 
AIOT6 A OOl 3EEF 3516 1210 1 DB A 002 2647 253 
AIDT6E A OGE 3FCO 3537 1210 £212. | ~ DCUS A 002 2649 2536 O677 0679 ; Scan 
AIOTT A COL B3FC1 3536 1217 i & DE A 002 2643 2533 C844 0847 2143 2146 2202 
AIDT7E A O01 3FFO 3542 1217 1219 DELAY A 004 2272 2214 0594 0672 O776 
AINT2 A 002 2616 2508 1552 / ~- DELAYR & 004 22A3 2224 2214¢% 2216 2218% 
ARR c 001 coos 00:9 1301 1329 1446 1482 1531 1558 1563 1592 1666 1685 1714 17645 i. DEVHB C O61 0009 0074 2151 2255 
1759 1786 1790 1829 1851 1970 1989 1996 2003 2612 2077 2107 DEVHC & 062 OB4C 0212 0210% 0251 0253% 
2130 2214 2229 2412 ' . DEVHLT A 004 0847 O211 C254 0259 
ASSN6 A 002 3C6E 3463 1559 | &. DEVICE A 009 25CF 2475 0268 0351 0353 6416 0525 0568 0569 1363 1516 1517 1518 i596 
ATNR C 001i 000A 0071 1656 2258 | L787 «1791 
ATTCH C 001 0005 0077 1586 2243 2451 , - DEVINC A 002 2633 2525 1485 
ATTCHK C 061 005D 0015 0153 1571 1576 2429 i { OEVMG & 009 2B0F 2600 0268 
ATTMSG A 0616 28£4& 2575 2245 i Hele : oe as oe hove 
ATTNOR A O17? 2895 2569 2266 } l2z 
AVAIL A 006 OCOC 0268 0318 {. DEVRT2 A 009 206E 2629 0351% 192 
AVALMG A O1G 2819 2661 0272 | DEVRT3 A 014 30AD 2676 0416% 
Al A 004 31AE 2712 0872 0906 0923 0924 O972 CS9F 1625 1518* i "a DEVRTS A 00S 3828 3234 0525% 
ALA & 004 3291 2735 O8T2+ ~ DISABL A 003 1LA6C 1566 1562 
A2 A 004 3378 2802 0906# | DISP & 005 213D 2116 2109 2135 
A3 A 004 3414 2897 0923* i. DEISPLY A GOT 380A 3225 0355 
AS A 004 34F2 3031 0924% | € pez A 006 12CB 0934 0926 
AS A 004 35AF 3075 09724 DOACK A 004 EAC 1915 1932 
A6 A 004 3s6C7 3162 osoTe | .. DOACKX A OO& 1F33 1956 1954 
Av? A 004 378C 3214 10254 ; \ DOACKE A 006 I1EA6 1914 19312 
BAOST A 004 OFBA 0640 0635 DOK & C04 OBST 0233 0224 06229 
BCNT A C02 2612 2506 0150* O151% 0154 1616% 16454 eet i ee bec re aioe nous on cae 1503 
BOGRTIN A 002 3039 3440 1575* 3464 1 & DON i i 
BDST COOL 0015 0081 0640 0680 0852 2145 2276 2339 | DOPOL A 004 1039 1714 0265 0631 0674 1074 1302 1763 2138 2168 2203 
BLKDN A 004 LF9S 1986 1973 | . DGPGLR A 004 1696 1740 1714* 1728 1733 1737 
BSYERR A 004 1BA2 1651 1646 ; % DOSIO A004 LAB 1592 5357 0424 0498 0526 0532 OS57T1 O577 0589 062% 0667 0685 0690 
BUSE C€ 001 0002 6070 1651 2234 | 0756 O771 O807 0824 0834 1060 1114 1120 1144 1155 1164 1193 
BUSY C 001 GOSA 0030 1628 ie 1209. 1216 1243 1279 1310 1337 1365 1376 1417 1667 1720 1748 
BUSYB A 004 184C 1628 1649 1660 | @ 1908 1923 1959 2158 2173 21768 
CAR Cc 001 G08C 0026 1621® 1629 l pease ‘ ro te i. aoe 1594 1639% 
cc A 002 2645 2534 : 
CHAID A 004 148F 1088 1203 | ‘wv: DVBCNT A 002 2614 2507 2133 2133 2135* 2136 2162 2162# 2163 2166 2196 2196% 2204*% 2205 
DATE 26JUNTS 250CT7S iSJANT6 1L4MAYT6 , PROG ID 0894-3 © pate 26 JUNTS 250CT75 15JANT6 L4MAY 76 PROG ID 0894 -3 
EC NOw 825023 825032 825034 825035 PAGE 32 | EC NOe 225023 825032 825034 825035 PAGE Ben 
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8943 OA FUNCTIONAL TESTS 8943 DA FUNCTIONAL TESTS 


CROSS-REFERENCE | { {> CROSS-REFERENCE 
} 
SYMBOL Y LEN VALUE OEFN REFERENCES | o SYMBOL T LEN VALUE DEFN REFERENCES 
DVBMSG A 014 294A 2582 2257 ‘ | FILL AOOlL 4320 3577 1408 1410* 1414% 1424 1426 1533* 1613 1613% 
DVHB AGO4 2185 2151 2137 . FILLFF A 004 LFDS5 2003 0372 0537 O708 1068 1174 1252 1675 1690 1852 1915 1951 
01TO9 A&A 002 192D 1465 1462 | FILTAB A 004 1F5D 1970 190$ 1921 . 
EADR A 002 4178 3568 1400® 1405* 1438 | FILTR ACO4& 1F99 1987 rt 
EAU A001 400A 3552 0590 - FINEXP A 004 103D 1794 1789 
EAUE A 004 4000 3553 0590 0592 | - FIX A 003 1F09 1944 1937 
EAUMG A O27 2A8C 2595 2335 | FIXST A 004 ane ue? oct: 1535 
EFOR3 AOOlL 34C€1 2996 F FND A 004 OBB9 024 8 
EJMG A025 3£70 3502 1363*% FORMAT A 004 1027 1790 0320 1767 2381 
ELIN A 002 2FF7T 2660 2092 ° FORMRT A 004 1DAl 1827 1786* 17908 
EMOD1L A 002 4134 3562 1405 FXRL A004 1099 1825 1794% 
EMOD2 A 002 4179 3567 1400 | oes A pos xDD raze 1795% 
ENABL A 003 1LASF 1581 1579 GETO 4 082 200 
ENABLE C 001 O0CO 0033 0822 1551 15283 GETPS A 00% 1CCC 1759 
ENDP & 002 2FFS 2659 2065 ! GETSET A 004 23CF 2298 2295 
EWDRT A 00% 17FA 1376 1375 | GETST A 004 1€D03 1761 1755 
ENINTR C 001 0002 0032 1619 1626 | . GOACK A 00% 18C6 1666 0548 0636 1768 
ENO A 001 25F6 2485 1075 1256 1721 1723 1749 17521 GOACKR A 004 1BF4 1680 1666% 1673 
EORD1 A OOl 3182 2717 0880 0882 | GOAGN A 005 203A 2034 2069 
ECROLA A 001 3295 2138 oe oes | - GOERR A004 1CD7 1762 1760 
EQRD2 A 001 337B 28 1 i GOON A 004 2520 2432 2430 
EORD3 A 001 3410 2899 0947 0949 . | GOSETP A 004 2074 2054 2050 
EORD® A OO 34F5 3034 0950 0952 | - GOTIT A&A 004 188A 1659 1648 
EORDS A 00l 3582 3078 0976 0978 * . GOUNLK A 00% 21FC 2173 2170 
EORDG A OOl 36CE 3168 1000 1003 1005 | GOuP A 006 1965 1485 1523 
EORO? A OO1 378F 3217 1029 1031 - HALT C 001 0222 0022 0211 0304 0487 1544 1771 2390 2399 Nps 
EOT & 002 2637 2527 0366 0629 0670 0693 0796 0799 1123 1167 1373 1672 1677 2119 ‘ MBUSY A 017 2903 2577 2236 a 
2281 HDTP1 A 006 2803 2564 0899% 0920% 0965% 0989 1018¢ 
EOTC C 001 0040 0066 0366 2121 2288 2387 ~ HEAD A 002 2402 2323 2318% : 
EOTMSG A010 293C 2581 2290 s HEADA A 034 27FD 2563 0870 
EQTOUT A 004 1575 1164 1104 HEADAD 4 002 2FDL 2656 2030* 2046 2064* 2065 2353% 2357 ° 23729 
ERR A 001 262A 2520 0328* 0368% 0375* 0640* 0643* 0680* 0706% 0712% 0781% 0793% 0800* 08312 ~~ HEADP A O17? 28914 2565 0900* 0904 0921* 0935* 0944 0966% 0976 9990% 0994 1019* 1023 e a 
0840* 0852* 1132¢ 1586*% 1616% 1636% 1637 1651% 1654 1656% 1659 167% | \.. HEADIA & 034 2680 2552 0161 
1761* 1775® 1778 2014 2073 2121* 2145* 2148% 2151% 2193% 2230 2231 HEADILB A 022 26C6 2553 0325 
2234 2237 2240 2243 2246 2249 2252 2255 2258 2261 2264 2267 1 - HEADI1O A 031 2833 2566 1051 
2270 2273 2276 2279 2282 2285 2288 2291 229% 2318 2328 2337 | “_. HEAD11L A 045 2860 2567 1241 
2339 2385 2387 2434¢ 2447% 2449% 2451% - HEADL2 A 036 2884 2568 1362 
ERRATC A 004 255A 2651 2429 | HEAD2 A 041 20EF 2554 0347 
ERRHLT A GO2 2400 2393 2230¢ 2398 | HEAD3 A 025 2708 2555 0413 
ERROR A OQO% 22A7 2229 0329 0369 0376 0642 0644 0681 0707 0713 0782 O794 0801 0832 HEADS A 030 2726 2856 0475 
0841 0853 1133 1587 1638 1652 1655 1657 21661 1678 1762 1776 | . HEADS A 027 2741 2557 0522 
1779 2015 2122 2147 2149 2152 2194 | ( HEAD6 «=A 037 2766 2558 0565 
ERRORR A 004 24€6 2402 2229% | HEAD? A 032 2786 2559 0616 
ETEXTE C OOL O1IC 3169 1000% . HEADS A 031 27A5 2560 0659 
EWRT 4 001 25F2 2480 | &. HEADS =A 005 27DB 2562 0752 
EWRT2 A 004 2072 2630 0358 0360 06373 | HEXADR A 002 4130 3557 1392 1392% 14378 1438 1460 1440% 1447 1451 
EWRT3 A O01 30F0 2679 0425 0427 . HEXAID A O11 394F 3264 1098 
EXBUF A O07 4014 3554 1391 1409% 1415 1425¢ 1675*% Co ut A 004 i1D8C 1820 1812 
EXBUFE A 001 412E 3556 1408* 1414 1424¢ HLTERR A 004 24C8 2390 2075 
EXFIL AOOl 2£93 2633 2004 20044 } -- TAR2  € 001 OOAO 0021 1552* 
EXIT A 004 1885 1643 1628 l € TEXIT A 004 2533 2438 2435 2448 2450 2452 
EXP & 008 3005 2665 2019 INCOR C 001 0010 0068 0375 O712 O800 1674 2264 2337 
EXPBUF A001 2073 2631 0373* 0374*% 0538* 0539* 0540* 0541% 0542% 0543% 05%4% 0545*« 0709s 0711*% ‘ . INCORM A C18 2978 2585 2266 
0798 0799% 1071 1075% 1135 11839 1184 1186* 1187* 1188% Ll9g0* 1205* |S INcore A 033 3B0E 3311 1137# 1241 
1206* 1254* 1255 1258* 1259% 1260* 1261% 1262 1264% 1265* 1267 1287* | INIT & 004 OAS7T 0140 0134 0138 
1288 1676* 1677 1688 1853* 1858* 1859 1860* 1861 1862¢ 1879 1883 INPN € 001 0003 0076 2237 42434 
1887 1891 1895 1899 19024 1903 1917# 1918€ 1939 1920® 1935 1956 '. INTFELG A OOL 2610 2505 0778 O786 1617* 1634 1647 2438¢ 
zs yous. eee sake aoeee ie 1992 1997 1999 2005 2005* 2031 | INTPND A 014 28F2 2576 2239 
EXPFL 2039 9 . INT2 A 004 2508 2425 2444 2508 
EXRIP A OOL 4138 3563 3558 3560 | ~ INV A 604 OBEA 0255 0218 e228 0230 0232 0236 
EXRIPE A 024 4176 3565 0144* 1396 356) INVAOR A 003 3C2A 3432 0619% 0622% 
EXSTR A 00% 1£90 1905 1882 | - INVMG A 026 3097 2670 0258 
FETCHS A 006 1COB 1763 0370 2123 \.- INVML A 002 3C2D 3434 0619 
FFFE A 001 2FF1 2657 2051 2363 2365 INV42 A 002 3C2F 3435 0622 
FILAGN A 00S 1828 1396 1399 * |) INXR2 A 002 2609 2695 0165 0278 
FILFFR A 004 1FES 2006 2003% | fo lol A 004 252F 2436 2433 —(- 
ix = 
OaTE 265UNTS 250C T75 L5JANT6 L4NAY 76 PROG 10 0894-3; €- pate 26JUNTS 250CT75 1SJANT6 14MAY76 PROG ID 0894-3 
EC NOW 825023 825032 825034 825035 PAGE 33 EC NO. 9825023 825032 825034 825035 PAGE 33A 
: : : : . : } 
{© 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


8943 DA FUNCTIONAL TESTS 

SymMBOL T LEN VALUE DEFN REFERENCES 

IR A 002 2635 2526 2197 

IRDE A 002 2641 2532 

ITBE C 00) 0006 0078 2246 2449 

ITBER A 004 2552 2449 2436 

ITBMSG A 013 2804 2574 2248 

KATDL A 002 4181 3571 0142 0144 

KATD2 A 002 4183 3572 0143 

LCAR A 002 261A 2510 1602 1621 

Lce A 026 3CCF 3471 1264, 

LINADR A 002 2EF3 2646 2047 

LINE A 002 2607 2494 0162¢€ O0277* 

LINES A 003 OAOC O012 0140 0195 

LINK C 001 0216 0045 0303 O311 
0898 0919 
1231 1233 
2418 

LOAD C 001 O22A 0046 0314 

LOG A 001 2562 245T 

LOGCAR A010 25A8 2462 1599% 2301 

LOGDEV A 009 256A 2458 1517* 1596* 

LOGMSG A 001 2590 2459 1595* 1597* 
2263% 2266* 

LOGSAR A 010 25B8C 2464 1601¥* 2311 

LOGST A O13 259& 2461 1598* 2316 

LOGTAR A 010 25B2 2463 1600# 2306 

toap A003 FCC 1945 1949 

LOOPRI A 004 OA26 0127 0124 

LQOOP13 A 004 LBL 24l2 £439 = 1442 

LOZER A GO3 1939 1469 1460 

LSAR & 002 261E 2512 1605* 1623 

LTAR A 062 2610 2511 1602* 1603* 

L16 C 00} GO?7T2 3106 03999 0999 

L26 C00 OO&A 3170 1000 

MICLP A 004 OASD 0152 0155 

MICNL A 004 OCAD 0328 0149 0153 

MICNLM A021 29C@ 2589 2263 

MICPD A 003 4606 3547 O768* O769* 

MICPFL A 001 3FFB 3544 O767* O775* 

MICPL A OOL 3FFC 3545 OT72 0806 

MICPLE A O01 4007 3548 O772 OT7%4 

MIcP2 A 008 4093 3546 0816 

MICRON A 003 1A36 = 1551 1548 

MIDOR6 A OOL 3625 3105 0g$99 3170 

MESCOM A 004 IFF& 2015 

MISDAT A O15 2912 2578 2254 

’ MNL C 00% COOF 0085 0328 2261 

MODIFY A Q0& 188% L574 1559% 1564% 

MODMG1 A 034 37E7 3221 0353* 

MODMG2 A013 3TF& 3222 0354* 0385* 

MOOMG3 A 008 37FC 3223 0355* 0389 

MOOST A 004 IA4E 1558 0663 

MOOSTR A 00% JLAAB 1584 1558* 15634 

MOOXR A 004 2504 2419 2412* 2414 

mMo0l1 A 0046 0043 9386 0383 

mODlLt A 002 S4ITD 3569 1406 

MOD2L A 002 SETF 3570 1401 

HOR6 A 001 366€ 3129 

MOVE A 004 FTF 1980 1977 «1985 

MPCS COOL OOF 0083 0831 2282 

MPINT C 001 O016 6082 6781 2279 

MPMGL A 036 2968 2590 2281 

MPMG2 4&4 051i ZAlB 2591 0792 

MPMG3 A 043 2446 2592 0851 

MPMG4 A 020 2Ah&5A 2593 2284 

MPMGS & 023 2ATE 2594 2287 

MSGBLK A OJL 2592 2460 1595 2322 

OATE 26J5UN7TS 25act7s LS JAN76 

EC NO. 825023 825032 825034 


vate ae Sew 


CROSS-REFERENCE 


2030 2353 

1486 1495 1499* 1505% 1506 1506* 
1235 

0391 0461 0510 0550 0600 0638 
0931 0940 06959 0964 0988 1012 
1236 1277 1289 1296 1348 1773 
2233 2236 2239% 2242* 2245% 2248* 
2269% 2272* 2275% 2278* 2281# 2284*% 
2327 

1604* 1622 1633 
0806* 

0803 O805* 0823* 1532% 1643 
0798 ©0808 0810 
03934 

2416 

L4MAY TE 

825035 


Beh AE ae tpitageptsencit eon aie Sh Ra 8 ee enti 


1508 1508* 
O701 
1017 
2167 


0845 
1043 
2183 


2251% 2254* 
2287 2290% 


PART NO. 
PAGE 


1509 


0865 
1045 
2203 


C893 
1168 
2392 


2257* 2260 
2292% 2296% 


PROG 
PAGE 


to 


42342 


eu 
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Oo aS 
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| 
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IBM MAINTENANCE OLAGNOSTIC PROGRAN 


8943 DA FUNCTIONAL TESTS 


CROSS~REFERENCE 
SYMBOL T LEN VALUE ODEFN REFERENCES 
MVCHR A 004 1€10 1692 1697 
MVDATA A 00S 1825 1615 1610* 16112* 1612 
MVXRi A OO& 1C€2D 1699 1086* 1696 
MVXR2 A 004 1€31 1700 1687*% 
NAK A 00L 4008 3549 0835 
NAKE A 002 4009 3550 0835 0837 
NEWAID A 005 1583 1170 1163 
NEXT A 004 OADB 0175 0190 
NEXTB A 006 1068 1809 1805 
NOAID A 001 3098 2671 0352* 0394* 0540 1860 
NOEOT C€C 001 0024 0080 0706 2273 , 
NOERR A 008 2806 2599 1597 
NOINT C 001 0007 0079 0793 16436 2249 
NOINTR A O12 28C7 2573 2251 
NOKAT A 003 OAT1L O145 0141 
NOP A 006 248F 2371 2366 
NOPA2 A 004 14E2 1113 1102 1106 
NOPRIN A 006 208E 2064 2052 
NORAIO A CO6 15CE 1190 1182 
NORDUC C 001 0086 0035 2432 
NORDY A 003 1A30 = 1549 1547 
NOTAVL A 020 28BB 2572 
NOTOS A 004 OBCT 0246 0244 
NOTEOQT A 004 1077 0706 0671 
NOTRDY C 001 0058 cols 1547 1624 
NOTS8F A 006 OBD1 0249 2267 
NULL A 001 2EEC 2641 1901 
NULLS A 004 LETE i901 R865 
NXTAID A 003 1256C 1i6l 1152 
NXTKEY A 004 L55A 1154 1Li0 «=61llL2 1136 
NXTMPT A 006 1135 0796 Oo787 O811 
oc A 002 3C31 3436 0634 0641 
OHOH A 004 1008 1778 0633 1765 2120 
OK & 004 0A3D 0133 9130 
ONE A 003 2620 252i 0154 O191 0239 0449 1398 1433 1437 1570 
2163 2204 2221 2522 
ONFLG A004 2600 2501 OL7TEL OL71* O172* O180% 0209 O209% 0242 2495 
OOPS1 A 004 L518 1132 1127 61323 
OGPS2 A 003 1502 1126 1078 
ocoPS3 A004 2237 2193 2199 
oops4 A 004 LAAC 1586 1571 «1576 
ooPps5 A 004 107F 6708 0676 ; 
OPTS C 001 0008 0037 
OP T4 C 001 0010 0038 
OPTS C 001 0020 0039 
ORD A 001 30F6 2662 0880 
ORDIA A COL 3183 2718 0384 
GROZ A OOL 3296 2740 0310 
ORD3 A 001 337C 2805 0947 
CRD4 A 001 341E£ 2900 0950 
ORO5 A 001 34F6 3035 C976 
ORD& A 001 3583 3079 1003 3106 3169 
ORD7 A 001 36CF 3171 1029 
PASS! A OOlL 2629 2519 0128* 0131% 0133 0208# 0280 0281* 
PATL A&A 0046 1659 1891 1871 
PAT2 & 004 1638 1883 1875 
PBUF A OOl 2EF2 2645 
PBUFBL A COL 2F3A 2651 2016 
PEXPST A 004 1014 1786 2341 
PFLG A OOL 2627 2517 
PHD & 004 1269 0941 0933 
PHEAD A 036 2FCF 2655 2025 2347 
PHEADA A 038 2FAB 2654 2348 
PHMSG A 004 24D2 2394 2386 2388 
PLENG A OO2 188A 1418 1401* 1406* 
PLINBL A OOL 2F85 2653 2017 2080 
. DATE 26.5UN75 250CT75 15JAN76 L4MAY 76 
EC NO 825023 825032 825034 825035 
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PART NO. 4234259 
PAGE 34A 
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PROG 1D 0894-3 
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f. PAGE 35A 


8943 DA FUNCTIONAL TESTS 8943 DA FUNCTIONAL TESTS 


CROSS-REFERENCE 


ann, 
Tage 


i CROSS-REFERENCE 
SYMBOL T LEN VALUE OEFN REFERENCES 


* Stree cee ese ge 


7 
| SYMBOL T LEN VALUE ODEFN REFERENCES 
PLINE A OOL 2F84% 2652 2017 2018% 2019% 2020% 2024 2025% 2029 2024 2035% 2038 2042 2058 | RIPDT AO28 2EEA 2639 0142* 0143¢ 0617 
; 2059* 2063 2080* 2081° 2062 2083 2347% 2348% 2352 2358 2362 2363 ; | . RIPEND A 002 4136 3560 1434 
2365 2370 2660 { RIPHD A 0O1 2EAA 2637 64208 
POLFLG A OOL 2658 2542 0266 0632 0675 1077 1079 1081 1256 1272 1276 1303 1305 1307 RIPPLE A 004 1£73 1898 1867 
1727* 1732¢ 1736* 1739% 176% 2139 2169 2171 2182 2189 I RIPRST A 002 4138 3562 1436 
POLL A002 2651 2539 0842 1715 2132 | RIPST A 002 4132 3558 1393 1880 
POLL1 A 0O%4& OCO1 0265 i RNST C 001 OO18 0084 0840 2285 
POLPR A 006 2174 2135 2142 \ RPTCH A OOl 3812 3228 0477# 0491% 0505 
POLST A 002 2658 2544 O317 0634 0677 0843% 0844 1128 1130 1321 1737 A7L7* 17318 1793 | RSBEOT A O16 299E 2587 2275 
2197 2202 : i RSTHMG A 033 2D61 2626 2397 ; ‘ 
PORD1 A 002 i232 O882 O875 ' , RINFLG A OOlL 2FFD 2664 0349 0384* 0392% 0438 0452 0620 Oo873 0692 0918 0925 0958 1011 
PORDIA A002 1238 0886 O87? t & 1042 1230 1402 2108 2191 
PORD2 A 002 1282 0922 0907 ' RTNOA A OO1 2LIFO 0860 O747 
; PORD3 A 002 12FA 0949 0932 | RTNOB A 001 1239 0888 0862 
PORDe A 002 1300 0952 0934 { RTNOC AOOl 1283 0914 0890 
POROS A002 134A O978 0973 : RTNOD A OOl 1301 0954 0916 
PORDS6 A002 139C 1005 0998 | RTNOE A OOi 1348 0980 0956 
PORDT A 002 13€6 1031 1026 { RTNOF AOOl 1390 1007 0982 
POUT & 001 20A7 2070 2066 | RTNOL A 001 OACD O117 0010 
PP A004 2088 2077 2054 i RTNO2 A OOlL OCBS 0340 0119 
PPR A 004 2100 2099 207T* | RTNO3 A OOlL OD6D 0406 0342 
PPxXR1 A COS 2105 2097 2078¢ 2093 { RT™NOS A O01 OF15 0468 0408 
PPXR2 A 0O& 2109 2098 20T9e RTNOS A 001 OGE86 0515 0470 
PRINEN A 006 2080 2059 2053 | RTNO6 A OOlL OEFA 0558 OSsl17 
PRINT C€C COL O21A 0023 0158 0200 0204 0255 0269 0284 0289 0293 0297 0312 0322 0344 | RINO7T A 00lL OF 64 0609 0560 
0386 0410 0472 0479 0483 0519 0562 0613 0656 O749 0789 0868 | - RTNOS A001 OFDO 0652 0611 
0867 0901 0941 0967 0991 1020 10468 1136 12238 1330 1359 1540 . RINOO A OOlL LOAF 0745 0654 
1769 18€3 1830 2021 2026 2055 2060 2071 2319 2324 2332 2343 RTN1O A SOL 13€7 1038 1009 
2349 2367 2376 2382 2394 ~~ RTN11 A OOL 1629 1226 1040 
PRINTR A OO? 3803 3224 0393 w- RTNIL2 A OOL LT7C& 1354 1228 
ae PRIN A 001 OA03 C0008 137%6* 1536 RT™N13 A OOL 1806 1386 1356 : 
eae PRIMG A 004 OCAL 0322 0136 ~- RTIMLT A 004 OCGA 0306 0302 : tit ag 
PSOEV A002 25FA 2484 1716 17478 2131¢ ‘% RTIMG A O30 2040 2625 0300 
PSR ¢ €Ol 0004 0020 2427 24286 24419 t RT1MGL A 038 2C5SA 2619 0287 
PSROUR A 004 1087 1835 18294 RT1MG2 A 030 2CAA 2621 0292 
PSROUT A 00% 10A5 1829 1797 «61807 ; RT1MG3 A 022 2CFl 2623 0296 
PSRw A 002 2618 2509 2427¢ 2441 | RT3CW AO00& 309D 2674 0418*% 0419% 04358 0436 0445% 0668 
PSTAT & 004 ICE6 1767 | ~ RT3HD A 002 30AF 2677 0420 
PuTP & 003 20E€8 2989 2085 \ RT60V A013 3B1F 33146 0568* 
PWACK A 004 ICFO 1775 17sS7 | RT6P A 001 380F 3312 0572 
PXRE A 004 2486 2367 2364 | - RT6PE A CO1l 3862 3348 0572 0574 
PXREX AOO6 ILFFB 2016 2013 2331 2336 2336 | c RT6T A 001 3863 3350 0s78 ; 
PXREXA A 004 ILFEO 2012 1142 1335 RT6TE A OOlL 3887 3366 0578 0880 
PXRM| A 094 243A 2343 2340 | .. RTT A 0O1 3C€24 3430 0625 
PXRNL A GO4 2462 2355 2374 | C. rte A 001 3C28 3433 0625 0627 
PXRRT A OO4 2080 2074 20122 i RVI A002 2638 2529 1754 
RAP = A 006 «E68 «(1898 3=—: 1869 | _ RVIMSG A013 2932 2580 2269 
RBEX1 A 004 2€98 2635 0539 1859 { C. RVIS C 001 0020 0065 1761 2267 2385 
RBFLG A OOl 2E9% 2634 1857e 1864 1866 1868 1870 1872 1874 1876 2330 ; RXR1 = =& 004 229F 2223 22156 
ROB A 001 2600 2490 1909 ! @ ROSMG A 024 2ACE 2597 0482 
ROBE A 004 2603 2491 1853 1909 1911 | € ROaMG2 A 048 2AFE 2598 0688 
ROBXR1 A 004 1F4B 1965 18549 : ROSEXP A013 3EED 3514 
RDBXR2 A 0O4 ILFSF 1966 1855 . ROGP A 001 3€9C 3507 O7Ts7 
ROERR A 006 ILFFO 2014 1939 1991 1993 ‘ROSPE A OO1 3EEE 3515 O754e O757 O759 0762¢ 
ROMOD A 001 25FC 2487 0533 RO9PS AOOl 3£A0 3509 1888 
ROMODE A 004 25FF 2488 0533 0535 0538 R1l0UT A006 OCLE O276 0139 0263 
READBF A 004 1088 1851 0378 0457 0506 058% 0596 O763 1429 / % RIOSY A 004 1429 1059 1053 
READBR A OOS AF5S9 1968 1851* 1856 1967¢% : RLIAT A 006 1764 1315 1308 
REAO2 A 004 0020 03786 0363 0397 ' . Q11B A004 1705 1285 
REAO3 A 006 O£0A 0057 0453 0455 : \. RLICB A 00@ 1777 1321 1304 
RECO A 008 3000 2666 2018 , RLIER A 00% 1783 1329 1269 1291 
RECFt A 001 2F39 2650 2016 2043 2049 2053 2059 2081 | RLIERR A 00% 1760 1349 13298 1346 
RESTFL A 001 260E 2503 0121 O135 0309% 13778 | “. ALLEX1 A 004 3E96 «63505 1248¢ 1253¢e 
REST2 A 004 I187D 1660 1593¢ | RLILEX2 A 005 3E€98 3506 1258 1260 
RINXR2 A 004 195) 1483 0165* O276e 14980 15190 R11GO1l A 004 16€7 127% 1268 1272 
RIPOAT A GOL 2E99 2636 1898 XV RLING A033 3E92 3504 1333 
DATE Z65UNTS 250CTTS ISJANT6 14nayv7e PROG ID 0894-3) ©: pate 26 5UNTS 250CT75 LS JANT6 LONAY 76 PpRoG 10 0894-3 
€C NO. 825023 825032 825034 825035 PASE 35 | EC NO. 825023 825032 825034 825035 PAGE 35A 
| i 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 


SYMBOL 


R11P 
RLIPA 
R11PB 
RLLPL 
RL1LPOL 
R1LPOR 
R11P1 
RLIPLE 
RL1P2 
R11P2E 
R11P3 
RLIP3E 
RILRTN 
R1iIRTI 
R1IRT2 
RLITE 
RULUNL 
R1i2P 
RL2PE 
R13EX 
R3M2 
R3NXT 
R3PTR 
R3WPR 
R4 WRT 
RGWRTE 
R4GWRT1 
R5EXP 
RSWRT 
RSWRTE 
R6EDV 
RGEXP 
ROEXP 2 
R7M1 
RECHR 
RBEXP1 
REEXP2 
RBFIX 
R@LOOP 
R&P 
RBPL 
RBPLE 
REP 2 
RBPZE 
RBP3 
RBP3E 
RBP& 
REP4GE 
R8BT1L 
RBT2 
R813 
SAR 
SAVAED 
SAVEX 
SBYTEO 
S8YTE2 
SBYTE3 
SBYTES 


SS8YTES 
SCAR 
SEL 
SELECR 
SELECT 


DATE 
Ec NG. 


4 : roe x ~ *. ce SS te t 4 7 i 
SN a 


DA FUNCTIONAL TESTS 


PPP EPO OOOOpPrPOPrP rP > PP PPP PPP PPP PPPPrDEP PPP PPPErPEPPPPPEPPEPPPPPPEPPEPHEPPp « 


LEN VALUE 
004 1739 
00% 1745 
004 1701 
004 1660 
004 1735 
004 1773 
001 3C71 
001 3047 
OOL 3048 
O01 30DAF 
001 3080 
O01 3€53 
004 1793 
004 1655 
004 16EF 
006 1683 
00% 1756 
001 3654 
OOl 3€71 
004 2LE2A 
004 ODDC 
004 OD61 
004 ODFC 
004 ODE3 
001 3808 
COS 3817 
004 E63 
O21 3842 
OOl 381A 
OOL 3846 
010 3894 
001 3888 
COL 3808 
OCS OF8B 
C04 3C62 
006 3C69 
003 3C6C 
004 102C 
004 OFEA 
006 OFFB 
0Ol 3C€38 
OOl 3244 
001 3045 
O91 3¢€50 
OOL 3C51 
OOL 3C5A 
001 3C58 
001 3C63 
002 1042 
002 10A8 
002 LOAE 
ool 6089 
001 2661 
006 1893 
001 0208 
001 020A 
OOL 0208 
001 020C 
001 0200 
002 2620 
002 2653 
004 1010 
004 I1C98 
265UNT5 
625023 


DEFN 


1302 
1342 
1284 
1249 
1301 
1319 
3465 
3478 
3479 
3489 
3499 
3499 
1336 
1242 
1278 
1264 
1310 
3500 
3503 
1879 
0443 
0431 
0452 
0445 
3226 
3229 
0498 
3237 
3231 
3239 
3371 
3368 
3403 
0624 
3459 
3461 
3462 
0683 
0663 
0668 
3442 
3445 
3446 
3451 
3452 
3456 
3457 
3460 
O718 
0721 
0724 
0028 
2548 
1424 
0040 
0041 
0042 
0043 


0044 
2513 
2540 
1781 
1745 


250CT75 
825032 


REFERENCES 

1309 1334 

1273 1295 

1249 1284 

1301® 1306 

1244 

1244 1246 

1280 | 

1280 1282 

1338 

1338 1340 

1275 

1293 

1257 

1251 1286 

1366 

1366 1368 

1877 

0439 

0437 

0441 

0494% 04978 

0499 0501 

0496 

0543 

0527 

0527 0529 

0569 

1892 

1884 

0621 

0661% 0695 

07108 

O711 

0678 

0699 0704 

0662* 0698" 

0716 

0716 0718 

0719 

0719 0723 

0722 

0722 0724 

0686 

0686 0686 

0662 

0698 

0703 

1623 1631 

1266*% 1347 

0123 0301 

0125 0137 

0446 0495 

0960 0962 

2413 

0829 16298 

1746 

1745% 1753 

0350 0396 

0684 0755 

1336 1364 
15JANT6 
825034 





atm nt et apenee 


PART NOD. 4234259 
PAGE 36 
CROSS-REFERENCE 
1322 
1346 
1342 
1316 
i 
t 
1318 
0499 
t 
O697* 0700 OT0z¢ 
| 
0703% ; 
| 
| 
| 
| 
0197 0306* 0476 1044 1052 1232 2164 
086% 0894 0896 0897 0927 6929 0930 0936 0938 0939 
0963 0984 0986 0987 1013 1015 1046 | 
2300 
{ 
1759% L777 
C415 0454 0493 0504 0524 0531 0567 0588 oOf18 06665 
0761 0996 1059 1100 1143 1154 1192 1208 1242 1278 
1412 1428 2157 
| 
L4MAY 76 PROG ID 0894-3) 
625035 PAGE 


18K HAINTENANCE DIAGNOSTIC PROGRAM 


woke, 


8943 DA FUNCTIONAL YESTS 


Be 
£5 


SYMBOL T LEN VALUE DEEN 
SELPEN A 006 15F9 1205 
SELPEX AO1LO 3FFA 3543 
SELPOL A O0L 25F3 2482 
SENDTP A 004 218D 2157 
SENTPB A 004 21C1 2158 
SET A 004 OBIE 0194 
SETEXP A 004 1BF& 1685 
SETEXR A004 1C35 1701 
SETFL A 003 GBD7 0250 
SETFO A 004 0843 02106 
SETHIN A003 1933 1467 
SETIN 8&2 004 OD15 0372 
SETHG1 A 030 3058 2668 
SETMG2 A 034 3070 2669 
SETTBN A 003 OADF 0176 
SETUP A 006 19F9 1531 
SETUPR A 004 1A3D 1553 
SF 1 A 003 0C96 0319 
SHIFT A 004 9803 0187 
SHIFTR A 006 1984 1506 
SINCHR A 002 3819 3230 
_SIOI C 001 0058 0016 
SIONIN A 004 1868 1636 
SIX A002 2631 2524 
.. SIXTEN A 002 2FF3 2658 
\ SKIPTR A004 14608 1121 
SKIPL & 004 OCT6 0368 
. SKTOSP A 001 3AAC 3300 
%. SM2 A 004 185D 1407 
SNAK i 004 11B1 0834 
~ .SNSARE A 002 3€33 3437 
~ SNSLP A 00% LA6C 1869 
SPB = A 004 ~«20D53. «0392 
SPFLD A 006 25F8 2483 
SPRTY A 004 1618 1216 
SPXRP A 002 37C5 3220 
. SPOHLT A 004 LCEE 1769 
*. SSAR A 002 2624 2515 
SSN6 A 002 3C37 3439 
. SSTAT & 002 2626 2516 
%\ SSWEL A 001 3099 2672 
SSWOl € GO 0040 0047 
~ SSWLO COOL 0080 0048 
{ SSW1L € 001 0040 0049 
SSW12 € 001 0020 «050 
-~ $$W13 C002 0010 0051 
{. SSWl4 C 001 0008 0052 
SSW15 C 001 0004 0053 
» SSK2F C€ O0OL O00! 0063 
\- SSW20 C€ 00 0080 9054 
- SSW21 C 001 0040 0055 
. §SW22 © 002 0020 0056 
SSW23. C 001 0010 0057 
SSH24 € 001 0008 0058 
SSH25 C01 0004 0059 
SSW26 C 00L 0002 06060 
, SSH27 C 001 COOL 9061 
\ SSW28 C OC 0080 oDE2 
STAID A GOS 1C8D 1738 
, STAR A 002 2622 2516 
%. START A004 OAlL O121 
STATBL A OOL 2C04 2616 
STATFL A 001 2C03 2615 
( STATHE A 030 2BE5 2614 
| €” pate 265UNTS 250CT75 
EC NO. 825023 825032 
rom 


REFERENCES 


1058 
1206 
1721 
OST6 
1001 
0169 


1685* 
0249% 
0252 
1470 
0367 
0203 
0207 
0292 
0157 
0971 
1531* 
1510 
0188 
1807 
0505 
0145 


21639 
2066 
1106 
02 82 
1054 
2403 
6830 
15692 
1573 
0365 
1715 
1152 
2373 


0829 
3463 
1632 
OL27T* 
0123 
0137 
0125 
2164 
1052 
104% 
04 76 


0864 
1015 
0897 
0930 
0939 
0963 
oes? 
LOLS 
0446 
2413 
1735 
16308 
3609 
1834 
178Ss 
1787* 


Li77 


1749 
0878 


OL69% 


0348 
0995 


L885* 
0146 


LT46% 


1631* 


2315 
0129 
0301 
0197 
0306 


4232 — 


1232 


0894 


9495 


2305 


i792% 
1788 


LSJANTS 
825034 


CROSS~REFERENCE 

0908 0945 O974 1027 

OL70* OLEQ O182 0161* 0182 0182* 0183 
0414 0492 0523 0566 0617 0660 0753 
1024 1067 1237 1358 1399 

1889¢ 1893% 1896 1978 

0147 0152 0813 0814 1549 1550 1566 


2132¢ 


2310 


O132¢ 
0306 


0896 0927 0929 0936 6938 0960 C962 


1806* 1833 1834¢ 


LSHAY 76 
825035 


PART NO. 
PAGE 
0183* 0184 
O87i 0905 0922 
1567 1581 1582 
0984 O986 1013 
PROG £0 
PAGE 


4234259 


36A 


0894-3 
368 


6$eoee @ , : pe | 
fo ; 
+ : 


PART NO. 234259 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4234259 
18M MAINTENANCE OIAGNOSTIC PROGRAM pee 4 37 Pe ee ao. 


8943 DA FUNCTIONAL TESTS 8943 OA FUNCTIONAL TESTS 


a 


CROSS~REFERENCE 


WRT 
© wRTADR 
WRTAID 
.. WRICMO 
{ WRTERM 
WRTFLD 


001 258D 2470 

003 25€3 2473 

004 1504 1192 1185 1189 

001 2628 2518 

004 i53A 1143 

003 258F 2471 

006 2105 2163 2187 2196 

001 2D62 2627 0358 

00: 309A 2673 0425 

004 ODA3 0424 0450 

OOL 30EF 2678 04174% 

0021 OA00 00046 

003 191B 1459 1474 

OOl 431F 3576 0359 0426 0500 0528 0534 0573 0579 0591 0626 0687 0717 0720 
0723 C758 0773 0809 0836 0882 O865 0911 0948 0951 0977 1004 


my 1030 1062 1116 1146 1157 1195 W212 #61218 #1245 1281 1312 1339 
G 1367 1669 1722 1750 1910 1925 319512 «2175 


TLIN 

TMPCNT 
TMPDE 
TOOKBA 
TPARM 
TROY 

TRESPR 
TRESPX 
TRES PO 
TRESPL 


004 OAE2 0178 0173* O174* 0175 O175* 0176* 01864 O18? 0187* 0189 o191% 
004 1152 0803 0797 

003 116F 0813 0804 

004 OFC8 0643 0630 

006 21CA 2159 0875* O877% 0907* 0932* 0934% 0973 0998% 1026% 

004 1A29 1547 1537 1539 

004 215A 2125 2107* 2115 2117 

006 211C 2107 0429 0582 2105 

00% 2111 2104 


00% 2118 2106 0503 0530 0575 0593 0689 0760 1065 1118 1148 1159 1197 1213 


1247 1283 1341 1369 1422 2160 2177 
003 15EA 1200 1080 


001 3A6A 3293 1121 
004 2228 2189 2172 
004 0821 0197 0185 
004 OA2ZE 0129 Ol22 0126 


- WRTOK 

‘ WRIRT2 
WRTR3 
WRIRZA 
WRTR3R 
WXYX 

. XLATE 

Le XMITE 


TRR 
TRSK IP 
TS 
TSSw 
TSSWFL 


PPPrrprPrrprrrrprppp 


| CROSS-REFERENCE 
SYMBOL T LEN VALUE DEEN REFERENCES | SYMBOL 7 LEN VALUE DEEN REFERENCES 
STATMS A 030 28L7 2613 1793% 1792 TSTAID A 005 1493 1089 1093 ae 
STATR A003 264C 2537 0838 1729 2379 : TSTAT A005 1C6A 1729 1726 
STATRC A005 11CB 0843 0839 ray ; nos ce ace Bei 
STATUS € 001 0088 0029 1632 
STOAT A 002 2EF} 2644 1880# 19046¢ 19796 1984 TSTEOT A005 2145 2119 2113 
STDEV A 002 265F 2546 0163 0276 TSTERR A 004 186F 1637 1635 1644 
STFLG A 001 3C3A& 3441 1534 1560* 1565* 1577 15792 15802 TSTHLT A 004 248A 2385 2380 
STFXR1l A 004 1E8C i904 1886 1890 1894 1897 1900 | TSTROY A&A 004 1845 an ites abve. Gan 
STHLT A002 24E5 2400 23984 7 | TSTREQ A 003 264F 2538 a50 
STTAB A OO1 2B1A 2602 1802 TTR A 005 I1CT7E 1734 1 
STXRP A002 3763 3219 2354 | Two A 002 3ADB 3306 2218 
SUTR A 006 I58B 1186 1179 af ; aon pies tee ile: 
S2SEC A 003 1115 0784 O7T79 
. Tadc 4 004 OBA2 0237 C222* 0239% 0241 T4 A004 19A2 1501 1496 
4 s . TAID A004 21F5 21721 t UCP A 026 3D8D 3484 1261 1287 
TAR C 001 OO8A 0027 16227 1630 | UNEXP A 019 2925 2579 2242 
TBIT A 003 1059 1804 1799% 1800* 1809 18092 1811 1813 1814 1816* 1817% 1818 1820 1821 UNITC A 006 254A 2447 2432 
TCOUNT A O01 2FFC 2663 0213% 0214 0216 0217 0219 0223 0225 0231 0235 0243 06246 0382 UNITCH C 001 0001 0075 2231 2447 
0422%* 0440 0443 0449% 0490% 0491 1863 19162 cue : oat SGGe ene aoa Shae Saee 
TDOONE A 004 1F80 1984 1975 
Tool A003 19EB 1521 15lis UNKOW A0O1l6 2969 2584 2296 
TEINC A 004 2427 2337 2329 | UNLOCE A 005 30F5 2681 1311 1313 2174 2176 
TERM A 004 OC84 0312 2186 2207 UNLOCK A 001 30Fi 2680 1311 2174 
TERROA A 004 2326 2258 2256 | UNPACK C 001 O21E 0024 1095 1513 2036 2040 2044 2298 2303 2308 2313 2355 2359 
TERROB A OO& 2385 2291 2289 | UNPKA AOO2 2471 2361 23548 23718 2373 
9. - UNWACK A O15 2959 2583 2293 
veces ; sae aaa. oac4 oes | 4. UNX C 001 0004 0064 3222 2193 22640 
TERR1O A 004 2340 2264 2262 | UPDATE A 004 1959 1482 0261 0308 
TERR13 A 004 235A 2270 2268 | - UPDR A004 19F5 1525 1482% 1504 1522 
TERR14 A 004 2367 2273 2271 i \. UPHEX A006 1863 1437 1435 
TERR1I5 A 004 2374 2276 2274 ay . oe es aes a6 
TERK16 A 004 2381 2279 2277 Se tS 
TERRI? A 004 238E 2282 2280 UPLWR A OQO4 1LE4A 1887 1873 
TERRI8 A 004 2398 2285 2283 UPTCNT A 006 ODF2 0449 0442 0444 0467 
TERR2 A 0U4 22B8E 2234 2232 USEAST A 004 OE4C 0492 0678 
TERR20 A 004 2340 2267 2265 x. WACK ACO2 2639 2528 0364 1756 2112 
TERR3 A 004 22CB 2237 2235 | WACKE C001 0008 0072 1775) «6.2291 
TERR4S A 004 2208 2240 2238 1 y- WAITOE A 004 2252 2201 2198 2206 
TERR40 A 004 2348 2268 2266 | .. WAITPB A 004 215E 2130 0395 2114 
TERRS A 004 22E5 2243 2241 | WAITPR A O04 2181 2150 2130* 2144 
TERRE A004 222 2246 2244 | - WARN A043 268E 2550 1543 
TERRT A 004% 22FF 2249 2247 | t WASAOD A 004 ObCO 0435 0433 
TERR& A 004 230C 2252 2250 €CC A OOlL 25CO 2472 
TERRO A 004 2319 2255 2253 -. WHAT A006 2149 2148 2140 
TEST € oo. 0212 0025 1441 1718 | C. WORK 4&4 002 2FF9 2661 0147* 0148 06152% 0219* 0220% 022)% 0226 0233* 0237 0240 0240% 90249 
TESTAG A 004 1F 1C 13950 1947 | 0641* 0679% 0847+ 1072* 1087* 1089 1097 1101 1105 1113% LL7L® 12022 
TETX A 003 lEF2 1936 1942 | 1395* 1398% 14512 1452 1452% 1453 14538 1454* 1455% 1456 1457# 1472 
THREE A 002 262F 2523 1967 ‘ c 1473% 1568 1568s 1570% 1572 16958 1696 1793 180] 2091* 2092 21468 
THREE2 A 002 3701 3218 2371 2372 | WRSTAG O17 29AF 2588 22°¢8 
TLON A003 1940 1471 — 1464 1466 1468 | 
A 
A | 
A j 
A 
A { 
- | 
A ' 
a | 
. | 
: | 
A 
A 
A 
A | 
e | 


DATE 26J5UN75 250CT75 ISJAN76 I4MAY 76 





PROG ID 0894-3 CO pate 26JUNTS5 250CT75 15JANT6 I4MAY76 PROG ID 0894-3 
EC NO. 825023 825032 825034 25035 PAGE 37, EC NO. 825023 825032 825034 625035 PAGE ark 
| 
i lo 
| & 
| 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS PART Mls 4236259 «IBM. MAINTENANCE RLACHOSTEG PROGRAM PART NO. 4234259 
PAGE 38 PAGE 38A 
8943 DA FUNCTIONAL TESTS '  g983° «DA FUNCTIONAL TESTS 
CROSS-REFERENCE a OBJECT CARD LISTING 
SYMBOL 7 LEN VALUE OEFN REFERENCES . es 
| THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 
XMITR COOL OOB8A 0031 1626 
XMITRC A 001 4200 3575 0692 O769 0785 0785 O796 O8lés OBIT* OB1E C828 O89 O82G% 0826 . €L 1 THROUGH 16 CL LT? THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
0827 0999 1000* 1122 1135 1166 12267 1288 1372 23918 1394 14058 °°: kL, 
1407* 1409 1415* 1419 1420 1425 1696 1614 1614% 1589 2934- 1990 
1992 1997 1999 2032 2110 2180 2219 2219 2220 2220 2510 2659 Dt, “er. wo cuales a y Soy : seed Suvtes: Goterenae 3 
3219 3220 (  GBK GBD PN 42 34258 EC 625035 894 DA FUNCTIONA L TESTS 64208488 89430000 
XMRCMG A 013 39E5 3279 2020 2346 
XR1. COOL 0001 0017 0167 O168* 0169 0169 O170 C173 O173 O174 G175 O175 OL7TS 9180 7 dewes Sate. ca ; ae a ae 7 dae 
0181 0181 0182 0182 0183 0183 0184 0186 O18? 0187 0189 0191 T+-¥ 2 SMC B-7 *"BVE D CeM* BQ +a-008D BBINEA3/ -o2U -a"3BRI  -WHLG <EX2-E-2 BQ Z{ "KE89430001 
0242% 0245 0245 0248 0248* 0250 0362 0364 0366 0629 0670 9838 
0843 1084 1087 1088* 1083 1091 2091* 1092 1094 1396% 1396 1397 - ; By et ea a ne Pek ng ‘ 7 eo, Pre 
1397* 1458% 1459 1461 1463 1465 1467 1469 1471 1471 1509 1510  ts-25¢1U BUZaYD LIE WCZ ACHDS- H Has DCH=<GT-AB-3  U ZIC D>ZUFAC 0 >SDFCC AASSFAQSS a5- sRYE9430002 
1511 1594* 1603 1605 1608 1610 1411 2612 1633 1672 1686 1689% 
1692 1693 i693* 1695 1699% 1725 1729 1731 1734 1738 1752 1754 _ L bie eh Seat oe cus ae 
1756 179% 1801 1804 1825* 1854 1856* 1857 1858 188i 1884* 1888* T+-DOOCAQ.@UL KY SQIKI &2_1 HHDT3 9I/DOCBY9ONG<,E8 Al/HWe* -BYT /1X 9OH*®BF-DSI, 3 KO GC D EQ 89430003 
1892% 1896* 1898* 1901% 1964 1905 1934* 1936 1938 1940 1940* 1965% 
1971* 1974 1976 1978* 1979 1980 1981 1981* 1984* 1986 2031% 2034 is . ; : a ae Slee as Sst is 
2067 2067* 2078 2082* 2084 2086 2089 2091 209% 2094* 2097¢ 2112 T+~yeE-HWP30 I-2 < JV~I-XB GeCPOL $NTO*COACI-aWCL3 -I-2@ KI}> --P -G708G3- C2U 4 3 20 NEN89430004 
2116 2119 2141 2143 2215 2216 2217 2223" 2379 2425 2439 
XR2 COOL 0002 0018 0319 1054* 1055 1057 1066* 1067 1070 1076* 1084 111% 1128 21137 7 : eae: eee, : bated ee 
1149* 1161 1161# 1162 1170 1172 1175 41176 41178 i180 11831 1200  Te-SWCN § 5.$P-( $058CO5_88ET2DBE @ /*3; K -OB . 7S HCBEB_+ KHH.%8 GB_A@ B-%8- 4 HOE 4C-89430005 
1483* 1497 1497# 1498 1519 1521 1593 1606 1615 1640% 1687 14668 
i692 1694 1694% 1698 1700* 1795 2802* 1806 1810 1810* 1825* 2855 = oer m ae : wa vs 
i879* 1883* 1887* 1891* 1895* 1899* 1903* 13919% 1935* 1941 1941* 1944 C y4-_/B"S /OHE M@ OU@BG /YFHTAt| WHEACI-GWCL30B63  /OHSS~ O Basta P"LNEXTU-."08EB® aaZ 5-489430006 
1945 1945* 1946 1948 1966* 1972 1980 1982 1982* 2032 2035 2068 
2068% 2079 2083% 2084 2087 2090 2095 2095* 2098% 2426 2440% ‘os : eee) ee ‘ 
XXXX 8 004 2657 2541 1598 1599 1600 1601 EO rey 8s00 c8U2"C? O0FUR K"3E S0Y3H | FB2IDAZS-BYAICU P=WHEATHDQIMGB7H OOTUL."32DEC#=8% 9+E8 LLY89430007 
XOLFE A O02 3C38 3438 1572 
XL A 004 2537 2439 24258 rs : ‘ : ° : sik. aye 5 
x2 A 004 2538 2440 24268 eee op. 4320D-' B® 9MYDECO cY2ZQ_C~ 7=BSBOH®.YEHAI-Y 6O8"aaZ C4-O8+ - F°{HE "HA GO Bt- 2=GY 18689430008 
X4068 A O02 3908 3278 0544 . ' 
X7200 A 002 2663 2549 0148 : oa. coo ¢ ° e ae * e . e ® he oe 
ZERO & 003 262C 2522 2428 £7 qeeok”""8°6_<OA 06331343 /0_GOH® BF-GECI~ /O0_GOM® ROL4 I-"2 57 /10 944 WOIHE—OAHOa v3a Jé-69630009 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = o i a2 i : - ° As ; 7 é es 
| Co Te-L(/OME /<sF8B GBPQC KOEIVEA KQ GC ORQECT] WC34 [SUa"ZOQZa-DTOH* BFUED.EDICABG /Y ANBO E.<89430010 
! rf es e ° ° e . eo « ee e @ e 
| © e-2uDee6 svag23 LOH#BF-RILM BEM Haz DOHMBESBG SH I*37 -, /IVRE CT I-" -EHOOH® BF /Q 0#U89430011 
| aa 2 e 
| ©3 qe-3COH*BH- 90SR SOA <C.% <BGGK=. /O760H®BF-DOIZS /014) @WHZBGHD* B 5_OH*BF-DZI>"  /1U JHB69¢30012 
| Co te-gesLo 287/12 EC D_SSPLIF OW O AC =*V333L("ECAT= a¢ ¢ /1DS AACGZ25 Z2LEDAIT*2-LUi GD We=H JK 89430013 
| Ci Tee 4O-NEC EDWC"H ACC] ES, /2HXON* S69RGGIHCDB6C.PH < KOEITaaDBQDOH® SZaBGGS> ED ° S* a@aYD 2CZ89430014 
C3 Te54BCD o84R0T= 4OH®BF-<7(09"2Q -OHEBETZ .®4<AT = 34 <OzCBQOHS/PZB GGT, /04_ 0 +ESB G /Y &L< 89430015 
OO 14262 JUXB<BGF“X "/LZEC DODZPICCA O#2#D{O OXL35<IO <DK:D<HaaaK"#| 0 ?°<BGF.E NU<KIC /2D 18 69430016 
Co T4-7DGC50."B9QK" S9YDDIG 2=331<10 "GCBI@-OL+H 2*-H EBT4E.932-602/10 E22" aa-DEICHOXL- A -0 =1489430017 
T4+-8Va/ DIGYOXEB "OW. #BGCE<BEB" 'aZ GoH@*K7HG <B GG$_ EDC /OHOA +/%8G /YAGS*¥W+ & BBTO *,D89430018 
i. Te=9-PC-Kazl -OH® BF-EBHES /OHEAT D°ZBG SHia2 "0 < C-K.@3 /1X9OH* *WTLH+ 68 EH<AZ DGD -~JDBS430019 
Cs Te-:8¢ 8 /1D4 1 CG3~POHS/ECEGGIY < C-Qth. /168HC) ~CH®BE-M C2 /OH E JEXESBGF~X /12 EC D R+%89430020 
DATE  26JUN75  250CT75  -LSJANTS6 —s-L4MAY'78 PROG ID 0894-3 © DATE  26JUN75  250CT7S  15JAN76  14HAYTE PROG ID 0894-3 
EC NOw 825023 825032 825034 825035 PAGE 38 £C NO. 825023 825032 8250346 825035 PAGE 384A 
© 
( ae 








IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 


CL 1 THROUGH 16 


T4+—-#0¢8-V3a8GF, & 
T+ QJAEOA.P OWNED 
Te-"<199< LoMTe® 
T+-=G6E 7 /20Q0H* 
T+-"BHTO?0HSE_ 
Te-"*<*66HD*a020 
Tes 8 KOTa-E30He 
T+#/A3BD<31F 1 /2D 
T+/B>/0"D{ ACWHEB 
T+/CZBE JacBG /Y 
T#/DUE QWAL3"E L 
T¢/E~OH* BFYH3H/2 
T+/FEACBGF, 6 Bac 
T+ /GNAG<IEO®( KQ 
T+/HEOHOBE-OA."U 
T¢/LesT/ o®72D ¥ 
Te/HF2TS -096 H 
T4/.A0D 2" 6 7Q 
T+/.aC M/2/esave 
T#/<7E1a4*E6 D4 
TOA (293F>C M/2/( 
T¥+/+¢_OH*R= *BGGIY 


DATE 
eC NO. 


26 JUNT5 
825023 


DA FUNCTIONAL TESTS 


Ct 17 THROUGH 32 


” DemeDs s2DQ0K* 
P.REBE-OA.Pas6CO 
"104" £(C63_sons 
S*-AUOH®)>05 &<B 
GE1aaHs46A KOTA-D 
DoHesz0- DH* 70H 
S*- ROH#eeL-ELVT 
QOH®E_”” e-pwtT7 
GHO~ /1°NC =_s4H 


ACS~SOH*R=L OC [>a 


104 _CG4 6} 


4s&2Q00H*S204A6-4 


n& > /105858 ast 
-1St2-€-2E2 QDOHS 
wisee Joanerin 
iets rete 8 
<OA BET3BN <aaK- 
@02-Cl [HYE<BGF-~w 
3C W/2/< LI<YECS 
BEB""01 BETS -3 
HON®/?£Ba51a53-: 


< 38G<E8<AKGHD9O 


250CT75 
825032 


ISJANT6 
825034 


OSJECT CARD LISTING 


CL 33 THROUGH 48 


*WSBGF,£ 4<a1-8 
CoRP /1=10H8$128 
/E<BGF.& ID<-+ 68 
6 /0G *£oHsBF-p 
sOHS*+L-E1VT UAS 
& Jaxz*BcF-vaor1 
2UF Y¢ KRS1UX2-£8 


AlF.2 cea0TISC # 


HC aEKQEC —_/¢1. 


/12ZEOH*E_ Akela 
*cABGHKHE? C4 1/€ 
W("HAE 0..P9 A00 
-C BAS CC ACASO 
SZ@BGF,E M<=E ¥ 
WHEBGHD*H-AHOCH 
/2/480H* /2 E8abla 
MOH®8F-DPHAL /1x 
< 3gE<E8< ai2<E8 


-3 UBLDeH BCCU 
UBLD*H BCCUN -3 
0948- H<OI U:TS 


<I 1 ( SECDMC 8 129 


IMAY76 
825035 


CL 49 THROUGH 64 


“enc” <_) spc "< 
6 /OF *uoHsBF-D 
+B" g0He/G<BGGSE 
-18$ /1X90P**¢u-0 
HC&0W0301a-OHOHS 
SC M{=18S0HsEces 
< Ke91UUaEKGDOH® 
f=15Y0He] : T7814 F. 
1A WHSBGHD* BHC 
e#SBGHIT /12E) 18 
2. 6-aESODOHeSZ"4 
A.Q Wi3081S, 2H 
EC ISCAMCEI85CA30 
(Hui tiascoars, 
BC< & ss /2LDOHe 
1%-CSEla2VE> DY< 
9C <3:CF>C M/2/8 
8-B"'ay Jon BC<B 
& -3 D HOOMsBF-D 
“D MOL <ey 334HAL 


-09A H<OA BET3 


426A J_CG3$+C8 


PART NO. 
PAGE 


Ct 65 THROUGH 60 


_3$:QC _sTBOC 
VI6$ /1X90H*eW—0 
&E(G /,2ECHsE_ 
AlBYa.ts .©72u 
$1386 /Oaexa0C 0 
66ly 1m 
SZSBGFV. /12E0H* 
** get <<aa-OEc #s 
=IDS B4<a1E BHC 
=#ZBGGEHED aace 
HA-7™E-AB C4 T/C 


XIED™=OHAETO } I] wy 


A&-T3S< aC3* sOHs 


/2HXxXG OWDOe( KR- 


BF-OSI"7 /1X9C < 


‘ 8EB""0A BETS -3 


BOH*/7ECVE193;02 
EIFV8- HKeK BCC” 
PHAL /2F* HECG3E 
" JOHE J8YE<BGF~U 
EH <a*K-nonear-0 


L93/ .°7 U HOCH 


PROG I0 
PAGE 


4234259 


j 

| 

Ci 61 THROUGH 9%: 
| 


° | 
—3KQ 40889430021 


39° 


hig} 
Be 


*. 


fo 
t 


Aela $2489430022 es 


Céla 08 89430023) 


| 


< LO R/M89430024 © 


?=_L0 -~ nes420025 
' 


a > ww t 
LED +£#69430026 co 


| 
96889430027 


Ge% 659489430028 


& 


alEY #£H89430029 
#C 0 9a-6943003G 


ee j 
2-3 enes43003), 


a n’"azceseao032 


~ © @ wo | 
E_ D SRO Ne20032 

: | 
SE UC €- 889430034, 


2ULD RT£89430035) 
“uBe Ke 89430034 
e es | 
DOD 4:0894300371 

| 

& 4Q 95389430038 
e J | 

» (* 7QU89430039 


| 


< 34 1089430060 ¢ 
i 


PHAE 31089430041] 


aCe MIOESIS HOAs 


os9s—3 
39 | 


be Ae Lm A ee ee mete > 


4. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8943 


Ci 2 THROUGH 16 


eT 


Tes 1YUBLDeH BCCU 
Tes eTesuece" oa" 
T#/33 <BGE=X /12 
T+/KRe CON. PRV=3K 
1+/LMB_HAB75| << 


T+ /M1* T »3a—-E "0-H 


“ T4/NHe HWOZ EEEO 


T+/GEFCMB¢EE*~T, 


- TesP GOYA B@BC H 


€> 74/8) H00..08 


K 


Fa 


ek 
¢ 
Cc 


T#/06/C UC U_S3" 
T+/R1 -» U HOOH# 
- 14/ EZ$SRROHDPN EB 
Te/$X 26) aYeHCAU 
T+/*SHBROOA BESB 
T+/) VX 587108 
 Te/3Q<1P 71891P4 


T+/ALFs& ¥4<>1 V1 


- T¢/-4C D=*6P i CHe 


T+//TASHGEAMI MD 


T#sSDas &} (Cz 0 


‘Te/S*OH®E_ Kg 


' OATE 26 JUNTS 
EC NO} 825023 


© 


© 
Q 


DA FUNCTIONAL TESTS 


CL 17 THROUGH 32 
B-3 D HOI<uy 33 
BET-H -, 0 HOOH* 
EOH*E_ Beciag <6 
B+EEBDBROOA N T- 
AEI<*BLVOBEBG /8 
SE?7HGSCy"."T 10 
BABQDOH*S 207°. XI 
~aYGDaY*KOH** WZB 
OACBGG* ME Cr+ 25 


2 #-HGA-05 04: #08 


| SONF*WEBGE ob SMC 


U27-AB-3 D HOOH® 
GG'M< C:OLVU<BBS 
_XT3 11 <_x00 Iw 
GG6I, /1D46 FICG36 
WO* AE:P soro( - 
WO-HABC5> 1 VX UA} 
* /2DQOHEP (LS * TVX 
WSBGFs& GH<-1XG 
C&L < MDSEL.B I 
AEP_A*—-OAFHZA-LO 
I-<BGHJ-<"4D>62- 


250CT75 
825032 


1SJANT6 
825034 


OBJECT CARD LISTING 


CL 33 THROUGH 46 
HAL /OHE J*vE<B 

33BGF3X /OHE Ja 
GHJTB TXWt HOACB 
-IVT DAPD+D wO<B 
A-"U9L<BGGIY' $S@ 
4 E)CE3VE0Ke/F<B 
B""HACKOI+ 08HOH® 


GFsE 84<-4QL /2D 


= 1 HAO, 70 {HAE »/ 


GG1, 4104 a_CG3U 
~fac /29Q0HeMt <8 
R=*8G /YA.Ks-OH® 


#1~3<BB6D {| ZZ8HBR 


- WOE7"E7a>*7HAFAB 


20H*/F <BGE 3H *-KR 
P) SBGGCUSDBROa/ 
OOH* CUHIV, UAS 


2-J *$SRRO DPZL4 


/20Q0H*E_ —-&-0 
Cl (az=KO# DE64-0 
CKQ-<"4D>£2 <HD 


<HD >ES 3%4<-OHe 


14NAY 76 
825035 


Cl 49 THROUGH 64 


pile sane 
Y<3-6 -,2UA9B TD 
GG*M< Ces I-M& C, 
EEL < OHONHAO 
9a-0Ul PS: 72BAEPN 
GF,& OHAITS /13 


BF YH/+0@ /1°Z0H* 


Q@—-H.73Q a-0¢0He 


— WE [HEM OC.PAa 


~OH* /FCBGE IK*a Co 


GFe& 401°C SL 
*W2BGF,& 5U<1Ma 
az 9C H-SRII HM 
GEB<* SSRRaYDECB 
RO DPN-OR «RB* TE7 
3¢B WOIHEHCS IVT 
SOH*NFCEHEAl 0H 
"Iwo -choone” an 
WIZBGE°Va YCtia 
aC- 2=xQ_0B QH oO 
>&S 3°4<- ONSeugD 


*uZBGSSEB t mo 


PART NO. 
PAGE 


Cl 65 THROUGH 80 


HO=s /2F* 1ACG3; 


© ee 
Z( HIA O +_8WAKO 


on 043-043 8410 o"T 


— e"UCO-099/4 ."U 


8"2"839Z NI~0:7°H 


#704 @pé&+ -wOg 


*WIBGFLE MM<4~4)S 


E  &-DwI 286 70 
2730C.QC2/1U< $5 
"~Je-11 2 <eEGEna 
400 P1IC/ 6°70 


72DQC ==VKQECH® 


~700 8. QH=hOOR.RO 


WO< GES *-~KRROH® | 


"£2a>*ZBA /$/13 
2DA. /1990H8E_ 
Sciences Ae 
"FS /Lx9OH@BF—Q 


eee oe 


wCZBG L f*""one 
AEP_ASEQAFHZA33S 


GF ¢0< "4<-—EK8<HOH 


41S4( MD6ELS2 £0 


PROG ID 
PAGE 


eee CCC CCE CHOCO HOOP OEE RO ROCCO H OHO OS 


4234289 
390A 


Ca 821 THROUGH 96 


"DH 77089430063 
Eo geeeuascseas 
"740 58*#89430065 
" avD GHOS9430046 
AA34 J/¥89430047 
EEEO 96089430048 
"72D 13£89430049 
BLU "gH89430050 
=1Ua 40489430051“ 
Sue dnas 
O+J- #2089430053 
P(L& 00889430054 
"TLO 49889430055 
ONL- 34889430056 
C1P4 98089430057 
Déla *5 89430058 
EON* 85¢89430059 
UHHE J-089430060_ 
R=E0 =B089430061 
” 94" 28089430062 
~£88 4489430063 
< MD 3K<89630066 


0894-3 
359A, 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


8943 
CL 1 THROUGH 16 


T+/T: (DD8C-EACBQ 
T#/U5 o"U2=E8A."U 
T4/VOaYeG3G OA” 
T+/WsBCD I-M:—BQ 
T4+/XWC®HGJLOBI-Q 


T#/¥/( HRQ.- tH 
T+/Z*TZBG SHI"SE 
T+/DP LO:a5S ast 
T+/,KaZ DI aert 
T#/S( 2031V#< 20 


T+/_HAJO F2QAG 


T+ />CTBYBOQYS/LB 


Te/>= C701"? —J_. 


T+#/29J_<OH*S2Z 36 
T+/04GC-4 JOO H 
T+/1L20H® CEHGIU 
T4/2D G0* KRSA3Y 
T+#/3V/1D4 /CG2P 
T+/4-OH*) 1 aBGFas 


Te/5$ 22?VaY*Ot ~- 


T+/600Z I. a% OF 


Te/TSFZGE & O-# 
DATE 26JSUNTS 
EC NO. 6825023 


DA FUNCTIONAL TESTS 


Ci 17 THRGUGH 32 


_CEEA34D00 DG*Ea 
QL o"—2EB™BC 
RC*HA L4G. tUan2" 
D+ YWALUEI-P2U - 


+ KQGI-~ HAWS” 
GACBGFOP /0. { - 
QFTC2/0$30HC30+C 
“COD?=K"9<E-3C08 
Q-1asisHo<aG 
vive< 202IV*< 20 
SI OD<"4<452 <64H 
<IS OSSQS<HUWICB 
7C-DHDSQ_OH SYT« 
HF® /104 ECG20 
cicueebis wa one 
< KPBIVD< KP? I-H 
Bis ies 
@LEDAITIZ2—Ns( &D 
” /OHEVZBG SHIGAB 


PZ OAHA*V300). < 


s16VC— )0/5E8-H 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


AGLAACKBG fe /1/ 
Q.B"8! 2=#HAFHI 
9OHDRFOO AE ABQ, *B 
#-BQE+8 WAC-AI-- 
WA2QFO-DWALO CI* 
Esco t=tana<-te 
3S< SYBQOOH* Cé& 


A. ®UW. ED EDOC K" 


@AKQDOH*S Z3EHFSE. 


@IlvVe<e KQSI/V§5 KQ 


-ESF< C3 I/D 
«1805 KO#1é WOIK 
“1702-53 /1_<t H 
“LEDAI Tx2~J-3080 


. 


A5RO CK EGS -D 
| 2RSEV? /OHKOH* 
AABY-LVT2/0US BR 
H+"HAC44A KQ9AYD 
G /QaB20D0H*SZ"H 


se LOOA. "UNO3E AGRO 


EL EDO" HAECS GNe 


” <86 4BAG:CH* BFYDs. <<GKOC. L 
2S50cT75 LS JANT6 14HAYT6 
825032 825034 825035 


CL 49 THROUGH 64 


1{ -RO 0 FHSA<C> 


SCOC2DA/8B C2U R 


ee 


G 4BAX80-H CO 
2U #S -D4 /\-1H 
G R&C /OHS KO 


@+3 AFVH® ~-Y¥Ca~-& 


HFOZ< JOG IF Sa"To 


91CP JSZB<N- CA 


4 f> (ED8/ OVIR” 
* £3A1/0H.JOAI/6 
aq2061 WH?+H TF 
AACOGISY* BQDO D 
WHZBGHD** BaD0 D 
DOHeASEOA. PEWLOO 
4 K®9CED7=3000 D 
E_ HElav=747 1H 
R32 IVT so. ¢ - 
1( -}D"HGACO-15S, 
GBCO<IS, /2HxOH* 
4 /6-OH#} ZLOAGNY 


JSRi IOB0BGNe 


7G ( —~P<BGG'M 


CL 65 THROUGH 80 


"EH4:GAS_C D7=4D 
9A-C2UA(* QEC2—E5 
"iw + KQEIT<8-BQ 
WANHGHTS31-P2 &* 
EI#aC KNDI#3< LF 
NIE WQTHACZBG /D 
saYe+( -EDOOAFY® 
QICKAPJDg+ pasta 
VUEOATGYV300GIR 
CO-1B Gs {HAHAO 
</Y LSSQ*<QUHGSZE 
SZOBAFBEN<#HE C 
SZ30HIS, /2HKIE. 
AsPQNLABGHD~ /0- 
#DHOA K"#0-D <H 
AA3D IVT2Z/21¢ -H 
)DOOAI~—-WMOOA I=¥ 
* /2HXOH**4L- IVT 
*  CeNGEE< K7vI#a 
@ §5$0-D?=<HBHIZ 
"7iSR1S 10% AGNX 


< 2561-<4 J'*#( H 


PROG 
PAGE 


PART NO. 
PAGE 


4234259 
40 


{ 
: 
' 
i 


CL 8h THROUGH 96, 
| 
. | 
OC~D 0-489430065: 


eon o | 
s- N$ 89430066 


} 
1 


Gaz  £:089430067 
j 
a"2Q *B*R9430068 


>1#a 5289430069 


a" | 
FH2g L2 89430070 


| 


@*CO ECH89436071| ( 


| 


“{CY 21489430072 


»A-O0 3J889430073' | 
| 


AF2U ~/1N8943007% 


° | 
QF:Y R3-39430075 { 


‘ 


e ee { 

46 H0Q69430076 
i 
4 


WHz £L#8943007 


( ~" 0988943007 


ee OR 


8 9LY89430079 


WLIH 53289430080 


4 
\ 
\ 
! 


HA® 98*89430081 


2UBH KHM89430082 - 


ey 


my 


<GKO 4.-89430083 . 


eeee 


8 #L 289430084 
CH *TU89430085, 


i 
1 


AHTM 34889430086 


| 


{ 
0894-3. 
40 | 


10 


ew recency eee eee he ee set ee cee mt omen cme 


a. 


é 


S 
© | a | 
ae a oe oe oe oe oe eo eo oe er er ee oe 


/ T+#SEF <BG 


cS 
c 


ie 
Me 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


8343 


Ci i THROUGH 16 


- T4/B< S°*G OV 


T+/9G0T—-&.2ZL20D6 


" 74/2B/4.8 S5*0-D 


T+/2 "BBGE. OFB S6 
T+/#B.XGB S564 H 
T#/93"0C —J"04-D 


T#/*> K54. "2a(25 


- Te/=Z-J31'"-Ce2 ET 


T4+/*Ua 4+2Z21CGA 


- T#S$ +0 CEH 


T4+SAE.86233BG /D 


- T4SBN. °D> 304. 3U 
| T#SC£. D2?" HAB_H 


 T#S0. KtV0-H?E04 


“aspen 


T+SFA KQTO D)BCL 


C2 T4+SFa/1094A WOLH 


T+SG TOHFWZ5GF ef 


T+SH201HE.<CBGE rE 


. T#Si_"AHEBCODIS» 
_ T+SHYOH#</CEHHDQ 


- T#S.TL*eu< BLEISY 


DATE 
EC NO. 


26JUNT5 
825023 


DA FUNCTIGNAL TESTS 


€t 17 THROUGH 32 


* K5a@ -OC.PY>W 0 
SBB:Mas >+ E>VEH 
=YCO +AT2/318 SS 


F( D>OaLEA>® /1* 


_)*BGG57 /1D4 € 


' AB8B-HAOH*3a20C +H 


SOH*E_ AELS?=aB 
B L-Q{ D>aRO C 


AG*c /0 {( --5 7 


2/0-aBBQD0HSSZ01 


BKS=DC D?4KQE0-D 


PEAHAC 4~.3U728-H 


AD+HBD<BSHCe /OH 


eae 


#aVedD | FO? =3EHHNG 


{S, /2HXOH*+6aB 


EGP-HAZ EHP Jt E* 


G /20QCO0D 
AD<~<{P #2000HK* 


/ 2HXC ODWEBOMCEO 


@ KHS(EDSZ/0A4+_U 


C2 €VaE BAEC. 


OBJECT CARD LISTING 


Ci 33 THROUGH 48 


” SPYOW 0 .PUHALO 
EFC-B.ZL2D CB SS 
*0-D#SCL-+4T2/2L 
JOHSE_ CElaW aB 
CG2"°#OH#+>L50.°% 
B S7® |HAAG3" <B 
GG978 & O-H 8 
K EGS -G /1°V(ED 
®.XIB% AG>Y(G2? 
icaueeateety ko 
_-SHBE-2#C2=D BO 
AG-HGC<BGH.T /0H 
EVT4 IS: -& OH* 
2/0RAKOBaKO & K* 
BEB" az OF /B SH 
G 4BBF4C DV=SO 
WEHAE TONISY< Ko 
WEBQMC-OWEBQ_+8 
E_” &-pw(T—IVvtT 


WOZ2Q50YDDOH*S (OB 


AC-DSZT.$C~*B DH 


© KQD@-DFCADVUBS XxX} GHWH?HAA-OEGIR 
250CT75 LSJANT6 L4MAY 76 
825032 825034 825035 


CL 49 THROUGH 64 


WeX<2 K"atH >VIH 
*C D>OMD2(EEACTH 


B SS5*0-DSFIHGF*H 


G694< KB RIT" /31% 


@*B" #OHD; ZZBGGD3 
GG03 /1=)0HE.5L5 
AGSOW.@BG 4BA= 
>aeBEGTE4 K#?OH* 
Kel" “ssDOH® CE 
G.7-0CE0G .5<OAEO 
1.7 OH®BG/ 7/Ba 
E-my7/ 11-867¢88 
U2CEHHS 4 KOH H 
9CED?=K"73YDH4-D 
EC44A KQ9a-D1OH* 
EC DV=BRICODWEBO 
91U! /2HX1 OWgB 
BBzHESCs* Ist —EH 
* HO LOBWO*BACHL 
GGCUL KRSIUL -EH 
“CL5B Di: COD: 6K 


Z 34CISe2 EQ<CKO 


PART NO. 
PAGE 


Ci 65 THROUGH 80 


ENT/ eZLZDFOBHB? 


GN®HB.P78 L7QE 


AeZXB S5* a¥F+0-0 


NC— ?7°8Q0_C D_3B® 


B MH O-H_*74c 1H 
0." £22B" ¢a-ODE FD 
*{ED>SET® [HARXT 
*” CeHGe—c#292E2" 
HG=-<"2:K.2<¢€526 
£04#99%8G /DAKS= 
NOH*BG/ ?*Ba90H* 
G /DAKS=DC-D24K" 
/C 11-8E2/E1C 85 
AB-HADH®—e<HA C 
/P2HGGN4A K*#aYD 
HC-DWEBQ_#F WOH 
GHD~ sof UWHEB 
ooHeee,——IVT20 © 
” /2GNtA WOCBEH) M 
OC-DwEBQ_+ -wOaB 
_0 DSS#HA C/O. 


EHIH* ABQDS—-DFCAH 


PROG ID 
PAGE 


4234259 
40A 


CL 81 THROUGH 96 


Has 73-89430087 
seit gukeonscoes 
># 0 0 289430089 
#180 81089430090 
ADP4 59U89430091 
2=00 7689430092 
«” $1" 52¢89430093 
~* ya 31<B9430096 
L-RE 84089430095 
DCDU 1AM89430096 
BG-H_1R®89430097 
3CED 9, <89430098 
2+eH } 089430099 
B - 3189430100 
NLED 6$¥89430102 
oie snetetonts 
GHD* &-¥89430103 
BEBQ 01289430104 
8EBa JIU89430105 
EHVH aH-89430106 
* 2" 3°” 89430107 
vuBU 7089430108 


0894-3 
40A 


@ @ @ © @ @ eo. @ @ @ © @ @ @ @ 
wos 
&- 


ae! 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


8943 


Ct 1 THROUGH 16 


TOSCSILGEIS22 £0 
TeS(RA-OLIR ZKT4 
T+S4M[ J<WH?HAA-0 
T#S} [CACVUBZE | J- 
T*SEH/OH3 SQ-IET 
T+SJELC-WHE AlB® 
T#SK .@a<1K*=.2 

T#SK#."G2-ET /0H 
T#SL61S,2-JD*EBQ 
T+SMLI-P2 6-"0-H 
T#SNEMTO I/CB 6 
T#SOXEDA EDA EDA 
T+SPS94A BAGR=>~ 
T#SQ)P A® EO PIX 


eevewveoeneasnecon 


T+SRQ 


T+SEL "10 

T+S$+aMA-E<1H1 ©} 
T+S@1E( LOL<PLESC 
T+S)08"N ats QDC 
T4S)"EICOEFA 9_X 
T#S3: 8aPC8aX05)X 


T*#S~S02GS1 MCAS Pn 


DATE 26JUNT5S 
EC NO. 825023 


OA FUNCTIONAL TESTS 


Ct 17 THROUGH 32 


<C 206H+&* ASQDa-D 
HIS,2 cocoBoeHIM 
KIR 2TT4MISs2 60 
WH7HAA-OOIR DSLS5 
"70H SOSIS. /0M 
8AB:MOI ==<BG /Y 
” /OHE-UQ?- 0A. *D 
E-no?- 8A1GD70¢8 
DaYOHOH*BHYU OHS 


“OHOBESBG 4 KA 
“O-H CMDI/T3S G 
"GA EDA EDA EDA 
X9=) 6+. A6PEXG=4 
T5-C2D4A 34"<TH 
seteeeeeee 6 oe 
“e—CWOIXNZ) PGLEA 
KECLE9®XC1NCASSG 
D1sPI0aN 8=TPIMC 
S2)PG4aN OaTASsG 
18aN 1>LNO=115_N 
TSMC O=DA-£<XNGSG 


HOMCTIS.TEEA O°$ 


2S50C 1375 
825032 


iS JANT6 
825034 


GBJECT CARD LISTING 


Ci 33 THROUGH 48 


FC OVUBTRICeMH?H 
*C2QDa-DFC AG VUBX 
<C 20EHR 8 °EKQDA-D 
“1S.2 GQ<BKOEHLO 
3 SQUIS3 OHS SO 
BF 2D<OHS—=C4E1S, 
WF-OAIGDT0a8G /8 
A. *D70E6AIGOTI® 
BEZBG /DFHKS/C 
2¢ HVITEDIZ-SaB0 
” /2MHI” OWNTBGIL< 
"EDA EDA EDA EDA 
X SA5PID ATZOAL 
meee eHx*—<8 18H 
A MAG ("acElaaDG 
“esINEsCratc2cer 
143682) {18=TREN 
D1s 1E6)LIS*GT2 5 
CBaPREsI ES>IREN 
” gaPS8e1 o)PDEKP 
L2*5 i<STOMcols! 
NBOXN9(SUBUCP5_I 


L4RAVT6 
825035 


Ct 49 THROUGH 64 


AA-OwIR YI36HIS, 
D1J WH7HAA-OgIR- 
FCA VUBW? 1JQNH?H 
*8200a-0FC svuBV 
WIRB< BEBIS, /0H 
"3°81 JMWHPHAACB 
B.*D?1S8G /6- 
DIF. /ONEVUSS SR 
USKL (OHSBHYU One 
ZON4VOSFIIKCASBN 
BASQDOHSV<30EIS, 
"EDA EDA 8>1 A6=L 
E9®XC1MCX917A EO 


c BNI 


ecaeeeo 


EQ*TROUA O8/ 1¢¢ 
OB4CROIN 1 SREFI 
“ate aocp1 s910aN 
NOS INEIC3EEA 69x 
“ain aocrrscpete 
AQ(XTSMCO° 4 A~E<X 
EO0=| I5_PRE*N aly 


LO6cINEICAEFA 8aP 


PART NOW 
PAGE 


CL €5 THROUGH &0 


2 cQ<csostsH*BKG 
2534-1Sy2 SQ<CBO 
AA-OTIR 2:C4P1S, 
RI SOWHTHAA-OF IR” 
EOT vuQU OHeBFYH 


GGUL /OHE-6499 £0 


‘Re 45.8 ParHABES 


<a-D010H*)1a86 /D 
ceHlees— Hiay 
HOQOV. 3001S 52/0L 
” /2mai<ev2elece 


S~>=aXGe) ECLA6PS 


P A® £0 P A® ED 


v6 


o@e s 


AS(UASFE &FA-92-— 
H231 1<Py2stE6s! 
“9 (-D0s 16s PNEIC 
PS*)E&<LAGaE BaP 
O1<XF2¢PDE+ }E8>! 
N9SG6L26) OFLOGA_ 
“Q0CUS *~E606L 5>5 


S84CPOs 171) XNE<X 


PROG ID 
PAGE 


b= - 


| 


4234259 
41 | 


ainew we meee ae mes oe ee 


CL 81 THROUGH 96, 


Da-D aan 


cHLH ay e 


eooeoee0e 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


7 


8943 


€ 


oO 


fo 


2 £0 #0689430111 - 


mie | 
LE® 2489630112; 


+180 LOM89430123: 


c 


Cu 1 TMROUGH 16 


T#S-06sLC8ax05;. 
TOS/ 913 eTOSINEIG 
" T*SSW8_=L03/ 19P 
T#ST/42XN84_ 68? 


 ¥4SUF1 8} K2)PTE(- 


os Ais! as 
768 J¥<89430114 Oo  TeS¥PE(XES_~O53.- 


: | 
~SQ89430115, 


| 


O1K $-089430116 


| 


11M 9.¥89430217 
| 


AS2M *:089420116 
j 


7.6 


t 


XED 24489430129 
X9=* £0489430120 


| 


P = & 89430121 
{ 


Na-894301221 


x90 nAsco430123 


N&4 stuneasnise 


26F 72089430125 


| 


s 
S8°U KIE89430126 
4 


{ 
RetM "$-89430127) 
4 


Be | 
1< NyD89430128 
ee 
E6K 61089630129 
NB>< 43869430130 


| 


0894-3 
41. 


! 
} 


(> TeSwKO* .US2.NS>$ 


€> resx¢5_psincsoe1 


 resvaeey. ecoraap 


€ 


rm’ 


» 7es7€10700¢x15%) 


™ 
{> T+sz=5_}LOaGRE(P 


i ON Ee 


T+SD96)8TISITICY 


Co t45.6610,°0_ G(X 


ToS%7E( POSS VOI} 
Te $_D4SCC2<¢PCQUA 
? TeS>V5_LAO PDE IX 
T#SP-EDA 64.7034 
TAB?VOQN Gn 
TS O= &<XFECL ESSEX 


T+S198UCAS8 J/5_V 


T#S245<GVE<.EEe, 


” 


T#S37235 ORCPE SX 


' OATE 26 SUNTS 
EC NO. 825023 


= 


DA FUNCTIGNAL TESTS 


Ct 17 THROUGH 32 


RE°N a+) QDCTis. 
LEFA 9(-PLIV/48S 
DEI SFEsiES>t 5<P 
QKEGNS> ( 0374271 
NIDCNS5>( 5_PAg=] 
E6sPIE+ 106+. E6aP 
NE (XEB_~053.€23P 
”1)8T9_x050) 98>} 
RECIO53 1.6 (2069 
O° SNBS 5 *8L 40x 
CB4C ESL AG4C TSUC 
” 1) xRS_XDZEELE<P 


ESSPT ECT AGEL 171 


T1(POECPREISRICP . 


&<LAS@E OBTEO'I 
ES*PCB4a 1<Pyze} 
USUCR141E25PELDC 
CIMCS2(SUSas O8N 

6°PF1)V 6°R BaT 


ES4CTSUCL5_S$PE(X 


OBJECT CARD LISTING. 


CL 33 THROUGH 48 


TE(AAB=}EGIN 9°X 
WIV OSGSIMCAS* 5 
$8%661%G T6aGC20_ 
5)R 2)PTLIXRDI> 
A0@/.&<TUS®) O>L 
CeaPosscTsuccs<L 
C5_XR1*1 TE (XE8_~ 
AB=LSE(XEO4S7N2¢ | 
”23.S9<P05)R 29P 
wonensercascsene 
$9) XR1 3. PS_PSIMC 
BOSL 104002 <ERK4C 
~0GU8 aXO5KA-E<P 
V2* [EE t—XE<6VO2X 
“§DA EOCES+LI5*L 
E&<PNIDA EDA foL 
F6) SMECLES®XC1 RC 
“03PA2) 1A0_1ER<G 
EL<LE9®XC15 |RSOL 


TSMCOAMCFS_V Offs 


MBAPRE SCC 2<PC4UC F5_V 1_SR5e1 Sx 
250CT75 15JANTS L4MAYT6 
825032 825034 825035 


CL 49 THROUGH 64 


TSMC BDA~ELaEs<. 
MOMCK 1 ; TBSZGR LDC 
” 5) STE (XEOSLYS)$ 
1231 BE<XNESCEGIX 
S2<LABaE SC€xSO*S 
015N.E<TUS®) O>t 
05s.£081C1)-T1¢4 
RSUCCSSLEEE POBSC 
T6M_ O8ST1bV aUC 
T9+1 GePCleKVies 
WO; 5)8T&*.TOsI 
TSUCBIHCRI PEGs! 
R6)SRBUCNOZ/ 581 
LO*.L1)$P1)xAsax 
E531 OaTEO"! 20° 
N23( 8_~EOSXF sDA 
X9=.70${UBUCE9*- 
M1 DC IGUCNS> (<1 
B4aPS2 ( $0BaxN14C 
NSSXN9($UBUCPS_! 


OSaPRA=/ 29PS2IX 


PART NO. 
PAGE 


CL 65 THROUGH 80 


GO IX0E<SUSS(T2)8 


Tis eT63 INS IGZEFA 


TGE(XDS FGUS FAT E<] 


O6*GT6AGC2(LE53¢ 


MSAGRLSLN1S~P1#| 
St 4LM13;-P1 94 TIeN 
” 2) PVK4CALCLRE® X 
L5SGD1 #LUSePxS4_ 
$1%(.6*(.5U_ 230 
" d+iRz>PGE< 1055 
USSPRO; . EE<GL 44C 
E10C 153 10s<LAsae 
COLV 29R O@TASH. 
OSMCC2<PC4UCCS_P 
TLXVLIPT2) SNECX 
“0CD1;P10aN O>L 
co={ E1Dcrs)enca. 
H1*{K&<1003) 0aG 
G9<XDIM_ €+.S9UC 
2) PGKAXFE<LEGSx 


FIFI ECSNECL ISON 


PROG ID 
PAGE 


. . a hate lee ae ken cette hs Soke ke s 


4234259 
aia 


Ci 81 THROUGH 96 


NE+< 2018943013) 
cit cseesoiae 
Hls< 3, 89430133 
“oa "889430136 
T1*¢ £0¥89430135 
" 98D 22H89430136 
£8_* M3 £9430137 
“236 42889430138 
S9<M_N#-89430139 
-&(* 61889430140 
U5)* 8: 289430161 
* g>0" 22489430142 
"23H %€489430143 
T61Q M-Q89430144 
E6<< R.089430145 


$:D )VHE9430146 


E9*Y 9110894301467 
"35689630168 
B4aM Q0¥89430149 
OaM NQU89430150 
C1N aDH89430151 


13< &# 89430152 


0894-3 
ies 





TBH MAINTENANCE DIAGNOSTIC PROGRAK 


BG43 


CL 1 THROUGH 16 


T+$40647053 f¥ECs 
T#SSVKGCRI s EBA 
TCB521<PV2¢[EEt— 
TAK2Q"0 Belt 
TeS#VO*.CI<PF lat 
TCK#3L5* 256," fa 
pare 
T+S="EXGDLEV EDC 
TeS*264/ =HCAECI 


Ts Se. "i saPlef 
T+TAO5S; [O6<LABaE 
TeTBrOMCEO® | HE<P 
T 3B7PE0I, 
T#TOD OHX3¢HC S~ 
T+ TEVB4CTSUCCO DI 
T+TF-O51}8"R <x 
T+ TGSKIGGS/TYOSL 
TeTHOS*( 58PxB4C 
T¢TIVO*{O8EN 25< 


Te THER BATASKC5E4. 


T+T.GQ{$OED PEAY 


Te TCBOW PEATCS ~ 


DATE 
EC NO. 


26JSUNTS 
825023 


DA FUNCTIONAL TESTS 


Cl iF FHROUGH 32 


VO*XLOS.L IMCD SP 
HOD Té+ {Ge<ngE cs 


se SR eeaeess 


XDMA 0 


FOSPTOHOGSET&LA200 
14}.L5(PO5*TRED; 


eee@esoeeceveoossen 


OEIE auc3cis "HC 
“oscpecn 1- age 
TLALRISLEZSPELEL 
"OR BE74KGA 1¢x 
NB © KYKAXNO*GL24) 
SPIE 1>lE8>{ Sac 
LELPES=<J0>.S1)T 
$O*$NS#PC B4CC5=E 
ROISO*] }SAUC S~ 
POSITLIXNGEFA 083 
JO*.U231HZIN ORC 
E06y1_.Pl'y 92x 


C S~5P1GAMAS- 0%. 


OBJECT CARD LISTING 


CL 33 THROUGH 49 


POOP SE+$T4*{ O8N 


NK ® KEBSPTE<T Agel 


SSeS eseanaowvsenen3 


@esteaeeeeecerovoxre 


U93$X2+X0a~.38 ip 


@eeveseseca2coconse 


661) =DC9E<E Ouc 


FIZSFLESFLiZSFigs 


TO)¢ OFLDSMCOLUC 
RS4C FLUCTSUCES &5 


2 


1<PV2"1EGFA 8°x 
TSQPRSMCSE ITUL IP 
ULIPT22GLElWAB=] 
J1_. ASS GaPAIEN 
SPLE I>tea>( 596 
TLV 5°XE53115%* 
S1#{O5*LSKIGEE HE} 
L44CTLIXM2 }PABAN 


CLKPFLOTI4} «£5 (2 


VECGBES>PEECXNE+] 231 43XNEMA ED 
2500 T75 IS JANTE6 14RAY76 
825032 625034 825025 


CL 49 THROUGH 4 


ie 


SteELDCISHCFS | 


B°R LEPTOas icp 
6* 8T9EEA-OMZESU_ 


@e@eaeaeeceeosoooveascecae 


@eceaenveceocaaesesea 


C&<S LHCFEDA EDC 
FIRSFLESFISSFLZS 
D1; PIOAN/BUCYS>4 
” AX SB49RLE BGC 
YECGGO*XN BI Sy 
C21PGDSEEaN_ 5 &x 
E6IN-DEN QU_ 5*x 
“SaGT8aPRSMCES_V 
TSAPRSMCSLITULDP 
JO>.S8*SP8N_ 5_. 
co BCX FEC LOS*PRECK 
“ OMPDEC LEO: PEE( > 
O5 "TRAD 1U9; SX: 4V 


} G<XNG SPR B4CCE~ 


Ct 65 THROUGH So 


LS5°ST5*! 63 $UBaXK 


V2ePEGe. TOs 1US—H 


$E7_<PFLQLNS_<M9 


@ececve20ecececesnn 


C&iE AUC3E!S *Mr 


FIZSFLEQ OD<-. GE 


HOPE TE<S09 81 £66 


Gi /*P E3015 PIOON 


eeeveccucessasegen 


ES8>I 8aPS84CR1IT 


E8>I OaGNO@PLL)S 
“SESEQCLIS#N 94. 
C2)PGD*EESM_ BtR 
ESMCC5>PE60_ gat 
SEULELD( 949 508 
A8=126)N.D8<06sT 
"GO3N5_N 1<XS5°| 


GO JO* }:Dtags_ 


PRUSG ID 
PAGE 


ee @#e@2@0e000808e08008088080 86 


PAST HU. 


PABE 


4234259 


{ 


nn eens mretenn y o 


Ci 8 


oo 
pas 


MESH *¥U894301 53 


X°NY -3108943015¢ 


@eeee ' 
‘ 


R2U89430155 


Seece 


"E&89430156 


3$X8 8/*89430157 


51489430158 


emer amen nae ae ont, 


e@enaas 


MSESIAI0 ES 


i Se | 
6E1# ~Q 89430160 


ee es | 


A 27<89430161 ! 


| 
2 { 
TE 66HB9430162 


FeaM 42739430163) 
j 


Sze 64659430164) 


geese j 


#$289430 165) 
ULSH 6Y£89430} 66! 


| 


© | 
REC* 227089430167 
| 

Alam 0$089430168 


i 
t 


« { 
O20 38089430169 
t 


Cs 


ESH 4894620170! 


R1M Q-<89430171 


425° 


THROUGH 96 


e t . 
AL{U OBE89430172 .« 


AZAD "8089430173 


SKY §93694301 74; 


| 
0894-3) 
42 | 


Ale nO | eine mele eee SO Ma cee mee een 


Rae 


(0 


> DATE 


LaH HAINTENANCE DIAGNOSTIC PROSRA 


8943 


Cl 1 THROUGH 


ig 


T4+T<*PD5 9 SM9ESX? 


¥+T(8S*N G)-J15- 


—T4T43Gs-C S~5PLE 


T#T § >2AGE *a-JO5? 
T+TEZD=LN5 * X08 aP 
T4TJU2<- JO6"H2AG 
T+TK>1*PHL}P TDS 
T4TLEal JSLX*HZAE 
T+TMNP@THDNL?2C 1 


TS TNEGHCS2(SU435 


. T#TO.6*GSIMCUS} 


- ‘T+ TPFOC3GPAH JI t+ 


T+TQAUZSMVREPHIW 


- T#TO@EUCDUIMRGKDY 


T+ TR 78=LVE>a¥ 320 


- T#TE2D#( 2GMCH2 a3 
» T#T$_>JUSLUAT EAC 
’ T¢TSVECLISEN L>L 


- T4TT4aXNLAcCFoipe 


T+ 73 35_XE LAMRGMC 


 F4T-aRS MC P6 eX NB BP 


. T#T-MELCZE4CD15P 


26 JUNTS 


EC NO. 825023 


DA FUNCTIOMAL TESTS 


Ci Ll? THRGUSH 32 


€SHI~-Y* snOD p= iC 
) QAGEMATUS=.E44C 
"ECL 3 <PHOSE| 2<~ 
03 AGDO"C Ops J-82P 
CBaPDECLABADJI Zu 
DaTHD#R I 2<- 15" 
2<—JK4"H2 AE<PaT 
IS®CODNA] 2<~J an" 
" G<MJPEM) 3<6D60° 
“B>1A63( 5epKaac 
RS>( Ge 1OE<GDLLY 
LASGE: Ao FMAGFK 0 


EXR: «DMCXGOBSY #k 


JV ( MNNRPOEVSOSS | 


18? 14°~$7=|UusOVa 
(3S"66°3)7_ "Di =3 
$1'Q}:<GD60 
NO=[15_MNS#PWE (| 
C8aXO5MCC 2<PC4 si 
E5* 1-5ZR-5<PS826 
RE (SUB UB 1US1 0 
FOaN 9=} 231 ONC 


250CT75 
825032 


RSJANT6 
825034 


DBSECT CARD LISTING 


Cl 33 FHROUGH 48 


132146 aS T=1VeKOC 
PLIN BaPse0 AT 
JO--HZAGBPATHD? | 
SB4C POs LTLIXNE<S 
}QEOS1 7-@1L 5%E 1G 
H2AGG?+168>( Sac 
HOM3KPAS D=LNS "x 
H2AGKSATHD) (@2<- 
bac s55815 
L2)PEECTESEN OFA 
SLL POFSILD IDE EL 
sEJUSO=0}:<GD60" 
VZDSYDEDZ,E2?>,> 
VRW) YEPAL®X (4) PR 
)EDALQFG 44C/ DEI 
_#>% 22318760515 
“GH” sce" ONK® He 
I5*MN5SPHE )PEOQUC 
VL+{H2sT 1<GTOHC 
GLOCT1 IX M2 )PABAP 


Geeooan0e e 


#3<GD60 GM 
MSSLE44CXEDA EDA 


1SHAYT6 
825035 


CL 49 THROUGH 64 


ADEN GETCS_-VE<G 
'Y$>eES4CP LIN BaP 

G2<-J06"HZAGDSaT 

O6MC3a7~701 DUM" 

FSJ7yO#LRQ. 
T8APRSHCF5_V a®. 
O8aPCBaPDE<GRI#E 
JSM"HZAGOPATHO) } 
~1_SRECIL94.T LIX 
~QFA-SSIHL#IK2)? 
ASI S_XDLIXSDS| 
oe Bac SSL aF 
D?$s *—1>$ XHB/DEB 
73GU30~#} O<GB0aL 
GEDAHK41 (LU *E0S1 
~50GLE< (His {KESM 
NLGR 4A@XNLMCEOCP 
L2)PEEIPESUCL2)P 
NS>! 9®X524.1106 
SELWRZIPT FUP 25tu 
C BABG4<~0#1C5_x 


€DC P&*X NBAPR1<X 


PART NO. 
PAGE 


Ci. 65 THROUGH 80 


BS>PEECXNE+EH23 I 
$81G6G65/ TYO*LRQ 


HD* J"2<-J155H2AG 


‘AGZSXGS5 ILES5S3<JS1~A 


1G <BIPN"ICEELS— 
7 *6C2D%/ 22<—-Sicé 
"EDA GOA*DMS?72<- 
2?2<~JOG"H2AEELAT 
£1 DE P6*XNBAPRBUC 
GEL ARSZ3RO)Y gaG 
0D178 1 <POasTHI<R 
B- 8XE/Y ;HSQD<TQ: 
1%, +4)$E7>GUJOMa 
E1 $-H2 )GK4"LNS_- 
IPY "DESL $W':371 
N_JMSLMCES_J O@T 
C8aXO5MCC2<PC4/P 
E€<$US* 172) SNEDP 
E5_J OPDEINS44C 
“LISMELTISEN 538 
D2} PGE {06 (X09 | 


SS* {As HXOMY@EDA 


PROG ID 
PAGE 


4234259 
42a 


Ci @1 THROUGH 96 


*@aU ©.289430175 
one Se eayaroere 
FLa~" 3489430177 
*GM QK089430178 
JOVa 08989430179 
AgaU ":~69430180 
JL_*® 3¥<89430181 
HONS KKH89430182 
DO3< &. 89430183 
BOtM =$€89430184 
£036 08489430185 
JUID $¥D89430186 
60D E45*89430187 
Q63H KR 89430188 
6X9 79*B94301 89 
conn esa saseiee 
NiO $H&89430191 
E9U $1™89430192 
11*4 32289430193 
TE'D 14289430196 
15%M N$389430195 
#D#*# 28189430196 


0894-3 
4&2A 


ee i a eS SS 6858065808 8 ee 


@ & © e @ 
». ° ‘ 2 
me a of ‘ : 


4% 


ete St of Ae 


j 
4234259. 
43 


IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 


PAGE 


PART ND. 
PAGE 


4234259. 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 
43a 


8943 DA FUNCTIONAL TESTS 8943 


OA FUNCTIONAL TESTS 


CL 1 THROUGH 16 


TeTs | PICCPISBIMP 
T+TSHS * KE8>H104 | 
T+ TTE2Z) PS8aGNB? | 
T4TU 13/7 LsnC2Is 
T+TU#6E< HXaeH 
T+TV6EDA EDA EDA 
T+TW1SE<BIGBDSI 
T#TXZEDCHOS 290 
T#TYXEDA &IGPIWC 
TeTZS*_aFQUR EDA 
T+TD)asE £08 663 
T+T,QEDA $#}L18G 


T+T¥ZL =—-B CUCIOUA 
T+T_+PELs1L<Pv2s} 
TeT> 54/55" 2 G44 
TeT7D €3D1;P10aN 


T#T2"GOC PP 15 


ToTOs * AS 1Q{-~ 
T4T15 Sx50- acdc 
T#T20Q€XNE (1 0929 
T4T3,0*E=63SQZY0 


T+ F4W1<GTOMCE 55 | 


DATE 26JUNTS 
EC NO. 825023 


CL 17 THROUGH 32 


8G;TD1;P10aN 9=* 
HIMCIS*L1O0aGTI4y 
YRGA 2¢R S3PY231, 
TE<IL1*GRE<GN1OC 
J12TD1)-R13~SEFA 
“LeTES6A'9c) *PAC 
-1<$76 <BI"GBDeN 
C5_XR1I*1TESCSION 
1EDA EDA @_~FGII 
” gOC75aR- "4A EDA 
PLHUCI@UA EDA ast 
REDA EDAE82PLEL~ 
” DMCAECLES* XF 8>H 
E&4~xG0CPaU5 910 
selepas oie ake 
” ge@) O16 HCA JS 


3Q0~8GM 10A-°~ 


56m A5S-S"Q)E" 
1 GHx*s. 36~8a£DC 
REC] ASIN L*GLSaT 
RY: SUSREP-EHD/Y; 


RsOCKOT J -EOTND It 


2S50CTTS 
825032 


LSJANT6 
825034 


GBSECT CARD LISTING 


Ci 33 THROUGH 48 


JONGAMS$H231 231 
 owxDE (o£: DA-EFA 
“5 )STECXNE> IASI 
FS5_ILS>R 1)XRS_V 
“EDA EDA EDA & < 
T63/ O®-A2IN 5_V 
* or sReoPCcescazss 
"5 °X155LEGMCL5E) 
 eiTP1wCREDA EDA 
£8>{ 6*POQEDATSAE 
ESMA &4SCO)XDEIX 
C2dPCS_XR1# [Te (x 
1O(-2GMCUa/5~5"< 
BITE AJ<E1DCQ6EM 
~SoH)e (X2GOCPAIS 
“goce*25  0t~ 
2 ONX*®.11DA ° < 
AG<KFECLAB@E 1)P 
HURHLDE ¢C2 QHNVAG 
£6*XCBUC AGEN 91 


14MAY76 
825035 


EDA EDC 352aR-a4A. 


CL 49 THROUGH 64 


” 5(sD28S1180 1<6 
” QDA-E<XT 64 .HSDL 
E1F_ 1<PP6sPSBUC 
” 5¢.GKIGBPL7YD4$ 
BI™GBD*1-0*X0E (x 
“\eppeab Shucpode 
” ogGse{xEaaPigep 
“S>LT 4A.9°L 1866 
” cDA EILPAWC4EOA 
cyaFalv &DA EDA 
-aMa GDA EF SPOOL 
D6HA QEPOEKGIIDA 
E8>LLS=1 1_XO05DA 
E*L3BGOCP AS 916 
3&*<EA) GEOUASLUI 
“91<20¢-4GHCU "AS 
JOQInIGMAS—SeH 
@GNC= S.SEAD | 
BI@PBIDA  <AscU 
163/ 4ZLBPMCC5_~ 


Ci/5 0°62 I5-0eP 


PIIV O@GS IMCA4°~ 


CL 6S THROUGH 80 


TOJE & <BIPBGDE 
LIOCBiMCD134 E0=1 
ASs/ S>IHIIV 08x 
81<PP6*2SBUA-E<P 
E0 aP 19*PDE+SABUA 
2L®INO® (E+ [OE<> 
DE4CB9+( 6FPS5°S 
R18¢ 1_}DK77E53| 
“EDA "}—FQIN EDA 
:53R-O-A EDA EG? 
2L*INO*{ 9E*-AQHE 
“EDA OC PRS) SHSMA 
“EDA BDA EDA S- 
N01 -5GHCU'I5-5"0 


OLE ~k2 OW JED 


5° YE+LSGOCP °/5 


96 


Gocpals 


GQE9 £<D Gr E~E 
BE CO <aq309 S~ 
¥6+ IHIMCFS_IL5>S 


AZSR ¢ (SUECTADTE 


HONS 3<PP6*P SUC 


PROG ID 
PaGe 


Ct 81 THROUGH 96 


”1<M N2H8943019 


E1D =4J08943019 


DE(H *2H894301 


N8aM 202894302 

-€D  $$#89430201 
0&(Q ~+L089430202 
NBZM_LRH8943020 
E6M 92*894302 | 
"ED 18 8943020 

plu 21789430204 
"gD "09989430207 


j 


e | 
é QH<89430 208! 


| 


5&EO ~T 889430209 


166 N1Y894302101 € 


. | 


32039430211 


te | 


5 aus 


car 


3Q¢* ~7-89630213 
1 


\ 
ee 


e ‘ 
50/4 RCQ89430215 
| 


15%* 93489430216 
OM” 31<69620217 


e eo | 
TlsH 6 469430218 


| 
aces 


~ oe ew eee ee ee 


2 © 


Cah 2 THROUGH 16 


T#TS/B4CR1i3/.6($ 


T# T6*8STEE<KS04* } 


" 1477 P2<PNESCD1 I= 


| -1#T8K84SCOSMCT2<N 


Cc 


O 


co 


/% 0<-"0 


TeTOLLOINO® (9604 
T4#T:H:<.D8UZC $= 
T+T#C5DCK15TB52G 
TeT#e:MA EDCLS>S 


T*Ta98IPL isi T5_V 


‘ Fe T*a2°¢ SSTOOET 


TeT=?7OOL2ZLS1 NO* ( 


TeT™DEDA G37 19P 


> THU NL°R S_MCDS] 


TOUEZ AAtQO ELZ 


TFMFCLNS*ePH9O=LS* 


BFSESCSHSESASRSSKS 


_ © SECTION 894 1 


* 3277/84/86/88 
* CAN BE USED T 
* SECTION 894 S$ 


s $$W10 ~ S 


DATE 
eC NO. 


265UNT5 
825023 


CL 17 THROUGH 32 


T2<PROSXS1O__ 1<P 
OOSXNLIGA+/TV6+$ 
R1s.SE<PNBEPR OH 
" 5°Xx1531E6MZ OW 
OE<-06 ( SNKGA OXI 
5~3PNIDCO1UCT 13. 
R1 I TE sCE/GCLOM 
E6MCCOs . EQHFE—8K 
” SaPNE4CS1) 1EO=C 
DE<. EE<LEBaPCB8aP 
1K 1GBP17YD#1 063/ 
DEDA ED ): <BI"G 


LOFLED*FLR O 7"3H 


Aj}-G-O%.CI<PF lar . 


2=51°E laG- 3 


SOUS OSSSEERYUS SHS 
S DESIGNED TO BE 
” DISPLAY STATION 
© DIAGNOSE DEVIC 
ENSE SWITCHES 


ELECT DEVICE/S F 


250CTT5 
825032 


IS JANT6 
825034 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


PO*PS8UCES$ JEGME 
E6s 1Y9<x05a6S1<s 
XH )Q<PR6}SRBUC 
)S<LES*XEB>1 LIP 
A9¢1 1S_N-EIXEG4L 
TE<S06HCD13P100N 
X*0,U5* EG MCCOS 
E/Y SHSREKUSKNVZ 5 
“ QDcrsas OMAcE<S 
ikea 2, Nap 
21_IDE<E ED 1:F* 
BO*S88" XYE<GEO*X 
2ED81TO 64*"0H 
14).15(POS* TRADI 


GS+*8DSZy 


PEEEKHSCLEBAORSE 
USED TO DEVELOP 
GR PRINTER TROU 


E PROBLEMS. 
ROM CONSOLE Swit 


14KAY76 
825035 


Cl 49 THROUGH 64 


C $+50/5-21N 9t- 
G2(GK4=XX0=PB5)6 
W1)XEE<LE8aPC8aP 
TLV 8°R 6EPTEs- 
16#P S&( LO9ZPRES. 
” 9=8C9_XD5*) <6 
EQCGBOAL EL B~H2 96 
QuEnTzwowz:sz"-H 
LIDCCK4A BaTESMC 
RIMCNS>( 2)PS6a6 
F4ay OUA EATYSaS 
NG (SREXLES *XEBDE 
XSO<BI®E DE DO 


U93$X24X0G~.3* IP 


e@oeeeoeae eocecs eee 


Seeenoeoeeceeeaacee 


Ssosesseesesenses 
SYMPTORAS SO THA 


BLE SHooTING GUI 


S@e@eoe @Ceoeoaeae neve 
©2828 2OCHEEOHEEGED 


CHES 


Ci 65 THROUGH 80 


PL)V OaGSIO_ O° 
$048) £A<J0=U)QAG 


OECGNILOCLS2-G1 FS 


$0601 9-R15 SEI 


H2STE( SNE+. OS<N 
TOMCR1 &] F2; PELOC 
K&°LNS_~Q63.T90P 
X* 8H )Q¢LS2) PGES | 
S1)1€0=( ~*PN1GS 
L4aPDE4CD1)-R13. 
LIDCCEDA 63/21_1 
" sae-au7CSsILPNC 
6 “TOMFAS3U_SET_ 
souvewae wc uneeale 


e@eo@@eecaeenoeecosnesn 


Cy 81 THROUGH 96 


P:D N/E89430219 
E03< 7-889430220 
“5>6 © £89630221 
AQIH 96089430222 
” an 58689430223 
F630 =1089430226 
u9=- 3/689430225 
HIM 4089630226 
e£D "R<89430227 
S&t* a. 889430228 
D&<E $~489430229 
T5U_QRY89430230 
"11989430231 
<860 :J-89430232 


3 489430233 


@aeeo0e 


=(€a69430234 
THE 89430236 
DES. ® oe" 89430237 
* 89430238 
@eeeee sevecesnee @eenoaocece 
s 89430239 
‘ 89430240 
PROG 1D 0894-3 
PAGE 


434, 





IBM MAINTENANCE DIAGNOSTIC PROSE AM 2 EM HAINTENANCE DIASNOSTIC pRoceaas PART NOe 


bs PAGE 
fo4 
DA FUNCTIONAL TESTS 8943 OA FUNCTIONSL TESTS 


%234&259 


&GA 
8943 


OBJECT CARD LISTING 


Ci 2 THROUGH 16 


eedencea 


Cl 17 THRGUGH 32 


Ct 33 THROUGH 43 


CL 49 THROUGH 64 


CL &5 THROUGH BO 


Ci 81 THROUGH 96) 


| t 


any 


Ct 1 THROUGH 16 


Cl if THROUGH 32 


OBJECT CARD LISTING 


CL 33 THROUGH 48 CL 4G THRUUSH 64 


Ci 6&5 THROUGH 80 


Ct 81 THROUGH 96 








2 oe 2 e 2 eeroes Sesenetenaecse rae e2z2eoeoe eee aorcecn OaPetr2e@ | oe eo eo 2 e So oe 2 a2eoooa oe SPS8evgeves esse ouvnn Seeeorzxa S@e@eeeaeseeeea FP DP>eeeave 
* SSH1L - RESTART ROUTINE 1 COMPLETELY & 89430241) © * 02 FOR THE CU RRENT DEVICE BET RG TESTED. + 89430263 
| “i 
* SSHW12 ~ D ISABLE 90 SEC. T IMEOUT ON TEST P ATTERN ADVANCE * "89430242! i CFCREERELESESSES FHRSESESESEREEEE KERGESEEEE EESESE SeEEKERSESECERES SERases 89430264 
j 
eeaeceeve es es 2 eo 2 oe eo se @eeecveecesa &eaosve Sean ee 000 eeeren 080 | ue ese eee - ee eee see e eee @eeesenn0ee eseene 
* SSW13- D ISPLAY HAS SELEC TOR PEN BUT NO K EYBOARD & 89430243 EB/E*ET#=~DC"PHS ="IMEFL, 1 CC FE ASC RA SO Q 08070608730 517764, 089430265 
. i . 
enteea °° = e e @e eo eo @ @e2eose0d seoso08 Seeae0842 80 ®eseceosas | 
* SSW14 - D ISPLAY HAS NEITH ER SELECTOR PEN OR KEY BOARD * 89430244, 
{ 
eaeveeen e e e sa e e e e * @eeeeseeecoon seo2a2ne Seaeeeseon S@@®ee2s0e0 { a 
* SSH15 - E NTER CHAR. FROM DATA SW. IN ROUT INE 04 * 89430245 
eaaqeen e @ e e oe & e eeeseau scsea eee @eecsecen ' 
* SSW20 - SKIP TEST PATTERN S OR DISPLAY GML Y THOSE SELECTED * 89430246 
* B Y SSW 21 THRU 26 AS FOLLONS: 89430247! 
{ 
« SSW21 - D O TEST PATTERN 2 IF SSH 20 IS ON * asaso2ee 
eeeeaee e e @ a eo e 2 @ s s Seen cecevecdeoosaoo @eeeoan ecesoecacse eceovseene od 
* SSW22 - 0 © TEST PATTERN 2. IF SSW 20 IS GN * am tees 
gsaeeecee es s eo eo Q 2 e s e e eeceereseeszoe2 een eeceoedqg @eecoaeeonr2sc eeete nee | 
* SSW23 - D O TEST PATTERN 3 IF SSW 20 IS ON & 89430250; 
@eonsoce eo 2 e s 2 e 2 @ 2 e eeeeectesacuteese Secs oseoa @eeonvescaqs eeseseceo { oe 
* SSW24 - D O TEST PATTERN 4 IF SSW 20 IS ON * 89430251, & 
t 
see one e se 2 se . = e eo oa * e @ceeesecetricaeevoane Se seve @eeesecoane @8sreee8 805 ae 
* SSH#25 ~ D0 © TEST PATTERNS IF SSW 20 15 ON * e7a2ncre Ce 
@ene econ s . e = = @e = se e e S®aoeveetoswveecauen e@eeese2nc eeaenenee @ee7ecse ae | . 
* SSW26 - DB GO TEST PATTERN & IF SSH 20 IS ON : SRT ene C 
@e@eeeon @2 = = 2 e e@ . s «e oe en G@eesesee eceeeeceteoe eeagceeceen | i, 
* SSW27 - S KEP FULL BUFFER PRINTOUT IN ROUT INES 03 AND 04 * 89430254, © 
«  $SH28- M UST BE TURNED ON IF CPU IS A MOD EL 4 AND DEVICE 40 IS « 89430255 G& 
ae eo are @ @eoa | 
* G TWER THAN A KEYB OARDLESS 3277 MO DEL 1 DISPLAY. © 894302 56] c 
: * 69430257 €3 
eo e e e se eo s = 2 C7 e es e see Seaver, e083 e@eoeoevwece } die 
* NOTE - SSW 10 AND 11 ARE AUTO MATICALLY RESET AFTER THEY ARE U SED *& 89430258 €> 
i 
ae 2 a eo ‘ e °e eo @ecoeeeeso eesoocesen i 
* SSW 20-26 ARE PROVIDED AS AC ONVENIENT WAY TO SKIP TEST PATTE RNS «© 89430259 {> 
i 
eeceneecoenesseeacos PH POCSKCeHC eB EHR BOE Seeteececoersenevece SOCHSOCSeEEHeeca ® ES @eeosa e@ee0oeqeoae @eeeoen040 | _ 
* * 894302601 © 
ee e = e ® @ 6 2 o @eecee @eeeooaces @zszeece0cs 
* ROUTINE 13 1S A MANUALLY SELE CTED EXCERCISER, BEFORE HANUALLY * 89430261 E> 
| 
* SELECTING ANY ROUTINE, YOU MU ST HAVE RUN AT LEAST ROUTINE O1 THRU = 894302621 © 
pT aaa ee a ee een wena === LAST PAGE ee nc a en so ee - 
CATE 26JUN75  250CT75 L5SANT76 L4MAY TA PROG 1D oas4—al °° pare 26NUN7S —-‘250CTTS LSJANT6 14HAY 76 7 PROG ID 0894-3 
EC NO. 825023 825032 825034 825035 PAGE &4 EC NO. 825023 825032 825034 825035. PAGE 44a 


O 


Soa oe 
290 


i) 


eewoenoseeeeeos eee @ 





eee 


A 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


8H 


ERR LOC 


oa00 


8 aods 
9acde2 
SAOS 
Caos 
GANS 
cages 
CAoAa 
oAgd 


OA SYSTEM TEST MODULE 


QByVECT CODE ADDR STMT 
2 
3 
a 
s 
S9F1 OA01 6 
oo Oad2 7 
oo GA03 8 
eocd 9a05 3 
9410 OA07 26 
1368 GAn09 a3 
894090 CAOC 32 
861000 OAGF 33 
22 
146 
0oss 1s 
8050 26 
0058 17 
GoFD 38 
ODFF 19 
6003 28 
0602 22 
0068 22 
0004 23 
eoao 24 
O222 25 
G2iA 26 
O21E 27 
oosc 28 
SOBA 29 
eoss 30 
oosa 32 
SOBA 32 
OGBA 33 
6062 3e 
oo0cs 35 
0088 36 
oo8s 37 
9008 38 
06016 39 
e020 a6 
OA00 a2 
OADA 42 
43 
4&3 
a3 
01 oaid 44 
00 6A12 45 
FREE als 46 
a7 
F3 58 66 48 
F3 58 CO a9 
30 S8 1515 So 
6D 01 1515 1564 Si 
co 01 OCES $2 
3c 02 1517 S53 
3c FO 1516 se 
30 S@ 1535 $5 
ci Sp OCES 56 
OF 01 1537 1536 S7 
co 20 Ga3Z0 $8 
so 
F3 $8 80 60 
F3 38 EO 61 
62 
oAaasd 63 
3D 00 1532 64 
fF2 01 94 65 
38 02 OadCc 66 
= 
26IUNTS 260CT?S 
625623 825032 


SOURCE 


WK 


LINES 
2S¢ai 


nOTROY 
ATTCHK 
sioi 
ABSCAI 
4B SCA2 
XR3 
xR2 
ARR 
PSe 
TAR] 
MALT 
PRINT 
UNPACK 
CAR 
Tar 
SAR 
STATUS 
eusy 
AM ITR 
ENINTR 
ENABLE 
CNTR. 
MORDUC 
OoPy%3 
opts 
OPTS 
PREF 
SUPER 


RT NOI 


START 


MICLP 


Mi CRON 


STATEMENT 
DECK 12 

SEQ 0 

START x*9A00° 
TREP 

oc XL 2°8SF 1° 
oc RLIO¢ 

pc xLaroe 

oc xL2°08 

oc AL2(RTNOLD 
pc AL2(L06) 

DC xi 3*890000° 
cc XL3*8010008 
€ou = x" 56* 

Equ x°Sp* 

favs x * 58 

EQU xX*CDFD* 

EuU xX ODFF® 

Fou 1 

Eou 2 

fou 8 

equ 4 

EQU =x" a0# 

£0u x*222° 

fou x*21a¢ 

Eou x*21e° 

fou = xx* ace 

fou = x "BAP 

Fou = xs 89° 

fou x*sse 

Eeu = xx*6a* 

Eau x*eat 

EaQu x*o2* 

Eau x*coe 

EQU x*3g* 

Eau x*se* 

Eau = x* 08° 

Bou =x" 108 

€ou x" 20 

EQU = x* a00° 

Equ = _xK*ADA® 

oc XL1°O48 

oc XL1°00* 

pc XL2°FRFEs 
S10 - X*80", SICI 
SIG X*CO*,S101 
SNS BCNT.SIOI 
CLC —- BENT. 2) 2X7 200 
ONE 9 - MECN 

MVI - DVBCNT.X*02° 
MVI _DVBCNT-1 5x "FS 
SNS  BCNT. SIO 
T1000 MECN 2ATICHK 
ALC «= OVBCNT(.2), UNE 
BNOL MxCLP 

$10 x*80*.SICI 
S10 X* E0* » S301 
USING HICRON.XR1 
CLI PASS15X*00* 
JNE ALONE 

Ten LINESex*01° 


BscCh-71 UT INFO 


| 
| 
| 
| 
| 


FART NO. 4234261 

PAGE : 

| 

| 

| 

| 

{ 

j 

| 

s Pp | 

£ R | 
< € 

t © | 

i a | 

2 c | 

Xx £ 


TIO NOT READY 

TiG ATTACH CHECK 

SIO IMMEDIATE 

ADDR OF BSSCA-{ INTERRUPT ROUTINE 
ADDR OF DA INTERRUPT ROUTINE 


ADDRESS OF SECTION PREFACE 
AQDR OF RETURN TO SUPERVISOR 


LAST ROUTINE 


OI SABLE 

ENABLE ATTACHMENT 
SENSE 1ST wORD 

CHECK FOR CORRECT DATA 
ERROR IF NOT 

SET Ue COUNT 


SENSE CONTROL STORE WORD 
ERRGR IF ATTACHMENT CHECK 
INCREMENT COUNT 
LOOP TIitt DONE 


DISABLE ATTACHMENT 
ENABLE MICROCONTROLLER 


TEST FOR FIRST PASS 
JUMP IF NOT 
IS KATAKANA FEATURE INSTALLED? 


PROG 1D 
PAGE 


OBoF-1 


a mene sme cn ere nee te eee 


& 


eseeeeevevneneeneeesee 


C: 
IBM MAINTENANCE DIAGNGSTIC PROGRAM 
G 
8SF1 DA SYSTEN TEST MODULE 
Cm LOC CBVECT CODE ADOR STMT 
G 0aS3 Fe 99 oc 67 
‘ 9ASG OC OO 1401 I6EA 68 
OaSC OC O14 I3EC 166EC 69 
e Case C2 01 0488 70 
- OASE SF 03 79 79 71 
OabA FC 1 79 72 
OaGD OF 03 186A 160A 73 
G OATS K EO 1807 74 
g@a77? SC O1 40 TE 7s 
S oa7s 7C 08 35 76 
77 
OA7TE SC 00 3F 3D 78 
& 0as82 FC 328 3D 79 
# CABS BS 00 COKE 80 
0aso F2 36 0S 61 
& OasC 1E O03 150a 79 a2 
OAS? SE 63 79 79 83 
OAeS SE 93 79 79 B4 
G GASS SE 93 79 79 - 8s 
OagD 78 EO 76 86 
‘ CAAD F2 10 22 87 
j OARS FO OF 3D 86 
'S Osna6 SE O01 SE 3E 89 
ip DAAA CO BE BAAS ss 
1d os OAAE 7B BO BE 91 
iG 0881 €9 90 SATE 92 
OaBS 4£ 01 oD 1536 93 
e SABA CO B7 GCABZ 94 
35 
OaB8E SOocCSCO OAC! 96 
e CAC2 CASB CAcCz 97 
; 98 
Oace Bc BO 1556 99 
G OACB OC G1 1504 155C 100 
OacE c2 OZ 1507 101 
OAD2 34 O02 1566 102 
eS CADE SD BO 0400 103 
OADA F2 81 06 106 
oanD 6¢ Ci core 1519 108 
. CAES F3 6B CO 106 
ay OAEG OC O1 1502 14FE 107 
OAEC OC O61 152F 1528 ioe 
GaF2 3S ad 1819 169 
e 210 
OaFS 3D O00 1522 241 
OAFA 3C FF 1532 112 
eS CAFE F2 81 &5 123 
0802 SE 01 1564 153£ 219 
0807 35 02 1566 135 
© CBece@ BA BO 1556 116 
CBOF F2 90 08 117 
@ Op1i2 3A 80 1504 1168 
0BiIG BA BO 1805 119 
Seta 38 CA 1504 120 
@ OB1E 39 OS 1564 121 
Og22 F2 30 08 122 
OB25 38 8) 1506 123 
te29 3R BO 1503 1246 
© C82D 3eR 91 1506 125 
Ost F2 90 OE 126 
0834 E2 02 023 127 
& OB37 34 O2 1566 128 
CB3B 3c 6O 1506 129 
e OB3F F2 BF Ai 130 
OB&2 3D SE 1504 131 
C846 F2 01 26 132 
Opes OC 01 1504 155¢ 133 
© OBeF 3c 80 1506 134 
@ vate 2OJUNTE 250CT?S 
EC NGe B285923 828032 


SOURCE STATEMENT 


NEXT 
SETTBN 
TLIN 


UPL 


SHIFT 


SET 
cons 


TALOWE 


ALONE 


UPDATE 


T2 


T3 


T4 


JSF 

M¥C 
ave 
La 

sic 
wyt 
SLe 
yi 
ME 
avi 


mC 
myt 
TEN 
aa 
ALC 
aL? 
ALC 
ALS 
TBN 
JT 
MY 
ALC 
BRoL 
TSN 


ALE 


‘pC 


oc 


mv I 
mvc 
LA 

ST 

cul 
JE 

avo 
Sib 
uve 
aC 


cly 
Myvi 
SE 

ALC 


TEN 


$8Nn 
SBN 
TEN 
Ter 
JF 

SEF 
SBF 
TBN 


LA 
st 
MVE 
cit 


av¥C 
Nv I 


NOKAT 
OATAE( 1) -xkaTOl 


DAT AE-23 (2 35 sKATOZ 


MICRON oRRI 


SET (46 o0XR1 3 2 SET( o MRI D 


SET. XRI 9. X*1C* 
ONFL.G14) -ONFLG 
CHFLG-35X*ED* 


TL ING 312 oXR7) o CONS( XH} 


TLING oXR1},xX*05* 


TILING 101 eXR1) oe TLING eXH1) 


TLINC( »4R12). X938" 
rH eo KMS 

UPL 
SNFLG se SET(€.XR1} 


SET(¢.%R1),SETE,XR1I3 
SET( Se XR1) oSETI s+ XR1 3 
SET €4 ,XR1),SETI,XR1I? 


SET@3( MRI DX ES* 
TALONE 
TLING oMRIYeX*O2? 


TLInNt 142 5xXR13 sTLINGI ( xH1} 


SriFt 


TLING2 (5 XRi).X*80° 


NE XT 


TLINGS(2 o XR1 12 ONE 


SETYSN™ 


xL4a°o* 
&LZILINES=-2) 


LINE. X*85* 
CURDEV(2).,PCLL 
ONFLG—-3 2 KXRZ 
SVXR2+sXR2 

PREF ,X*89? 
ALONE 
ABSCA2(23.&INT2 
ENABLE sCnTRL 
CURRA{L2) eALCATA 
ATABPT (2) oe AATAB 
AINT2eTARG 


PASSi e& 
PASS1.X*FE® 

6c 

CuRCE VI2) ,DEVINE 
SVXR2oKRE 
LINE, X*HO* 

72 

CURDEV.s x*sg* 
TURDE V1 2X* BO* 
CURBE Ve x*OA* 
CURDEV eX *O5* 
2 

CURDEV oX°8S* 
CURDE v3 2 x* 80° 
LINE e %*O14 

4 

2{,XR2),XaRz 

SV XR2eKR2 
LIne, X*30* 
aDDOK 

CURDE v.X*SE* 
CEVYOK 

CURDE vt2) »POLL 
LINE. X*SO* 


PART NGo 4234261 
PAGE . 2A 


JUMP IF NOT 
CHANGE INVALID KATAKANA CHAR. 


LOAD XR1 FOR INDEXING 

CLEAR SET AREA 

SET UP 1ST 3 BITS VSED 

CLEAR THE ON FLAGS 

FORCE HI 3 BITS GN 

INITIALZE ADOR IW TAN INSTRe 
SET UP STARTING TEST BiT 


MOVE TEST SIT TO Imm. BYTE 
SET TaN GF CODE 

TEST FOR LINES INSTALLED 

TEST NEXT IF NOT 

SET GN FLAGS IF INSTALLED 
SHIFT LIMES LEFT 3 BITS 


ARE WE OONE YET 

Jump IF 50 

PLUG IN THE SHIFT STOPPER 
SHIFT RIGHT ! BIT ROUT. 


BIS wE yUST GO To THE NEXT BYTE 
¢O GN TF NOT 

INCREMENT THE TEST aDDRESS 

GO SET THE TEN INSTRe 


INITFIALIZE TO 1ST BIT 
INITIALIZE OEVICE TO 8d 
FOINT x*R2 TO FLAGS 
UPDATE XR2 STORAGE SPACE 
TEST FGR RUNNING ALONE 


TELL SSCA~1 MY INT: ADDRESS 
ENABLE DA 

INITIALIZE RIPPLE DATA FCINTER 
INITIALIZE ADORESS TASLE POINTER 
LOAD INTERRUPT ADDRESS REG 


TEST FOR Pass i 

SET PaSS 1 CGMPLETED ON 

GO START MAIN PROGRAM IF IST PASS 
UPDATE CUPRENT CEVICE 

RESTORE xRe TO CURRENT yALUE 

ARE WE AT IST LINE SELECT POSTT1ON 
CHANGE HMI BITS YO C OR YD 


ARE 108 BITS OF ADDR = a 2 +t 


CHANGE #9 B2TS TO 4 ORS 2 
ARE WE aT THE LAST LANE BIT 4 
INCREMENT KR2 TO NEXT FLAG BYTE 
UPDATE xR2 STORAGE SPACE 4 
START aT BIT ZERO AGAIN ace 

OID WE JUST DO LAST DEVICE 


REINITIALIZE Back TO HEV 20 


PROG ID oeor—1 
PAGE 4a 


Bea aegp joribaltins 





IBM MAINTENANCE DIAGHESTIC PROGRAM 


corn ee 


item hbrineret et aman atin ietee 


4 
4236261) 
| 


CARY NO. 
PAGE 


IBM BAINTENANTE BDEAGNGSTIC PROGRAM 


e 


8234261 a 
2a 


PART WQe 
PAaGE 








} 
BOF i DA SYSYEH TEST NODULE | agra DA SYSTER TEST MODULE 
ERR LOC OBsECY CODE ADDR STMT SOURCE STATE MENT ean LOC OBJECT ceDEe ACOR STMT SOURCE STATEMENT 
BSS Cz O2 1507 435 LA ONFCLG-3.xR2 POINT KR2 BACK TO iST FLAG BYTE | es CcS8 ce BY BEB1 202 8 FRVI 60 TEST FoR avi 
OBS? 34 O2 12866 i356 st SVXR2 RRS WPDATE XRF STORAGE SPACE | 3 see ze eeusanricte : 
CBSE 3C FY 1632 a3? ov E WR TCD o MPF RO FORCE @RITE ONLY COMMAND | 
t ' ' ADO % TO § CT COUNT 
seep ere ie ise eee ee ica ee Yee eo aoe cb ice ted. GAXEL OC LiGuRECI: eave dW WRITE OA ERASETORITE 
ae eee aa ce nis = ogee 3 eokcE par deene 10 @RINT OCS6B BC 6G 2909 ~ 207 sey f EXP2-2,%°6O* SEY DISPLAY HO AID CHAR 
peat eeay a . oo re Océ6c 28 OE 1845 aoe SB HCC eX? OGe RESET THE START PRINT In WCC 
ee ve ae © OC 70 BS Be Be 200 TPL TSN &CgXRZD, Gee TEST FOR THIS DEVICE A&A PRINTER 
O@SF BC 62 1336 243 DEVON ME RENE 40K °OZ9 LBAD THE SHIFT STOPPER OCT? €2 36 13 210 iF URTPAT ses a eeiaces aes wentecmaneeed 
OB73S GE 01 1556 1596 14¢@ SHIFTR ALC LEMEC 2) LINE SHIFT LINE LEFT : e SC?S BC ESB 1459 2i8 abe ae ae € Bae aaincie 
ce7Ts co 20 0973 148 GMOL SHIFTER BRANCH TIL GFLO ccCcuRSs 2 GCTA BD 60 2536 a yy co ee ee 
CB7p Bw 00 1566 1505 2a eye LINEC 12 ,<L INE} CINk 15 wow noe RiGeT ONE est pita is a. eee a ale oe sis tea? Gai sia wee 
ROR CE at ee ae : ee ey keeper, &> 6CS5 BC FS 1466 218 Myt WRTFLDsK7FS° FORCE AN ERASESHRI TE TO PRINTER 
w BATT ERR 
$49 & UPDATE DEVICE, BATA ETC FOR MEXT PASE — soee ec23 one oe wR TP aT an Saat 60 BRITE THE ¢ 
o 150 om, ec 2 
C886 35 C1 1802 151 6o & CURRAs ERE GEY RISPLE DATA ADDR @ CCar 1640 ec99 218 oC cats 
OB8GA 10 1C 14e37F BO 182 aye EXP6 0129 oRRS 3 SET UP EXPECTED BATA OC91 1478 eco2 eh De AL ZCE GR 
OBBF iC 1f 1474 GO 183 YC REPDATcOCESsERLI SET UP TRANSMIT BATA < 
; ! € PONSE Cx 1 
CBG OF O01 1802 15.36 194 ALE CURRAC2) ,ONE UPDATE RIPPLE agoR & Oc9S 4D G2 81 1800 eet ts pe al Mea age 8 
0GGA OD OF L542 21860 185 eLec CURRAC2}sDATEA TEST FOR END OF DATA 6038 CO Bi oCAO > pene Sere ee os eek ie ewe ap caat 
CBAS Fz oa 06 156 SPeES SE TADR JUMP IF ROT ; @ Ocec CO GF BES 223 8 |! 
OBas OC GL 1502 I4FE iS? aye CURRACS) oADATA INITIALIZE RIPPLE BATA POINTER : ees on eae a : 
OBAG BS O14 182F i$B8 SETADR & AT ABPT.XRI POINT “Ri TO Tasle ; £ 2 = oer erek tae 
OPAD GO O02 252F iS2B 189 CLC ATASPT( 2) AA TAS TEST FOR START CE TABLE gt GCAO 86 BO LIFC 1689 - A aa ae aa se re eace 
C8835 FE G2 Os 160 SNE NOTST Jump PR NOT . Ree! Ofas CO BF? E023 eae 22 aa ee ie 
CBSS 3C FS 1834 263 YY WRICMD,HtES? SET “RITE CHD TO ERASESHWRITE SCAs& ODE ocas 228 pe : ae Og 
OBBA 10 GE 2489 OO 162 NOTST MYC PRTADR SCZ, XR} MOVE ADDR TO SRETE fIELS a CCAhC 1669 OCan 229 Be bee | 
OSS8F 1¢ G61 14608 G2 i363 eye EXPZ.242 6KRRG I BOYE ACDR TO ExP. CURSOR FEELD ed OCAT [4arc HORE 230 me At 2¢ RDWOBE } 
OB8Ce 10 02 LAGE O82 1S4 MVC EXP3,2¢2,=R1} MOVE ADDR TO Exe. 1ST SBA BS s . : | i Bote Se 
OBCE 10 Gi 1444 34 166 EC EXPSs4¢2eKxRG 3 MOVE ADDR TO ExP. 2kO SBA e ecee 7o €@ 93 ee a SO ee ee Fleeces PRINTER 
2 oo a j ioe ee 4 < £4 8 3 fay = = SNE j ccc tecnico ev uiinnis isaientie 
: cece. 56.63 ee tece +e bie Dei ppancriaetes eee eee oa 4 os 234 SPi SBN HC eERZ} 9 Hed SET PRINTER FLAG FOR THIS DEVICE 
eee fee a eee ce bee ie KOT eces 3c £& 1409 #35 ay EXP2-2,K*ES* SET EXPECTED Alp FCR PRINTER 
OBDA Fe Oe o6 168 She < SUMP a3? sr 35 : : , Cee 
8800 OC O1 182F 1828 169 avo ATABP TES} pAATAS EINITL@L EZE ADDR TAGLE POINTER rd OCB GD 40 1646 1442 236 NEPAS 2 oS Se eo rtenr’ pe eae ag ONS 
CBEB £2 01 1506 1i7Q aDOOK LA LENE, RARE POENT XM1 TO LINE POINTER | occas F2 8i 12 237 ae as ie ae ee eo dees 
OBE? IC @O GEDF 60 avi ave Tied eg O@po MRI? SET uP IMMECLATE INSTRUCTIONS ieee OCC6 4D 01 91 15462 aa se. eeae : BRANCH OUT se So 
OCBEC 1C 00 OFES 94 a?2 ve SF i4) OC ERR NITH NEW POINTER i Ecce CO 81 SESA pet a, . ee conces 40k Coe 
COFi 1f¢ 80 GFCS 36 L?3 myc SNLeLeG¢ PeRRGd @CCF 3C O68 3533 : . ao 
CBFS 1C 06 OC7Fi OO 274 Myc TPA] OC L BRL? &s O<DS5 CG ay ores <*3 3 zie 
OBFB 1C eo OCB? oo 7S aC SPit¢hoOE Le RRE? ae es ii Bag : 
- - - 3 j Pring f ‘ 
vee eat ep ca Te e an ecey Reayetae ar ScoT 6G SO 1283S 16E9 244 AZ HOPC( SG}, VECIL At ABD & Ta READ COUNT 
Seba ae ce cece ee a ce bapa sas Raat & OCOD Co 8? GEYS 2a 8 gGOACK SEND ACK 4 TO DEVICE 
Boe stuee esse pe pies ee lie 3 i ee CO 8? ORG: 246 8 UPDATE GO TQ WEXT DEVICE 
OCOF 30 80 OFSE 00 ite MYC TM2¢1 oO € 2 XRZS Scer Ca a % as 
: cao  @ ay ste: 
WNe SCE THE DEVICE cor 3 BS Pg 8 Alyce : 3 fe SET ERROR 
Scie CO 67 GZ1E 283 8 UNP ATH UNE ACR THE DEVECE CODE oe eo ee a oe ap a oe Boone eet RESET ATTACHMENT CHECK 
oCis Os OCIS 182 po ka ay Soe ce wae ened a Panaec 
pea face Bic oe oe meennice Hee SRL Hh Het ok He SG HH He Hh Vs a OD ay Ga Sah eH oe 
< : , ; os 7 bat eal hi ' ee: = cto OUT INE! ie SDS Mp She Be AR a Gea a ae MS ae he pe le aes hs Ge Ce es Rh sea 
GOCko OC OL 2837 Tass 168 ave ExPat 25 .DEvICE BUT UNE ACHES OEVICE IR EXPECT Ef © i & a uecccee 
OC2s OC G1 128C 1486 186 MYC LOGDE Vi 2) sMEVECE MOVE DEVICE FO LOG OUT FIELD | 2B35 teeeen ens 
Oc2? Oc OO Fate S64 18? wv EXPL (12s CURSEY HOyE CUR@ERT BEVICE TQ EXP. FPLOe dete ca ar ones ' Ravin <2 hss, ent ss (ceeursens 
R86 , ; ei, = e en mM > at os 
ec2F OF Of 1517 2537 189 SETPOL SLC CVRBCNT( 2 $e VGONT SET Busy COuUNY FO ZERC | a ocra SOB otFe = cee 
CC35 CO BY GESE ige 8 ooh G5 73 FOUL. SVUaRGiy ge ! 5 os ae Bae a cies ins 
q : 3 * eS. Pw a ba 
Oc3e B8 00 383 bee TMS FEN Bl eMR A} 5 vow TEST BAWe INTe CN THIS OF VICE = £Se : bho heaeie Ketek eee ee eee 
: EY : ; i 5 : 26: ec 1€ 20 RRS CR : Of AK astite 
9C3C CO 26 GBS1 IQs er UPDATE GO TO NEXT DEVICE iF SQ ) ocra 42D 91 D1 1564 cae S opens 6 Se a Chace ia teas 
QOCS@ OC O41 14FS 185E 2@4 SELECT mvc SPFLOC2 36 SEL SET UP YO SELECT TNE DEVICE OCFF CO Si OBO% z sail : GO CMECK WHAT HAPPENED If NOT 
OCe6 CO BF GD23 13S 8 eosia GO SELECT | $003 ce 87 S232 252 viz ASSES 
€Csa 9068 oc4g 196 oc AL2( ENO SELPOL? = ; 
Bag ! AL QC MMETE? | 
eae ice Beae 1‘ Be ae ienei | & COOy 2C 835 prepa 1€ 264 SANINE VC RECMSG oe 28K 20 oRRGI ROVE EN MESS AGE 
; 199 : ' OS0£ C6 BF 3022 265 8 oosig GO app TO SCREER 
OCSO 4B Si Gi 1548 289 cc 202 6KOL 2 eACKO JEST FOR RESPONSE ace 9 | @ onto oo3c OD1i 266 pc AL. 2 ( 4 ANP 2E<-HANP 2S 2 
OcSS F2 81 oe 202 Jt eRT PRE if SQ- GO GET READY TO WRITE FATT « | OB12 1640 e013 267 pc ALZC NM! TES 
. | PADG 1D oseF=1 
DATE 26.8007 8 B2socTTs PROG ID oser—1) OB oare 26IUNTS 285GCTIS pace go 
EC NO. 825023 822632 PAGE 2 | EC NB. |2S025 826032 , 
{ 
i 


e — (8 | | | es | - 
Seseeeoseeseeeaseeseeeeseeeeeveeeseesees ese 


ecoo5neceoveeeneeneeonee 


IBM MAINTENANCE DIAGNCSTIC PROGRAM 


DA SYSTEM TEST MODULE 


BOF 
ERR LOC OBJECT COSE ADOR STMT 
ODi4 146F 0015S 268 
269 
GO16 4D O01 03 156A 270 
0D18 CO 81 0881 272 
OD1F CO 87 0£31 272 
Merete Seca Ae Em ae 
c 
Q 
2 
ue 
ee 
> 
ay 
i: 
' DATE 2EsUN7TS:  —«s-_ASOCT IS 
ZC nO. 628023 @22632 


Maton 


Wes 


G 


SOURCE STATEMENT 


oc 


ac 
&E 
8 


AL ZCMAMP ZE3 


2€2eXR1}) -ACKY 
YPDATE 
TRVI 


| 
| 
| 


4 


| 

PaRT ND. 4236261) 

PAGE 3 | 

| 

| 

| 

| 

CHECK FOR ACK 1 RETURN { 
Okay IF 50. LEAVE HIM Tit PFA HIT 

GO CHECK ¥tAT HAPPEND IF NOT | 

| 

| 

| 

| 

| 

{ 

| 

i 

{ 

{ 

| 

t 

i 

i 

{ 

i 

i 

; 

i 

i 

{ 

1 

i 

} 

! 

t 

{ 

t 

: 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

1 

| 

| 

| 

| 

| 

| 

| 

PROG ID oope=a! 

PACE 3! 

{ 

| 


eevneeenvneeoenvneeee eee 


© 


18M MAINTENANCE DIAGNCSTIC PROGRAM 


G 


B9F1 OA SYSTEM TEST MOCULE 

Cum LOC OBJECT CODE ADOR STMT 
& 274 
275 
276 
@ 277 
OD23 36 0&8 ChEF 278 
CD27 38 Oe SDEB 279 
GS CDZB 35 01 ODEF 280 
; ed2F OC 13 1262 1263 281 
0025 Oc 61 124¢ 1455 282 
C OD38 OC O7 1262 168F 263 
Opes CC O03 1272 1562 260 
ODS? OC O3 127C 18¢€2 2e5 
© OD4D OC O3 1286 15642 266 
C053 eC 03 1290 3562 287 
ODS OC O1 151F 181D 286 
G ODSF 1£ 01 181F 61 280 
C064 OF 01 151F 1836 290 
ODBA IC O1 3521 03 291 
e@ ODGF C2 OZ 1600 . 292 
293 
QOT3 1¢ 01 ODBC OS 294 
& 0078 iC GO 9089 01 295 
e CO7D 1¢ CO ODBA 01 296 
GDB2 CC 40 1640 1641 297 
GC 0085 BC OO SO COO0 298 
O08D 3C CO 1514 299 
0D91 3C FF 1813 300 
re ODSS 3C 00 1833 303 
oD99 F3 88 62 302 
363 
2 oo9c 31 Bc 181D 304 
& GoOaAo 31 BA 151F 36S 
ODAS 31 8S 1821 306 
GpaSB C1 SE OFIS 307 
e 308 
ODAC F3 8A 62 309 
& 310 
: ODAF C1 BA OOFO 312 
ovcs3 30 8C 1823 3i2 
G 0087 36 aa 1525 313 
: ODBB 30 89 1527 314 
OCBF 30 88 1829 315 
e0c3 35 G1 151F 316 
§ = gC7 3D OO 1813 31F 
ooce Fe 81 046 318 
Se ODCE 3c C7 1533 319 
ODG2 3p 00 1533 320 
ODDS Co 61 ef84 321 
a CDDA 3D 8S OALD 322 
ODE CoO G1 OADA 323 
ODE2 O£ 01 OCDEF 1538 326 
@ ODES C2 92 0000 325 
ODEC co 87 0880 326 
; 327 
327 
© ODFO OE 01 1815 1536 328 
OdE6 CO AO OECD 329 
e GOFA 30 CO 1613 330 
ODFE F2 81 26 331 
CE91 2D 89 CAcD 332 
CEOS CO 01 OADA 333 
@ oeE09 co 87 oDaF 334 
335 
OEOD 3C C2 1333 336 
@ = ce11 co 87 ores 337 
338 
GEIS 30 GO 1833 339 
@ SEIS CO 01 CFSS 340 

CO oare 263UN75 2S5ocT?S 

€C NO. 828023 823032 


SOURCE STATEMENT 


FASEAE SDE ESTAESETESKEBE BE 


* D0 $10 SUBROUTINE 


KEKE KE EVE SCKHESAKE LS CAESERSE 


80810 


BY DATA 


TSTRBOY 


eusys 


YSTERR 


REST2 
SOSIGR 


EXIT 


CQSUPR 


BSYERR 


GROPED 


st 
st 


ok 


aye 
“vc 
eyvC 
uvC 
a a 
uve 
yc 
MVC 
alc 


ALC 


Myc 
LA 


avec 
RyC 
evo 
ayc 
mvc 
Mv i 
av I 
VI 
$10 


L10 
£10 
Lr9o 
Tid 


sio0 


Fro 
SNS 
SNS 
SNS 
SNS 


cLi 
JE 
MVY 
Cit 
BNE 
cul 
BNE 
ALC 
LA 


ALC 
BOL 
Cus 
JE 

chy 
ENE 


yt 


cui 
BNE 


DGS 16R¢3 -ARR 
REST2Z2+3_ XRZ 
BOSIOR+S o RY 
LOGMS6( 29 ) eMSGBLK 
LOGDE V(2) OFVICE 
LOGMSG( 6) .NOERR 
LGGST (4) oXKXX 
LOGCARE 4) , XXX 
LOGTARL# Do XXX 
LOGSAR(4 3, XXKX 
LTARE 2) e LCAR 
LTAR,1€2,%R1) 
LTARC2) . ONE 
LSAR,3£2,XR13 
XNITROSXAQ 


MVDAT At&eS(2exXR1} 
MYDAT &€¢1 23(12,XR13 
MVDATA42 5141*eXRi) 
FILt-3(65),F ILL 
a~u (xe 2 XRZ ote 
BCNT—1,X*co* 
INTFLE XK SFF? 
ERR.O0 
ENINTR.CATRL 


LCARs CAR 

LT ARs TAR 
LSAR,SAR 
DROPED, ,.NOTROY 


ENINTRe XHE TR 


EXITse@usy 
SCAR .CAR 
STAR. TAR 
SSAR. SAR 
SSTAT. STATUS 
LTAR, XR 
INTFLGs@ 
TSTERR 
ERR»K*o7y? 
ERR.D 

ERROR 

PREF. x*s9* 
SUPER 

DOS LORF3L2 34 5EX 
Bek e XRZ 
ae 


BCNT{ 2). ONE 
ESYERR 
INTFLGed 
GOTIT 

PREF.» x*3go¢ 
SUPER 

eus¥s 


ERR, X*O2* 
ERROR 


ERR.O 
ERROR 


PART NO. 4234263 
PAGE 3A 


RRR STH SSE VVT HF SHREBVA ADRES HE KE HSK HKKEKAEAKKEKVHSH VKH HO 


STGRE RETURN ADDRESS 

STORE xKR2 ‘ 
POINT ARI AT PARAMETERS 

SLANK GUT THE MESSAGE FIELD 

INSERT THE DEVICE IN MESSAGE ie 
MOVE IN RO ERROR MESSAGE 

*x* OUT DATA 


PUT INITIAL CAR INTC TAR LOAD AREA 

ADD IN THE DISPLACEMENT 

20D i GRE 

MOVE IN THE SAR ADDRESS 

PUT ADDR GF TRANSMIT/RECEIYVE FIELO 
INTO xXR2 

MOVE IN DATA ADORESS 

BOVE IN THE LENGTH 

MOVE IN THE DISPLACEMENT 

ZERO THE WHOLE XMIT/RECEVE FIELD 

MOVE XMIT DATA TO xMITsRECe FIELD 

RESET THE BUSY COUNTER 

SET INT FLG TO *NS INTERRUPTS 

SET ERROR FLAG TO ZERO 

SIG TO ENABLE INTERRUPTS TO CATCH 
ANY ATTACHMENT CHECKS 

LOAD THE CAR 

LOAD THE TAR 

LOAD THE SAR 

CHECK MICROCONTROLLER STILL RUNNING 


SIO TO TRANSMIT/RECe, ENABLE INTRe 


TEST BUSY» MAYBE GO 10 SUPERVISOR 
SENSE THE CAR 

SENSE THE TAR 

SENSE THE SAR 

SENSE THE STATUS 

POINT XR1 TO RECEIVE FIELD 
OID THE ENTERRUPT GCCUR YET? 
JUMP IF SO 

SET NO INTERRUPT ERRGR 

TEST FOR ND ERROR 

@RANCH IF ERRCR OCCURRED 
TEST FOR RUNMNING ALONE 

G0 TO SUPERVISOR IF AGT 
UPDATE RETURN ADORESE 
RESTORE xaz 

RETURA TG USER 


ADO TS Busy COUNTER 

ERROR AFTER ABOUT 1 SEC. 

Dib AN INTERRUPT OCCUR YET? 

JuMP IF SO 

TEST FOR SOF THE ONLY MODE 
RETURN TO SUPERVISOR {IF NOT 

RETURN VO TEST STILL Susy 


SET BUSY TOD LOKG INOTCAT ION 
GO TO ERROR ROUTINE 


DID aN ERROR OCCUR e. 
IF SOo GO TO ERROR ROUT. é 7 
PROG ID 
PAGE 3a 


a 





TBM NAINTEWANCE OIAGNCSTIC PROGRAN 


Cori 


ERR LOC OBJECT CODE 


ats 
as 


ar 


. 


DATE 


SEI 3C GA 1833 
SE2: CO G7 GFSS 


SE25 3D GO 1833 


C&29 cO 81 SESE 
CE2D CO &7 OFS4 


ESJUNTS 


‘€C NO. 825023 


ae 


et 


om - 
ae 


& 


DA SYSTEM TEST ROOULE 


ADOR STMT SOURCE STATEMENT 


342 


342 
343 
344 
385 
386 


280CT TS 


yd 
8 


GSOTLY CLT 
SE 
S 


ERR eK *GA® 
ERROR 


ERR»D 


| GOSUPR 


ERROR 





ODIO AN ERAGR GCCURK YET? 
If #88T, GB GN 
GO TQ ERRGR 


PROS ID 
PAGE & 


@8eeevevevneenees ed 


| 
SET ATTACH. NOT READY ERROR | 
i 
i 
' 
J 
{ 
| 
{ 
i 
1 


@ 

© SESE 
FEBS 

GQ SESA 

Ge43 

ofes 

Sess 


Sess 


& 
© CESE 
$ES2 
2 ocesa 
S€se 
© cee: 
SE65 
SESS 
GE 60 


cers 


SETS 
SETS 
eeyvS 


| 

| 

I 

{ 

| 

| 

i 

| 

i 

| 

| 

i 

i 

| 

i TF 
| = eeni 
ie ons 
i cess 
| CES 
0£93 
| 

| 

| 

| 

| 

{ 

| 

1 

| 

i 
| 


CEST 


Ocean Lec OB8sECT CGSE 


OA SYSTEM YEST #GDULE 


15M MAINTEHANCE OIAGNDSSTIC PROGRAN 


ADOR STMT 
348 
349 
350 
351 
34 06 SETS 352 
6D G1 64 1588 383 
co $1 oBo! 354 
40 01 91 1546 3655 
F2 &1 38 356 
20 02 O01 3542 387 
Fz 83 OC 386 
359 
3¢ ca 1833 360 
co 87 SFB 361 
CO BY 6851 362 
363 
3c 16 1533 364 
f2 87 06 365 
366 
BC 20 1533 367 
CO B87 OFaS 368 
cO 87 eF98 369 
co 87 O86; 370 
372 
co 687 9000 372 
373 
37e 
375 
376 
3%? 
34 98 GEGA 378 
€0 87 0D23 379 
coor CETE 366 
1646 OEB0 36% 
154A oEBS 382 
3a3 
4D O01 O1 1582 384 
Fe 81 oC 385 
BC 04 1533 386 
CO &? OFS4 387 
CO 87 OB01 386 
389 
co 87 oes 390 
265UN75 25CLT7S 
@28023 822032 


SOURCE STATENENT 


PART WO, S23026i 
PAGE aa 


CRHPKE EEE SEES SORE SHREK EEEEEKKSEK S OSHS LET ELAS 
* TEST RVIe BACK GR EDT RESPONSE SUBROUTINE 66 HK SHE CKSKD SHEE OS SEERRE 
KLECKTS$ SK ERLSS HEKEKBHKSE $6 FF ERSTH OL ET SSESHESCHSVESE 


TRV} St TRVIR+3», ARR 
sc 302,KR1) WACK 
SE UPDATE 
ac 24 2,XR1L5 RVI 


SE ERY 

cue 1€2,-RR1)2 -EGT 

SE REOT 

my ERRS 

B ERROR 

8B UPDATE 
@e CT my z ERR»eX&yo* 

J COPS} 
RRVI MYT ENR» X*ZO 
eePsi 8 ERROR 

3 BOPOL. 

8 WPOATE 
TRviIR 8 Sak 


HSGCKKESTESLAKS’ SS RSE SHES SEALERS 
& SEND ACK i SUBROUTINE 
SESE SEAKHKS SE SSS SER ESH SSS 


E0aCcx sT GOACK RF SLARR 
8 £osig 
oc AL2ZC ACK ~ATKICL 3 
Bc AL 2CXMITED 
dt ALZSCACKE 3 
cic 2€2eXR13+E0T 
Jf GGACKAR 
MYT ERR: 
5 ERROR 
8 _ UPDATE 
GOACKR EF Sms 


STORE SETURN AOCRESS 
TEST FOR WACK REC*D 

If $0. GG TO NEXT SEVICE 
WAS RESPONSE RIT 

JUMP IP $6 

TEST FOR ECT REC*D 

JuNP IF SO 


SET UNEXPECTED RESPONSE 
6O TO NEXT DEVICE 


SET ERROR COCE 
GO TO ERROR. POLL & UPDATE 


SET THE ERRGR CORE 


6O GET THE STATUS 
GG TH NEXT SEVICE 


RETURN TO USER 


SEE SKS LHEAKSRSRSLESES CRHKEKHKLSRSKEASIGRBMES SHH 


STORE RETURN ADLCRESS 
SEND ACK 1 TO SEVICE 


TEST RESPONSE = EOF 
EXST IF SOs ALL OKAY 
SET UNEXPECTED RESPONSE 
G&G TO WEXT DEVICE 


RETURN TH USER 


PROG ID cepr-3 
PASE ae 


@©e60e26e600800800808 








eeonedeo@edeoeeone0ee0ee eee eeoe eee eee 08 @ @ 


IGM RAINTENANCE DIAGNCSTIC PROGRAM 


69F1 


ERR LOC OBJECT CODE 


tESB 
Stor 
OE as 
o€as 
S&81 
CESS 
occas 


otsE 
: oeCc2 
: oece 
GECG6 


ocecs 
cece 
O&CcE 
SEDS 
CED6 
oErSS 
SECE 
CEE! 
SEES 
Gees 
O&EE 
oEF2 
oEFs 


SEFA 
CeFrF 
OF 92 
SFOs 
ores 
oF cD 
OF14 
OF 16 
OF IA 
OF 1F 


OF27 


or2a 
GF30 
OF33 
OF 36 


oFaD 
eres 
oraz 
oFa7 
OFSA 
oFeD 
or so 
oFse 
OFrS7 
OF SA 
oFsp 
oFso 


ores 
oF6és 


oFec 
oF 79 


SATE 
ec no. 


fe 


% 


DA SYSTEM TEST MOOULE 


ADDR STMT 
392 
303 
398 
395 
34 08 OF 6&7 396 
oc 91 14FS 3158C 397 
OC 01 14F7 15646 398 
OF 01 1317 1536 399 
38 20 1516 aco 
F2 10 86 40i 
06 70 12413 1669 402 
4e3 
co 87 OD23 404 
ooos e€c3 405 
16480 CfECS 406 
1aF8 CEC7 407 
408 
70 37 69 409 
F2 81 $6 410 
40 02 62 1855 aii 
F2 61 55 412 
4D 01 OF 15806 413 
F2 01 ic 414 
86 60 SO 415 
co 90 0501 416 
BB CO OO 417 
0c 69 1533 1556 "418 
CO 87 oF fs 419 
co 87 SETS 420 
co 87 9801 422 
422 
422 
40 01 07 184E 423 
F2 01 06 “e208 
Ba 00 O90 25 
Fe 87 538 426 
4D 61 OF 3552 427 
£O 81 S&aB 428 
ép 01 O7 1558 429 
co 81 OFES 436 
4D 01 O07 154¢ 431i 
co 8: SEES 432 
3c 04 1533 433 
CO 8? CEEE 434 
435 
4D 62 O2 1405 436 
2 01 42 437 
7D 6c 93 438 
F2 01 04 439 
3c FF 1530 440 
7D GE 03 462 
F2 C2 oa 222 
3c 08 1530 443 
7D 7D 03 444 
F2 01 OA 445 
88 90 08 446 
€9 16 ODOT 447 
F2 87 09 448 
7D 66 03 449 
F2 01 03 eS0 
@B co 08 451 
co 87 OF&75 452 
453 
cS 87 oooO 450 
4855 
3¢ 09 i843 456 
co 87 OFes 457 
co 87 9n01 258 
2dJSUN7TS 28GQC TTS 
825023 824032 


SOURCE STATEMENT 


SHSRE SHOR BORD $B OES OSSBESR 


* OC POLL SYUEROUT INE 


SSSA £98 98S $84 BESSS SSH 


RP Wo 


T1 
SF 


OSes 


TSIDE 
SNI 


TStéyv 


@HAT 


TAIO 


TPF2 


TEST 


Tu2 


FCLR 


SF2 
SACK 


OGRSLea 


ovesy 


coc 
INE 
SSN 
é 

ac 
SE 
cuc 
SE 
cic 
SE 
mv z 
8 


a? 
JRE 
cLI 
INE 
MVE 
cus 
SNE 
mvt 
ct 
SNE 
TaN 
ST 
a 
cus 
INE 
SBF 
8 


8 
avy 


DOPOL R430 ARR 
SPFLO(2) oPOLL 
PSDEV (2) sCURDEY 
CvBCNT(2) ONE 
DVECNT—1 0X? 202 
Cv8sy 

PLOC16) eDECIG) 


costo 

44. 2(ENOQ-SELPOL) 
AL2{ XMITED 
aL2¢tEna) 


Of -XR13-exX*27* 
OGPGLA 
243eXR13 STAR 
TAIO 

7€2¢4R1 9,18 
ISTDE 

O4 aXR22, 9-8 
UPDATE 

Of .KR2Z3, os 
ERRI3§ 32 CURDCEV 
ERROR 

eoacKx 

UPDATE 


7122XR1) DE 
TstTev 

OC 2KR290 4-8 
Sacn 

7120 XR13.DE 
RPTPOL 

72 2X2 2 OC 
SFi 
Fi2eKR1) -IRCE 
SF i 

ERR. o 

coors 


2(03eKR1D EXP 
TTsTR 

BC eo KR13 6 X*6C* 
TPF2 
PFLG,xX*FFe 

3% -XR13, X*GE* 
TENT 

FPFLG.S 
2(oKR1 90 x* 7De 
TCLR 

#1 oe RR2} . 4-8 
MAN INI 

Sack 

Be HRI}, x*GD? 
Sack 

Ol oe XR2Z) .#—s 
Goack 


Som 


ERR» 
ERROR 


UPDATE GO TO NEXT DEVICE 


SRSARHS OOS SD $494 ESSEBSESEFT SHS SEDESERSESES SE SEEHEOSNE, 


| 
| 


2 
me 
PART NO. 4234261 
PAGE ‘6 
1 € 


O 


STGRE RETURN ADERESS 

SET UP TO POUL 

SET UP THE DEVICE 

ADD TO CEVICE BUSY COUNTER 
T2ST aPPROx 2p SEC SONE BY 
IF SOs DEVICE 15 HUNG BUSY 
20D 1 TO POLL COUNT 


GQ TO 1/0 SUBROUTINE © POLL 
LENGTH OF MESSAGE 

SToP ADOR 

MESSAGE ADOR 


a wees = cee oe cane th aero ee ste none alee Roms en howe wuhiened dae: ee cit cme meu wat ten. 


TEST FOR RESPONSE = ECT 

DEVICE OXAY IF $G. RETURN TO USER 
TEST FOR STATUS RESFONSE 

GO YEST FOR AIO [F HOT 

TEST RESPONSE € INT. REQs 

1F KOT GO TEST FOR DEVICE END 
TEST LINE FORMERLY AVAILAGLE 

IF NOT GO UPDATE TO NExT OEVICE 
RESET THE On BIT 

PUT GEYICE In ERROR CODE 


GB ACKNGWLEDGE STATUS 
GO TO MEXT DEVICE 


TEST FOR DEVICE END STATUS 

If NOT GO Test Susy 

SET THE AVAILABLE BIT GN 

GO ACKNOWLEDGE STATUS & RETURN 
*AS THE DEVICE BusY? 

IF SOs GO POLL AGAIN 

TEST FOR CONTROL CHECK 

IF SO» GO SET LINE UNAVAILABLE 
TEST FOR iRe DE 

IF SQ. GO SET LINE UNAVAILABLE 
SET UP UNEXPECTED RESPONSE 

GO TO ERROR ROUTINE 


TEST FOR AID KEY CEPRESSED 

IF NOY: CHECK TEST REQ, 

TEST FOR PA 1 KEY 

JUMP IF NOT 

SET PRINT FLAG ON 

TEST FOR PA 2 KEY 

JUMP IF NOT 

RESET PRINT FiaAG IF SO 

WAS ENTER KEY PUSHED? 
JUMP IF NOT 

TEST MAN. INTs ON THIS CEV. 
6Q TG MANUAL INT. ROUT. IF SD 
IF NOT. SEND ACK 

TEST FOR CLEAK 

JUMP IF NOT 

RESET MANUAL INT. BIT 

GO SEND ACK 


RETURN TO USER 


SET DEVICE HUNG BUSY 


eq@oooeooeeoedce@eedcegdoeoeeod8d 0d 6 6 06 


fem ere ees ae ete me RS eR Na RIL OR te Cts li OURS LI OCR SARL NE OLR Rar cen MeL tnblenmh nit kewl wtih mew MN pid sem mente | tenn eum + mene DY = mae tenet 


PROS ID 
PAGE 5 | 





Sori. 


oeer-1! @osre 
eC ND 


ERR LOC GBSECT CODE 


OA SYSTEM TEST MODULE 


TON MAINTENANCE DIAGNCSTIC PROGRAN 


ADDR STNT 


OF Fa 42D G2 G2 1855 


OFT CO 01 OF23 
OF7D BA 00 08 
ofB0 CO BY OCFO 


26J5UN7S 
825623 


2Sactv7s 
825032 


459 
460 
461 
462 


SOURCE STATEMENT 


TTstR cic 
BNE 

SN2 San 
8 


203 eKR1 2 ce TSTRED 
WHAT 

S{ eARZ2} 20-2 
HANIN 


PART ND. 4236261 
PAGE SA 


TEST FOR TEST REQUEST PUSHED 
BRANCH IF NOT 

SET MANUAL INTs FLAG CN THIS DEVICE 
SO To MaNVal. INTERVENTION ROUTINE 


PROG 1D eewr-1 





Fa 


, . AGMESTIC PROGRAM eased : 
18M MAINTENANCE DIAGNCSTIC PROGRAM PART NO. 4230263 EQN MAINTENANCE Df TEC PAGE mt are 
mee PAGE 6 |  #) Sea 

! 
89F1 DA SYSTEM TEST MODULE p= SEER SRB SU STEN EST eee 

tf 
ERR LOC GESECT CODE ADDR STMT SOURCE STATEMENT © cer Loc oasect cove ADOR STHT SOURCE STATEMENT 
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OF Ss F2 02 09 a72 sNe 9 - TERR2. | 2094 1266 S098 540 
Or9B8 OC 11 1262 180; a73  vC— LOGHSG(16) ,UNTT AR INSERT UNIT CHECK MESSAGE | @ ee 
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1284 4940604000406680 «768 | & 
12ZBC 40404604000000000 708 i 
1264 4046404040408040 Tos 
12CC 6040404040000600 ros & 
12p4% 40404040 708 { 
12p8 s06F 1209 709 oc ML2* BO4F® ' e@ 
1ZDA 6040606029404040 1326 TIO LOGKR2 OC vect.i° ¢ 
12E2 4204604040402043040 720 : i 
1ZEA 40 262060490406040 7190 { 
-. 12F2 4040404000404640 T10 @ 
12FA 4020404080404600 710 
1302 604040600040040080 710 | 
130A 4020494040000040 710 @ 
1312 40460404040400040 710 ‘ 
131A 6040604040000060 720 
1322 40064060006040 710 | @ ; 
3329 8045 1324 731 Eatiy oC M1.2° 80465 * | 
1328 CSE7TDTCSCSESCSCA 1333 TI2 pc CLO* EXPECTED~* ‘ 
1333 60 T12 @ 
1334 4090604604000¢000 136F 13 LOGEXI OC eocrit © | 
133C €0604040460204040 Ti3 | 
1344 4046060460404600060 va3 @ 
OaTE 26JUNTS 25acTTs PROG 10 O89F=3 Soare 2ESUNTS 2socT?s PROG 10 oeeF-1 Cl, 
_ €C NO. 825023 825032 PAGE 8 EC NOo 82823 825032 PAGE “ 
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16M MAINTENANCE DIAGNDSTIC PROGRAN : PART NOo a23eres TBM MAINTENANCE OL AGNOSTIC PROGRAM PaRT NOW 4234261 és 
PAGE 9 e PAGE SA 
SoFi OA SYSTEM TEST NODULE | Sori DA SYSTEM TEST MODULE 
EAR LOC OBJECT COBE ADOR STNT SOURCE STATE!:ENT | can Lec OBSECT CODE ADDR STMT SOURCE STATEMENT 
FIG FSV SH OOESESS OF8S8SEEES SE FEESEES | So 766 
739 * DATA FIELDS AND CONSTANTS 8288866849528 CF FHSORSOSHSEEFSSS CESESES SE 14FO 86765 SELPOL EQu s SELECT SPOUL MESSAGE . 
[20 $996 64608068 408052 8SE 909448 ESES i 14fO 37FF 32329000 34F5 766 SPFLD OC XL6* 37FF 322320C00° POLL GR SLECT GETS FILLED IN 
23C3 721 DATAST EGU * RIPPLE DATA TABLE i G 16FS 9005 14F7 767 PSDOEV dC ML. 2°OO05 * SOEVICE GETS FILLED IN 
13¢3 ciczc3cacSCect7cs 13€6 722 oc Ct. 36 4‘ ABC DEF GMI JKL MNOPGR ST UVa XYZ0123656769* ; i1@fF8 20 14FS8 7686 ENC cc x3°*20* ENG - ENDS POLL OR SELECT 
13C8 CoD1ID2D30eDSD607 722 769 
13D3 DBO9EZESESESESET 722 , ' Se 14af9 6770: RDNMOCO OEQU * READ aOOIFIED ComMaNnt 
1308 FB L9FOFI F2F3F 4FS T22 | 14F 9 O227F 603 14FC 6771 ROMODE OC XL4°O 227°603* STXeESC.RD MOO cETX 
13E3 FOFTE OFS 722 i 772 
13E7 4050 60614ASATAQB 1401 723 DATAE OC CL27* B-/ 32S_0<eRa)_* 243>= [are : & 18FD 130F 24FE 40773 ADATA DBC aL 2(OATAST*#26) START CF RIPPLE CatTa 
IZEF SHES 7HACSCHECTCAD %23 i = 1@FF 2401 1500 774 DATEA OC AL2 (DATAE) RESTART RIPPLE DATA ADOR 
13f®7 SO6DTCOESESGET E4F 723 7 \ 3801 9000 1802 775 CURRA DC XL2*O* CURRENT RIPPLE DATA ADDR 
13FF SE TF T23 : e 1803 0000 1504 776 CURDEY oc XL2*o9* CURRENT DEVICE 
21402 724 EXPOAT EGU * EXPECTED READ DATA : 1s08 o60c 1806 T7777 LINE oc xXL2*O* CURRENT LINE POINTER (LOW BYTE) 
1402 O227TF6030240006 14608 725 ExXPi oc M7 * O2Z27TFE6O3024060* DEVICE GETS FILLED IN : 778 
1409 600000 1408 726 ExP2 oc XL3° 600000* AID, ADOR GET FILLED i @ 779 * KEEP TRE FOLLOWING 2 BYTE FLAG BYTES TOGETHER AND 18 GRDER 
140C 110900 140E 727 EXP3 oc xL3°130600* SBA, &ACOR GETS FILLEO IN 780 * BITS 2-7 OF HI SYTE USED FOR DEVICES C2-C7 
140F C4E6CSESCIC3SCSS9E7 1417 728 ExPs oc CLO*OEVICE xx°* OEVICE GETS FILLED In ) 781 * SITS 2-7 OF LO BYTE USED FOR DEVICES D2-D7 
1417 EF 728 , | Co 782 
1418 1136000 1614 729 EXPS oc xL3° 1230000" SBA. ACOR GETS FILLED IN 1 1507 GCOG6O0S0D 180A 783 GNFLG OC XLa*9Os DEVICE AVAILABLE FLAGS eee | 
1418 41437 730 Ex*6 Ds 29cL1 RIPPLE DATA GETS FILLED IN 1808 00000606 1S0CE 784 PRTFLG DBC 4°98 DEV = PRINTER FLAGS --— 2 
1438 o3 1438 731 o¢ xL1°9O3° ETX @ 1scF coOococGD 1512 78S Manfte¢ BDC XLSO*O* MANUAL INTERVENTION FLAGS=-— «3 
1439 OOCOOoKOCOOOOOOS 1442 732 ExP7T ce m10°O° FILLER 786 
1441 0980 732 1513 90 1513 787 INTFLG DC XL 70° INTERRUPT FLAG 
733 CS 1514 9000 1515 788 BCNT oc XL2*o* Busy COUNTER 
1443 734 @RT £oy * 1516 ooo0 1817 7a9 OvBCcNT DC MiL2°O°? BEVICE BUSY CCUATER 
16463 d22e7F5 1445 735 wetFic oc XL3°C Z27F5* STXeESCSCERSWR (GETS CHANGED TO wR} 1516 116¢ 1539 799 AINT2 OC AL 2( INT2) ADORESS OF INTERRUPT ROUTINE 
1486 TF 1446 736 WCC oc “1° 7Fe weC - OO EVERYTHING Q 1S$1A GOGO 151B 791 PsRe oc XL2° 0% PSR STORAGE AREA 
14647 110000 2449 737 WRTADR OC XL3*110000* SpAe ADDR GETS FILLED IA 18i¢c 1600 1810 792 LcaR oc AL 2¢ XMITRCED TRANSMIT/RECEIVE FIELD ADDRESS 
1440 1D£913 144¢ 0738 oc 4.3* 1DE913* SFe PROT, HI INTes MODe, IC 151& eooco 152F 793 LTAR oc xXL2°O® Lio TAR FIELD 
. 2440 CaCSESCOC3ECS4GE7 14655 739 DEVICE OC Ci S*DEVICE xXx* DEVICE GETS FILLEO IN oe 18520 coco 1S21 794 LSaR oc Mm 2° 0? L310 SAa® FIELO 
ae 1458 £7 739 1522 o090 1523 795 SCAR oc XL2*0° SxS Car FIELD . SN ee 
34856 1i9Ci 1457 6740 oc xi2°*10C€2°* SF. UNPROTes MOC 18524 06000 252S 7396 STAR oc XL2*0* : SSeS TAR FIELD 
1458 4040404940604640 1474 741 RIPOAT OC 29cLi* ¢ RIPPLE DATA GETS FILLED IN e 1526 coco 21527 797 SSAR oc xL2°9* SNS SAR FIELD 
1460 40404060460404940 T4i 1528 0000 1529 798 S$STaT oC xL2*O°? SNS STATUS FIELD 
1468 6£04646845464604640 vai 1S2a 1566 31528 799 AATAB OC 4.2 (ATAB) START OF ADDR TASLE 
1470 £0464606040 741 5 Le 1S$2C 15a€£ 21520 800 AETAB OC AL 2(E TA8) END GF ADDRESS TABLE 
1475 1140490 1a77 69742 oc xL.3* 118040 * SBA TO RESET SUFFER ADDR TO ZERO _ 31S2€ GOOD 3252F 861 ATABPT DC xL2*o9° CURRENT ADDRESS TASLE POINTER 
1478 63 1478 743 EWRT oc ¥L1°OS* etx 21530 oO 1530 802 PFLG ec m.2°O? PRINT FLAG = FF IF PRINTING 
Tae @ 1531 900 1831 863 WRITCMD OC m™.1°*9* CURRENT WRITE CR-ERASE/SBRITE CHD~ 
1479 745 *OeNPIS EQU * BRITE MANUAL INT. PATTERN : 1532 00 1532 804 PASS1 OC XLI%H* = FF IF NOT FIRST PASS 
1479 O0227F SC2 147¢ 0 0746 oc XL4°O0 227FSCz* STXeESCcERsSERITE UNLOCK KEYBOARD 1833 09 1533 805 ERR boc RLI*#O* INTERIa ERROR HHT BYTE 
1470 1DE6 247E 6787 oc xL2* 10E8* SF PROTECTEDe HI INTENSITY oS 1534 069003 1836 866 ONE oe xL3*O09061* MEX 1 AND ZERO 
147F D2CSESSOC9DS40ES 1445 728 oc CLEO*KEY IN UP TO 20 CHARes DEPRESS **ENTER** * 1535 807 ZERO €eu CNE~} ZERO FIELD 2 BYTE LONG 
1487 D740E30640F 2F 340 748 1S$37 GO06 i538 605 Six be Ki, Z*>GGGS*? HEX 6 
146F C3C8C1094¢868400C4 748 eS 1339 C272 153A 809 OEVC2 oC MXL2°*Cca2c2°* OEVICE C2 CONSTANT 
14897 CSD7D9CS5E2E24670 748 1838 O2bd2 153¢ } 6810 DEVD2 oC XL2°*D202* DEV;CE O2 CONSTANT 
149F CSDSESCSO9TOAG 748 1S3p 0101 iSSE 811 DEVINC OC 2.2°03903° CONSTANT TO INCKENENT OEVICES 
14a6 11¢€150 14A8 749 oc 22.3°113C189° SBA e 3S3F a650 1540 612 IR oc %L2°40S50 2° INT. REQ. STATUS 
14A9 1049013 1¢as 7856 oc XL3° 1p8013° SF UNPROT, SET CURSOR 18941 3TeF 3$42 613 EOT oc RL ]*37FF 2 EOT RESPONSE 
84ac 3CC1ES40 1@AF 751 oc MLe *3CCIES@O* REPEAT TO ADDR 20 BLANKS 1503 10668 1546 81% WACK bc XL2* 1068 * BACK RESPONSE 
2480 10960 1481 752 oc XL2° 106€0* SF PROTECT REST GF SCREEN So 18aS i07C 2546 815 Rvi oc XL2°107TC* RyI RESPONSE 
1482 03 1482 753 MANPLE OC xL1i*O3* Ex vS . 2547 1070 1568 816 AC«G6 oc ML2*1 0704 ACK OC RESPONSE 
754 : 1549 1061 184A 817 ACK, oc XL 2°2052* ACK 3 RESPONSE 
r 1483 755 MANP2S EQU 2 COPY DATA YO SCREEN ; Q 1808 C250 1SeC 0 816 IRDE oc XL2*C250* INT. RO.e OEVICE EKO STATUS 
1483 C227F1C2 1486 756 oc M4*° O227F1Cz* STXceESCs#RITESUNLOCK KEVBGARO \ 1640 C200 2S80E 819 BE oc ML 2*CZaQ* OEVICE ED STATLS 
1487 11C261 1489 757 oc XL3*3:C26€1°¢ SBA TO WRITE NEw DATA 3156F e0c2 ias=oO) 06820 CC coc XL2°40C2°¢ CONTROL CMECK STATUS 
16BA ESD6ES4002C5Eaecs 3194¢C3 756 oc CLIO* YOU KEYED: * MESSAGE. ' 1851 ¢84ad 1S$82 2821 DOB oc xXL2*CaBag* DEVICE SUSY STATS 
14C2 CO7A 758 | @ 1583 016CD9 , 1885 622 STATR DC XL3°616CD9* SYART GF STATUS CESEACE 
14¢C4@ 11¢3F1 34C6§ 6759 oc xi.3°2 ICSF 1° SBA 1 1886 016CS61 18686 823 TSTREG 0 XL3*C16f6i3* START GF TEST AFa w*SSAGE 
14C7 4040599049499900600 140A 760 RECMSG OC 20cr3* * RECEIEVED DATA e 1389 8045 ISSA 0826 HEOAS OC xXL2°ECcas* ERROR LOG CONST ONT 
34CF £049400040006 540 769 1$S$B8 4060 18SC 825 POLL oc w™iL2'a000' POLL CONSTANT AND DEVICE 30 
14p7 £9464040 760 : \ 2155D 6066 18St 6826 SEL Bc XL2*6060* SELECT CONSTANT 
14DB 11CSC1 1490 T61 oc M.3*1/CS5C1°* SBA i @ 1SSF E7E7TETET 1862 827 KXXX oc Lag * xxxx* ERROR BLANKING CONST LAY 
14DE OS5D06E64007D9CSE2 14EE 762 oc CLIT* NOW PRESS **CLEARC es “ 1663 7200 2564 828 xX7200 oC xL2*7200° 28ST WORD OF CONTROL STORE 
1466 E249 70C303€5C109 762 ‘ 1865 $000 1566 829 SVxR2 OC xt2*oO* XR2 STGRAGE SPACE 
146EE 7D 762 @ 830 
14EF O3 24EF 763 MANPZE DC 1.1°93° €TX 831i « “ €ADORESS TaABLE 
. { 
DATE 2 eUNTS 28actT?7s PROG 10 G89F-3 @ vare 26IUN7S 289oCT7S PROG ID O89F-1 = 
€C NO. 68298023 825032 PAGE s. EC unGe 825623 825632 PAGE SA 
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18M MAINTENANCE DIAGNOSTIC PROGRAN PART HO. 4238261 . 


80F1 OA SYSTER TEST NODULE 


IGN MAINTENANCE DIAGNOSTIC PROGRAM FaRY nO. 4238261 
7 PAGE . a9 


8OFi DA SYSTEM TEST MODULE 


t 
' 
i‘ 
| 
| 
| 
| 
EAR LOC OBJECT CODE ADOR STMT SDURCE STATEMENT | © em LOC OBSECT CODE ADDR STMT SOWCE STATEMENT 
832 [| gu 8683 ~OGESCOADESDECLEZ 169F 885 AVINSG OC CLi3*RyI TO SELECT® 
1567 8040 1568 633 ATAB OC m2*a0age l 1698 CSD3CSC3IE3 ees 
1869 40C1 1560 634 oc ML2*GOCE® 16RD CSDOSBESSOEZNG4CTES 21649 886 EOTHSG OC CLIG*EQT TO Cub* 
1568 4048 356C 6835 oc xL2*4068° icae DeCce 666 
156D scEs 1S6E 636 oc %2°*e0FB¢ c TSAR eee 1687 se BveNse oC CLIA*DEV. MUNG BUSY 
1S6F 4089 8570 637 oc RL2°*aORo® 1682 C7TeeczEcezes 
137s 0ors sere ana ne seases* | im, 86S DSDSSOCSDSDVDEDS 168F ese NOERR OC cistNC ERRORS 
as?s c1is9 2574 839 oc m2°*c1s9° i & 16Co ESCSCSETOTCSCIES 1603 889 VNXAINT OC CL.20*° UNE KPECTED INTERRUPT? 
1875S Cipt 1S?76 860 oc XL2°CIO2¢ .6ce Receeoe oe = 
1877 C188 1S78 a oc L.2°C 1584 | & 3609 OSFeD : 
21879 ciFrs ISTA ace oc ML2*c iFee i © 1604 OACSECSOPOG40C3Z06 1668 890 MICNLN OC CL2EILtMICRO CODE NOT LcCAdEeo* 
1876 CiFO 1S7C 643 oc xL2*CiF9* : 160¢ <n e = 
e 268 06ciCecscs 
ae seis fase Sc suas cane’ |S sees ra 16e9 891 DEC! oc pLaeae DEC IMAL ONE | 
1581 C261 1862 e806 oc XL2*c26%¢ ; 1¢Ea £0 16EA 892 KATO1 OC XL1* EQ? REPLACEMENT KATAKANA RIPPLE CHAR. 
18683 ¢c268 1880 84a? boc xL2*C 268 * 1 eS 16€B BAA : 1GEC 8983 KATD2 OC 2° BASS * 
1se5 C3ce 1586 848 oe XL2°¢3c8° i OAL4 894 END = START 
1887 C3c9 1586 849 pc uL2*C3C9* i 
1589 C303 1584 e506 oc m.2°CI03* ' © 
1S8B C3F9 15@: 883 pc XL2* C3Fo* i 
158D C3F1 isse @S2 oc XL2°CBF3¢ i 
1S58F C378 1800 852 oc xtL2°*C37B* '@ 
1591 Caos 1se2 854 oc xXL2* capes i 
1593 C4D9 189@ 6685. oc XL2*CaD¢* \ 
1595 C4ae3 1596 a56 “BC KLE“ CAES* i e 
1897 C560 159¢ es? oc XL2*CS40° 1 
1599 CSC1 1594 858 oc RL2*cSc3* { 
1s9B c54B 159C «ase oc KL2*cseee | a 
1890 CS5EB 1S9E 660 oc ML2°CsEse i 
1S9F CSES 15A0 B64 oc XL2*csese 
1641 CSF3 1542 862 oc XL2* CSE3° . is 
— 1543 cé6s0 1SAa 863 oc uL2*C6so° i SR am 
1545 C6D1 | 15A6 864 cc 80 XL2 "602° i 
1Sa7 CéSB 1588 6865 oc xL2*°CesB* '@ 
1SA9 CéFS 1SAA 866 pc xiL2°*cerss 4 
1$a6 C6FO 2SAC 367 oc xL2* Cero? i _ 
1SAD C73 «+ 184E 868 ETAB OC ML2°*C7ES* 1 Ge * 
1SaF CLESESCIC3SCE4846 1SOF 869 ATTNOR OC CLIT* ATTACH. NOT READY* 
1887 DSO6E340D9C5C1C8 869 : ; 
1SeF £8 . 869 | S 
15C0 DSD6ESCOD9CGEGS1 1501 S70 UNETNR DC CLiB*NOT ROV/UNIT CHECK* i 
1SCe ESOSCSER4OC3C ECS eTe t - 
1890 ¢302 ero ! @ 
1SD2 C9DSE346BA0D9C SNe 15€5 872 NOTAVL OC CLZ0° INTs REQe/NOT AVAELs* | 
ISDA 4861DSD6E 340C1E5 ar. | 
1SE2 ¢1C9D308 e71 ie 
1SE6 DSDG40C9DSESCEDS 15F21 S72 weCENTR OC CL12Z2*AO INTERRUPTS 
1SEE D9ESDTES 8r2 | s 
15F2 CSE3C240C9D5E3R0 ISFE S73 ITeNSE DC CLi3Z*ITB INT ERRORS a e 
' {SFA CSD9DSDEDS ‘e73 l 
2600 87s ORG = «- 90 25600 ORG TO 256 BOUNDARY | S 
= 1600 676 RNITRC EQu + TRANSMST € RECEIVE FIELD {™ 
1600 Z 1640 S77 MUITE OS 6SCL1 . | 
1641 006 1641 #8fea Filme oC MLI*O* FILL CHARACTER So 
879 | 
1642 CIEZSESCIC3SCEDACS 1651 e686 ATWESG DC CLIG* ATTACHMENT CHECK® 
364A DSE340C3COCSEC aD2 ee@0 eo 
1652 CODSE340070SC 440 1€5F 862 INIPND OC CLIG* INT PRD KOT Ont | 
465A DSOGE340D605 661 | 
2660 C1E3E2C2C3C84E69 I6TO GS2 “BUSY NC CLI7* ATTACH. HUNG BUSY? | @ 
1668 CGE4CSC?P4OC2E 4E2 aa2 
16% ES sa2 | 7 
2672 COCIESC240DeCSEZ 167F 683 MISBAY DC CLIS* DATA MISCOMPARE* @ 
1679 C3DSO4E7C109C5 683 
1680 E4DSCSETOTCSC2E3 2692 Sa UNEP OC GLIQ*UNEXPECTED RESPONSE* 
1608 CSC44009C5E2D 796 a4 | @ . 
1690 DSE2cCS a4 
. } 
PATE 26JUNTES 250CTZ5 . , PROG 1D oser-1 Ooare 26SUNTS 2ScctTs| ok PROG ID ossF—2 - 
EC NO. 6825023 822032 PAGE 20 gC NO. 625523 825032 . a d PAGE s04 
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IBM MAINTENANCE DIAGNCSTIC PROGRAM 


OOF i 


SYMBOL T LEN VALUE ODEFN 
AATAB &£ 002 1528 0799 
ABSCA1 © 001 SOFD 60:18 
ABSCAZ C 001 GOFF O£19 
ACKIT <A G61 OCcesyY 0243 
ACKE & 002 12£248 6£16 
AacKi A 0O2 i854A 0617 
ADATA A 002 146FE 0773 
ADDOK a 066 OBES 0170 
aE€TaAB A OCOD 121820 0860 
AInT2 a O02. 1519 9799 
ALONE A OC3 OF4E3 91066 
&RR €c e0i1 o¢cc8 d022 
aTasb & 602 1868 902833 
ATABPT A 002 152F 080: 
ATTcHK Cc 001 0050 09616 
ATTMSG A O16 i3€81 9é69 
aTTNOR aA O17 1S8F o0&69 
SCNT Aosc2 1815 06788 
BSCaAl1 a 003 SASF O013 
BSSYERR A004 OECD 0236 
ausY ¢ 001 806A G32 
BUSYB A QOG ODAF 9311 
@1sca Aa oOoGe 1182 9648 
CAR c 901 ooec O.28 
cc 4&4 062 18850 O€&20 
CNTR. C OG1 0088. 0636 
cons &4°8G2 OGac3 O97 
CURDEV A OO2 1804 0776 
CUBRA a 002 1602 0775 
CATAE a O27 1401 O723 
DATAST A 601 13¢3 6723 
DATEA A O02 1580 O778 
0B & 002 i15€2 O@21 
dE A O02 154E 08:19 
OECI A 801 16E9 C&91 
CEV A 06S 167A 6529 
DEV 2 A O0G2 i834 9 €09 
DEVD2 a 002 13183€ 0810 
DEVICE A 009 1455 0739 
DEvINGC 4 002 1536 0813 
DEvVOK A OS4 CB6F 0143 
DOPOL A 004 O&SB . 0396 
DOPOLR a 004 OFG64 0458 
DOSIO A 004% gd023 C278 
DoOSTOR A O08 ODEC 6326 
DROP A 6004 21138 O€23 
PROPED a 004 £15 0339 
OVBCNT A 002 18517 o78s9 
OVONSG A 914 1687 o0€87 
DvSesSyY A004 OF6& 6456 
EaRLvY A 002 132A 6731 
ENABLE C 001 66C0 0035 
EMINTR C O01 coo2e Og34 
Eno Aa 6901 14F6 0768 
eoT a 002 11542 0813 
ECOTMSG A016 &£6a9 E86 
ERR 4 003 1533 0&05 
ERRATC A008 lice do€éFd 
ERRHMLT A 002 1137 0622 
ERROR A 008 GFES 0468 
ERFORR A COO 1158 0632 
ETAB A GOR 15KE 0668 
DATE E6JUNTS 2S0CT 7S 
€C NO. 825623 SBZ2E9832 


DA SYSTEM TEST MODULE 


REFERENCES 
0168 0159 
0649 

0105* 

0237 

0200 

0221 0260 
0197 0157 
0130 9247 
0167 

0165 0199 
0065 0104 
0278 9352 
o799 

0108" 015€ 
00 0602 
04890 

033 

0050 0051 
0646 9670 
9329 

0331 

$334 

0665 0673 
0304% 0312 
0429 

0106 0302 
9075 

0160* 0314* 
0398 0418 
0107s 0151 
00684 OOESE 
e773 

0155 

0427 

0423 

0205 o2z2€ 
0526 

0284 018¢ 
0114 

0132 

5190 69369 
0396" 0410 
0:95 oz16 
02768 0260 
0626 

0307 

0053" 0054+ 
0507 

0401 

0469+ 002% 
0106 

0302 0306 
0196 0198 
6238 0357 
0527 

0249* o2e8 
0386" 0418s 
0699 0505 
0653" osece 
0642 
070% oS290 
0241 0255 
046ee 

9800 


CROSS~REFERENCE 

03489 

S276 0360 0380 06382 

0168 

0278 0356 o6468 

0259 03 €6% 0167 01698 

8O8Ss 029694 02z80 

0662 

Cliie* gliigt 0120 C121 O123% O1268 0131 01338 0183 6:87 

0156* 0185 01572 

o774 

0244 G002 

0186 62682 

0227 O2ES OC2ZE5 O375 O4084 

03242 

OCOS7* 0289 0189% O399e 9400 

9620 

0405 0087 

0384 

0302% 0319% 0329 6 490336% G339 03412 O0344 0360* 03640 0367s 

0433*% O456€ 064670 0471 O475 O87S G483 0487 OaS1 90295 

0509 0513 O517 o82% O825 GS7S OE2S OF27 GEZS 06668 

0668 OC672 675s 

O321 O337 6340 G30 O386 0361 6365 O387 G419 6857 
PROG ID 
PAGE 


cesr-3! 


SOSUPR 
i gx, GOTAT 
| MALT 
#BUSY 
HEAD 
i So 8005 
LAR2 
TExET 
i SS ENFFLS 
' INTPND 
_ INT2 
102 
IR 
| », ERDE 
, SI TBER 
i ITBMSG 
| om, RATOL 
i KATDE 
ECAR 
Lite 
| Se cines 
1 Los 
7 LOGDEV 
LOGEX1 
LOGEK2 
LOGMEG 


ene cee 


t 
1 
{ 
| gr iossar 
( LOGST 
LOGTAR 
i LOSXRI 
| SF cocxaz 
1 kK Sake 
' ga L TAR 
| Gaaece 
MANIN 
| WANING 
if MANPLE 
| ANPIS 
| gt, MANPZE 
; Se MANPZS 
‘ micip 
| mice 
MICHLE 
‘ MICRON 
| MISDAT 
| NSGBLK 


| 
e PATE 


! @c NG. 


ie 
\@ 


IGM NAINTENANCE DIAGNCSTIC PROGRAM 


4234263 
12a 
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16M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. eel IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NG. 4234265 
PAGE 1 | PAGE aa 
: € 
FCBO MOVE FC? MICRO-CODE FROM DIAG PACK TO SYS PACK HOD 18 | @rce° MOVE FC? MICRO-CODE FROM DIAG PACK TO SVS PACK MOD tS 
ERR LOC GBSECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBVECT CODE -ADOR STMT SOURCE STATEMENT 
Se 2 sta 0 | © OA8& 38 04 0206 67 TSN SBYTES.SSW2D CHK SSW 2D *aNne . e6ce 
oaco 3 SEX START K*agot | Cass CO 16 OBAC 68 ST INSSs JUMP IF SSW 20 IS ON *6cs 
a TREP | e OAsc OC 03 ORSC OBAD 69 MVC =—s-« ENMSG304),0FF PRINT THAT 6OTH SSW 20 & 2€ ARE OFF seco 
5 DECK 4 Cage F2 87 18 7c J INsa PRINT *6Ce 
6 Caos 00 0AasS)§ 8671: ~OSKTYP 30 oc XL1°908 FIELD FOR DISK TYPE OFF INITION: 26ce 
es 7 £64482 SECTION PREFACE S826ekE8€S ADDR £$O608 06608 £$06404084488K55 2EE4ES | @ CASS 38 20 OADE 72 INS! TSN Ct11-1exX* 268 UDT ENTRY FOR CLP? s6ce 
. 8 | Oag9A CO 10 OBAC 73 BT INSsSs BRANCH Ci ENTRY BUT NO AO ENTRY IN UDTSGC® . 
CACO FCeO OAG1 Ss pc XL2*FCSsOF &00 15 ; OASE CO 87 CBFO 74 8 OSKM3341 BRANCH NO DESK SVAILABLE IN UCT TABLE e6Cce. 
ahs On02 00 OA02 10 oc XL2°08 AO2 FLAGS | © GAA2 38 04 6200 7S INS4 TBN S8VTESeSS¥2D CHK SSW 2D *ONe e6ce. 
Ne. 0a03 00 QA03 24 oc xes2°08 AGS RTN € | GAAG CO 90 OBAS 76 SF Ins6é JUMP IF SSuw 20 &£S ON sece 
OA04& C000 oaos 12 oc ML2°08 04 NSA | OAAA OC O03 OSBSC CBae TT avC TNMSG3(4)-ON PRINT THAT BOTH SSW 20 & ZE ARE ON *6¢ce. 
ra Oa0S OA29 Oa0? 13 oc AL2CRTNI?D A006 ATN 2 | © GABO CO B87 O21A 7@ rsa & PRINT PRINT THAT SOTH SSW 2D & 2° BRE KXX sGCce . 
ey Oacs FFFFE CA09 14 oc IL2te-48e aos . : OAB4 Ce oasa 79 oc ¥L2*02° FLAG S8YTE s6Cce 
OROA ACCDOO OA0Cc £5 ao oc XLS * acco0Ns * $444 SPINDLE 1 CE NODULE *6Cx | OaBS 28 OABS - 80 oc AL1( INMSG3-INMSG2) LENGTH OF RESSAGE e6ce . 
AOD €10000 OA0F 16 Clk oc XL3B*C1 00008 ® 3340 OREIVE § CE NODULE *6Ce S CABS oe : OAB?T 8! oc per aed Soe ce ens ete pee ] 
OALO 141000 CAi2 17 1014 3 390o¢ XL3°1416000° A210 32xx OABS CO 87 OASD 82 8 NS RIN EME ° : 
18 ! CABB 83 INMSGS EQU #-1 START ADDRESS OF PRINT COMMENT AREA *6Ccs 
7 OAL2 4080404080404040 OAIC 419 INPUT oC CLO10°® & | } OCABC SOE2ZESESESCS0RRO CAEA B84 oc CL&?7* SYSTEM HAS SOTH THE S846 AND 33840 OISK fFFINED? 
- OALB 4046 19 | OAC& CB8C1E240C206ESCE ee 
CAI 40 Cad = 20 oc auae ° : OACC *OE3CECSA0OF SFare aa : 
fr. OOCA 21 LNG eau 010 | @ OADS FAECCIDSC4E4OFSF3 94 ; 
“OAL arc OAIF 8622 END = «OCs AL RC ERPUT | CADC FeFOSOCACoE2D2e0 4 
©a20 23 PTNI ecu ss | CRES C4CECECODSCSCE 8a 
@ 2a \ 8 OAEB SOCODSSCE2ZN7TESES CaFQO 85 INMSG oc CLiS* IN SPUT TABLE. * 

24 i OAFS 4063C1C203¢C548 85 ; 

25 SHSSSLERSEL ES HERSEK SEESIS AS SHRE SIH EKES OEGCRRSERKEEEESRSS ONE GEOESESEEREHSEES | OAFA 40D7D3CSCILE2C54C C827 86 oC CLS6* PLEASE IDENTIFY IMPUT DEVICE FOR SYSTEM DISK ° : 
rN 26 ee ROUTINE $ PREFACE ae @ once cSscacsDsEsceceEErsS 86 : 
od 27 FES SES ASSES CESSES HKESSHEAAS SSESRERSE SS FEKES SSAKSE REE SSKE KES SHAPES KE RESHEK | CBCA 40CSDSDTE4E=A0CS 86 ‘ 

2a OB12 CSESCSC3CS40cEns e6 * i 

28 | OB1A DOSCEZESEZESCEDS 8s > 
e Oa20 03 oaze 29 oc eLaea0 RYN 9 ] S 0822 40CaccEe2D240 86 

OA22 00 OA2% 20 oc ALI tos FLAGS | B28 07c1C30248 OB2C 87 INMSGI oc CLOGS *PaCK.t : 
G OA22 FFFE e223 063 oc AL2( 88-1) NEXT RTN | @ 0820 40E3E4LD9DS4CD6D5 SBSB 58 oc CLA7* TURN ON ONLY ONE SENSE SWITCH *¢ SSW SE FOR Sa? 
CA2& 30 00 184F 33 cus LCADFL 0 TEST FOR MICRO-CODE ALLREADY LOACED | 083D CS40E2cSOSE2C840 88 i 
C Oa26 F2 01 1F 34 JNE AGAIN SKIP LOADING IF sO ! a) CBAS E2ZEECIESCSCeSOSC 88 5 
io OA28 0C 12 168E CA12 35 MVC} =—«s-: OBUF #19019), 1016 SAVE THE SECTION PREFACE { CB4D SC40E2ZE2E64CF2C5 se : 
A312 34 98 S295 36 Sr SBYTES »SSwZ2C SET sSw 2 ON | OBSS 40C606D940FSF4 8B : 
r Ca3S CO 87 O22A 37 8 toao | GO LCAD AND RUM SECTION 893 TO S OBSC FaFSSOSCSC40EZE2 0871 . B89 INMSG2 OC CL22*4e ¢# SSW 2D FOR 33660¢° ; 
CA39 CB OA390— 38 oc XL1°OK8t GEY NICRO-CODE LOADED 0864 E640F2C440CED609 89 is 
CA3A DB93 oase 39 oc XL2°*Da9R° OB6C 40F3F3F4F04B 89 : 
rae OASC OC 12 OAI2 165E 80 RTNLOR mvC 1014(19) .08UF419 GO RESTORE THE SECTION PREFACE eS CBT2 40CEDSESDSCASCES OBST 90 INMSG3 oc CL43* FOUND THAT SSW 2D AND SSW 2E ARE BOTH OFT.° ‘ 
\ CA€2 3C FF 180F 41 MVI LOADFL oX* FFE SET NICRO-CODE LOADED FLA OB7A CBC] E340E2E2E600 90 ‘ 
Oase 38 08 0200 a2 SBF Se®YTES.SSwec RESET SSW 2c | CBB2 F2C440C10SC4ACE2 20 ‘ 
a3 OB8A E2E6S40F2C540C109 90 f 
3 44 t0¢400¢t28 PRINT OCPTIGNS SECTION 88 OSS O8SES8ES44 492 VEREESes: | © 0692 CES0C 2DG6E3SCB4006 $0 
OASA 3C 00 0A95 45 AGAIN MVE OSKTYP .0 *6Ce | OB9A CECEA8 90 
r. Q@AGE 38 2¢ OAaceS a6 oe AO—2.X"208 CHK FOR CE MODULE ON 5464 DRIVE 1 *6C9| & OB9D DECcEcEseS OBAO 91 OFF oc CL04*OFF.® 
Be CaS2 F2 90 41 a? INS! s6Cs! OBAL D6D540468 OBAS 92 OF oc CLOe*ON o* 
CaSS 36 20 OAaoE a8 TEN C11=-1.x*20° CHK FOR CE MODULE GN 3340 DRIVE 1 *6cs! OBAS 3C S54 CASS 93 INSE “VI OSKTYPeX*S8* SET FLAG FOR 5626 INPUT SOURCE s6co 
“ 0AS9 CO 90 CBAS a9 BF INS6 JUMP AO ENTRY BUT NO C1 ENTRY UDT *6Ce| S$ OBAS F2 B7 aD 94 J DSKM33¢1 JUMP TO COMMON ENTRY POENT *6Cs . 
“we OASD CO &7 O21A SO INS e PRINT PRINT THAT SOTH 5444 6 3340 ARE IN UOTsCC# OBAC 3C 33 CASS 95 INSS MV DSKTYP.eX*33° SEY FLAG FOR 3340 INPUT SOURCE ‘cece 
CA61 42 OAS! 51 oc MLI tee FLAG BYTE *6Ce OB80 CO B7 O21A 96 8 PRINT PRINT s6PCce 
cf Ca6é2 3 cae2 = $2 oc AL1 CINMSG-INMSGS) LENGTH DF MESSAGE eece| @ oBsa 07 ' O8e4 S$? oc XLI°O7* MESSAGE *cPCce 
a QAG3 CAFO OAG4e $3 oc AL2C INMSG) SOURCE aDDRESS *G6C2 | osss 38 o8ss 98 oc AL.1( DSKN33-OSKM32) To *6PCe 
CA6S 14FF OQAGE = S48 oc ML2°14aFF¢ MANUAL ENTER NEEDED *6c* cB86 oBFS CBB7 99 oc AL2(€O0SKM33) Gap 2GPCe - 
6 OAG7? CO BF O22A 55 e PRINT PRINT MORE COMMENTS *6Cs! osse cO 87 0222 100 8 HALT HALT DREVE 2 SGPCe . 
~~ Cass 02 ; ease = 56 oc XLI*G2¢ FLAG ®8YTE *6Cs | @ oBsc 6eFF 0B88D 101 oc XL2°SQOFFe THEN RESTART e6Pce . am 
OAG6C 33 , eacc 8 57 pc AL1CINMSG1-INMSG) LENGTH OF MESSAGE *G6Ct) OB8BE F2 87 38 102 J gDSKm33¢1 JUMP AROUND MESSAGE OC s6Pce = | 
ee aed 082C OasE 8658 cc AL2CINMSG1? SOURCE ADDRESS ssc, @® O6CO 103 DSKM32 EQU “*=1 sGPCe. 
~ OASF CO 87 022A so 8 PRINT PRINT MORE COMMENTS eG6ce OBC1 4007D3C1C3C540E2 0803 104 oc C2.19° PLACE SYSTEM PACK * S6Pce. 
Oa?’ O7 Oa73s 8660 oc xLE°O7e FLAG GYTE : *G6Ce: OBCS EBE2ESCSOS4 OD7C1 104 
< OATe 48 OATS 8661 oc AL1 CINMSG2-INMSG1) LENGTM GF MESSAGE *GCs 0] 08D1 C3D240 104 
= Oars 0871 Cave 62 oc AL2( INMNSG2) SOURCE ADDRESS *6C# OBD4 DEDSS49C4D9CSESCS OBFE 105 OSKM33 OC CL37°ON ORIVE 20 MAKE READY. RESET HALT.* 
OAT? CO 6? 0222 63 8 HALT *GCe OBDC 40F248408006C1D2 108 ® 
> c OAT® SOFE eave 8 6 oc XL2°S9FFe MANUAL ENTER NEEDED e6Cs! e OBES C54009C5C1¢C 4E848 105 
~ Ca7O 38 O02 C200 65 TEN = 6SBYTES*eSSUZE CHK SS¥ 2E *ONe *6Ce' OBEC 404009CSE2CSES40 105 i 
OAG1 F2 20 1€ 66 Jt Ins4 JUMP IF sow 2& IS oN *6Ce OBF4 C8C103E348 106 ss 
G & -— 
OATE 26IUNTS _ . PROG 1D Fc8-0 DATE 26IUN7TS , PROG ID ece-0 
eee “#0. G2t2es ~~ = ~~” PAGE 1 CN. e28023 PAGE d aa. 
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TOM MAINTENANCE OLAGNOSTIC PROGRAM PART NO. PARTY NOo 46238268 
; PAGE Pace 2a 
FC8O0 MOVE FC? MICRO-CODE FROM DIAG PACK TO SYS PACK 0D 18 @rce «MOVE FC7 WiCRO-CODE FROM DIAG PACK TO SYS PACK MOD 15 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEHERT ERR LOC OBJECT CODE ‘ADDR STMT SOURCE STATEMENT é 
es 106 eesecesece PRINT OPTIONS SECTION END SHOseeeSSSHe RESREEREREEESE @ ocec 3c 88 OCFS 174 SETRi MVE SexexKeaee SET BIT OFF 
107 ©CCO 3D 33 CASS 175 CLI DSKTYP.xe33° 3340? 
OBFO 3D FO 2004 108 CLI = XKFCX.C*08 TEST FOR DECK FCO @ occe Fe 21 17 276 Je SETE IL IF SOs SKIP MESSAGE ; 
OBFO Fe B81 0D 109 Je SET9S IF SOs SET FOR 9 SECTORS OCC? 3A BO 20C6 177 SBN ERASEK*B08 ERASE THE S2xx CRT 
OCOO 3C 11 OEDF 110 SETI7S MVI  NUMSECO1.xe31° SET FOR 17 SECTORS occS C2 01 17E2 178 LA XMSG64 XR SYSTEM PACK 1S RI ecce. 
O0CO4 OC O1 OEB2 1A84E 111 MYC NOSPNC2)eS27 SET # SECTORS IW MESSAGE @ «Occ co 87 oFce 179 8 PTSeT1 ‘ 
OCOA F2 87 OA 112 J M15 $ CCD3 CO 8B? 1008 180 8 INPUTA 
OCOD 3C 09 CEDF 113 SETOS MVI  WNUMSEC41.x*09°¢ SET FOR 9 SECTORS | OCD? F2 87 04 181 J SETE IL : 
OCi1 OC 01 CEB2 184¢ 114 MVC  NOSPN(2).S9 | («OCA 3c BA Ocre 862 SEYF1 MVE SBxXex*BaAe SET BIT ON : 
0C17 OC 00 CEES OEDF 115 TM25 MVC SCNTS¢101)eNUNSEC41 SET NO. SECTORS IN CNT OCDE C2 02 1828 163 SETFIL LA Q2TBL-1 oXR2 
0C1D 38 20 OA11 116 TBN 1D16-1-.x"208 IS 32XxX INSTALLED | OCE2 36 02 1:72 184 SETAGN a TWOeKR2 : 
e 0C21 F2 10 68 117 JT CARDIN JUMP IF SO | @ Oces 3a 02 ocra 185 st COPTR. XRZ : 
ss 116 CCEA G5 02 00 186 t OC oXR2) oXRZ : 
0C2a 3C DO 186A 119 ASKFR MVI MBMNG2-1,C*#R? SET MESSAGE FOR REMOVABLE | OCED 36 02 1170 187 A ONE oXR2 t 
oc28 3¢ Fi 1888 120 MVI —- MEMG3eC*E® @ ocri Fe 81 08 188 IZ SETON 
oc2c CO 87 G2iA 122 B PRINT GQ PRINT MESSAGE OCF4 BB 08 06 289 SBF O%exKR2).x°08° SBN OR SBF : 
0C20 01 0c30 122 oc XLicoL® OCFe 1290 SBx equ tog E 
f- 031 3¢ 0c31 «123 pc TL2¢608 @ C7 C2 02 coco 191 La Gms oXR2 : 
™ oc32 1888 oc33 124 oc AL2(M&ENG33 OCFA 192 GePTR EQU #3 t 
0C34 3C C6 186A 125 MVE  MBMG2—1,C8Fe SET MESSAGE FOR F1XEO OCFB CO 87 OCE2 293 8 SETAGH - ' 
‘ 0c38 3C FO 1888 126 MVE =—- MENG3.CeOF @ OCFF 196 SETON EQUu ¢ 5 
a OC3C CO 87 O21A 127 8 PRINT PRINT AGAIN OCFF 38 20 OAL1 195 TON 1624—1.x9202 {S 32uxK INSTALLED? t 
0C40 01 ocso «(128 pc KLECORe | ODOS F2 10 al 196 JT “us JUMP IF SO ; 
f* 041 3c oc4ai 129 ec IL2°608 | 7) 0006 CO B7 O2IA = 197 ASK 8 PRINT ASK ABOUT FILE HARE ( 
- 0c42 1888 oca3) 130 oc AL2¢MBMG3) ODOA 01 CD0R 196 oc XLI°O18 
131 oDes 48 ores 199 pc TLi°7ee 
f=. OC48 CO B7 O21A 132 MBEXIT 8 PRINT PRINT MESSAGE TO RESEY HALT | e o00c 16E9 o00D 200 oc AL2¢e8MGSD P 
geass 06 ocss 133 oc XL1*06e ODODE CO S7 O2IA 201 ‘8 PRINT P 
OC4as 16 0c4s9 «134 oc zL2*220 oDi2 o1 0012 202 oc MLitors f 
&% OC4a 18A1 oces 135 pc AL2CMONGE? ; 0013 10 6013 203 oc IL1°29° ‘ 
<“ — opcac co 87 o222 136 6 HALT HALT TO ALLOW SWITCH SETTING { 2 0D16 1906 0015 204 oc AL2¢MSNGSB) F 
OCcSO B9FF Oc5i 137 oc KL2°S9FFe HALT SeeeeesFreacesesse | 0D16 CO 87 0214 208 8 PRINT PRINT QESET HALT 4 
G 138 | @ ODIA 68 ODiA 206 oc XL 2°06 : 
OCS2 30 00 1129 139 SNS WORKex*90° READ SWITCHES | OD16 16 0018 207 oc re aeoze poeeceamaemncaneenrnene 
0C56 36 FO 1129 140 SBF WORK.X*FO? RESET HE SITS OF LO CHAR OD1C 18A1 OD1D 208 pe ALS (MBMG6D 
(, OSA 30 00 1129 141 CLE wWORK.O WAS SWITCH SET TO ZERO? @ 20¢ f 
“ 9ese€ F2 81 79 142 Je SETF1 IF SOo SET F1 ODIE CO 87 0222 210 8 HALT WAIT EQR SWITCHES TO BE SET 
0C61 30 O1 1129 143 CLI 9 WORKe1 WAS SWITCH SET TO 1 OD22 SorF 0023 21% oc XL2°*S9OFrE® HALT sesseFFessesse 
& 0C6S CO 01 CC24 144 BNE ASKER IF NOT. REPEAT MESSAGE | & 212 i 
we OC69 OC 15 1825 18A1 145 MVC = OVLNSG-2¢ 22) .maNce FIX UP MESSAGE FOR MODEL 8710 | 0D24 30 00 1129 213 SNS WORKsx*00* READ OUT pare SWITCHES E 
146 0026 38 FO 1129 2148 SOF WORK ex* FO? RESET HE BE 
€;  OC6F Co ev o21A 147 8 PRINT PRINT INSTRUCTIONS i eS 002C 3D 01 1129 215 CLE WORKe! TEST LO sw = 1 E 
“  9¢73 01 oc7s) 148 oe xLAsoLe | 0D30 F2 61 at 216 Je DEFLT SUMP IF SD>e TAKE DEFAULT NAME e 
oc7s 17 oc7a 149 oc TL2eaze 0D33 3D 00 1129 217 CLE WORKO TEST 10 Sw =< 0 F 
€.  oc7?s 178 OC76 150 pc AL2CKMSE4422) e O0D37 CO 01 ODoE 218 BNE ASK GO REPEAT QUESTIONS 
’ OC?? CO BT O2IA 151 8 PRINT 219 ; 
OC7B 06 ocre 152 oc xLI*O6* OD38 CO 87 021A 220 8 PRINT GO PRINT ENSTRUCT IONS E 
oc7c 28 oc7c 153 oc ILieace j OD3F C1 O03F 221 pc xLA°OR8 b 
Me CC?D 1825 OC7E 154 oc AL2COVLMSG-21 @ 0D40 43 0D40 «222 pc ILz°6re t 
OC7F CO B7 O222 158 8 MALT HALT TO ALLOW DIS CHANGE ope 1949 0042 223 oc AlL.2 (MONG6D k 
(;, 0ce3 sero oces 156 oc XL2*s9Fo* HALT seeeeeeroseseens @ 0043 co 87 21a 224 8 PRINT f. 
1s? OD4a7 01 0047 225 oc mLaeone . 
oces 3c eB OCrs 1s6 MVI SBXex*sBe SET TO SET @LT OFF 0D4s 31 Odes 226 oc IL1eege i 
f- oceo F2 87 S52 159 3 SETFIL GO SET UP TABLE | @ 0049 19% OD4A 227 oc AL2 (MEMGT AD i 
Nw 160 | _ 0048 CO 87 O21A 228 8 PRINT i 
OCeC C2 01 175A 161 CARDIN LA XMSG1eXR1 | OD4F 06 ODsF 229 oc XL1°O6* : 
e 0C90 3A BO 10C6 162 SBN ERASEsX*80* ERASE THE 32KxX CRT @ 0Dse 28 0080 230 DC ILi°e3e 
Oce CO 87 OFCB 163 e PTS4a71 Ri OR Fi? 0051 1974 oDs2 231 oc A. 2¢MOMGT? js 
oces co 87 1008 164 8 INPUTA . 232 ‘ po 
9C98C CO B7 OFSO 165 8 SCANIN | @ «0053: oc «8 1752 1759 233 MVC = ML TAF (6) BLANK GLANX OUT FILE MANE ; 
- OCAO CO 04 OCeEC 166 GNP CARDIN 0059 3¢ FI 0DE6 238 MVE | ENHL Te X°F 2° INITIALIZE HALT TO F2 
OCAS 3S 01 OF 48 167 t SYMPTR oXR1 | OOSD C2 02 174D 235 LA ML TAF <5 oXR2 GET HE ADOR OF FELE WANE , 
OCAS {1D 01 1775 00 168 CLE = R20 OC oXRID 236 ; 
ocad F2 81 OC 169 Je SETRI ® 0061 CO B87 0222 237 SuMLY 8 MALT ALT TO ALLOW DATA ENTRY : 
OCBO 10 01 1778 CO 170 CLC = F000 oxRID ODES 89F1 0066 238 ENHLT oC XL2*e9F 1° HALTS @00¢0F1-Feceseess i 
oces F2 a1 22 i713 JE SETF1 239 : 
‘ eces co s? ocec 172 a CAROIN e 0067 30 00 1129 240 SNS WORK.xX*00° READ suITcnes 
i173 ¢ OD6B eC 00 00 1129 241 MVC 9 OC Be MRZ) -WORK ROVE SB 3e4 TO FELE MANE ‘ 
e ® - 
DaTe 26 IUNTS PROG 1D Fce= = DATE 26SUNTS PROG 10 C80: 
+ 8C WO. 625023 PAGE @é< N-  szs02? _ PAGE BA 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


ERR LOC 


¥ 


Q 


*y 
® 


. 


my 


Oe oOo 790 4 


cy 


@ 


c 


© @ @ 


oo70 
Co7e 
oo7Ty7 
oD7D 
ooeo 
6DBS 


ooss 
OO8E 
0092 
oDe3 
opsa 
OB96 
ODSA 
oD93 
oosc 


ODSE 
cDpa2 
CDAS 


oDa?7 
00aB 
COAF 
D083 
cos? 
opss 
odSF 
oocs 
SsDCc9 
oDCcD 
ooo1 
ones 
ocpa 
oooo 


ODE 
ODE7 
oDes 
ODF1 
COFT 
oDFO 
OE: 
CEOS 


otCeO 


O£13 
oet18 
CEC 
ot20 
ce23 
CE26 
o€28 
OE 2 
Cf 31 
CE37 
CE36 
OEal 
SESS 
ce49 
o€eDd 
Orsi 
SES2 


Bate 
Ec woe 


OBJECT CODE 


3o 
F2 
cE 
€2 
30 
co 


oc 
co 
O2 
3s 


ac 
si 
os 
02 
€f?7 
of 


os 
87 


19Da 


co 
66 
26 


87 


16A2 


co 


a? 


S9FO 


F2 


c2 
3A 
3a 
co 
c2 
co 
38 
oF 
co 
€0 
F2 
oc 
F2 


8&7 


Oz 
60 
ao 
8? 
o2 
87 
ao 
O23 
87 
87 
S84 
os 
87 


it2s 
a1 
0066 
01 
0066 
6061 


2870 


19C3 
O21A 


1752 


O21A 


9222 


62 


177TE 
20c6 
s9ec 
orcs 
1783 
oFcs 
20¢c 
16ceE 
tobe 
OF SO 
oF 
ivSe ODE2 
2c 


10cE 


SS8SECACZ09CE 


39 
co 
cc 
oc 
6c 
c2 
3s 
sc 


os 
a6 
os 
60 
90 
62 
01 
63 


OF e9 
ocrrF 
i7vS2 i7ve9 
GEOY OCFSO 
GE06 ores 
t7aD 
Oras 
ao 60 


2177S w7ac 
11¢4€ 

1375 26 
114€ 

i7ss 

00 

2? 

G6 1752 
as 

1s 

17S3 1270 
GE26 
1176 
i275 
E38 
CE18 
o2ia 


27a 


MOVE FC? MICRO-CODE FROM DIAG PACK TO SYS PACK MDD 15 


ADOR STMT SOURCE STATEMENT 


eDs2 
oD93 
ooss 


6094 
ooss 
ocso 


ODAS 


ODE2 


GE06 
OE07 


OES 
CES2 


242 
243 
244 
248 
246 
247 
248 
2469 
250 

251 

252 
2563 
258 
255 
256 
2s7 
258 
259 
260 

26% 

262 
263 
264 
265 
266 
267 
268 
269 
270 
271 

272 
273 
274 
275 
276 
277 
278 
279 
280 
281 

262 
283 
268 
265 
286 
287 
288 
289 
290 
291 

292 
293 
298 
2958 
296 
297 
296 
299 
300 
302 

302 
303 
304 
305 
306 
307 
308 
309 


cur WORK .X*40°¢ 
JE NAME 
atc ENHLYTL 23 -ONE 
LA 2€ oXR2) oXRE 
CLs ENHL Text EPS 
SNE sent 
NAME MVC MEHUGBALED ML TAF 
8 PRINT 
oc XLI°ORe 
oc IL1*S3¢ 
oc AL2 (MBMGBD 
8 PRINT 
oc XL1*O69 
oc SLit2aze 
oc SL 27 NeMG4) 
8 HALT 
oe XL2*SGFrg 5 
J OPEN 
= 
a5 LA X¥SG2 5 KRI 
s@t ERASE S Xt B0* 
SSN BUFLG ext eoe 
a PTSe7T? 
a RRSG3 oe XRL 
8 PTSaryE 
SBF BUFLG. X*8oe 
suc SUFFO(2}.SUFFAa 
8 ENPUTA 
8 SCANZN 
JsP NOOFT 
DEFLT «vc SMLTAFCS3 OF TN 
J OPEN 
OFTN oc CLE*SEHRTRI* 
2 
NOOFT CLI LENGTHS 
8H SETON 
mvc MUTAF e O@LANK 
wvc MVCFC1) LENGTH 
“VC HVCLCLD eLENGTH 
La ML TAP <$ oXR2 
u SYMPTReXRE 
ave Sm* he NR29 201 o XRI F 
MmvCE Eau @~3 
eYCE eau e-2 
SPER ONES OENES OSE 045004 E4S4OTEEEEEEEE SEE 
Pt OPEN 
CHEESES OESESEESEREE C49 EOEEREREDEEES RERRETERS 
OPEN vc OSKSEC{2) »csocos 
8 READ 
ave BSKSECE2) 0380 eXRI} 
RONXT 8 READ 
ave CNTei2 
OPENI CLE OC eXRI I OX*EFFS 
JE NOTOPN 
er¢ 616 eRR1I Io MLTAF 
JE FILFNO 
LA 22 oXR1TIeXRI 
suc CNT ONE 
BNZ OPEN 
xXLC aac ROOFC42{2 3} ONESEC 
TBN RODFC4#2 ox* 60* 
eT xLC 
8 RONXT 
NOTCPN 6 PRINT 
oc RLatcre 
oc IL1 age 


WAS CHAR A BLANK 
OONE SF SO 
INCREMENT MALT 
INCREMENT TO NEXT 
&V¥ END? 


IF NOTe GO HALT FOR NEXT CHAR 


PART NGo 


PAGE 


CHAR 


MOVE NAME TC MESSAGE 


PRINT RESSAGE 


WALT YG ALLOW CHECK OF NAME 


HALT S8eteaFocaseses 


GO OPEN FILE NGw 


ERASE THE 32xx CRT 


SEY SUFFER FLAG 


RESET SUFFER FLAS 


RESET GUFFER ADORESS TG ZERO 


FILE 


READ CYL/SEC 06008 vO! LABEL 
SET CYL/SEC XXYY YVOC INDEX 


FEND 32xXx MICRO-CGDE FILE 


| 
l 
| 
{ 
i 
! 
i 
| 
‘ 
\ 
\ 
‘ 
' 
‘ 
} 
i 
! 


FFEKEOEESHOECES OSES EEEEEEREED 


SOCSHAERERKNSESTRGEAEOTEBVES 


_ CHECK FOR END OF DIRECTORY 
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iabshs Nei CRF 90t Wee MSM ae ted aE ay eg cA MdenaaSongia tape Hae Pash Gath arn e Miaias SRC hie Sse inet 2 tte Mebane Sime oad Riel: Haete ee 8 


anaeeer| g@re« MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 
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| Pace 3A 


MOVE FCT MICRO-CODE FROM DIAG PACK TO SYS PACK NOD 15 


¢rcee 


| 
| ERR LOC OBVECY CODE “ADOR STMT SOURCE STATEMENT 
| OES3 oFas OESa 310 oc AL2(NOF IL’ 
| OFSS B°OFS OESS 311 oc XL2* sore 
CES? CO 87 0222 312 8 HALT 
| OESB 89FO CESC 313 oc XL2°S9FQ# ERROR * FO teeevesenceteecesseceeseees 
| CESO CO 87 0216 316 8 RINK 
O£61 CO 8? O21A 313 NOSP 2B PRINT 
CEES C7 OFE6S 316 oc XLECCPe 
| OE6E 36 CE66 317 DC —ssEL ae sae 
| Of67 CEOS 0&68 318 pc ALZ2CNOSPC) 
; 0E69 8oF7 CE6A 319 pc XL2°eOR7e 
o€68 CO SF O222 320 a MALT ERROR & F7 SOSSSV SAT EOGS VEORREASBAOCARRA 
| Of6F Bort CETO 323 oc XL2°8gF7e 
O£E71 CO 8? 0216 322 8 LINK 
OE7S C306E4D3C4400S06 CEAZ 323 NOFIL OC CLAS*COULO NOT FEIND NICRO-CODE OBSECT FILE ON OSsKe 
CE7D ES4OCECSDSCesons 323 
OE8S coCc3nsrEscczp6ece 323 
OEBD C546NscC201 CSC3E3 323 
OE9S 40CECSD3CS4£0N605 323 
CE9D S0C4C9E29D2e0 323 
OEB2 S24 NCGSPN EQU #415 
OEAS E3CSCSD9CS40C109 CEDS 325 oc CLSO* THERE ARE NOT XX SECTORS ALLOCATED To MECRO-CODE ° 
CEAB CS400SDSES4A0ETE7 325 
Sess &0E2cC Sc SEIN EDSES 328 
CEBB 40C1D3D3DEC3C1E3 326 
OEC3 CSCeacEsDSacnEco 325 
ECB CS09DE60C 3DECcKcS 325 
GEDS #049 328 
OEDS ceceD3cs C—EDe 326 nOSPC oc CLAcFILEe 


*t 
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16M MAINTENANCE OLAGNOSTIC PROGRAM PART NO. 4234265/ {UTE MAINTENANCE DIAGNOSTIC PROGRAM 


PART NOo 4234265 
PaGE 4 


| 

| 

| Pace . aa 
| @yFcee MOVE FCT MICRO-CODE FROM DIAG PACK TO SYS PACK MOD 18 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR Loc GesECT CODE 


FcéeO MOVE FC7 MICRC-CODE FROM DTAG PACK TO SYS PACK MOD 15 


-ACOR STMT SOURCE STATEMENT 


3SS8 SHEKSETESSESSESHESESESSESTHEESE SEAS SE SKCE RK KK ECSCESEESES KTS EK SECKEKREEKESEEKRESEKSEEKEEERE @ OF4a2 388 USING INPUTS kRi 
329 4% DISK FILE FOUND +e | OF54 74 08 78 389 st SCANEX(e XRIICARR 
B30 SHKASESESSSEKKERSSESHISASLSEKSE SARS KEKCKESERSL ESE CK KKSERARESKSASKERSEEKESKSRASKESSE « © OFS? 75 02 04 390 SCANI u NXTSTRE oXRI Po XRZ 
O£FDS 331 FILFND EQU- *« 32KX MICRO-CODE FILE FOUND | OFSA 7C FF 07 391 MVE LENGTH eo XR1) KP FES : 
CEDS 1€ 01 1175 08 332 MVC DSKSEC(2).8(+xR1) SET DISK SECTOR FOR FILE DESP. | OFSD &D 01 04 OALF 392 CLC =—- NXTSTAC oXRLDCENDC 29 
OEDE 7D 00 14 333 NUMSEC CLI 200 eXR1)-8—« CHECK FOR 9 OR 17 SECTORS | re OF62 F2 84 60 393 Jt EO! ; poz a 
OEE! CO 82 OF61 334 BL nos? ; OF65 G&D £0 00 394 CLE O€ oMR290eC* © SKIP LEACING BLANK(S 
335 * | OF6B F2 01 07 395 JNE SCAN2 
OEES 3C 00 1753 336 SCNTS MVE CRT. €-2 SET COUNT TO 9 OR 17 | GQ OF6B SE 01 04 0D 396 ALC NXTSTRC oKRED oXNEC oXRED 
OEFO 35 01 2001 337 t TABLE oXRi GET MICRO CODE ADDRESS IN XR? | OF6F DO B7 15 397 8 SCAN1C oXRS) 
OFEO 34 01 OFFS 338 st MVCFQ@eXRI | 398 
OEF1 OC FF 1744 0000 339 MVCC MVC) 3 DBUFSe255(256) 4-8 : G OF72 4D 01 04 OAIF 399 SCAN2 CLC SESTRCSERL NCE NOSE! FIND LaTY CHAR OF SYMBOL 
OEF6 340 MVCF® EQU #-1 OF77? Fe 8& 1C 300 JH SCAN3 
O€F?7 CO BF 112¢ 341 8 WRITE OF 7A BD 40 00 401 CLI OC oxXR20C® * TERMINATE ON BLANK OR o 
OEFB OF 01 OEFE 1128 342 SLC MVYCFOl2) eNG256 \ Q OF7D F2 Bt 16 462 Je SCAN3 
OFO1 OF 00 1753 1170 343 SLC CNT-ONE OFB80 BD 68 60 603 CLE OC oXR2P0C%e? 
OFO7 CO 01 OFF! 346 8NZ wMvVCC \ oF83 F2 81 10 6046 JE SCAN 
OFCB CO 87 O21A 3405 8 PRINT i @ OF86 SE 00 OF OD 405 ALC LENGTHC( oXR2} ¢XNEC  XRID 
OFOF 07 CFOF 346 oc KLISOTE | OF SA 74 02 06 406 ST SYMPTRE oXR1} eo XR2 
OF10 2A OF10 347 oc ILis42e | OFS8D €2 62 01 807 La 1€eXR29eXR2 
OF11 OF4E oFI2 348 oc AL2(NOMS6) © OFSO 74 62 04 aos Sst NXTSTRE oXRIIORRZ 
OF13 CO 87 0216 349 8 LINK ; OF93 DO 8? 30 409 8 SCAN2( oXR1? ; 
OF 17 DACOCIDSDSEOCC3SDG OF420 350 AOMSG OC CL42*°MICRO-CODE HAS BEEN COPIED TO SYSTEM PACK® | aio 
CFIF €4CS40CBC1E2460C2 350 i OF96 411 SCAN3 EQU «& 
OF 27 C5CSDS80C30€07C9 350 ‘ 6 4i2 
OF2F CS5C440E3D640E2E8 350 OF96 75 02 04 413 SCANA t NXTSTREoRRID OKRA SKIP TO NEXT CHAR AFTER » OR 
CE37 E2E3C5044007C1C3 350 @ OF 99 OD OL 04 OAIF 416 CLC =—- NXTSTRCoR1) oENDL2) EOI AND SET NXTSTR 
OF3F 0240 3590 ; OFSE F2 64 10 415 JH SCANS! 
351 | OF AL 8D 46 60 416 CLE O€exXR25eC*® 2° 
C 331 \ e CFaG F2 81 17 417 JE SCANS 
353i | OFA? 65D 6B 6O 418 CLE OCoMRZDeSee® 
BSP FESSNESSSAEKTSSLSSKE KTS SEREKKET LARS SHE KSERSRAS LESTCHE ASKS SESAEATES SARK SS: OF-R F2 OL 04 419 JNE SCANS1 
& 353 * SCANIN * s # | @ CFAD SE 01 04 OD 620 ALC NXTSTROoXRI) o KNEE XRG? 
paseerasaie ace 354 s2n¢enesess + CFB1 7D FF 07 @21 SCANSL CEE LENGTH(eXR1).x°FE* 
355 & *: oFBa F2 81 03 &22 se SCANS 
é: 356 * SCANIN PICK UPS A SYMBOL IN A BUFFER: BLANK AND COMMA ARE ~ ©: 2 OFB7 75 0& 08 423 i POS £oXRLI PSR 
: 357 © DELIMITERS THAT TERMENATES THE ROUTINE. : | OFBA CO 87 6600 424 SCANS 8 toe 
358 @ + OFBD 425 SCANEX EQU  #=1 
Cc 389 @ *| @ 426 
- Sé0 3 . a! OFBE SE 01 04 0D 427 SCAN6 ALC NXTSTRCeXRID onNELT e ERED 
361 * | OFC2 DO BF 54 428 B SCANS ( oRRIS 
7 362 ¢ SCANIN PARAMETERS ‘ * 429 
G 363 ¢ SEIERSES ESSE SOERESESE SS : 6 OFCS 75 0& OS 430 EO! t NEG (oKR2} PSR 
354 % INPUT® * START @® OF BUFFER ¢ a! OFCS DO a7 78 431 8 SCANS €eXRi) 
om 365 * INPUTN * END 8 OF BUFFER ¢ # | é 432 
Ns 366 * NXTSTR @ NEXY START & & *| 432 
367 * SYMPTR * PTR TO SYMBOL * * 432 
fo 368 & LENGTH © LENGTH OF SYMBOL-~-1 * »| eS OFCE 34 08 OFDE 433 PT5471 ST PTXEs ARR 
a 369 *& EECESEEEHSEAEKE SRKEKKESE «| OFCF CO 8&7 OFD7 434 8 DISPLY 
370 * ON EXIT! NXYSTRe SYMPTR, LENGTH WILL BE SET ALONG WITH *| OFD3 CO 87 0000 435 PTEXT 8 t+ 
ao 371 « THE CONDITON REG. aS FOLLOWS: ¢ @ OFO6 436 PYX® EQU #-1 
* 372 * NEG — END OF INPUT (EDT? 2 | 
373 ZERO- NULL SYMBOL | 
reg Bre & PGS - SYMBOL FOUND *| & 
SIH KCKHHRERRSETCREAEKKESESCSEREAKAKREKKSERASKACSKKSE SEERSEKAKEAKEKS STEKSEKERAKSEKRKKESKSESKSTE SSE 
376 | 
376 | a 
OF 41 OA13 OF42 377 INPUT® DC AL 2€ IT NPUT41-LNG) l 
CFa3 OAIC OF 44 378 INPUTN DC AL2CINPUT) 
cFas 0a13 OF46 S7ONXTSTR DC — AL2C INPUT 41-LNG? | @ 
OF4? oCD0c OF48 380 SYMPTR OC AL2(e—8) | 
OF49 60 OF49 361 LENGTH DC rLiroe | 
OF aA OCC? OF 48 382 NEG oc xL2°¢o2* | e 
oF4ac 0004 oF*eD 363 POS oc XL2°94* } 
OFSE 0001 OFS4F 384 XNE oc w2ere | 
0008 365 PSR equ 4 ® 
“ 3e6 
OFSO C2 91 oFa2 367 SCANIN LA INPUTO> XR1 | 
i | @ 
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Sa 


Fceo MOVE FC7 MICRO-CODE FROM DIAG PACK TO SYS PACK MOD 1s 


¢Fcse MOVE FCT MICRO-CONE FROM DIAG PACK TO SYS PACK MOD 18 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC GBYECT CODE ADOR STMT SGURCE STATEMENT 
438 Fret Neat ttttE SEA At AeSEREN RNC ESRNOESE SE SELRSEE REECE TES ORESERE © 2072 31 15 10D1 50s L790 POSCSReXtise LOA CURSOR POSITION FEGISTER 
439 * DISPLY « 32K OISPLAY ROUTINE TO OISPLAY MESSAGES *; 1076 35 ¢O 1005 506 i INTDs LARS POINT TO INTERRUPT POUT ERE 
i 440 s#eeeKn eens &: gm 107A F310 91 507 s1Io K*Si*ext1H¢ WRITE TO THE 32xx CRT 
i 461 2 ON THE 32xX CRT me: © 21070 CO 87 1092 508 8 ENT AKN LOOP UNTIL AM INTERRUPT 
442 i. a: 1081 38 se 10¢¢ $909 TSN SUFLG eX*BO° TEST FOR INCREMENT IteG SUFTER &BGR 
f 443 «& ON ENTRANCE S1xP! POINTS TO SESSASE | 3 2085 ©2 99 06 Si0 JF xo9 JUMP TF NO 
bs 244 & =: 1088 SE 01 10CE 1i0Cc9 Si ALC BUFFS 12?.COUNT POINT TO LINE 3 ON THE 32x SCREEN 
445 4 ON EXIT3ixRi wile POINT YO A 0 OR 1 IN THE MESSAGE *) 208E CoO B87 OFD3 S12 8 PYEXT 
c 446 # * @ 513 
ee Sat COSSSISOSESHENOL ES ER TES ES ENO SEESE HRT LENSE ERE EE CREE RET EE NEE SEREOERERES i S13 
448 : 513 
f 4686 @ 5i¢ SPRSSSELSSOSORSEESAEERE BE SRESES REE RENS ES OE RERDESESSPRCRSEESETe4eEEEeS 
Sf 07 38 FE E879 449 OFSPLY TBN CRIFLG.X* FES TEST FOR MICROCODE LOADED I 515 « THIS SUBROUTINE CHECKS FOR eo * 
GFOB F2 to 06 450 JT “49 ‘ ° : 5i6 * TAKENe Iv CHECKS FOR THE Boxxx 90G 2 
453 | & Si? s NOT READY OR A 32x%K UNIT ERROR». ON EET, % 
CFDE CO 8f 0222 452 8 HALT MICRO CODE NOT LGADED ERROR ' Sis # IT RESETS THE INTERRUPT AND ERASE FLAS & 
OFE2 B89E7 OFES 453 oc XL2°B9E?2 HALT + EF *8eeeeen ceeesseeansesns: 519 POSSESS SERS RRGROESEAERSH SS HASTEN DHE ERES RASOSESSSEEROSESSERSE CERES REETES 
OFES 3¢ FF 0B7¢ asa YT CRIFLE oR*FES HALT ONLY ONCE @ 520 
- 485 =e 
OFES Ci 18 OFEF &S6 Tig MAKRDY «NROY TEST FOR 32x%X ATTACHMENT NOY READY | 1092 3& 08 icac 521 INTAKN ST ENDINT4 3, ARR SAVE RE Turns 
SFEC Fe 87 5c as? J ROY i gt 1686 38 60 1006 S22 INTERR TEN INTFLGEX* Soe INTERRUPT TAKEN F 
*S 6s3 © 2998 CO 96 1036 S23 SF INTERR LOOP UNTIL an inTreenure: 
OFEF F318 BO 459 MAKRDY $19 K°8C? .S¥o1 OISABLE THE MECRO CONTROLLER i 269F 38 e860 1006 524 SBF INTFLG.X*a0¢ RESET TYRE INTERRUPT Flas 
OFF2 F3 48 £6 £60 SiO X*EGS* sStOsg EWABLE i € 1GA2 39 O8 19D7 525 TSF STATUS—-1.x*088 ANY 32XK ERRGR OR MOT RrEanT? 
OFFS OD 63 OFFS cFFS S61 cic C21503-R 1€A6 F2 $0 04 526 JF ERROR 
&62 i 21G49 CO B87 0000 527 ENDINT B sok RETURN 
< CFFE 38 80 toOCcS &63 ROY TSN ERASE.xX*a0¢ TEST FOR ERASE FLAG | S 526 
= OFFF F2 90 42 454 JF FYS2Rx DON®T ERASE THE 32xx CRY | 328 
465 528 
gc 8002 35 co tepa 266 i RESETS, TAR i RESET ANY PRIGR PENDING CONDETEFONS @ 529 SSERCSSERESEGLESESESESE TE SASS SERSRES SESE HHS 9RETESSSESESERESEHDDERES¢ 
Ss 1606 F3 16 Oi 867 SiG X*O2*® SIGE ENABLE INTERRUPTS : S3G x 32XX ERRGR SUBROUTINE 2 
868 Sz? SSS CSSSESSTSSESESATERSS ATH THEE RRR KR SSR OSSELS SCRE REESRREAEESELERESERRE 
oan 1C9S 35 CO 19D £69 & INTSs TAR} POINT TO THE ENTERRUPT suRROUTINE : 6 iGaD CO BF GzZ22 $32 ERRER B HALT ERROR HALT 
aaa 1000 FE 16 ¢3 a7O Sio KCL oREYG? ERASE THE 3S2xx cet i 1081 aste 2082 S33 oc XL2°89EQ" HALT ~E6—¢eoeaeregeaoneseteceegeete 
1810 CO BF 1092 &7i 8 INT AKN LOGP UNTIL AN INTERRUPT | 3083 CeO e? scac 534 8 CARDIN START QVER AGAIN 
c 1014 3B a8 106 a72 SSF ERASE oX*2g5 RESEY THE ERASE FLAS t & : 
a73 | 
474 * THE FOLLOWING coorING "ILL WRITE 480 BLaNKks | 
& 475 & TO THE 32xxX BUFFER To SET RIO CF ANY & : 
&76 % ATTRIBUTE CHARACATERS LEFT FROX OTHER 
av7 « PROGRAMS { 
ce: 4768 1 BS 
1038 ©2 oF 2¢ 479 PASOYR 3c PTI]SXKoX*OTF? BYPASS THE FOLLOWING AFTER IST Pass 
1018 3¢€ 06 toc? 860 MYT PLXCNT eoX* 06° SET COUNTER TO 6 - ; 
101F 31 10 20CcE 481 Lto BUFFa.sxe108 LOAD BUFFER ADDRESS REGISTER | & 
1023 31 18 1003 482 NXTLNE LIG DAT ABS X?21B2 LOAD MAIN STORAGE DATA ADDR REGISTER | 
1627 31 12 10Cc9 483 L110 CCUNT okK® 228 LOAO COUNT REGISTER | 
1028 35 Co 1005 484 L ENT@ oT ARI POIRT TQ INTERRUPT SUBROUTINE : Se 
102F F3 190 93 ass sto K°92* oxe19# WRITE TeO LINES OF BLANKS i 
1032 CO 8&7? 1692 486 8 INTAKN LOOP UNTIL AN INTERRUPY i 
1036 OF 600 10C7 1170 48r Sic BLKCNT » ONE SUBTRACT ONE FROM SLANK COLNTER & 
203¢ €O 01 1023 488 BNZ NXTLNE GO WRITE TWO MORE LINES OF BLANKS ! 
1980 3C 87 1019 489 MvrI PASOVRE1 oX* 87° INDICATE IST PASS TRROUGH | 
be 490 | S 
~ 491 « END OF WRITE €80 SLANKS | 
£92 
1948 3C ac carr 493 PT32KK VI R°*OSFEe,ce e BLANK INPUT SUFFER | & 
1048 OC 82 OBFE oarF 494 MVC X* O8FE"(131).X°OR8FF* at ank INPUT SUFFER j 
1O08E C2 O2 CBeO 495 ua OCP BUF. xXR?2 POINT TO 1ST POSITIGN GF OcP BUFFER 
10652 9C €0 Co of 496 PT32 “avCc Of eo XR2).0€ XR} MOVE CHARACTER YO SUFFER | € 
1036 O2 01 01 497 La 2€oXR1 9 XR2 POINT TO NEXT CHARACTER | 
20359 YD ¢O 900 a96 cur OC eoXRI73 20 ENO OF MESSAGE | 
10SC Fe 61 O7 a99 JE Loaons JUMP IF YES ’ € 
10SF E2 02 01. soo CA 2€eXR2)-xR2 POINT TO NEXT POSITION 1m OCP BUFFER 
1062 CO 87 1052 $O1 8 PTT32 | 
1066 31 28 1003 S02 LOADNS LrOo OAT ap oX*188 LOAD MAIN STORAGE aDDR REGISTER | © 
106A 33 16 10CE $03 L100) = SUF Fa. x*108¢ LOAD MESSAGE ADDR REGISTER 1 
2I06E 31 22 10C¢ S04 za CCUNT ox*32¢ LOAD REGISTER ; 
& i @ - 
OaTEe 26J5UNTS PROG 10 FCB8=0, DATE 26.SUNTS PROG ID FC8-0 
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ERR LOC OBJECT CODE 


1067 
1066 
1¢06F 
10¢2 


310C6 
10C7 
10¢8 
10CA 
a toc¢e 
: 210cD 
1Oce 
io0Dd2 
1004 
1006 
1007 
1009 


en 


@ @ 


. 1606 
L1O0F 
tOEs 
t0E9 
iceo 
10F1 
10FS 
10F9 
1oFC 
10FF 
1103 
1107 
2108 
1210F 
1123 
1187 
tata 
rae 
2224 


1126 
BISA 
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OatTEe 
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MOVE FC7 MICRO-CODE FROM DIAG PACK TO SYS PACK NOD 1S 


ADOR STMT 

S36 

S37 

S38 

s39 

s4c 

: S41 

3a 80 10506 s42 

30 26 1008 $43 

F3 18 03 $44 

co GF 108F sas 

S46 

S47 

s48s 

S49 

60 10c6 SSO 

oo 10c?7 §6S$1 

ooso 10c9 $52 

ocos i0cB SS3 

oo 10cc $54 

ooo0 10ceE SSS 

c00290 200% S56 

o6e0 1003 SS7 

1087 1005S ssé8 

00 1906 SS9 

cdoo 1608 S60 

106F 100A S61 

eseo S62 

oo16 S63 

OB879 S64 

eo1e S65 

S66 

1608 S6? 

568 

569 

S70 

S71 

sv2 

St2 

3% 08 1127 $73 

3¢ 46 O6FF ste 

oc 62 OS8FE OCBFF s7s 

3i 212 10¢86 S76 

31 16 OF 42 S?rT 

31 &6 2601 s7sE 

38 cO 1605 $79 

F3 16 O01 seo 

F3 16 00 Sst 

co 8? 1092 $62 

3S CoO 1605 $83 

co 6F 1092 sae 

3D 30 1006 ses 

Co 01 L0FS se6 

35 co 1005 Ser 

F3 10 $2 $66 

co ee? 1092 569 

OC O21 OF46 CF42 S90 

co SBF 60%¢ $91 

$92 

$e3 

$98 

$98 

$96 

ecco 1129 6S§97 

FFOS 1126 $96 
26 5UNTS 
8235023 
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€p 16s MAINTENANCE DIAGNOSTIC PROGRAM 


ERR LOC OBJECT CODE ADDR STMT 
SESSA EESS ESE SECEERESESEEKESEESSSESTESE 6 SKESERSSESSERAESESSRESEESTHECSESUCS e = 600 
* 32x%xX INTERRUPT SUBROUTINE USED TO * 601 
* SET THE INTERRUPT FLAG. SENSE THE * & 602 
* INTERRUPT CONDITION REGISTER AND e 603 
. RESET AND OFSAGLE INTERRUPTS e 603 
SOF SSSCEVESRESSE SE SRASEHES TKESCSSES ESKE SEER EETTES SKESKESE SHOES SESEESLS SECECE. @ 1259 604 
PENDNG SBN IENTFLGexX*so* SET INTERRUPT FLAG 142C 38 08 114D 60s 
SNS STATUS eX*16* SENSE THE ENTERRUPT CONDITION REG 1130 C2 02 1159 606 
RESET SIG %**03*.SIOZ RESET AND ENASLE INTERRUPTS | © 1134 EO 87 3¢ 607 
8 RESET LOOP UNTIL NO INTERRUPT PENDINGS t 1137 08 1137 608 
1138 BC OO 10 609 
Se Ne e 1138 €0 87 3 616 
* 32XK EQUATES AND CONSTANTS + 113E€ OA 113€ 611 
SHE SEES SESTE $F OEEESEEESEEESCEESESESRESAES FEREREESESEEEEESESESEES EE SEK ARETE EE | _ IL3F AE O21 1C 28 612 
ERASE 0C xL2°008 ERASE FLAG | eS 1143 88 60 1C 613 
@LKCNT OC XL12°00° BLANK LINE COUNTER ' 1146 CO £0 113F 614 
COUNT OC 1L2°e86ce COUNT REGISTER LENGTH = 80 | 1144 CO 87 0000 615 
COUNTS OC rL2*098 COUNT REGISTER LENGTH = 09 & 114D 616 
BUFLG oc XL1 00° @UFFER FLAG | 617 
GUFFs oC rL2*0o0# BUFFER ADDRESS REGISTER | 617 
POSCSR OC 1L3°e00°* CURSOR POSITION REGISTER © 617 
DATA OC AL2 COCPBUF) MAIN STORE REGISTER 617 
INTtT@® oc AL2(PENDNG) ADDRESS OF 32KX INTERRUPT ROUTINE 616 
INTFLG OC XLiI*°OO* INTERRUPT FLAG & 619 
STATUS DOC KL2°00° 32xx INTERRUPT CONDITION REGISTER 620 
RESETS OC ALZCRESET) ADDRESS OF 22XX RESET ROUTINE 622 
OCPBUF EQU x*0880° OCP BUFFER ADDRESS j @ 621 
SIO QU x*1I8¢ SIO IMMEDIATE | 621 
CRTFLG Eau x*oaTe: INDICATE MICROCODE LOADED i 621 
NRDY EGU <K®3e® S2XX ATTACHMENT NOT READY | @ 114 622 
OOA2 623 
INPUTA EQU) & COAE 6246 
SEHERSSHKELSESHNSESEKRERES SSESE SKESESE TEKS S AMSECKTEKCASEAE SSSESESSKSK TSE SEOKETES SR KSHKTR | @ OGAa0 6258 
& INPUTS= SUBROUTINE TO INPUT FROM 32XX INTO & -LNG- SYTE BUFFER el £19E C2 C2 1164 626 
Steseneee EACH ENPUT CHAR IS DISPLAYED ON THE 32XK CRT *| 1152 C2 02 1189 627 
SEKSSCESEKESESKERSSESKST CESSES SSESCKLECESTHLERESS KF STLEKESSSSE KSEE LSS SEK CSL E  6ESESRS @ 2159 628 
1156 B84 08 15 629 
| , 1:59 63¢ 
INPUTS ST ENDS+¢ 3 oARR SAVE RETURN ADDRESS | ¢ 1159 EO 87 3c 631 
uve KR*OGFFe.t" ¢ BLANK INPUT BUFFER | 115¢ 08 115C 632 
MVC - KEQBFE* C122} eX*OGFF*e BLANK INPUT BUFFER 1350 BC G60 10 633 
LIC COUNTS.x*22¢ LOAD COUNT REGISTER | € 2160 EC 8? 3c 634 
LIO = ENRPUTaex*iE* LOAD MAIN SYORAGE REGISTER 1163 09 1163 €35 
LIG POSCSRex*10¢ LCAD MESSAGE GUFFER ADORESS REGISTER | 1164 85 O: 2D 636 
TRYAGN & INT@e FAR POINT TO THE INTERRUPT ROUTINE eS 2167 C2 02 0000 637 
SIQ _K*01* eSEIGY ENABLE INTERRUPTS | 116A 638 
SIO €K*OO7eK*10* UNLOCK THE KEYSOARD i 1168 CO 6&7 00CO0 639 
8 INTAKN LOOP UNTIL INTERRUPT | @ 116E 640 
t INT@ oT AaRt POINT TO THE INTERRUPT ROUTINE ! 
e ENTAKN LOOP UNTIL INTERRUPT | 
cur STATUS eX*3D* ENTER KEY ? | & 
BNE TRYAGN TRY AGAIN IF NOT ENTER KEY 
t ENTS oT ARI POINT TO THE INTERRUPT ROUTINE ' 
SIO = K*S 2% eK" BOe READ THE 32XX BUFFER | @ 
6 ENTAKN LOGP UNTIL INTERRUPT | 
“VC 4 NKTSTR(2} INPUT 
ews 8 e-« RETURN | e 
SOS CRESESESESSSSESESE CESSES SOSSESESEESESESE SESS ESS SESESESESESEE VOLOEES ES | 
* CONSTANT s; @ 
Seeeteeesre te etes teeeeene tee eee eT ee Te 
were oc MLZeoe i & 
NG256 OC IL 2*-286¢ to 
t 
\@ 
t 
t 
i @ 
PROG 1D fce-0 | DATE 26JUNTS 
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qreee MOVE FC7 MICRO-CODE FROM OTAG PACK TO SYS PACK MOD 25 


SOURCE STATENENT 
PES EENEESEE 24968 FEES OEE RE FEERESESEEERESECEEESESEEEEETSERECERSESEOESESEE 
ce OISK WRITE 170 SET-UP SECTEON ee 
SES CESESESSSESES ES EOTESES ESS FEEEESEESTESSSESSS SEES RESOET SES SEESSSERERE 
USING BASEL XRZ 
WRITE ST WRTXS eARR 
LA BASE! eXR2 
8 STRTIOL oKR2) SEEK TO SECTOR 
21 oc marae 
mvt RDOFCH+3( oXR29 20 
8 STRTIOCoXR2) WRITE SECTIR 
215 oc RLPeae . 
acc ALC RDDFC 4262 .KR2) eONESEC(.XR2) INCREMENT TO NEXT SECTOR 
TSN RDDFC42( oe XR2)oX*60* 
eT aALc 
8 toe ; 
WRTxe ECU to-j : 
HHREECREKE ESEKERESEAESERESESEREREREREEE CH SERERCERTHERESESSESSSSHEESESSESR SERED - 
+* OISK READ £/0 SET-UP SECTION ee? 
EREECESEERSESEEESEE OEEESEELFESERERREREES VOSS SE SSKESKESERORESSEESESS ESS > BE 
: 
READ eoyv = : 
BUSY EQU xXtaze 
CYLREG EQU K*age 
NTRDyY EQU x*age 
LA SEKR2e XR] 
LA BASE! oxXR2 
USING BASEI oxR2 
sT¥ SARRC oXR2Z25 2ARR t 
BASEL EQU 3 | : 
8 STRTIO(SXR2) SEEK : 
z2 oc XLISee® t 
BVE RDOFC#S( oXRZ5 00 : r 
8 STRT IOC .XR2) READ COMMAND ! 
z3 oc XL FOF ; 
t DFOR{ oXR2PoARE 
ta kos ¢ XR2 i 
sxr2 €au t= ; 
8 ee 
CARR eeu to} 
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; PAGE 7 


fcseo MOVE FC? MICRO-CODE FROM DIAG PACK TO SYS PACK MOD 15 error MOVE FC7 MiCRO-CODE FROM DIAG PACK TO SYS PACK NOD 35 





ERR LOC ORJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBYECT CODE ‘ADDR STMT SOURCE STATEMENT 
642 SEEKS CEKES SEOEARESESEREDECSEERESEEEEOSSEEEEEERESEEEEEEEEEEEEEREKESES ORD | @ 68a SORES SLESSESESE ST ES EO SENEEEEESEESEHE SHE HES OEHEEEESEHERERESREYEOESEROEEEESE 
643 4% ODCF FIELD ee 685 * START £70 SUBROUTINE 
644 SLESERS SEE ES ESSENSE AKKEESEEE SESS EEE ESSERE SE SKE EHGKEADLE BHRERAEEREERHEERSDED @ 686 FORORGRSAKHESS STEELE SAKE SHES ARES HHSSSOVLESSHSESEEHAKSEREKVEKRSESEEEAORSEEOCASES 
645 ee0% BYTE 1 Kak 8YTE 2 REESE BYTE 3 ekte BYTE & aoe 687 , 
646 SERIES SSEEEESAELERRES ESHEETS HERES EEEESESSETEES EES SHOR HEE ENSEREERERERES 687 
O87 €2%4 FLAG #4820 CYLINDER REKE TRACK / sane NUMBER eae e 1198S 688 STRTIO EQU s 
648 ee4% BYTE eeae BYTE eee SECTOR eens GF SECTORS ¢ 1195 BS 02 28 689 t NRMDFCC( oXR239 6 XR2 1.020 BASE VALUE FGR START 270 
649 tenn eens *se% NUMBER weet 86 OR TRACKS €* | 1173 690 USING RDOFC.2 
- 650 FREAKS ESSE SRESOLER ACK SEERA TERE EASE SSSA HAEAKLAREREKEL RAKE SKLASA HARSH KEES { 1198 84 08 OF 6S STPARK ST SETXRIC oXR2ZI2ARR SAVE @DOCRESS RECALL REGISTER 
; 652 ; = 1198 BS 61 oF 692 LDPARM L SETARIC oXR2390XR1 LGAD XRI AS PARAMETER POINTER 
651i i L11SE 96 03 Si 06 693 MNIN SIG4+1(oXR23 00 oXKIP SET FUNCTION CODE IN $70 
116F 9001 1170 652 ONE oC RL2L6 ' e i2A2 CO 87 1280 694 8 DISK33 
i172 0002 1172 «653 Two oc Tt2°20 | $146 €95 OFSKSa EQU * 
1273 00 1173 658 RDDFC oc XL1°GO8 FLAG 8YTE e* BL eeeteen | 11A6 61 AE 11 696 214 i720 NRMOFCEXR2POCTLREG LOAD CONTROL REG. 
4274 GO 1174 655 oc XL1°9O8 CYLINDER SYTE +e oc ee | e 21A9 £1 AO ES 697 T10 NOTROYC oXR2) oe X2 AOE DISK READY? 
1176 ce 1178S 656 o¢ XL1°O08¢ TRACK & SECTOR NOe SYTE ** KE *8 11AC GO AE OS 698 SNS SENSE € e MR2)eCTLREG SENSE THE CURRENT CTt. F&Be ABDOK. 
1176 CO 1176 «4657 oc KLL*O0# NUMBER OF SECTORS OR TRACKS BYTE seseeunte D «2 | 11AF 79 OF 00 839 TSF OC eXRLIX*O7? TEST FOR SEEK 
1177 90C0 1178 6856 SENSE oC ML2°oO8 1182 85 01 05 766 tL SENSE ( oXR2) oe XRE LOAD XRi AS POSNT28 
1179 oOCKe 117A 659 OKESEC OC MLZtac o 701 * TQ OISK CONTROL. FIELD. 
1278 o0CO 117C «6660 EXTSAV OC RvL]2eoe 1188 Fe 90 48 702 JF AGREXT NO» SKIP SET ADDRESS. 
LiA7G wLTVE VIVE 661 RECABSe OC AL 2{ 242) FREKSARSESK KECK ASESCSEE GCSE BAAS & Fo3 
117F OCCOOOFF ite2 662 oc XLOtFre * UST SE TOGETHER 2 $188 81 AE te 70a 24 tre LAST@( eXRZ) eCTLREG 
663 ¢ ; FRECKLES SHREK SEAKSSESVLASOSSRBESE 1188 £3 AS O01 70S 25 sic 1lex*age REaD rp 
1183 1173 1186 6646 NRMDFC OC aL 2tRODFC? | © 118€ £1: ae 4B 706 710 *(eXR2)e8USY 
1185S 1668 1186 665 DFOR oc AL? COBUF } 11C1 B89 03 1¢€ 70? TBF LASTAD~2 (2XR2203 TEST FOR ALT. OR DSFECT. TRK 
1186 666 DBUFS Eau wi 11C& F2 10 oc 7038 JT oxK 
1187 11e¢ 1288 667 ALTEFC oC AL2 CARDOFC) eS 211C? 81 AE cB 709 26 iro RECASA( eo XR23-CTLRES 
1189 CO 1189 668 ARDDFC DC XLI*O® FLAG BYTE 3% BL se0eee8 11CA F3 AS 00 710 27 sIo OoX* age RECABRIATE 
138A 00 218K 669 oC XL1°O8 CYLINDER SYTE ae ec *e | 11CD £1 a2 Sa Vii T10 #1 oXR23.8USY : 
- 1166 00 118B 670 oc xLAtOF TRACK & SECTOR nO. ** KE 11DO BC OC 1D 712 MVE LASTAD( oXRZ? 00 : 
a 228C 00 118C) 4673 oc XL1ito8 NUMBER GF SECTORS GR TRACKS “StEEERE D5 Bt © 1103 713 ox EQu * 
118D i1eF 13GE 672 LAST® oC AL 20862) $ESSSRESTEEE SS OEKESEREESEEESRS 4EBL 90200828 21103 B81 AE OS 714 28 Lic SENSE. XR2} -CTLREG RESTORE C7LaesG 
ee 118F 06 11a@F 0 «673 oc XLieoe * MUST SE TOGETHER FLAG BYTE #* oC es e 1106 7¢ 060 03 715 mye BC eXR1) 0D SET SEEK # To C6 
1390 00 1190 674 LASTAD oc MLi°os = CYL BYTE 4s KE e+ 11D9 6D 00 Of 1D 716 CLE 1CeXR1PeL ASTADI1-XRZ) COMPARE NEW ADDRESS WITH CLD Re ree er 
119% 60 1292 6675 oc xus*oe SHSSSCSERASESLAESEBES SEC BYTE #284805 2 te | 1100 F2 B1 20 Tr17 JE ADREXT EGUALs SEEK NOT NECESSARY 
, 1192 60 1192 676 DSKDRV DC XLL*O® eS 1tE0 F2 84 O08 718 Jt FWOSEK NEW ADDR. HIGKER. CC FORWARD SEEK 
. 1193 1159 2194 677 oc AL2(BASE? 3 41€3 ac 90 87 10 719 mvc SCRCH(1eXR2)eLASTADE.XNR2) PLACE LAST ADDRe IN WORKAREA 
13@D 678 RECARD EOQY R—-l—7 : V1ET OF OO BT oO! 720 SiC SCRCH(1L eo XR2002CeKRID SUBTRACT NEW ADDR. FROM LAST 
et 1173 679 OSKFLS EQU  RDOFC j © 11€8 F2 87 OB 721 3 SETADB PROCEED 
- 1174 680 OSKCvL. ECU REDFC+1 722 : 
2275 681 DSKSEC EQU RODFCe2 | 11GE 7A 01 02 723 FWOSEX SBN 2(sKRI} 201 SET BIY ON FOR FORWARD SEEK : 
C Ri76 682 DSKNUM EGU = RDODFC43 © 11Fi 9C 00 a7 01 724 MVC SCRCH(C 1eKRR2Ve1EOXRI}3 PLACE NEW ADDRESS IN WORK AREA 
| 11FS AF 00 &7 10 725 SLC SCRCH (2 oXR23 eLASTADTeXRZ? SUBTRACT LAST ADDR. FROM NEU 
| 726 
€. S 12FA 727 SCRCH ECD #42 
% 11F9 7¢ CO 63 728 SETAOSB mvI 3{oXR1 de4#—2 INSERT NO. OF TRACKS To CROSS 
\ A1FC 9C 00 120 01 729 mvc LASTADC I OXR27 c1 0 oR SAVE NEW ADORESS 
& @ 21206 730 ADREXT EGU * 
re 731 
{ 
; 1200 B1 ac 13 732 29 t10 OFDR( . MR29.X* aCe LOAD OATA REGISTER 
Ce | @ 1203 F3 a0 CO 733 sio $10 OoX* aoe START £70 OPERATION 
| 1206 £2 a2 93 734 TIO *C oXkR2) BUSY WAIT TILL CONPLETE : 
735 ; 
€ | @ 1209 78 01 02 736 ser 2 oXRIL7 0O1 TURN GFF FOR. ¢ REV. BIT 
\ 737 
120C £1 a0 A7 738 TIC DSKERK( oXR2} oKRTROY BRANCH IF ERROR 
A i e 12232 739 SETXRI EQU ¥43 
| 120F C2 03 0000 7a0 LA t—# o XR1 LOAD KR1 AS PARAMETER POINTER 
1213 C2 of 1159 74a) LA BASE1 .XR2 LOAD XR2 AS BASE 
C | @ 1189 742 USING BASE! 02 
, 1217 DO 87 0:3 743 a 1€eXRID Extr 
| 744 
C i @ Tae 
| 745 SEE SESSSEKAS SE SERVE EK SES TESSTBER SE SED TEACSEES FHSS EHNNNEREEEERE ESE EERSEEOS 
746 et DISK ERROR SECTION ve 
: 8 7a7 BE SERLAESAOLG SF SLISS SS OSOVO KSLA SEES EAESRETS SESH VERNET ESTE EEEEEHREREOEETOD 
| 748 
: 748 
Mai & 
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PART NO. seeese E188 MAINTENANCE DIAGNOSTIC PROGRAM a PART MO. e230R65 . 
Pace 8 | : PAGE “8a. a 
Fcec WOVE FC? MECRO-CODE FROM DIAG PACK TO SVS PACK MOD 15 ‘ ‘ ce MOVE FC7 MICRO-CODE FROM DIAG PACK TO SYS PACK MOD 15 , = v3 : 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT . eo. toc OBvECT cope ‘ADDR STMT SOURCE STATEMENT 
1173 749 USING ROCFC.2 792 SES CHRSSELKS $F ESSSTEEES SESS OSES EES RERECESEEERNEEESEESEEORERESES | « 6eCe 
221A TSO OSKERR EQU. + 793 #84 TITLE * OFSK TYPE 3340 1/70 ROUTINE eeceeeesese = -9GCe 
121A B1 AE 15 751 210 tre AL TOFCE oXR23 oCTLREG LOAD CTL. REG. To POINT TO ALT. FLD. FOR SESSRRSTERESEREESEE OS OEE SES SEERESEEETES £8 00308 O80808088884REE8R s6Ce 
1210 F3 a9 01 752 Z11 S10 Otexeage READ 1D SIO 795 
1220 E1 a2 aD 753 TIC = *(€eXR2) BUSY DELAY TILL FINISHED 79S ; : 
1223 BD 02 16 754 CLI = ARDDF CC oxR2).02 TEST FOR A DEFECTIVE TRACK @ 795 
1226 F2 81 16 755 JE SETALT _ JUMP IF IY IS. ibid 
21229 CO G7 O21A 756 8 PRINT 95 
1220 Cc? 1220 757 oc XLiecre } 1280 3D 33 0ags 796 OFSK33 CLI OSKTYPe x*33* SOURCE A 3360 
122€ 20° 122 758 oc g0.1°32¢ | 12C1 CO 01 21246 797 BNE ODISKSS IF NOT BRANCH TO S844 ROUTINES esce 
222F 126c 1230 759 oc AL2(DSKER) : 12CS 0C 69 2SE0 1602 798 MVC ODCFE(10) .DOCFS INITIAL DOCF FIELD S6Ce 
1231 aorc 1232 760 oc 32. 2°S9OFCe oO 12CB 30 CD 1008 799 SNS STATUS»X*CD* RESET HISTORY UNIT C.ECK SITS -*6ce . 
1233 Ce eB? 0222 761 8 #£=#HALT ERROR ¢ FC $99¢46800800 00000046¢0400008 12cF C1 ce 1489 800 TIO DKNRex* cet NOT READY/UNIT CHECK ERROR TEST e6ce. 
1237 eB9oFC 2236 762 oc XL2*890FC* 1203 3C 00 15D7 801 MVE DDCFex* 00° CLEAR FLAG BYTE e6Ce. 
1239 @1 AE 11 763 Zi2 LIC WRMOFC(eXR29SCTLREG LGAD CONTROL REG. S 6c2 
123¢ F2 eB? 03 764 J SAVPRM 802 
123F BC Ot 16 . 76S SETALT MVI ARCCFC{( oe XR23.6;. set FLAG BIT TO ALTERNATE 803 SHCASEAESS SSCS LEES FOSS ESSE ASSES OSEHESSSENESESSESESED SESE ESEERTERESEEES - 
1262 AC 01 09 OF 766 SAVPRM MVC = EXTSAV(.20XR2) eSETXRIZ oXR2} SAVE OLD PARAMETER PTR. 6 604 eee eeete eee oe aes Ott see un eee 
1246 EO 87 25 67 8 STPARME oXR2) TO £70 SUBROUTINE TO SEEK ALTo Ke 605 +eeeness 5444 ADDRESS 4 DOR : 
12489 cs 1249 768 213 ec nLiséas FUNCTION CODE B06 BE Nee eg eae Sey ee are ee eee 
1159 769 USING BASE! 62 & 607 & 
1240 BS 02 28 770 t NRMOF CE eo XR2)e XR2 LOAD BASE VALUE FOR START 170 80s * INPUTS OSKDRY <-> roeGe . 
2173) «771 USING RDDFC e2 . 809 ¢ OSKCYL —<> 1 CBCHN@-2 
124D AC O01 OF 09 772 mvc SETXRIC2SeXR2) LEKTSAVE eXRZ) RESTGRE PARENETER PTR. & (810 * OSKSEC <--> 1 0eCHN-1 
1251 ac 02 19 03 773 MVC = ARDDF C30 3.XR2} ROOFC4+3S(eXR2Z) TRANSFER SECTOR NO. 812 & - we a 
_ Te & CYL ee NOs AND NO. OF SECTORS 812 * GUTPUT: ODCF FIELO CYLINDER seHEADeRECORD NUMBER FOR 3340 SYSTEM + 
ou 1255 €O 8S? 28 778 8 CLOPARM( XR2} TO RETRY GRIGINAL OPERATION @ Sie hance ole a ous Te ea ae 
~~ 776 . 
776 815 © THE FOLLOWING AREA IES SET ASIDE FOR USE AS CONSTANTS IN THE 58806 s. 
e TTT F8SSS SE SEESSEKSEESESSEEES OS 049966865085E8 8 OE $EF408886 0944880888 048E8s © 816 ¢ CONVERSIGN ROUTINE. *. 
778 we PRINT NOT READY MESSAGE ee Se eS SSS SS Se A SS Se OES SOS SSH Oe: 
779 SSS SES SERSESEESSES EES SEOSREE $0665865 £20963 0S O86E$6923240E88 456602082 SEO8TE 618 wie ee 
7980 12D7 CO 87 1332 B19 a GPCcs. e6Ce: 
G , «4 780 Ss 1208 20 2208 820 HEx29 OC MLECZOs © pecans 
1256 CO 87 0214 781 NOTRDY 6 PRINT 120€ 06 120C 821 FoUR oc MLI*9ee . . - 
128C CT? 128c 782 oc MLL°crs e@ 120D 14 1200 822 FORTEN Dc RLIeage = 
~ 128D 32 1250 783 oc TL2*¢soe i 12DE 17 12DE 823 SVNTEN OC MLGegTe £ 
12SE 129¢ 125F 760 oc AL2{DSKND) -220F 824 TABLES Equ «+ : 
1260 8S9oFE 21261 785 oc XL 2° GFE | e 12DF coag 12€0 «6825 oc XL2°Coage TABLE ENTRY FOR A F323 REQUEST ;. 
= 1262 CO a7 0222 7Te¢ 8 MALT ERROR + FE seenescaceeseseeesedscetsse 12E: coB3 a 826 Be ac. — ENTRY oe . = aoe ; 
1266 G9OFE 2267 Yer7 oc RLO*Soree . 12E3 cseA9 12€4 827 x ENTRY ECQUEST : 
1268 €O a7 28 788 8 CLOPAANES(.XRZ) a | eS 12€5 cess 12€6 826 oc RL2*°css3e TABLE ENTRY FOR A R2 REQUEST : 
1268 C&CSE2ZD24005SD6E3 129C 789 DSKND OC CLSO*DISK NOT READYe MAKE F1 / R1 READY AND RESET HALT® | 12E7 00 127 = HEACWA OC XL2*°90° YORK AREA : 
1273 4c0Decsciceeaseso 7ae 128 6 STARTN EQU +t t. 
1278 C&C1ID2CS4a0c er 140 7869 i e@ 12€8 coeoD0Ce 12€8 831 IOBCHN oC XL4*°008 BUFFER AREA FCR SUB-ROUTINE ‘ 
1283 6140D9F 14000C5C1 769 12EC 00 12E¢ 832 10808 oc XL2°CO® BUFFER WORK AREA i 
1286 C4EB40C105C4eCcD9 789 833 : 
1293 CSE2CSE340CeC103 789 | @ B34 SPSOCSES SEES SE NESETE STRESS HSESTS ESS COE SEES SE SESESSSERSsETeseseEeeseEs 
1298 ©349 789 . 83S Y 
1290 C&CSE2D240CED9N9 128C 790 DSKER DC CL32°OISK ERROR. RESET HALT TO RETRY® | 12ED CO B87 O21A eae ERRNSG a oe = ny biel tie nae bag lad bere 
2245 060968¢009CS5E2C5 790 12F1 87 12F5 83 xL1 DRE ADDR : 
12ao £340C8C1 DZE340E3 790 © 12F2 33 a 12F2 8368 oc 1L1°S1° LENGTH OF MESSAGE - $6Ce: 
1285 DEsODSCSESDSCEe40 700 12F3 1333 12Fe 86839 oc AL2CERRMSL) ecce. 
f eC $2®S CO 87 0222 840 8 Hat . . _ S6Ce.. 
‘i 12F9 SOFA 12FA 841 oc XL2° SOFA‘ . = ecce 
| 12F8 CO 87 0216 B42 8 Lin *6Ce 
es, | C 12FF ESDSCIC2Z03CS4CE3 1331 843 ERRMSL DC CLSI° UNABLE TO CONVERT 5€48 ADDRESS INTO A 3340 ADORESSs* | 
| " «$307 D640C3DEDSESCSD9 843 ; 
‘ 130F ES40FSFeFAFae0c! eas 
e | (1317 caceoscsezezsoce 643 
a | ™ 131F OSE30640C140F3F3 | 843 
1327 FeFoacci cecepecs 643° 
fe eS 132F E2E2eB8 643 
Se | 8ee 
eae 
& ; Baa 
| 844 
Cs | 1\@ | | | | ae 
DATE 26SUNTS PROS ID ar OaTe 265UNTS - . 3 . : PROG ID - FCe-0 | 
- EC NOs 825023 . PAGE 8 | @ec no. ezsozs is mc : PAGE / oa 
i: | 2 
- | od 
G |e | zs eee ee: fe 
fs 
: wenn eeeeseeeeneede 


eceeseovseeveeeeese © 








eeeoaeeveneeoevoeneoeoeneneeeeeoeeg ee e0e@ « e 
nek, | | : , : | | a | Pg mt 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


FR a. het tains os. sateen A ee 


Re ee Ee hy aa ee, PRE ee og + Re ces eS 


f€ceo MOVE FCT MICRO~CODE FROM DIAG PacK TO SYS PACK MDD 15 


ERR LOC OBJECT CODE 


1332 845 
128 846 
1332 C2 01 12€8 647 
1336 OC 01 12EA 1178 aes 
233C 4C 00 04 1204 49 
1341 SC 00 03 08 850 
12DF 85: 
1343 C2 02 120F e52 
1349 78 10 03 853 
138C F2 90 03 854 
134F €2 02 04 835 
1352 78 08 93 856 
1355 F2 10 03 8s7 
1338 £2 C2 02 8ss 
f 859 
“— 859 
eso 
f 860 
~ 863 
862 
f* 863 
“ a66 
1358 2c 00 1371 01 865 
f 866 
- 1360 ¢8 00 04 90 267 
1368 88 08 00 868 
f 2267 7a 08 04 269 
* 236A F2 10 03 870 
236D 7B 08 04 671 
f 2370 ce 00 00 872 
Sew 2371 873 
1373 7p 06 61 874 
<- 14378 F2 @2 26 875 
—_———————-_ “4379 7p cB 01 87s 
237C CO 02 12€0 B77 
roe 2380 4F 90 01 120E ava 
Ree ars 
1385 €2 #2 29 880 
C- e683 
ms 1388 7D 00 01 882 
1388 F2 #1 18 983 
as 886 
‘ee 238€ 4€ CO CO 1170 885 
1393 6F 00 ¢1 1200 aa6 
f 887 
1398 F2 82 16 see 
1398 CO 87 1388 aso 
i 890 
139F 7 00 01 991 
13a2 €O 01 12€D 9e2 
1346 F2 87 0D 2@93 
~ 808 
2309 EF 0 00 1170 895 
A3AE F2 BT 05 ess 
= . 807 
9381 @F 00 03 12DD 898 
a 999 
900 
1386 3C 01 12€7 902 
238A 7O 00 02 902 
138D £2 61 21 oc3 
13¢0 78 80 02 904 
13€3 f2 90 05 905 
23C6 @F 00 02 1208 906 
907 
13¢€8 TD Fc 02 oes 
13CE CO 88 124D 909 
2302 CE 00 1287 1170 910 
G 
DATE 26RINTS 
/ €C NOs sRzeO2s . 
aes 
: €: 
on : 


CKF IND 


NEWDRY 
s 


cvTcTn 
CYSIRT 


cKRevL_o 


ASOR STMT SOURCE STATENENT 


Re a ee gt ck Ta nee, 


eee eo ET he RN ew ee 


© 


PART NO. ee ¢ MAINTENANCE DIAGNOSTIC PROGRAM 
PAGE 9 | 
ERR 10C OBSECT CODE 

gov 8 1308 af 00 02 120C 912 
USENG STARTNomR1 13DD CO 01 13¢8 912 
ua STARTN ARI 913 
myc TOBCHN-1 (23 oDSKSEC : - 1362 aC 09 02 127 914 
avec JOB—OR{( 1 oXR29 o SIOF1 SAVE THE S086 0 CODE + 13€6 OC 09 1509 12¢6 915 
mvc TOBCHN 1 oXR1 3 o 308084. XR13 SAVE THE 5004 0 CODE 23EC OC 90 15DB 12€9 916 
USING TABLES .xXR2 13F2 OC SO 15DC 12€a 917 
1A TABLES oXR2 LOAD REG 2 WITH ADORESS OF TASLE 918 
TON ICBCMNE oXR19.X*108 Go CODE FOR SPINDLE 17 919 
JF CxFIXD KIUP IF REG 2 16 OK 920 
La 4 oXR2) oXR2 SUMP TO POINT TD SECOND MALE 
Tan IOBCHN( .xR13.x*08* @ CODE FOR FIXED DRIVE? 
JT NewDRY SUMP IF FOR F1 OR F2 
ri 21 oXR2) oXR2 Bump If FOR RENOVAGLE 


vc 


mMZZ 
TSN 
San 
Jt 

Ser 
avI 
tou 
cas 
JS 

c.3 
aM. 
Sic 


Ja 


cur 
J 


acc 
sc 


* etemeese eee ae 828 88 
POINTS TO THE TABLE ENTRY COORESPONDING TO THE 
DRIVE. 
@eesesees ee ee eanseeseree ee ane ese 
CYSTRT( 13 01 f oXR29 SET MCVE INSTRUCTION TO PICKUP START 
CYLINEER OF SEMIMATED AREA 
309081 -XR1 3.204 .xR29 MOVE IN THE ZONE DOF OPERATION CODE 
Of oRR2) 0 X*08* FOR 3340 ORIVE 2 OR 47 
2080B{ oXR1 1. K*0a* ASSUME 3340 ORIVE 2 OR 4 
CvTcTn SO START THE CONVERS ION 
IOBOH( » RN1 3. X*OB* CORRECT A SAD ASSUMPTION 
TOBCIH-3 (2 XR1 320 HOVE IN START OF SIIGSLATION AREA 
2-2 
IOBCHH~-2( oNRI3.K°OS* CHECK FOR 5444 CYL Osle2. OR 3 
CXCYLO IF (ON GO CHECK FoR CYL 0 
10BCotl-2( o MRI3.K*CB* CHECK FOR CYLINDER 2037 
ERRMSG CYLINDER 203 OR GREATER IS INVALID 


TOBCHN-211.«XR1i}.sSYNTEN SUBTRACT NUNBER OF 48 TRACKS 
POSSIGLE ON FIRST 3349 CYLIIDER 


AaDpeaxk JUMP IF 44 CYLINDER 15 ON FIRST 
- SIMULATED 3340 CYLINDER 

IOBCHN—-2( oER192K*O0* SEF IF CYLINDER WENT ZERO 

UPCYLN IF ZERO CONVERSION OF CYL 15 


ALMOST DONE. 
IOBCHN-311eZR19.ONE ADD ONE TO 3340 CYLINDER 
IOBCHN-2€1eXR120FORTEN SUSTRACT NUMBER DF 44 CYLINDERS 
POSSIGLE ON NEXT 3360 CYLINDER 
SUMP IF RESULT WENT NEGATIVE 
LGOP SACK AND CHECK AGAIN 


ADDBAK 
CXZEROD 


ICONW-2{ .ER1deK"00* IS THE REQUEST FOR CYLINDER ZERO? 
ERRNSG IF NOT FOR ZERO. ERROR 
CvTsta GO TD CONVERT SECTOR To RECORD 


TOSCHN-3(10XR1)2ONE UPOATE TO NEXT 3340 CYLINDER 
cvyTsTe : GO CONVERT SECTOR TO RECORD 


TOBCHN—2(1eXR1 DeFORTEN ADD BACK FOURTEEN SHEN RESULT 
GOES MinUS. 


HEADWA. X*01¢ EMIVEALIZE WORK AREA WITH A 1 
TOBCHN-1 1 oRR120X*HO* REQUEST FOR A 5048 SECTOR ZERQD? 
Exit COMVERSION 15 ODI 
TCOCw- 1 € oKRIDeX*SO° TRACK 2 OF 5848 REQUESTED? 
Sune JUMP {IF TRACK 1 WAS REQUESTED 
SOBCINlH— 142 oXRIIOMEXZO MAKE TRACK 2 AND 1 COCNTEGIOUS 


SOBCH- 2¢ eXANIFR*FC* DID SECTOR MBER GO NINUST 
Eanwesc ERRGR IF SECTOR £5 NIwUS 
HEADWAL 1? OME 


ADD ONE TO RECORD MAIER 


s 
= 
s 
s 


he a a i SD lS Sein 1 at nee ate CI RS NS FI Ki el a SE ee Rn SR os dats ME Al Mie Ue a ALA Ninn Miche a ie 


se a 


le Aiea ERI eft en CME AIL MAL A VRE hls ak RA macht beam hits wachhtinih Wimkdahh MIs mie RE i ee bth) imate Pavintiins Abdali 2 Oi eA 


 ,eeeeeeevneevneeeeneeveseee ers a 


a 
} 


ee net ie ES we 


sac 
BN2 
exit 0s MVC 
svc 
myc 
mvc 
e*#ee23 8 
2 END OF 
ase 2028 # 


E 


ero SOVE FCT MECRO-CODE FROM DIAG Pacn 70 SYS PACK MBB 18 
ADDR STMY SOURCE STATEMENT 


30BC100-1412XR13.FOUR DECREMENT SECTOR COUNT 
Sump 


200P BACK SF NOT ZERO 


SGOCI0-202-RR1VeHEACWA NOVE RECORD COouNT TO 108 


DOCK 4241 3.2 0BCHN-3 MOVE CYCLINDER IER 
DOCF2411 9.2 CHCHN-2 MGVE HEAD AMBER 
ODCF25(13.710BCweNH-1 MOVE RECORD SNIDER 


esetoee eee eneaeee02422823480829238 
FO 3340 SIMLATION CONVERSION ROUTINE * 
aeeseeeaeeoteeaetzaeaeeteeoase ees ee eee 


Sie ppt epaveeinays 


bp gees ate pate 


PASE S ee err aR ag tt sHA LF 











fh a re ean — 


Be me a eo a ee Rt ale ae ae ad EE Re Va et bee Re ee al ees ee SS ee A et ee Re ee eR eee RL ae NS eae ee lee ee Gy ee nee 





168 MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 423426 €: res MAINTENANCE DIAGNOSTIC PROGRAN a23ezes 




















PART NO 
PAGE 210 Pace 10a 
FC8O0 MOVE FCT MICRO-CODE FROM DIAG PACK TO SYS PACK NOD 15 | Cyrceo MOVE FC? MICROCODE FROM DIAG PACK TO SVS PACK MDD 1s 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
13F8 OC OO 1S5FB 1206 922 MVC DSKFCTC1)eSTO*l LOAD DESK FUNCT CREAD OI-WRITE O2-SEEK 00) ° 26D3 2A 1403 990 OC ALICSTATOT-STATST} @ S@vTes e¢6ce 
fSFE 38 Fe 1568 923 SOF DSKFCT.eX*'FB* STRIP OFF OF DAN BITS | “gape 1525 1405 991 DC AL2CSTATOTS ® Oc2 *6Ce 
1402 OC 00 1458 15F8 924 MVC ROWRTCL C1)<OSKFCT MOVE DISK FUNCTION READ/HRITE INTO stoecce | e 24D6 C1 CA 1406 992 THO @ox*cae . ATTACHMENT BUSY CWAIT) *e6Cce 
2408 OF 0O 1458 1SF7 925 ALC RDWET4E CLCORVEZ INSERT ORIVE NUMBER INTO SIC *6Ce 140A 31 CC 1506 993 LIG LSNSeX*CC® LOAD DODR WITH ADDRESS OF DSNS *6Ce - 
140F Ci CA 140€ 926 TIO #ex*cae ATTACHMENT BUSY (WAIT} *G6Ce 14DE F3 C9 OF 908 SIO Tex*cge RD DIAG BYTES *6Ce 
1412 31 CE 15CE 927 L10 LOCFeX*CE* LOAD ODCR WITM ADDRESS OF ODCF ecce| eG 16E2 Cl CA 14E1 995 TIO @ex*Cat ATTACHMENT BUSY (WAIT) ; ecce. 
1416 31 CS 1500 928 LEO LODF.xX*CC* LEAD DGOR WITH ADDRESS OF ODDF *6Ce 14ES C1 CB 14A7 996 TIC DKERAcX*CB* NOT READY / UNIT CHECK AFTER READ DIAG CMD *6Ce 
1414 F3 CB CO 929 SIO Oex*cae SEEK COMMAND PRIMARY TRACK *6ce 14E9 CO BT O21E 997 8 UNPACK * UNPACK *6Ce 
1410 Ci CO 1410 930 TIO *ex*cge SEEK BUSY (WAIT) *G6Ce e 24EO 18 14E0 998 OC FLIssee * READ DIAG e6ce 
3423 CE CA 1421 931 TIO @ex*cat ATTACHMENT BUSY (WAIT) SG6Ce 14EE 161A 14EF 999 DC a 2(DSNSE? * eYTES ecco. 
1425 Cl CB 149F 932 “TEC OKERGeX*C8* NOT READY / UNIT CHECK AFTER SEEK CMD *6Cce 14FO 21644 14F1 1000 OC AL2C(PSNS) * o-23 *6Ce 
1429 OC 09 15F4 15€0 933 MVC 0OCZC10).DOCFE *GCe 14F2 CO 87 021A 2001 8 PRINT * PRINT HEADING FOR e6ce 
142F OC Of LSF3 15F6 936 MVC «NNCZ=102) -00ZL *6Ce © 14F6 83 14F6 2002 DC xLI ase e READ O1AG S6Ce: 
1435 31 CE 15D2 935 LIC LOCKeX*CE® LOAD DOCR WITH ADDRESS OF DDCK (DDCF)? *GCs 14F7 10 1@FT 1003 DC ALI CRODGE-RDDGS} ¢ BYTES *6Ce 
1439 31 CC 1500 936 LIC LODF extcce LOAD DDDR WITH ADDRESS OF DODF *G6Cs 14FB 1542 14F9 1004 OC AL2CRODGE) * 0-23 e6ce: 
143D ©3 c9 01 937 SI033 SIO X*O1*.X*CE* RD MA & RO EVEN COMMAND *6Cs 14FA CO B87 OZ1A 1005 B PRINT @ PRINT e6Ce. 
1440 Cl CA 1440 938 TIO #.x*Cas ATTACHMENT BUSY (WAIT) *6Ce 14FE 86 24FE 1006 DC xXLI°B86e « READ DIAG e6ce 
1444 C1 Ce 148¢ 939 TIO OKERZ«X*CB*° NOT READYSUNIT CHECK 79? *6c¢} e 14FF 30 14FF 100T OC 1k21°48¢ a BYTES e6ce 
. 940 . 1500 164A 1501 1008 DC AL2CPSNS) e O- 23 ¥“6Ce 
1448 36 02 1561 941 TBN DDOF.x*02* CHECK FOR DEFECTIVE PRIMARY TRACK *G6Ge 1502 CO 87 0222 2009 8 HALT ecce. 
: 144¢ F2 10 17 942 JT PRIDEF JUMP YO ALTERNATE TRACK *G¢8 ce 1506 s9oFB 1507 1010 oc xXL2*¢eOrBe *6Ce. 
Re 943 1508 CO &7 0216 21021 8B tin eGCce 
144F 964 L1033 EQU * *GCs 1012 ; Ss 
7 144 31 CE 15CE 965 C10 LOCFeX*CE® LOAD DOCR WITH ADORESS OF DOCE *6¢e @ 1508 1013 STATST Eau e-1 eG6ce.. 
21453 31 cc 1504 946 LIG LCBEVEX*CC® LOAD ODDR WITH ADDRESS OF oCBUF *6ce ISOC S0E2ZESCIESESE2Z€O 1525 1014 STATOT DC CL26® STATUS BYTES O11 ARE XXXX? ecte - 
1487 ©3 C9 CO 947 ROWRT SIG O+-x*C9? RO/WRT KEY DATA (C9/CA) *6ce 1514 C2EBE3CSE24e0F 068 1014 
* 14SA CI CA 145A 948 TIG @ex*care ATTACHKENT SUSY CWAIT) *6ce e ' 181C F140C1DSCS40E7ET 1034 a 2. 
s 14SE Cl C8 2495 $49 TIC OKERG.xX*CB* NOT READY/UNIT CHECK *6Ce 21524 ETE? 1016 : 
$462 CO 87 120F oo 8 SETxXRI-3 RETURN TO CALLER s6te 1525 1015 RDOGS FaQU e-1 e6Ce .. pits 
es 951 1526 GODSCSCIC4ACCECES 1542 1016 RDOGE DC CL29* READ DEAG STATUS BYTES ARE « e6Ce | 
1466 952 PRIDEF EQU * *G6c*e 1S2E CICPaCEZESCIE3ES 1016 ct 
1466 3C 01 15€1 953 MVE DODF.x*01* SET-UP FLAG @YTE FOR ALTERNATE *Gre 1536 E240C2ESE3CSE240 1086 i 
C 146A 3C 01 15D7 9546 MVI DDCF ex O1* SET-UP FLAG BYTE FOR ALTERNATE *6Ce e 253 cipscsecao 1016 av 
146E Cl CA 1466E 955 TIO *ex*Cae ATTACHMENT SUSY (WAIT) *6ce 2542 1017 S030 EQU 6-4 CEC cece 
1472 31 CE 1500 956 - LIO LODF.X®*CE*® ‘COAD DOCR WETH ADORESS OF DDDF *6Ce 1543 a0ceceE2p2e0cane 1550 1018 C= CLi€*® DISK ORIVE 2¢ *6Cce. 
Z £476 F3 CB 00 957 SIO Oex*cs8* SEEK COMMAND ON ALTERNATE *sce| e 1588 COESCS4040F2 1018 } 
: 1479 Ci CO 1479 958 TIO €.x*coe SEEK QUSY 77? CwAIT) *6C* 1551 SCDSD6E34009C5C1 1568 1019 _ DC CL2a* NOT READY # UNIT CHECK ¢ =GCe: 
247D CE CA 147D 959 TIO *.x*cae ATTACHMENT BUSY CWAET} *6¢Ce 1559 C4E 284061 40E4D5C9 1019 ie 
£461 Cl CB 149€ 960 TIO OKERSeX*CE® NOT READY / UNIT CHECK AFTER SEEK CHD *6Ce 1561 £340C3CeCcSC3D2460 2019 . i 
1485 CO eF 143D 961 e s1033 GO TO RD HA & RO ALTERNATE *cce| 1569 £040404040400000 257C. 1020 PD3i oc aazoe. ’ Bs: ; . @6Ce. 
962 2572 4040¢00060400040 2020. ae 2 7 : 
fc: 1489 F2 eF 21 963 OKWR J PRTNR * PRINT NOT READY ¢ UNTT CHECK *6C*) Gy 1579 s0eceoso 2020 . arn i 
we ; 964 : 1S7D 40CICEESCSDN96CDS 1590 1021 PD3S DOC CL20* AFTER READ HA & ROW? e6ce: 
148C OC 13 187C 1590 965 DKER2 wmVC PD31¢20) -PD3S * MOVE AFTER READ HA & RO *6Ce| 1688S C5C104460C8C14050 2021 ’ ah 
eT 1402 F2 BF 16 266 J PRTNR @ NOY READY / UNIT CHECK e6Ce Oo 1Se8D secngFoes 4022 : 
we 67 | 1591 S0CICG6E3CSD94009 15A4 2022 P0435 DC CLZ0* AFTER RDSURT DATA o* e6ce: 
1498 OC 13 157C 1546 S68 DKERA MVC PD31C 20) D4 @ MOVE AFTER READ ROSURT CHD *G6Ce 1599 C461 E6DOE340C4CI 2022 : 
¢ 1498 F2 e7 OF 969 J PRTNR @ NOT READY / UNIT CHECK *Sce| 1SAt ©£3C14008 21022 ; : 
a 970 l ISAS S0CICGESCSOOSCE2 1588 1023 PD*46 DC CL2O* AFTER SEEK COMMAND. ¢ seco. 
149€ OC 13 157¢ 1566 971 OKERO MVC PD312¢20}.PD46 * MOVE AFYER SEEK COMMAND s6ce 1SAD CSC5D24¢0C3060406 2023, 
‘ 14a6 2 ef 06 e72 J PRTNR *® NOT READY ¢ UNIT CHECK *6Ce CQ 1585 C108C4aB 1023 ‘ 
a 9T3 1589 40CICG6ESCSD9SOD9 §5CC 1024 PD46 DC CL20* AFTER READ DZAG CHDE e6Cs = 
UQan? OC 13 157C 15CC 974 DKERA MVC PD31C26).PD48e © MOVE AFTER READ DIAG CMD *6ce! 1SC1 CSC1C440C4C9C1C7 1024 i 
a 9Ts i © 15C9 40C30aCe 12024 . : 
> 24@aD CO GF O21 976 PRTKR & PRENT * PRINT THAT UNIT ; ecce 1025 
- 4481 C2 1681 9OTf7 OC KELL EC2? @ MOT READY ¢ UNMET CHECK OCCURRED oe . 1628 
1482 3A 1682 978 OC £&£1(PD31-P030) * ORIVE *cce e 15CD 1807 2SCE 1026 LDOCF oC @.2 (ODCF? ADDRESS LEFT<MOST BYTE GF DOCF *6Cs © 
. 1483 ts7C 1484 979 OC AL2¢Po031) * Is *6ce ISCF 1561. 2500 1027 LODF oc At. 2¢DODF) ADDRESS LEFT-NOST BYTE OF ODOF _ s6ce 
2485 e9FB 2486 980 Dc ML2*s80Fe* | 15D1 15€8° 1S02 1028 LOCcx oc Al. 2CODCK } ADORESS LCEFT-MOST BYTE OF DOCX CODCF) ecce 
1487 3C 40 157C 9st “VI POS. x* 408 @ PLACE @ © este G 1503 1648 | 21504 1029 LBUF DC atL2¢tosurF) ADDRESS LEFT-MOST BYTE OF DBUF SECS. 
1668 oc 12 1578 157¢ 9682 MVC PD31-1019)9-6PD31 ® BLANK PD31 WORK AREA *6ce 1505 £603 215N6 1030 LSNS OC M.2CCSNS) ADDRESS LEFY-MOST BYTE OF OSNS e6ce 
14C1 30 CO 1008 983 SNS STATUSeX*CD* SENSE STATUS BYTES 002 *6Ce 1031 ¢&6eeeGt 2O¢heSSSEREAD/WRITE KEY-DATARE804 06686 FOS SOSESEETESESCESEGCE 
14CS CO BT O21 984 6 UNPACK - * UNPACK scce @ 1032 ® oDCcF *F ¢ CC © HH ®R & KL © OL EN) 3 DISK ORIVE egcs. 
2146C9 62 314c9 | 985 Dc ME2°O2° s sTaTus s6ECce 1033 €8SESKSSKEOCSESOSKESEESEESESEESSSEECEEESESRESROERER CONTROL FIELD eG6Ce . 
24CA 1¢D8 18CB 986 OC AL2C(STATUS} 2 BYTES *6Ce 2S07 1034 DOCF EaQU 
14CC 1525 14CD 987 OC aL2(STaToT? * Oot *ece| 1807 00 1807 1035 oc RL2toe FLAG a w ecce 
14CE CO BF O214 ses & PRINT @ PRINT 26ce 1spe coco 1509 1036 oc RL2°008 CYLINDER € R aGCo 
1402 #2 14D2. 989 oc xE1I¢eze ® Status *6ce 150A 0000 1808 1037 oc xL2°908 HEAD ADDRESS a 1. e6ce 
<2 . © a : . 
DATE 26SUNTS PROG Id Fce-0 DATE  26JUNTS PROG 10 #C8-0: 
__&e NOe 825023 PAGE 20 @* NOe 826023 - PAGE 80a: 


| of : “Oo,  & - te Sdn Bae Oo ia | | . see 





re 


a . i i . ; 





) oe | e . @eeee3@e#eceCeceeese 









= 
goed Sys BAR ge oe barred ee cass ar ee nM bia tes 0c. it aia sito a ite ie Foetiat ia hI CIAO ate I ABN it ER lini Mitten eed ast a at a oon Ria nee fewer B ae gee ot Sa aE ne ee s TN a ee en ee Se 
e 
TOM MAINTENANCE DEAGNOSTIC PROGRAN : PART ND. 4234262 (tem MAINTENANCE DIAGNOSTIC PROGRAN : ; ; PART. NBe. ; 4236266 
: «PAGE 23 : 


fF ceo MOVE FC? MICRC-CODE FRCH DIAC PACK TO Svs Pack oD 4s €erceo MOVE FCT RICRO-CODE FROM DIAG PACK TO ‘S¥s PACK 0 48 


ERR LOC OBJECT CODE ACOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
i1sp¢c 00 1S0C 1038 oc xXL2°Q¢ RECORD . tT s6Ce © 1686 2068 DBUF fou 2 
250D 00 1500 1039 oc XL2°O8? KEY LENGTH € *6Cs £648 174A 1069 os RL286 
ISDE 0000 ISOF 1040 oc XL2°00¢ DATA LENGTH CONTROL *6ce Cc 1748 9008 174¢ 1070 Cs0008 OC xL2*9008* 
1SE0 CO 1SEO 1041 oc xL1908 COUNT FIELD *6Ce 1780 408040404040 1752 tase er oa 
1SEQ 1042 COCFE EoQU *-3 : : sG6Ce 1753 00 1753 1 inv . 
al 1043 #824866¢828¢494220240¢¢ READ HA 6 RO FECEEESSEEEEESOSS OE ES994684948.046CO G 1754 4040404040460 i759 1073 SLANK oC cise « 
1SE% 1004 DDDF EQU + *6Cs 17SA 1074 xXMSG1 FQU «+ 
25E21 0000000000000000 1IS5EA 1045 OC XiLICeOS * OISK ORIVE DATA FIELD FOR READ HA & RO *6Cs io eeconusserc cae 21773 oe oc CL2Z6°WELL SYSTEM PACK RUN FROM * 
1S5ES 0000 - 1048 a 1762 E€3CSDa4 a 2 
1046 0944052609 96¢828¢0604 F24SE8SES6S$4409846096042604 Cc I76A S0CSE4O0S490C 60906 1975 
1SES 1047 DOCx eau * * DISK ORIVE *6Ce 31772 0ae0 1075 
21SEB 00 1SEB 1048 oc ALitoe FLAG c *6C*s OQ 1774 DSF1 1775 1076 R14 oc CLO2°RI° 
aSEC 0000 1SED 1049 oc ML2*ooe CYLINDER 2 *6Cs 1776 0060980 i779 1077 oc CLO4* OR *° 
ISE€E 0000 iSEF 1050 oc XL2°008 HEAD ADORESS N F SGC . 177A C6F1 1778 1078 Fi oc CLOZ*#F3° 
yea {SFO oO ISFO 1051 oc KLitoe RECORD T 1 s6ce  <] 177¢C ~«6F 177C 1079 oc CLO1® Pe 
1S5F1 00 iSF1 1052 oC XLit08 KEY LENGTH R € *6ce 177D 00 1?77D 1060 oc XLIege ; 
1S5F2 00C5 1SF3 1053 oc XL2*008 DATA LENGTH o t *G6C2 177E 1081 XMSG2 EOU -# - ; 
1Sf4 00 iSF4 1054 oc XLiege COUNT u 2 *ccs c I77E C7COESCS4CESCSCS 1781 its2 oc CLS2°GIVE THE NAME OF YOUR 3277 M#ICRO-CODE OBJECT FILE ec. 
1SF4 1055 vo0cz ecu = t—3 * FOR READ HA £ RO #6C8 1786 4005C1D4C54006C6 21982 pt te 
£SFS 0008 35F6 1056 DOZL oc XL2°0008° **DATA LENGTHS*S FOR READ HA & RO *GCs 17BE S0ESDEESDS4OF 3F2 1082 
1057 SSSSOR DFE SERFS REESE SESS ES EERESS FEO 9446 28569499048 0940498 0049000790006C4 Cc: 1796 FTFT74040D4C9C2C9 1962 
1SF? cs 1SF7 1058 ORV32 DC xL1*CB8e * OISK ORIVE AODRESS BITS DRIVE 2 *G6Cs , 179E G666C3D6C4C542040 1062 
15F@ 01 2SF8 10S9 OSKFCT DC x42°691¢6 DISK FUNCTICN €READ 01 / BRITE 02 7 SEEK 00) i 17AG DEC20IC ECSEZ3aCCE 1082 : 
ASF9 O000C00OOOO0CCO! 1602 1060 DOCFe oc RL20°0000COOO0ODDDNOIO0N0O* * INITIAL VALUE FOR DDCF *6Cs re] 17aE CeD3c540 : 1082 ge aves : 
16¢01 coco 1060 1782 900 ?7B2 10383 xL ; : 
1661 CESSES SEES OSOSS96S9E8 S96 4ESE REESE EEEREEEES ESS £4049999026040999946C8 i783 1084 xMSG3 EoOU 2 eer j 
7 1062 17B3 CSESSCES6CED3SN340 17EO icas oc CLOG ST WILL OEFAULT TO SSHCRE IF NO NANE WEnce : 
© 1603 1063 DSNS fou * s6ce c 1788 CéCSC6EC1 E4D3F340 2085 i 
1603 2614 1064 DSNSE Ds x24 *6cs 17¢€3 £306404(0S58SBN4c3 1085 : = 
ft". 2618 : 264A 1065 PSNS os xLaea *6Ce G 17CB OSCesoCeCcéseoDSDS 1085 
= 1066 #8¢esteeee8048 END OF DISK 170 FOR 3340 £46029 6094690464 049944644408046C : i17D3 20Tscipscsaccsee 1908S ; 3 
17C@ 40C7TC9ESCSDS 1085 ; ; 
e @ 17E1 OC 17E1 1086 oc RL2e9e : 
Pn ee 17E2 1087 xNSGa EQU +« : ‘resnemnemommnae tener, 
ITE] D7O3SCIC3SCSACEZES 1815 1088 oc CLS2° PLACE SYSTEM PACK ON R102. POKER UP DISK AND PRES ©: 
G G 17EA E2E3CSDe4007C1C3 190868 : ‘ 
17F2 C2400605400SF 1614 1088 ‘i 
17FA C4F26B40D706E6CS 088 : 
CG Cc 1802 O940£F4D740CaC SE? issea . 
180A 0240C1D8C4se00709 1088 i 
1812 CSE2E240 2988 E 
c & 1816 CSDSESCSD94ODEDS 1827 1089 CVLNSG DC CLIS*ENTER ON THE S2TTe* : 
- I81E 40E3C8C54 OF 3F2F7 1089 i 
1826 F748 1089 z 
ro e 1828 900 1828 1090 oc RLI*ge p 
“ue 1829 1001 caTm® caus = 
18629 21136 282A 1092 o¢ AL2(Z1-3) , a 3 
O © 1828 1158 182C 1093 oc AL2(Z2-29 2 P 
: 1820 1162 t82E 2094 oc AL2{Z3-13 
! 182F 1188 18630 1095 oc aL2(za? : 
CG | @ «1831: 1166 1832 1096 oc A2(z5) : 
1833 211C?7 18634 1097 oc AL2(z6) : 
1835 11CA 3836 1098 oc AL2i(273 % 
CG e 1837 1193 1838 1099 oc AL2(zs8) i 
i | 1839 2200 183A 2300 oc aL2(Z99 . 
| 1838 121A 183C 1101 oc M. 242209 - 
Sa, 6 283D 1210 £83E 1102 oc aL2(ZE39 : ee ene 
<=" | 183F 1239 21640 1103 oc AL2tzi129 eee 
i 2841 12428° 21842 1104 oc a0 2(213-23 
C ! oe 1883 11246 1844 1105 oc £L.2(2124) 
! 1848 1130 1846 1106 pc £8. 2(215-2) : 
; 1847 1203 1848 1107 oc aL2(s20) : 
C3 | © 1849 FFFF 184a 1108 oc AL 2( 0-0-3) 
. i 2001 1109 TABLE EGU <x*20018 LINK TO MICRO CODE HAP Inu 803 : 
: 2004 1110 XKFCX E€OQU x*200e¢ LINK TO MICRO DECK ID 0 993 : 
c ' ©} 1848 FOFS 184C 2131 s9 oc CL2*o99 2 
i 184D F1F7 184E 1112 $17 oc CL2°3 79 ‘ 
| 1988F 00 384F 1113 LOADFL oC XL2*90e MECRO-CODE LOADED FLAG = 
Date S65UNTS Z PROG 10 FCE-0) DATE 265UN75 PROG ID PCe-0 | . 
 £C NO. . s28023 PAGE 12, @EC mo. s25023 PASE s8a;) 
| co . 
= |e ee 
ak ; a 
bs ac L 
5 ' ps = 
4 m a “ - : 
| & '@ 











era i ee RE ee ee, etl aes Pha eee Ne ae 


TBM MAINTENANCE DEAGNOSTIC PROGRAK PART NO. a23e265 €:1es MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 42346265 
: . Pace . 12 | PaGE 12a 
Fcec HOVE FCT MECRO-CODE FROM DIAG PACK TO SYS PACK 0D 15 ; i @©rceo MOVE FCT MICRO-CODE FROM OTAG PACK TO SYS PACK OD 15 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
| 
1850 COCGS0EZESEZESCS 1866 12134 MENGZ DC CL26°rF SYSTEM PACK WILL GE ON RI i e 0216 1239 LINK equ =k*216° 
tase oxsgoveicaossoes ©1184 re ae 
£860 C9D3C340C2C54006 4126 ' 
@ e 
18E8 DS4eDSF1 21246 | 0222 13:42 HALT eQu Roeeee 
186C 6B40E2ZCSES40D9CS 188B 1215 MENGS OC CL32%. SEY RIGHTMOST DATA SWITCH TO 2* 022A 1143 LOAD Eou Kez2A 
1874 C7CBE3D4D6E2E340 1115 | @ 0232 1144 UDT equ = -X* 232° 
167C CACIE3C140E2E6C9 1125 | 2020 1145 OUNP equ = K*2020° 
1864 E€3C3CB8S0E3D640F 1 1115 | ance a ee eae Seca 
e 2 
Meee aeceeece saves: Sestsitieineee‘9¢; Jue Rete ys On Sere 1 @ rere Has one xeares bo not wove THIS ADORESS 
189C DSE3SCODSESCS 2846 | 1FFE OA3SC 1FFF 1149 oc AL 2(RTNLDOR?) ADOR FOR 893 TO RETURN TO FCO 
2642 COCEAOESEBE 2ESCS 1805 1117 oc CLS2° fF SYSTEM PACK MICRO-CODE OBJECT FILE NAME IS ssucrt | e 1156 TREP 
IBAA D440D7C1C3D24004 1127 | 21512 TREP 
2882 COC3DSDEEOCINECE 1117 \ : 1152 TREP 
18BA CS&OD6EC2D1CEC3E3 1137 \ @ 1153 TREP 
18C2 40C6C9D3C5400SC1 2187 | 2156 TREP 
1B8CA D2CS40CSE2405858 2227 2155 TREP 
1Bp2 ©4¢309C9 2117 @ 1156 TREP 
1806 6RB4S0E2CSE340CEC1 16E9 1118 MENGS DC CL20%. SET DATA SU 4 = fet | 11S7 TREP 
1BDE E3C1S0EZE640F 440 1116 1156 TREP 
18E6 7ESOFICB 1318 | @ FFFF 1159 END 
LBEA DGESCACSDSEECSE2 1906 1119 MEMGSE OC CL29* OTHERWISE. SET DATA SY 4 = Oe* \ 
18F2 CS6B40E2CSES40C4 1119 | 
1GFA CLIE3SCISOE2ZEES0FS 1319 & 
1902 407E40F048 £219 | 
1907 CSDSE3CSD9ROCECS 1937 1120 pc CLOOSENTER FILE NANE 2 CHAR. AT A TIME IN EBCDIC CODE * | 
190F 03C54005C104C540 1120 & 
1917 F140C3C8C10946840 2120 ; 
IGVIF CLE340C140E3C904 1120 \ 
1927 csecceDSsseocsc2cs 1220 8 
192F cacoc3e0c3sDECc4cs 1120 
1937 40 8120 | 
- AQ@IG ESESCODSC7TSOCACE 1949 1221 MBMGE OC CLIG*USING DATA SY Se4%e® @ 
~ 1940 €3C140E2E6ecr368 2121 oneness 
1948 FeeB 1221 
194A ODGCSE2CSE3S40C8C1 1974 1122 MANGT DC CLA3°RESET HALTS FI-F6 AS EACH CHAR. IS ENTEREDe® | }@ 
1952 DSESEZ40CEFI6CCE 2222 ae : 
195A F640C1E260C5C1C3 at22 : 
1962 C8€0C3C8C 1054840 ta22  ] 
196A C9E240CSDSE3CSD9 2122 : 
1972 c5C4aae8 ;  gi22 ; 
1975 D4C1iET4BSODSC1D4S 219A5 1123 MENG7TA DC CLAOCMAX. NAME IS 6 CHAR. GLANK WILL TERMINATE ENTRY<®* | @ 
197D CS540C9E24 0F640C3 2123 : 
1985 €8C1094846040C203 1123 
198D C10SD260E6C9N3D3 1123 @ 
199S 40E3CSD9D46C905Ct 1123 | 
1990 E3CS40CSOSE3D9ES 2125 
1945 48 1123 | @ 
19RE CECOD3CS4OCSC1ID*S 19C3 1124 NBNGBA OC CL3O°FILE NAME 70 BE USED IS XKXXXKK®? 
IQAE CS40E3D640C2C540 1124 | 
1986 EsE2cscesocse2eo 1124 @ 
196E EPETETETETET 1124 
19C& 484040D9CSEZE3C2 19DA 1125 meMGe DC CL23%s RESTART IF ENCORRECT® 
19CC DSE340C9C640C9D5 2126 @ 
1904 C3DEDSDOCSC3ES 1128 
0002 2126 xRI equ 2 | 
’ 0002 1127 xR2 eou 2 | @ 
a 0008 1128 ARR eau 8 ie 
O0CO 1129 TARE equ x*coe i 
- ooso 1130 ssu20 896 EGU e808 | @ 
: 0010 1232 ssw23 fou x*i0* l 
0008 1132 Ssw24 equ xK*08* i 
0002 1133 sSw2E QU x*02° l@ 
0008 1134 ssw2c eau x*Qog* | 
0004 2135 ssw2D equ 3 K*08° i 
f 0200 1136 MODEL eeu x*200° & 
se o20c 1137 sevTes cau. x*2o0ce 
0200 1136 SB8YTES €QU K*Z0D* i e 
( : : 
DATE 26IUNTS PROG Io . ece-c DATE — 26JUN7TS PROG 10 “o 
EC NO. 825023 PAGE 12 @EC NO.  ezs02s : oe sie | 





eeseeeeneeeeoenseaenoeveenoeneoenaeeeeaeeeeeeecee6é @ @ 








A 4 eet li ; 
- me! Sa: : ; ; ; / 
: : Se etreste: eS oe a at nie pees poo aes wh on ce A eked “Sloe Wie eee ae Wa ee Pe ee ‘ 
anh ce wl nn ae at re wt ete ee es I Ar Gee et fe Shoes? Seca Tt. 2 er eho te == * S : 
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A . . 7 
‘ a v as amt NB aeseges- 
- 16M MAINTENANCE DIAGNOSTIC PROGRAN BART MOS.= « SRESEES COTSP MAINTENANCE DIAGNOSTIC PROGR PACE 38. 
bo nee “3 ; : 
s 
FC8O MOVE FCT MICRO-CODE FROM DIAG PACK TO SYS PACK. MOD 15 | ere MOVE FCT MEICRO-CODE FROM DIAG PACK TO SYS PACK — 3 
CROSS-REFERENCE | e CROSS-REF ERENCE 
SYPBOL T LEN VALUE OSFFN REFERENCES | SYMBOL T LEN VALUE OEFN REFERENCES 
apoBaKx A OCS 1381 0898 oese oses | MOSNS 4 €62 16023 1063 2030 
| “psnse A C2@ 161A 1064 9909 
AOREXT A OC1 1200 0730 o702 oT17 eee ee ace 
AGAIN A 004 Of4A 0045 9034 ¥ a" Deed. cece nies : 
acc A C04 113F 0612 0614 Y . 
A Ca 0C2 1288 0667 0783 End a C002 OAtF 9022 0392 ¢359 08:4 
aoe | ENDINT A COS 1089 0527 oS2ie 
ARODFC A 001 1189 0668 0667 O754 O765¢ O773¢ : Be ee. ceee : 
ARR c oci 0008 1128 0389 0433 0521 0573 0608 0629 9691 i ¢ ‘ENDS : ST3¢ 
ENMLT € 002 CD66 0236 0234¢ 02888 0246 
ASK A 0C4 OD06 0197 0218 : pa Suen ceca anes : ) ‘ 
ASKFR A 004 ©0C24 0119 0104 i 393 
aoo3 oacc 0035 0046 1 ERASE A001 10C6 0550 0162¢ 0177¢ 02646 0462 04720 
i \erense a 004 12ED 0836 0877 0892 0909 
BASER A 001 1159 0630 0604 O06CE 0627 0628 O677 0741 0742 0769 \ ee aan Gast once wt 
BLANK A006 1759 1073 0233 o28c - $ - i ERRM 
ERROR A 0O4 1080 0532 0526 
BLKCNT A 0Ct 10C7 O55! 04e0¢ 04870 epee eee aes = 
BUFFa a oc2 10CE 0555 0270 oO27¢# 6481 0503 0O513¢6 Be ee eae deaee oh aN 
BUFLG aoct 10cc 0854 0265* 0269% 0509 : 
| FILFND A 008 OCfD9 0333 0299 
BuMP a 003 13CB 0908 0905 0912 Oe eee. fee : gene 
susy C€ 001 O0A2 0623 0706 O711 0734 9753 | e oe sear aaa aoe | 
CARDIN A 004 OC8C 0161 0117 0166 ©6172 O836 ey mines cance. meee vel . 
CKCYLO A CO3 139F 0891 oa7s Aa Bees ae oc es pide a Ge 
CKFIXD a 003 1352 0856 oese i 5 Bee ore ec ae eas 2 , 3 
CKZERG A 0C3 1388 o862 ose9 a i PCS ; a gaia’ Besa’ eames > ete : 
CNT 4 001 3753 1072 9295¢ O03C1® 03368 03432 ge" c 008 O222 1142 eeak eae pa 0155 0210 92 259 oss 
: Aone gee eae eae Seren j HEADWA a 001 12E7 9829 OS01¢ 09109 0914 ; 
COUNTS A 002 10CB 0553 oS76 | Sea asi Gane. Gees seat : 
ances oes waae ‘oro cai a i rani 406 C 602 «=20CO 129 C4668 0469% 0484% OSOES 05798 C5832 OSETS tO 
es8 07006 07090 o7sie orese {| 2920 «4 003 0a12 0017 0035 00408 0116 0195 : 
CTLREG C 001 OOAE 0624 oegee 0 o7 o? O7T1400 1% i peed ese ane ange se ete 2 
CvTcTH a 003 1370 9872 osTo j ee eee veces Gees bo : 
pdabbbs Oe eee eae cease , | sesse1 a 00S 0B2C 0087 0057 ocOSs C061 : 
te = : Ses phase ooré ese oore | gateusc2 a 022 0871 0089 0061 oce62 ccsO : 4s 
Wr RATAS & 002 1003 0557 0082 60502 INNSG3 A043 CBSC 0090 ©069* 0077% COSC 9083 -———— 
ceuF a 001 1688 «1068 003S* 0040 0339% C665 1629 tnPpuT A 010 OAIC 0019 oc22 O377 S378 579 : 
peur MPUTS A 002 OF42 O377 0387 ©0388 OST? 0590 5 . 
ocpaur coe: oseo see | ““IspuTa £001 1006 0567 0164 0180 6273 i 
€ 001 0880 0562 0495 OSS? a eee oe ecoee 
DOCF a oct 15D7 1034 OB01* 091358 09260 O917e O956e 1026 i vous pt agenp adage : 
rch a oot eso teas dll | ieee A&A 004% OCASD C050 oose2 : 
DOCFE A001 25E0 1042 © 0933 eee eet cee cease oes | 
DOCx a 00 1588 1067 1028 | Fee ee eeee... aemee / 
Cone Desk lee tae - aos ana A 004 OBAC 0095 o0ce 0073 : 
. cee. Gane) iena. Ge | ams6 a 008 «OBAS 0093 =: 008s“ O76 : Se: 
Send. a ose GeGs lagse Gare | @inse 2 .0¢8 aco cove c070 | = 
OFDR a CO2 1186 0665 0636 Oo732 tnt® A002 1005 92558 0469 0484 0506 OS7TS 0583 oO567 . 
ove INTAKN £008 1092 0521 0471 0086 0508 oOSe2 9584 0589 : : 
otacsd woes : ates oc i g@RENTERR a 004 1096 0522 0523 
eranes . ai Nike Sane ore? 1 ““"NnYFLG € 002 1006 0559 0522 Of240 Ofeze . 
DISPLY A 004 OFOD? 0449 0434 ; 20BCHN A 004 12EB 0831 084E¢ O850* 0853 0856 C87Z¢ OST OB876 O878e CBB2 OC88S5* O886e 0891 i 
scena” & 006 14A7 OO74 0996 ! eS 0895% 0898% 0902 0908 0906 0906 0911¢ 09134¢ 96915 0916 oO917 
OMER2 A COB 148C 0965 0939 ; roees a 001 12€C 0832 08498 CASO OCA6Te CBESS OfT19 
OKERe a CC6 1495 0968 o0ae LAST® & 002 118E 0672 or7oe 
DKERO A 006 149 0971 0932 0960 ASTAD 4-001 1190 ©0674 ove? o7126 0716 O719 O725 >sT29% 
px =a 003 1469 0963 osco eur A oc 1208 = ome ie 
ORVS2 2001 15F7 1058 o92s5 oe - soe pect. :tere peice 
sKe 74 #=¢680 ' 
see ; eel ie oe7e L00F a 002 1500 1027 0928 6936 9956 
DSKER a O32 128C 0790 o7s9 LOPaRM a c0O3° 1198 0692 C7T7?7S o7ss8 
OSKERR A001 1218 O750 o7T3s LENGTH A 001 OF89 0361 0278 0281 O282 903919 94050 0421 
OsKFCT a 008 15F8 10659 O922e 09236 0926 =e : pos oars : > 0314 0322 0349 9842 101% 
eauasa i ae gues bres ooos LNG € 00t OCCA 802! O37? O379 
DSKM33 A C37 OB8FS 0105 007% ocse cNSe OCc99 0102 &0AD ¢€ G02 O22A sie ore i 
OSKND €£ 050 129C 0789 o7ea court a ane : oe. : 1: ooes 
Osxeum € 002 2176 0682 / gStoape 
OSKSEC A 0O1 3378 0681 02916 02034 O3320 case USNS A 002 ae 1820 = 
6 OSKTYP A 0C1 0a95 0C71 0045*e COR3e CORSe OL7E OTC6 MAXROY A OOS OFEF 0459 
& I = 
< : 
sUNTS PROG a~-0: DATE 26.JUN7TS PReS 10 FCcs-0 
ee po oo = ' EC NO. 825023 Pace asa 
€C NO. 825023 PAGE az @ ; ‘ ok 
- oo 
ie | 
© | Ne ae 
G \@ oe 
7 as 
> - & s “ates 


ete OER 
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{104 MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4234265 
PAGE we | 


Pace 24A 


Fceo WOVE FC? MICRO-CODE FROM OJAG PACK TO SYS PACK «mDDdD is @ree eOVE ec? MICRO-CODE FROM DIAG PACK TO SYS PACK WOD 25 





t 
| 
| 
CROSS-REF ERENCE i CROSS-REF ERENCE 
SYMBOL T LEN VALUE DEEN REFERENCES © | ©. coe T LEN VALUE DEFN REFERENCES 
MTAF £006 1752 1671 O233* 0235 C249 oO274¢ O260¢ O283 0298 | (pe@erR A cor ocra o192 0188s . 
MODEL C CO O2C0 1136 oeTm A OOl 1829 1092 0183 . Fs . 
mvcC  &£ 0C6 ~(CEFE 0339 0304 ROOFC A COL 11273 06546 O503* 0304 OECSF O612e 0613 6330 0664 O679 0680 cea oCEeez C690 = ‘ 
“vcF a 0C1 «CFO? O28T o281¢ © o7a9 O771 O773 ‘ ‘ 
MVCFe A 0Cl CEFE 0340 O336% 034824 RDDGE A O29 1542 1016 2003 10C8 
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